Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14433/demos
Modified Files:
ListViewDemo.f
Log Message:
Rod: tidied up
Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** ListViewDemo.f 23 May 2006 19:49:26 -0000 1.13
--- ListViewDemo.f 11 Jun 2006 09:53:44 -0000 1.14
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+
\ Splitter window modified to prevent flicker - May 4th, 2006 Rod
\ ForthForm generated splitter-window template
***************
*** 13,19 ****
20 constant FontHeight
- defer OnPosition ( window -- ) ' drop is OnPosition \ called when window panes are repositioned
- defer OnInit ( window -- ) ' drop is OnInit \ called during window On_init method
-
\ ------------------------------------------------------------------------
\ Define the Listview for the left part of the window.
--- 15,18 ----
***************
*** 26,33 ****
;M
- :M WndClassStyle: ( -- style )
- \ CS_DBLCLKS only to prevent flicker in window on sizing.
- CS_DBLCLKS ;M
-
;object
--- 25,28 ----
***************
*** 42,49 ****
;M
- :M WndClassStyle: ( -- style )
- \ CS_DBLCLKS only to prevent flicker in window on sizing.
- CS_DBLCLKS ;M
-
;object
--- 37,40 ----
***************
*** 118,127 ****
:M On_Size: ( -- )
! gethandle: ListViewLeft
! if 1 ( repaint flag )
! tempRect.AddrOf GetClientRect: Self
! Bottom: tempRect Right: tempRect 0 0
! gethandle: ListViewLeft Call MoveWindow drop
! then ;M
: 0GetParmsItem ( nItem - Z$text Lparm flNew )
--- 109,114 ----
:M On_Size: ( -- )
! 0 0 width height Move: ListViewLeft
! ;M
: 0GetParmsItem ( nItem - Z$text Lparm flNew )
***************
*** 159,164 ****
;M
! :M Start: ( parent -- )
! start: super
-1 to SelectedItemLeft
Self start: ListViewLeft
--- 146,150 ----
;M
! :M On_Init: ( -- )
-1 to SelectedItemLeft
Self start: ListViewLeft
***************
*** 180,192 ****
:M On_Size: ( -- )
! gethandle: ListViewRightBottom
! if 1 ( repaint flag )
! tempRect.AddrOf GetClientRect: Self
! Bottom: tempRect Right: tempRect 0 0
! gethandle: ListViewRightBottom Call MoveWindow drop
! then ;M
! :M Start: ( Parent -- )
! start: super
Self start: ListViewRightBottom
;M
--- 166,173 ----
:M On_Size: ( -- )
! 0 0 width height Move: ListViewRightBottom
! ;M
! :M On_Init: ( -- )
Self start: ListViewRightBottom
;M
***************
*** 194,205 ****
;Object
- \ ------------------------------------------------------------------------
- \ Define the menubar for the main window.
- \ ------------------------------------------------------------------------
- MENUBAR TestBar
- POPUP "&File"
- MENUITEM "Bye" bye ;
- ENDBAR
-
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 175,178 ----
***************
*** 249,254 ****
LeftWidth thickness + ToolBarHeight Width LeftWidth thickness + - RightTopHeight Move: RightTopPane
LeftWidth thickness + ToolBarHeight RightTopHeight + Width LeftWidth thickness + - RightBottomHeight Move: RightBottomPane
! LeftWidth ToolBarHeight thickness LeftHeight Move: Splitter
! self OnPosition ;
: InSplitter? ( -- f1 ) \ is cursor on splitter window
--- 222,226 ----
LeftWidth thickness + ToolBarHeight Width LeftWidth thickness + - RightTopHeight Move: RightTopPane
LeftWidth thickness + ToolBarHeight RightTopHeight + Width LeftWidth thickness + - RightBottomHeight Move: RightBottomPane
! LeftWidth ToolBarHeight thickness LeftHeight Move: Splitter ;
: InSplitter? ( -- f1 ) \ is cursor on splitter window
***************
*** 297,301 ****
:M Classinit: ( -- )
ClassInit: super \ init super class
- TestBar to CurrentMenu
['] On_clicked SetClickFunc: self
['] On_unclicked SetUnClickFunc: self
--- 269,272 ----
***************
*** 327,331 ****
self Start: RightBottomPane
self Start: Splitter
- self OnInit \ perform user function
;M
--- 298,301 ----
|
