Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16888/demos
Modified Files:
ListViewDemo.f
Log Message:
Removed some of my bad mods...
Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ListViewDemo.f 6 May 2006 07:59:48 -0000 1.9
--- ListViewDemo.f 6 May 2006 12:31:16 -0000 1.10
***************
*** 26,29 ****
--- 26,34 ----
;M
+ :M On_Init: ( -- )
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
+ ;M
+
;object
***************
*** 38,41 ****
--- 43,51 ----
;M
+ :M On_Init: ( -- )
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
+ ;M
+
;object
***************
*** 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
--- 62,65 ----
***************
*** 68,71 ****
--- 70,76 ----
s" Courier" SetFaceName: vFont
Create: vFont
+
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
;M
***************
*** 158,161 ****
--- 163,171 ----
;M
+ :M On_Init: ( -- )
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
+ ;M
+
;Object
***************
*** 181,184 ****
--- 191,199 ----
;M
+ :M On_Init: ( -- )
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
+ ;M
+
;Object
***************
*** 207,210 ****
--- 222,230 ----
;M
+ :M On_Init: ( -- )
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
+ ;M
+
;Object
***************
*** 294,302 ****
: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 )
--- 314,318 ----
:M WindowStyle: ( -- style )
WindowStyle: Super
! WS_CLIPCHILDREN or ;M
:M StartSize: ( -- w h )
***************
*** 312,315 ****
--- 328,334 ----
self Start: Splitter
self OnInit \ perform user function
+
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
;M
|
