Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32232/src/lib
Modified Files:
treeview.f
Log Message:
- Changed the TreeViewControl back into a child-window. As a quick bugfix for problems with the FileLister class.
Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** treeview.f 11 Jun 2006 07:37:27 -0000 1.6
--- treeview.f 12 Jun 2006 16:22:57 -0000 1.7
***************
*** 86,90 ****
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! :Class TreeViewControl <super control
Record: nmhdr
--- 86,93 ----
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \ :Class TreeViewControl <super control
! \ converted back into a child window as a quick an dirty fix for the
! \ FileLister class (Montag, Juni 12 2006 - dbu)
! :Class TreeViewControl <super child-window
Record: nmhdr
***************
*** 180,184 ****
\ -------------------- Create Tree-View Control --------------------
-
create treeview-class z," SysTreeView32" \ Pre-registered class
--- 183,186 ----
***************
*** 187,198 ****
;M
:M Start: ( Parent -- )
hWnd
! if drop
! SW_SHOWNOACTIVATE Show: self
! else to Parent
! Call InitCommonControls drop
! treeview-class Create-Control
! then ;M
:M Handle_Notify: ( h m w l -- f )
--- 189,231 ----
;M
+ \ :M Start: ( Parent -- )
+ \ hWnd
+ \ if drop
+ \ SW_SHOWNOACTIVATE Show: self
+ \ else to Parent
+ \ Call InitCommonControls drop
+ \ treeview-class Create-Control
+ \ then ;M
+
+ : create-treeview ( -- hWnd )
+ \ Make sure Common Controls are loaded
+ Call InitCommonControls drop
+
+ NULL \ Creation parameter
+ appInst \ Instance handle
+ id \ Child id
+ Parent conhndl =
+ if conhndl
+ else GetHandle: Parent \ parent window handle
+ then
+ tempRect.AddrOf GetClientRect: Parent
+ Bottom: tempRect Right: tempRect \ Size h,w
+ 0 0 \ Position y,x
+ WindowStyle: [ self ] \ Style
+ NULL \ Window name
+ treeview-class \ Pre-registered class
+ 0 \ Extended style
+ Call CreateWindowEx
+ ;
+
:M Start: ( Parent -- )
hWnd
! if drop
! SW_SHOWNOACTIVATE Show: self
! else
! to Parent
! create-treeview to hWnd
! then
! ;M
:M Handle_Notify: ( h m w l -- f )
***************
*** 274,278 ****
;M
-
\ --------------------- Overridable methods ----------------------
--- 307,310 ----
|
