Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Win32ForthIDE/Forms FORMPROPERTY.ff, 1.1, 1.2 FORMPROPERTY.frm, 1.1, 1.2 TabPropertyWindow.ff, 1.1, 1.2 TabPropertyWindow.frm, 1.1, 1.2
|
From: Ezra B. <ezr...@us...> - 2009-04-10 16:52:15
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv17297/apps/Win32ForthIDE/Forms Modified Files: FORMPROPERTY.ff FORMPROPERTY.frm TabPropertyWindow.ff TabPropertyWindow.frm Log Message: IDE Enhancements. Bug Fixes. Doc Updates. Index: TabPropertyWindow.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/TabPropertyWindow.ff,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsSjgJya and /tmp/cvsEbNEDv differ Index: FORMPROPERTY.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/FORMPROPERTY.ff,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvslmnJXa and /tmp/cvs6Lpp3v differ Index: TabPropertyWindow.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/TabPropertyWindow.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TabPropertyWindow.frm 28 Apr 2008 05:13:40 -0000 1.1 --- TabPropertyWindow.frm 10 Apr 2009 16:52:11 -0000 1.2 *************** *** 3,42 **** ! :Object frmPropertiesWindow <Super DialogWindow Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color - 720 70 2value XYPos \ save screen location of form TabControl TabProperties \ Coordinates and dimensions for btnApply 22 value btnApplyX ! 287 value btnApplyY 108 value btnApplyW 40 value btnApplyH \ Coordinates and dimensions for btnClose 132 value btnCloseX ! 287 value btnCloseY 108 value btnCloseW 40 value btnCloseH :M ClassInit: ( -- ) ClassInit: super ! \ Insert your code here ! ;M ! ! :M WindowStyle: ( -- style ) ! WS_POPUPWINDOW WS_DLGFRAME or ;M ! \ if this form is a modal form a non-zero parent must be set ! :M ParentWindow: ( -- hwndparent | 0 if no parent ) ! hWndParent ! ;M ! :M SetParentWindow: ( hwndparent -- ) \ set owner window ! to hWndParent ! ;M :M WindowTitle: ( -- ztitle ) --- 3,37 ---- ! :Object frmPropertiesWindow <Super Child-Window Font WinFont \ default font ' 2drop value WmCommand-Func \ function pointer for WM_COMMAND ColorObject FrmColor \ the background color TabControl TabProperties \ Coordinates and dimensions for btnApply 22 value btnApplyX ! 343 value btnApplyY 108 value btnApplyW 40 value btnApplyH \ Coordinates and dimensions for btnClose 132 value btnCloseX ! 343 value btnCloseY 108 value btnCloseW 40 value btnCloseH + :M ClassInit: ( -- ) ClassInit: super ! +dialoglist \ allow handling of dialog messages ! 677 to id \ set child id, changeable ! \ Insert your code here, e.g initialize variables, values etc. ;M ! :M Display: ( -- ) \ unhide the child window ! SW_SHOWNORMAL Show: self ;M ! :M Hide: ( -- ) \ hide the...aughhh but you know that! ! SW_HIDE Show: self ;M :M WindowTitle: ( -- ztitle ) *************** *** 45,65 **** :M StartSize: ( -- width height ) ! 261 333 ! ;M ! ! :M StartPos: ( -- x y ) ! XYPos ;M :M WM_NOTIFY ( h m w l -- f ) ! \ if this form has more than one tab control this handler will need to be modified Handle_Notify: TabProperties ;M :M Close: ( -- ) ! \ Insert your code here Close: super ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont --- 40,67 ---- :M StartSize: ( -- width height ) ! 265 389 ;M :M WM_NOTIFY ( h m w l -- f ) ! \ N.B if this form has more than one tab control this handler will need to be modified Handle_Notify: TabProperties ;M :M Close: ( -- ) ! \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M + :M WM_COMMAND ( h m w l -- res ) + over LOWORD ( ID ) self \ object address on stack + WMCommand-Func ?dup \ must not be zero + if execute + else 2drop \ drop ID and object address + then 0 ;M + + :M SetCommand: ( cfa -- ) \ set WMCommand function + to WMCommand-Func + ;M + :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont *************** *** 72,91 **** self Start: TabProperties ! 4 3 252 276 Move: TabProperties Handle: Winfont SetFont: TabProperties ;M - :M WM_COMMAND ( h m w l -- res ) - over LOWORD ( ID ) self \ object address on stack - WMCommand-Func ?dup \ must not be zero - if execute - else 2drop \ drop ID and object address - then 0 ;M - - :M SetCommand: ( cfa -- ) \ set WMCommand function - to WMCommand-Func - ;M - :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc --- 74,82 ---- self Start: TabProperties ! 4 3 258 335 Move: TabProperties Handle: Winfont SetFont: TabProperties ;M :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc *************** *** 94,99 **** :M On_Done: ( -- ) Delete: WinFont ! originx originy 2to XYPos ! \ Insert your code here On_Done: super ;M --- 85,89 ---- :M On_Done: ( -- ) Delete: WinFont ! \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M Index: FORMPROPERTY.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/FORMPROPERTY.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** FORMPROPERTY.frm 28 Apr 2008 05:13:39 -0000 1.1 --- FORMPROPERTY.frm 10 Apr 2009 16:52:11 -0000 1.2 *************** *** 31,39 **** RadioButton radMdiDialogWindow :M ClassInit: ( -- ) ClassInit: super +dialoglist \ allow handling of dialog messages ! 415 to id \ set child id, changeable ! \ Insert your code here ;M --- 31,40 ---- RadioButton radMdiDialogWindow + :M ClassInit: ( -- ) ClassInit: super +dialoglist \ allow handling of dialog messages ! 719 to id \ set child id, changeable ! \ Insert your code here, e.g initialize variables, values etc. ;M *************** *** 44,56 **** SW_HIDE Show: self ;M - :M WindowStyle: ( -- style ) - WS_CHILD - ;M - - :M Start: ( Parent -- ) - to parent - register-child-window drop - create-child-window to hWnd ;M - :M WindowTitle: ( -- ztitle ) z" Edit Form Properties" --- 45,48 ---- *************** *** 58,69 **** :M StartSize: ( -- width height ) ! 237 268 ;M :M Close: ( -- ) ! \ Insert your code here Close: super ;M :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont --- 50,72 ---- :M StartSize: ( -- width height ) ! 238 303 ;M :M Close: ( -- ) ! \ Insert your code here, e.g any data entered in form that needs to be saved Close: super ;M + :M WM_COMMAND ( h m w l -- res ) + over LOWORD ( ID ) self \ object address on stack + WMCommand-Func ?dup \ must not be zero + if execute + else 2drop \ drop ID and object address + then 0 ;M + + :M SetCommand: ( cfa -- ) \ set WMCommand function + to WMCommand-Func + ;M + :M On_Init: ( -- ) s" MS Sans Serif" SetFaceName: WinFont *************** *** 76,80 **** self Start: grpOptions ! 16 99 216 58 Move: grpOptions Handle: Winfont SetFont: grpOptions s" Options" SetText: grpOptions --- 79,83 ---- self Start: grpOptions ! 15 99 216 58 Move: grpOptions Handle: Winfont SetFont: grpOptions s" Options" SetText: grpOptions *************** *** 194,208 **** ;M - :M WM_COMMAND ( h m w l -- res ) - over LOWORD ( ID ) self \ object address on stack - WMCommand-Func ?dup \ must not be zero - if execute - else 2drop \ drop ID and object address - then 0 ;M - - :M SetCommand: ( cfa -- ) \ set WMCommand function - to WMCommand-Func - ;M - :M On_Paint: ( -- ) 0 0 GetSize: self Addr: FrmColor FillArea: dc --- 197,200 ---- *************** *** 211,215 **** :M On_Done: ( -- ) Delete: WinFont ! \ Insert your code here On_Done: super ;M --- 203,207 ---- :M On_Done: ( -- ) Delete: WinFont ! \ Insert your code here, e.g delete fonts, any bitmaps etc. On_Done: super ;M |
