[Win32forth-cvs] win32forth/demos TabControlDemo.f,1.2,1.3

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1142/demos

Modified Files:
	TabControlDemo.f 
Log Message:
Rod: Eliminated flicker when resizing the window

Index: TabControlDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/TabControlDemo.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TabControlDemo.f	4 Jun 2006 09:58:50 -0000	1.2
--- TabControlDemo.f	6 Jun 2006 17:41:15 -0000	1.3
***************
*** 19,28 ****
--- 19,32 ----
  :class TabControlEx <super TabControl
  
+ ((  This has no effect for a control as the window class is already registered
  :M WndClassStyle:       ( -- style )
  \ Set the style member of the the WNDCLASS structure.
          CS_DBLCLKS ;M
+ ))
  
  :M Start:	( Parent -- )
  	Start: super
+       CS_DBLCLKS CS_GLOBALCLASS or GCL_STYLE hWnd  Call SetClassLong  drop
+ ( many controls don't have CS_HREDRAW and CS_VREDRAW set, this one does and will not redraw properly without help! )
  	DEFAULT_GUI_FONT call GetStockObject SetFont: self
  	;M
***************
*** 57,68 ****
  LV_COLUMN lvc
  
  :M ReSize:	( -- )
  \ Resize the controls within the main window.
! 	AutoSize: cTab
  
! 	ClientSize: cTab 2over d- ( x y w h )
!         4dup Move: cFileList
!              Move: cBrowserList
! 	;M
  
  :M On_Size:	( -- )
--- 61,87 ----
  LV_COLUMN lvc
  
+ :M WindowStyle: ( -- style )
+         WindowStyle: super
+         WS_CLIPCHILDREN or
+         ;M
+ 
+ :M WndClassStyle:       ( -- style )
+ \ Set the style member of the the WNDCLASS structure.
+         CS_DBLCLKS ;M
+ 
  :M ReSize:	( -- )
  \ Resize the controls within the main window.
!         ClientSize: ctab   \  get display area before size change ( l t r b )
!         AutoSize: cTab
!         TempRect GetClientRect: cTab   \ get whole client area after size change
!         ( b ) TempRect.bottom 1 - min 0 TempRect 2!
!         true TempRect InvalidateRect: cTab   \ invalidate bottom edge
!         ( r ) 0 swap TempRect.right  1 - min TempRect 2!  ( l t ) 2drop
!         true TempRect InvalidateRect: ctab   \ invalidate right edge
  
!         ClientSize: cTab 2over d- ( x y w h )
!         4dup  Move: cFileList
!               Move: cBrowserList
!          ;M
  
  :M On_Size:	( -- )
***************
*** 73,80 ****
  \ Show the listview control for the currently selected tab.
  	GetSelectedTab: cTab 0=
! 	if   SW_HIDE Show: cBrowserList
! 	     SW_SHOW Show: cFileList
! 	else SW_HIDE Show: cFileList
  	     SW_SHOW Show: cBrowserList
  	then ;M
  
--- 92,101 ----
  \ Show the listview control for the currently selected tab.
  	GetSelectedTab: cTab 0=
! 	if
! 	     SW_SHOW Show: cFileList   \ show cFileList before hiding cBrowserList for less flicker
!            SW_HIDE Show: cBrowserList
! 	else
  	     SW_SHOW Show: cBrowserList
+            SW_HIDE Show: cFileList
  	then ;M