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))