[graphic-forms-cvs] r421 - in trunk: docs/manual src/uitoolkit/system

[junrue at common-lisp.net]

Author: junrue
Date: Fri Dec 22 22:19:32 2006
New Revision: 421

Modified:
   trunk/docs/manual/gfw-symbols.xml
   trunk/src/uitoolkit/system/system-constants.lisp
   trunk/src/uitoolkit/system/system-types.lisp
Log:
preparation for status-bar implementation

Modified: trunk/docs/manual/gfw-symbols.xml
==============================================================================
--- trunk/docs/manual/gfw-symbols.xml	(original)
+++ trunk/docs/manual/gfw-symbols.xml	Fri Dec 22 22:19:32 2006
@@ -1412,6 +1412,7 @@
           One or more of the following optional styles:
           <enum>
             <argument name=":horizontal-scrollbar"/>
+            <argument name=":statusbar"/>
             <argument name=":vertical-scrollbar"/>
           </enum>
         </description>

Modified: trunk/src/uitoolkit/system/system-constants.lisp
==============================================================================
--- trunk/src/uitoolkit/system/system-constants.lisp	(original)
+++ trunk/src/uitoolkit/system/system-constants.lisp	Fri Dec 22 22:19:32 2006
@@ -922,6 +922,10 @@
 (defconstant +ps-geometric+            #x00010000)
 (defconstant +ps-type-mask+            #x000F0000)
 
+;;;
+;;; scrollbar constants
+;;;
+
 (defconstant +sb-horz+                          0)
 (defconstant +sb-vert+                          1)
 (defconstant +sb-ctl+                           2)
@@ -943,6 +947,29 @@
 (defconstant +sb-right+                         7)
 (defconstant +sb-endscroll+                     8)
 
+;;;
+;;; statusbar constants
+;;;
+
+(defconstant +sb-SETPARTS+                 #x0404) ; (WM_USER+4)
+(defconstant +sb-GETPARTS+                 #x0406) ; (WM_USER+6)
+(defconstant +sb-GETBORDERS+               #x0407) ; (WM_USER+7)
+(defconstant +sb-SETMINHEIGHT+             #x0408) ; (WM_USER+8)
+(defconstant +sb-SIMPLE+                   #x0409) ; (WM_USER+9)
+(defconstant +sb-GETRECT+                  #x040A) ; (WM_USER+10)
+(defconstant +sb-ISSIMPLE+                 #x040E) ; (WM_USER+14)
+(defconstant +sb-SETICON+                  #x040F) ; (WM_USER+15)
+(defconstant +sb-SETTIPTEXTA+              #x0410) ; (WM_USER+16)
+(defconstant +sb-SETTIPTEXTW+              #x0411) ; (WM_USER+17)
+(defconstant +sb-GETTIPTEXTA+              #x0412) ; (WM_USER+18)
+(defconstant +sb-GETTIPTEXTW+              #x0413) ; (WM_USER+19)
+(defconstant +sb-GETICON+                  #x0414) ; (WM_USER+20)
+(defconstant +sb-SETUNICODEFORMAT+         #x2005) ; CCM_SETUNICODEFORMAT
+(defconstant +sb-GETUNICODEFORMAT+         #x2006) ; CCM_GETUNICODEFORMAT
+
+(defconstant +sbars-SIZEGRIP+              #x0100)
+(defconstant +sbars-TOOLTIPS+              #x0800)
+
 (defconstant +sbs-horz+                    #x0000)
 (defconstant +sbs-vert+                    #x0001)
 (defconstant +sbs-topalign+                #x0002)
@@ -954,6 +981,12 @@
 (defconstant +sbs-sizebox+                 #x0008)
 (defconstant +sbs-sizegrip+                #x0010)
 
+(defconstant +sbt-ownerdraw+               #x1000)
+(defconstant +sbt-noborders+               #x0100)
+(defconstant +sbt-popout+                  #x0200)
+(defconstant +sbt-rtlreading+              #x0400)
+(defconstant +sbt-notabparsing+            #x0800)
+
 (defconstant +sif-range+                   #x0001)
 (defconstant +sif-page+                    #x0002)
 (defconstant +sif-pos+                     #x0004)

Modified: trunk/src/uitoolkit/system/system-types.lisp
==============================================================================
--- trunk/src/uitoolkit/system/system-types.lisp	(original)
+++ trunk/src/uitoolkit/system/system-types.lisp	Fri Dec 22 22:19:32 2006
@@ -187,10 +187,24 @@
 
 (defctype dllversioninfo-pointer :pointer)
 
+(defcstruct drawitemstruct
+  (ctltype    UINT)
+  (ctlid      UINT)
+  (itemid     UINT)
+  (itemaction UINT)
+  (itemstate  UINT)
+  (hwnd       HANDLE)
+  (hdc        HANDLE)
+  (itemleft   LONG)
+  (itemtop    LONG)
+  (itemright  LONG)
+  (itembottom LONG)
+  (itemdata   :pointer))
+
 (defcstruct drawtextparams
-  (cbsize UINT)
-  (tablength INT)
-  (leftmargin INT)
+  (cbsize      UINT)
+  (tablength   INT)
+  (leftmargin  INT)
   (rightmargin INT)
   (lengthdrawn UINT))