Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r26 - trunk

genelib
Discussion topic

Back to topic list

svn commit: r26 - trunk

Author lotec
Full name Jan Bogaerts
Date 2006-03-11 05:53:19 PST
Message Author: lotec
Date: Sat Mar 11 05:53:18 2006
New Revision: 26

Modified:
   trunk/Controls.gen
   trunk/widgets.gen
Log:
-Added grouping featuers in widgets (BeginOfGroup property in widget + chapter in controls)

Modified: trunk/Controls.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/trunk/Contro​ls.gen?view=diff​&rev=26&p1=trunk​/Controls.gen&r1​=25&p2=trunk/Con​trols.gen&r2=26
====================​====================​====================​==================
--- trunk/Controls.gen (original)
+++ trunk/Controls.gen Sat Mar 11 05:53:18 2006
@@ -64,6 +64,7 @@
          ShowSysMenu: bool = false //WS_SYSMENU
          HasTabStop: bool = true //WS_TABSTOP
          Visible: bool = false //WS_VISIBLE
+ BeginOfGroup: bool = false //WS_GROUP
          Caption: conststring = '' //lpWindowName
          
  is |<
@@ -238,6 +239,7 @@
             #[#<-self.SizeableBorder == true-> | WS_SIZEBOX #]
             #[#<-self.HasTabStop == true-> | WS_TABSTOP #]
             #[#<-self.Visible == true-> | WS_Visible #]
+ #[#<-self.BeginOfGroup == true-> | WS_GROUP #]
             //and don't forget the additional styles (if any)
             #iStyleEl: self.AdditionalStyles.entity
             #{#<-self.AdditionalStyles \ iStyleEl->

Modified: trunk/widgets.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/trunk/widget​s.gen?view=diff&​rev=26&p1=trunk/​widgets.gen&r1=2​5&p2=trunk/widge​ts.gen&r2=26
====================​====================​====================​==================
--- trunk/widgets.gen (original)
+++ trunk/widgets.gen Sat Mar 11 05:53:18 2006
@@ -91,6 +91,7 @@
  prop Handle: THandle read var fHandle: THandle
       Caption: string read exp GetCaption: string write exp SetCaption(aVal: string&)
       Style: dword read exp GetStyle: dword write exp SetStyle(aVal: dword) //to set the window style (for windows
+ BeginOfGroup: bool read exp GetBeginOfGroup: bool write exp SetBeginOfGroup(aValue: bool)
       Font: HFONT read exp GetFont: HFONT write exp SetFont(aval: HFONT) virtual //change the font that is used. Note, this must be the handle of the font
       Owner: sWinWidget^ read var fOwner: sWinWidget^ = nil //the owner, set during construction
  exp Refresh override //send repaint message
@@ -481,6 +482,18 @@
    User32.SetWindowLong(Handle, GWL_STYLE, aVal)
 ;
 
+exp sWinWidget.GetBeginOfGroup: bool
+=
+ return(bool(Style & WS_GROUP))
+;
+
+exp sWinWidget.SetBeginO​fGroup(aValue: bool)
+=
+ [<-BeginOfGroup <> aValue->
+ Style = Style ~ WS_GROUP
+ ]
+;
+
 exp sWinWidget.GetFont: HFONT
 =
    return(HFONT(User32.​SendMessage(Handle, WM_GETFONT, 0, 0)) )

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r26 - trunk lotec Jan Bogaerts 2006-03-11 05:53:19 PST
Messages per page: