Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24746/apps/Win32ForthIDE
Modified Files:
EdFilePane.f FileWindow.frm
Log Message:
Rod: Eliminated the flicker in the Directory Tab when resizing.
Index: EdFilePane.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFilePane.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EdFilePane.f 14 Jun 2006 06:02:56 -0000 1.1
--- EdFilePane.f 15 Jun 2006 20:59:36 -0000 1.2
***************
*** 175,178 ****
--- 175,179 ----
drvbitmap SetImage: imgDrvButton
s" Change drive/folder" BInfo: imgDrvButton place \ tooltip
+ WS_CLIPSIBLINGS +Style: imgDrvButton
\ allow user specified filespecs, N.B. changes lost when program exited
***************
*** 182,185 ****
--- 183,187 ----
specsbmp SetImage: imgSpecsButton
s" Add file specification string e.g (*.f;*.4th)" Binfo: imgSpecsButton place
+ WS_CLIPSIBLINGS +Style: imgSpecsButton
copybmp usebitmap map-3dcolors
***************
*** 188,191 ****
--- 190,194 ----
copybmp SetImage: imgCopyButton
s" Copy selected file" Binfo: imgCopyButton place
+ WS_CLIPSIBLINGS +Style: imgCopyButton
deletebmp usebitmap map-3dcolors
***************
*** 194,197 ****
--- 197,201 ----
deletebmp SetImage: imgDeleteButton
s" Delete selected file" Binfo: imgDeleteButton place
+ WS_CLIPSIBLINGS +Style: imgDeleteButton
dupebmp usebitmap map-3dcolors
***************
*** 200,203 ****
--- 204,208 ----
dupebmp SetImage: imgDupeButton
s" Duplicate selected file" Binfo: imgDupeButton place
+ WS_CLIPSIBLINGS +Style: imgDupeButton
\ true ReadOnly: cmblstPathPicker
***************
*** 254,258 ****
:M ExWindowStyle: ( -- )
WS_EX_CLIENTEDGE ;M
!
:m classinit: classinit: super 1290 to id ;m
--- 259,267 ----
:M ExWindowStyle: ( -- )
WS_EX_CLIENTEDGE ;M
!
! :M WndClassStyle: ( -- style )
! \ CS_DBLCLKS only to prevent flicker in window on sizing.
! CS_DBLCLKS ;M
!
:m classinit: classinit: super 1290 to id ;m
Index: FileWindow.frm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FileWindow.frm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FileWindow.frm 14 Jun 2006 06:02:56 -0000 1.1
--- FileWindow.frm 15 Jun 2006 20:59:36 -0000 1.2
***************
*** 73,87 ****
COLOR_BTNFACE Call GetSysColor NewColor: FrmColor
-
- self Start: cmblstPathPicker
- 2 30 180 17 Move: cmblstPathPicker
- Handle: Winfont SetFont: cmblstPathPicker
-
self Start: TheDirectory
2 50 180 371 Move: TheDirectory
self Start: CmbLstFilters
2 423 180 23 Move: CmbLstFilters
Handle: Winfont SetFont: CmbLstFilters
;M
--- 73,90 ----
COLOR_BTNFACE Call GetSysColor NewColor: FrmColor
self Start: TheDirectory
2 50 180 371 Move: TheDirectory
+ CS_DBLCLKS GCL_STYLE GetHandle: TheDirectory Call SetClassLong drop
+ WS_CLIPSIBLINGS +Style: TheDirectory
self Start: CmbLstFilters
2 423 180 23 Move: CmbLstFilters
Handle: Winfont SetFont: CmbLstFilters
+ WS_CLIPSIBLINGS +Style: CmbLstFilters
+
+ self Start: cmblstPathPicker
+ 2 30 180 17 Move: cmblstPathPicker
+ Handle: Winfont SetFont: cmblstPathPicker
+ WS_CLIPSIBLINGS +Style: cmblstPathPicker
;M
***************
*** 108,110 ****
--- 111,117 ----
;M
+ :M WndClassStyle: ( -- style )
+ \ CS_DBLCLKS only to prevent flicker in window on sizing.
+ CS_DBLCLKS ;M
+
;Object
|
