Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20709/demos
Modified Files:
ListViewDemo.f
Log Message:
Some minor mods.
Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ListViewDemo.f 5 May 2006 16:10:28 -0000 1.8
--- ListViewDemo.f 6 May 2006 07:59:48 -0000 1.9
***************
*** 52,55 ****
--- 52,63 ----
out$ ;M
+ :M WindowStyle: ( -- style )
+ WindowStyle: Super
+
+ \ CS_DBLCLKS to prevent flicker in window on sizing.
+ \ (But why should this be needed, to prevent flicker?!?
+ \ Samstag, Mai 06 2006 dbu)
+ CS_DBLCLKS or ;M
+
:M ExWindowStyle: ( -- style )
ExWindowStyle: Super WS_EX_CLIENTEDGE or ;M
***************
*** 60,69 ****
s" Courier" SetFaceName: vFont
Create: vFont
- \ prevent flicker in all child-windows on sizing
- CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
;M
! :M On_size: ( -- ) Paint: self ;M
! \ need to repaint in this child-window as the position of the text depends on its size
:M On_Paint: ( -- )
--- 68,77 ----
s" Courier" SetFaceName: vFont
Create: vFont
;M
! :M On_size: ( -- )
! \ need to repaint in this child-window as the position of the
! \ text depends on its size
! Paint: self ;M
:M On_Paint: ( -- )
***************
*** 202,207 ****
200 value LeftWidth
! 5 value thickness
! 30 value RightTopHeight
\ ------------------------------------------------------------------------
--- 210,215 ----
200 value LeftWidth
! 2 value thickness
! 30 value RightTopHeight
\ ------------------------------------------------------------------------
***************
*** 216,221 ****
int mousedown?
! : LeftHeight ( -- n ) Height StatusBarHeight - ToolBarHeight - ;
! : RightBottomHeight ( -- n ) Height StatusBarHeight - ToolBarHeight - RightTopHeight - ;
: position-windows ( -- )
--- 224,232 ----
int mousedown?
! : LeftHeight ( -- n )
! Height StatusBarHeight - ToolBarHeight - ;
!
! : RightBottomHeight ( -- n )
! Height StatusBarHeight - ToolBarHeight - RightTopHeight - ;
: position-windows ( -- )
***************
*** 226,230 ****
self OnPosition ;
! : InSplitter? ( -- f1 ) \ is cursor on splitter window
hWnd get-mouse-xy
0 height within
--- 237,241 ----
self OnPosition ;
! : InSplitter? ( -- f1 ) \ is cursor on splitter window
hWnd get-mouse-xy
0 height within
***************
*** 233,237 ****
\ mouse click routines for Main Window to track the Splitter movement
! : DoSizing ( -- )
mousedown? dragging? or 0= ?EXIT
mousex ( 1+ ) width min thickness 2/ - to LeftWidth
--- 244,248 ----
\ mouse click routines for Main Window to track the Splitter movement
! : DoSizing ( -- )
mousedown? dragging? or 0= ?EXIT
mousex ( 1+ ) width min thickness 2/ - to LeftWidth
***************
*** 239,243 ****
WINPAUSE ;
! : On_clicked ( -- )
mousedown? 0= IF hWnd Call SetCapture drop THEN
true to mousedown?
--- 250,254 ----
WINPAUSE ;
! : On_clicked ( -- )
mousedown? 0= IF hWnd Call SetCapture drop THEN
true to mousedown?
***************
*** 278,285 ****
;M
! :M WindowHasMenu: ( -- f ) true ;M
! :M WindowStyle: ( -- style )
! WindowStyle: Super WS_CLIPCHILDREN or ;M
:M StartSize: ( -- w h )
--- 289,302 ----
;M
! :M WindowHasMenu: ( -- f )
! true ;M
! :M WindowStyle: ( -- style )
! WindowStyle: Super
!
! \ CS_DBLCLKS to prevent flicker in window on sizing.
! \ (But why should this be needed, to prevent flicker?!?
! \ Samstag, Mai 06 2006 dbu)
! [ WS_CLIPCHILDREN CS_DBLCLKS or ] literal or ;M
:M StartSize: ( -- w h )
***************
*** 290,303 ****
:M On_Init: ( -- )
- 395 Setid: LeftPane
self Start: LeftPane
- 396 Setid: RightTopPane
self Start: RightTopPane
- 397 Setid: RightBottomPane
self Start: RightBottomPane
self Start: Splitter
self OnInit \ perform user function
- \ prevent flicker in window on sizing
- CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
;M
--- 307,315 ----
|
