Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30930/src/lib
Modified Files:
treeview.f
Log Message:
Jos: Added an other font for the treeview in the demo. Also added ExpandItem: and CollapseItem:.
Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** treeview.f 8 Mar 2006 21:40:17 -0000 1.3
--- treeview.f 14 Apr 2006 19:12:44 -0000 1.4
***************
*** 249,252 ****
--- 249,260 ----
;M
+ :M ExpandItem: ( hItem -- )
+ TVE_EXPAND TVM_EXPAND hWnd Call SendMessage drop
+ ;M
+
+ :M CollapseItem: ( hItem -- )
+ TVE_COLLAPSE TVM_EXPAND hWnd Call SendMessage drop
+ ;M
+
:M SortChildren: ( hItem -- )
false TVM_SORTCHILDREN hWnd Call SendMessage drop
***************
*** 309,312 ****
--- 317,322 ----
:Class NewTVC <super TreeViewControl
+ Font WinFont
+
:M WindowStyle: ( -- style )
***************
*** 354,357 ****
--- 364,373 ----
Start: super
+ 8 Width: WinFont
+ 16 Height: WinFont
+ s" Courier New" SetFaceName: WinFont
+ Create: WinFont
+ true Handle: WinFont WM_SETFONT hWnd CALL SendMessage drop \ activate a new font
+
\ Insert items...
FillTreeView
|
