[Win32forth-cvs] win32forth/demos ListViewDemo.f,1.8,1.9

[Dirk B. <db...@us...>]

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 ----