Menu
▾
▴
[Win32forth-cvs] win32forth/Help/html class-Mdi.htm, 1.2, 1.3 class-TrayWindow.htm, 1.2, 1.3 class-control.htm, 1.3, 1.4 class-controls.htm, 1.7, 1.8 class-generic.htm, 1.7, 1.8 dexh-unicode.htm, 1.1, 1.2
|
From: George H. <geo...@us...> - 2013-12-09 19:24:14
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21801 Modified Files: class-Mdi.htm class-TrayWindow.htm class-control.htm class-controls.htm class-generic.htm dexh-unicode.htm Log Message: Updated docs Index: class-Mdi.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-Mdi.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** class-Mdi.htm 18 Jul 2012 12:47:28 -0000 1.2 --- class-Mdi.htm 9 Dec 2013 19:24:11 -0000 1.3 *************** *** 211,214 **** --- 211,216 ---- THEN ; + IdCounter constant StartId + NewID IDM_NEW NewID IDM_CLOSE *************** *** 220,226 **** NewID IDM_OPEN_FILE ! Create MenuTable (NewID) 200 - 4 * allot ! : DoMenu ( ID -- ) 200 - 4 * MenuTable + @ ?dup IF execute THEN ; ! : SetMenu ( ID -- ) last @ name> swap 200 - 4 * MenuTable + ! ; MENUBAR MDIMenu --- 222,230 ---- NewID IDM_OPEN_FILE ! IdCounter constant EndId ! ! Create MenuTable EndId StartId - 4 * allot ! : DoMenu ( ID -- ) StartId - 4 * MenuTable + @ ?dup IF execute THEN ; ! : SetMenu ( ID -- ) last @ name> swap StartId - 4 * MenuTable + ! ; MENUBAR MDIMenu *************** *** 290,294 **** :M OnWmCommand: ( hwnd msg wparam lparam -- hwnd msg wparam lparam ) OnWmCommand: Super ! over LOWORD ( Menu ID ) dup 200 (NewID) within \ intercept Menu commands IF DoMenu ELSE drop THEN ;M --- 294,298 ---- :M OnWmCommand: ( hwnd msg wparam lparam -- hwnd msg wparam lparam ) OnWmCommand: Super ! over LOWORD ( Menu ID ) dup StartId EndId within \ intercept Menu commands IF DoMenu ELSE drop THEN ;M Index: dexh-unicode.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-unicode.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dexh-unicode.htm 15 May 2008 06:28:27 -0000 1.1 --- dexh-unicode.htm 9 Dec 2013 19:24:12 -0000 1.2 *************** *** 12,19 **** --- 12,24 ---- </h1><h3><i>Tom Dixon - August 2006 </i></h3><p>Unicode wordset for working with Unicode APIs + </p><p><b><code>: Unew$ ( -- addr ) + </code></b><br>Allocate 2X MAXSTRING bytes from the dynamic string buffer and return the address. This is + designed for 16bit Unicode strings which are twice as long as Ascii. </p><p><b><code>: UniPlace ( addr len destaddr -- ) </code></b><br>Store a unicode string to an address </p><p><b><code>: +UniPlace ( addr len destaddr -- ) </code></b><br>Append a string to the end of an address + </p><p><b><code>: +UniNull ( destaddr -- ) + </code></b><br>Append a null to the unicode string at address. </p><p><b><code>: UniCount ( addr -- addr len ) </code></b><br>Fetch a unicode string from an address (stored with uniplace) *************** *** 31,35 **** must free ascii string afterwards when no longer needed. </p><p><b><code>: >Unicode ( str len -- str len ) ! </code></b><br>Convert ascii string to unicode (uses new$) </p><p><b><code>: >ascii ( str len -- str len ) </code></b><br>Convert unicode string to ascii (uses new$) --- 36,40 ---- must free ascii string afterwards when no longer needed. </p><p><b><code>: >Unicode ( str len -- str len ) ! </code></b><br>Convert ascii string to unicode (uses Unew$) </p><p><b><code>: >ascii ( str len -- str len ) </code></b><br>Convert unicode string to ascii (uses new$) Index: class-controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-controls.htm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** class-controls.htm 6 Nov 2013 23:46:31 -0000 1.7 --- class-controls.htm 9 Dec 2013 19:24:12 -0000 1.8 *************** *** 1180,1190 **** </p><p><b><code>;Class </code></b><br>End of SizeBox class ! </p><p>The MonthCalendar and TimeDatePicker controls both use the _SystemTime structure ! defined in the file ANSFILE.F , the members of which are; ! </p><h3><i>wYear </i></h3><p>The year (1601 - 30827). ! wMonth ! The month. January = 1 --- 1180,1189 ---- </p><p><b><code>;Class </code></b><br>End of SizeBox class ! </p><p>The MonthCalendar and TimeDatePicker controls both use a structure, the members ! of which are; ! </p><h3><i>Year </i></h3><p>The year (1601 - 30827). ! Month January = 1 *************** *** 1201,1206 **** December = 12 ! wDayOfWeek ! The day of the week. Sunday = 0 --- 1200,1204 ---- December = 12 ! DayOfWeek Sunday = 0 *************** *** 1212,1224 **** Saturday = 6 ! wDay The day of the month (0-31). ! wHour The hour (0-23). ! wMinute The minute(s) (0-59). ! wSecond The second(s) (0-59). ! wMilliseconds The millisecond(s) (0-999). </p><a name="MonthCalendar"></a> --- 1210,1222 ---- Saturday = 6 ! Day The day of the month (0-31). ! Hour The hour (0-23). ! Minute The minute(s) (0-59). ! Second The second(s) (0-59). ! Milliseconds The millisecond(s) (0-999). </p><a name="MonthCalendar"></a> Index: class-control.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-control.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** class-control.htm 15 Mar 2013 00:25:01 -0000 1.3 --- class-control.htm 9 Dec 2013 19:24:12 -0000 1.4 *************** *** 31,35 **** </p><p><b><code>:M AddStyle: ( n -- ) </code></b><br>Set any additional style of the control. Must be done before the control ! is created. </p><p><b><code>:M StartSize: ( -- width height ) </code></b><br>Get the start size of this control. <br /> --- 31,35 ---- </p><p><b><code>:M AddStyle: ( n -- ) </code></b><br>Set any additional style of the control. Must be done before the control ! is started. Use +Style: to add to a running control. </p><p><b><code>:M StartSize: ( -- width height ) </code></b><br>Get the start size of this control. <br /> Index: class-TrayWindow.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-TrayWindow.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** class-TrayWindow.htm 15 Nov 2013 17:40:43 -0000 1.2 --- class-TrayWindow.htm 9 Dec 2013 19:24:12 -0000 1.3 *************** *** 16,21 **** </h2><p><b><code>:class TrayWindow <super window </code></b><br>TrayWindow class - </p><p><b><code>:M DefaultIcon: ( -- hIcon ) - </code></b><br>Get the handle of the icon which should be added to the traybar. </p><p><b><code>:M GetTooltip: ( -- addr len ) </code></b><br>Get the tooltip text for the traybar icon. Default is to print the title of the window --- 16,19 ---- Index: class-generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-generic.htm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** class-generic.htm 20 Nov 2013 11:48:12 -0000 1.7 --- class-generic.htm 9 Dec 2013 19:24:12 -0000 1.8 *************** *** 142,148 **** bypassing the application queue. If the update region is empty, no message is sent. </p><p><b><code>:M Scroll: { x y -- } ! </code></b><br>The ScrollWindow function scrolls the contents of the specified window's client area. </p><p><b><code>:M Move: { x y w h -- } ! </code></b><br>The MoveWindow function changes the position and dimensions of window. For a top-level window, the position and dimensions are relative to the upper-left corner of the screen. For a child window, they are relative to the upper-left corner of the parent --- 142,148 ---- bypassing the application queue. If the update region is empty, no message is sent. </p><p><b><code>:M Scroll: { x y -- } ! </code></b><br>Scroll the contents of the specified window's client area. </p><p><b><code>:M Move: { x y w h -- } ! </code></b><br>Change the position and dimensions of window. For a top-level window, the position and dimensions are relative to the upper-left corner of the screen. For a child window, they are relative to the upper-left corner of the parent *************** *** 291,301 **** </tr> </table><p><b><code>:M GetStyle: ( -- style ) ! </code></b><br>Retrieves the window styles. </p><p><b><code>:M SetStyle: ( style -- ) ! </code></b><br>Sets a new window style. </p><p><b><code>:M +Style: ( style -- ) ! </code></b><br>Add a window style. </p><p><b><code>:M -Style: ( style -- ) ! </code></b><br>Remove a window style. </p><p><b><code>:M SetFocus: ( -- ) </code></b><br>The SetFocus function sets the keyboard focus to the window. The window must be --- 291,301 ---- </tr> </table><p><b><code>:M GetStyle: ( -- style ) ! </code></b><br>Retrieves the window styles of a running window. </p><p><b><code>:M SetStyle: ( style -- ) ! </code></b><br>Sets a new window style of a running window. </p><p><b><code>:M +Style: ( style -- ) ! </code></b><br>Add a window style to a running window. </p><p><b><code>:M -Style: ( style -- ) ! </code></b><br>Remove a window style from a running window. </p><p><b><code>:M SetFocus: ( -- ) </code></b><br>The SetFocus function sets the keyboard focus to the window. The window must be *************** *** 616,619 **** --- 616,627 ---- FontObject must be the HANDLE of a font. If this parameter is NULL, the control uses the default system font to draw text. + </p><p><b><code>: +DialogList ( -- ) \ link into dialog list in Start: + </code></b><br>Used so window responds to Dialog messages. Used by ModeLessDialog DialogWindow and + MdiDialog classes but can be added to any descendants of class Window (including + descendants of Child-Window) so they can respond to dialog messages. Can also be + used programatically. + </p><p><b><code>: -DialogList ( -- ) \ don't link from dialog list in Start: + </code></b><br>Disable responding to dialog messages. This was mainly used for the ~: destructor method + though is no longer needed. Can also be used programatically. </p><p><b><code>:M On_Init: ( -- ) </code></b><br>Thing's to do during creation of the window. |
