Menu
▾
▴
[Win32forth-cvs] win32forth/demos TabControlDemo.f,1.1,1.2
|
From: Dirk B. <db...@us...> - 2006-06-06 02:43:30
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21263/demos Modified Files: TabControlDemo.f Log Message: Fixed the resizing of the windows within the TabControl and corrected some doc of the TabControl. Index: TabControlDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/TabControlDemo.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TabControlDemo.f 28 May 2006 09:05:31 -0000 1.1 --- TabControlDemo.f 4 Jun 2006 09:58:50 -0000 1.2 *************** *** 35,38 **** --- 35,39 ---- :M WindowStyle: ( -- style ) + \ Return the window style. WindowStyle: super [ LVS_REPORT LVS_SHOWSELALWAYS OR LVS_EDITLABELS or ] literal or *************** *** 59,76 **** \ Resize the controls within the main window. AutoSize: cTab ! ClientSize: cTab Move: cFileList ! ClientSize: cTab Move: cBrowserList ;M :M On_Size: ( -- ) \ Handle the WM_SIZE message. ! On_Size: super ! ! \ Note: This method can be called before the controls within the window ! \ are created, so we should better check if the parent of the tab control ! \ is valid or not! ! GetParent: cTab ! if ReSize: self ! then ;M :M SelChange: ( -- ) --- 60,72 ---- \ 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: ( -- ) \ Handle the WM_SIZE message. ! On_Size: super ReSize: self ;M :M SelChange: ( -- ) *************** *** 99,104 **** ;M ! :M Start: ( -- ) ! Start: super self Start: cFileList --- 95,103 ---- ;M ! :M StartPos: ( -- x y ) ! CenterWindow: self ;M ! ! :M On_Init: ( -- ) ! On_Init: super self Start: cFileList *************** *** 132,135 **** --- 131,135 ---- \ ------------------------------------------------------------------------ + \ Note: You must first set the mask and than the other struct members !!! LVIF_TEXT SetMask: LvItem *************** *** 146,149 **** --- 146,278 ---- Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" File 1" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" File 2" SetpszText: LvItem + Addr: LvItem InsertItem: cFileList drop + z" abc" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + z" def" SetpszText: LvItem + Addr: LvItem InsertItem: cBrowserList drop + \ ------------------------------------------------------------------------ |
