Menu
▾
▴
[Win32forth-cvs] win32forth/doc/classes AXControl.htm,1.1,1.2 Childwnd.htm,1.1,1.2 Control.htm,1.3,1.4 Controls.htm,1.6,1.7 Dialog.htm,1.3,1.4 File.htm,1.1,1.2 Generic.htm,1.7,1.8 HTMLcontrol.htm,1.2,1.3 MdiDialog.htm,1.1,1.2 TrayWindow.htm,1.1,1.2 Window.htm,1.7,1.8 gdiBase.htm,1.5,1.6 gdiBitmap.htm,1.3,1.4 gdiBrush.htm,1.3,1.4 gdiDC.htm,1.3,1.4 gdiFont.htm,1.3,1.4 gdiMetafile.htm,1.3,1.4 gdiMetafileDC.htm,1.3,1.4 gdiPen.htm,1.5,1.6 gdiStruct.htm,1.4,1.5 gdiWindowDc.htm,1.3,1.4 mdi.htm,1.1,1.2
Update of /cvsroot/win32forth/win32forth/doc/classes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19124/doc/classes Modified Files: AXControl.htm Childwnd.htm Control.htm Controls.htm Dialog.htm File.htm Generic.htm HTMLcontrol.htm MdiDialog.htm TrayWindow.htm Window.htm gdiBase.htm gdiBitmap.htm gdiBrush.htm gdiDC.htm gdiFont.htm gdiMetafile.htm gdiMetafileDC.htm gdiPen.htm gdiStruct.htm gdiWindowDc.htm mdi.htm Log Message: Changed DexH to create a glossary file (w32f-glossary.csv) in the doc folder. This file can be used to create a glossary file for win32forth as HTML. Index: Dialog.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Dialog.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Dialog.htm 8 Jan 2006 09:28:07 -0000 1.3 --- Dialog.htm 4 Feb 2006 10:40:35 -0000 1.4 *************** *** 56,99 **** </a></b></pre><p>Given the address of a header in a resource file, return true if this is the header for a dialog resource. I'm only guessing here. ! </p><pre><b><a name="0">: find-dialog-ID ( id addr -- address-of-template-header ) </a></b></pre><p>Find dialog template given address and length of resource file in memory. ! </p><pre><b><a name="0">: load-dialog ( -<filename-without-an-extension>- ) </a></b></pre><p>Load template from dialog resource (*.res) to here and allot memory. <br /> Usage: load-dialog dialog </p><a name="Dialog"></a> <h2>Dialog Class ! </h2><pre><b><a name="0">:CLASS Dialog <SUPER Dialog&Control \ generic-window </a></b></pre><p>Dialog class. <br /> To use this class you have to create a ressource file (*.res) whitch must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog resource you should use ForthForm to create your dialog windows instead. ! </p><pre><b><a name="0">:M Start: ( parent -- flag ) </a></b></pre><p>Open the dialog ! </p><pre><b><a name="0">:M EndDialog: ( return-value -- ) </a></b></pre><p>Close the dialog ! </p><pre><b><a name="0">:M On_Init: ( hwndfocus -- f ) </a></b></pre><p>Init the dialog ! </p><pre><b><a name="0">:M On_Command: ( hCtrl code ID -- f ) </a></b></pre><p>Process Commands from Controls ! </p><pre><b><a name="0">;Class </a></b></pre><p>End of Dialog class </p><a name="ModelessDialog"></a> <h2>Modless Dialog class ! </h2><pre><b><a name="0">:Class ModelessDialog <SUPER Dialog </a></b></pre><p>Modless Dialog class <br /> To use this class you have to create a ressource file (*.res) whitch must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog resource you should use ForthForm to create your dialog windows instead. ! </p><pre><b><a name="0">:M WindowStyle: ( -- n1 ) </a></b></pre><p>Get the window style of the dialog. ! </p><pre><b><a name="0">:M ExWindowStyle: ( -- n1 ) </a></b></pre><p>Get the extended window style of the dialog. ! </p><pre><b><a name="0">:M Origin: ( -- x y ) </a></b></pre><p>Get the origin (upper left corner) of the dialog. ! </p><pre><b><a name="0">:M Start: ( parent -- ) </a></b></pre><p>Open the dialog ! </p><pre><b><a name="0">:M EndDialog: ( n1 -- ) </a></b></pre><p>Close the dialog ! </p><pre><b><a name="0">;Class </a></b></pre><p>End of ModlessDialog class </p><hr><p>Document $Id$</p> --- 56,99 ---- </a></b></pre><p>Given the address of a header in a resource file, return true if this is the header for a dialog resource. I'm only guessing here. ! </p><pre><b><a name="1">: find-dialog-ID ( id addr -- address-of-template-header ) </a></b></pre><p>Find dialog template given address and length of resource file in memory. ! </p><pre><b><a name="2">: load-dialog ( -<filename-without-an-extension>- ) </a></b></pre><p>Load template from dialog resource (*.res) to here and allot memory. <br /> Usage: load-dialog dialog </p><a name="Dialog"></a> <h2>Dialog Class ! </h2><pre><b><a name="3">:CLASS Dialog <SUPER Dialog&Control \ generic-window </a></b></pre><p>Dialog class. <br /> To use this class you have to create a ressource file (*.res) whitch must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog resource you should use ForthForm to create your dialog windows instead. ! </p><pre><b><a name="4">:M Start: ( parent -- flag ) </a></b></pre><p>Open the dialog ! </p><pre><b><a name="5">:M EndDialog: ( return-value -- ) </a></b></pre><p>Close the dialog ! </p><pre><b><a name="6">:M On_Init: ( hwndfocus -- f ) </a></b></pre><p>Init the dialog ! </p><pre><b><a name="7">:M On_Command: ( hCtrl code ID -- f ) </a></b></pre><p>Process Commands from Controls ! </p><pre><b><a name="8">;Class </a></b></pre><p>End of Dialog class </p><a name="ModelessDialog"></a> <h2>Modless Dialog class ! </h2><pre><b><a name="9">:Class ModelessDialog <SUPER Dialog </a></b></pre><p>Modless Dialog class <br /> To use this class you have to create a ressource file (*.res) whitch must contain the dialog resource. Since Win32Forth doesn't provide any tool's to create a dialog resource you should use ForthForm to create your dialog windows instead. ! </p><pre><b><a name="10">:M WindowStyle: ( -- n1 ) </a></b></pre><p>Get the window style of the dialog. ! </p><pre><b><a name="11">:M ExWindowStyle: ( -- n1 ) </a></b></pre><p>Get the extended window style of the dialog. ! </p><pre><b><a name="12">:M Origin: ( -- x y ) </a></b></pre><p>Get the origin (upper left corner) of the dialog. ! </p><pre><b><a name="13">:M Start: ( parent -- ) </a></b></pre><p>Open the dialog ! </p><pre><b><a name="14">:M EndDialog: ( n1 -- ) </a></b></pre><p>Close the dialog ! </p><pre><b><a name="15">;Class </a></b></pre><p>End of ModlessDialog class </p><hr><p>Document $Id$</p> Index: Childwnd.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Childwnd.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Childwnd.htm 11 Jan 2006 17:45:20 -0000 1.1 --- Childwnd.htm 4 Feb 2006 10:40:35 -0000 1.2 *************** *** 23,41 **** not the window handle. This allows the child to send messages to its parent. ! </p><pre><b><a name="0">:M GetParent: ( -- parent ) </a></b></pre><p>Get the object address of the parent window. ! </p><pre><b><a name="0">:M SetID: ( n -- ) </a></b></pre><p>Set the ID for this child window ! </p><pre><b><a name="0">:M GetID: ( -- n ) </a></b></pre><p>Get the ID for this child window ! </p><pre><b><a name="0">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style ! </p><pre><b><a name="0">:M ExWindowStyle: ( -- extended_style ) </a></b></pre><p>Get the extended window style ! </p><pre><b><a name="0">:M WindowTitle: ( -- Zstring ) </a></b></pre><p>Get the window caption. ! </p><pre><b><a name="0">:M Start: ( Parent -- ) </a></b></pre><p>Create the child window ! </p><pre><b><a name="0">;Class </a></b></pre><p>End of Child-Window class </p><hr><p>Document $Id$</p> --- 23,41 ---- not the window handle. This allows the child to send messages to its parent. ! </p><pre><b><a name="1">:M GetParent: ( -- parent ) </a></b></pre><p>Get the object address of the parent window. ! </p><pre><b><a name="2">:M SetID: ( n -- ) </a></b></pre><p>Set the ID for this child window ! </p><pre><b><a name="3">:M GetID: ( -- n ) </a></b></pre><p>Get the ID for this child window ! </p><pre><b><a name="4">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style ! </p><pre><b><a name="5">:M ExWindowStyle: ( -- extended_style ) </a></b></pre><p>Get the extended window style ! </p><pre><b><a name="6">:M WindowTitle: ( -- Zstring ) </a></b></pre><p>Get the window caption. ! </p><pre><b><a name="7">:M Start: ( Parent -- ) </a></b></pre><p>Create the child window ! </p><pre><b><a name="8">;Class </a></b></pre><p>End of Child-Window class </p><hr><p>Document $Id$</p> Index: gdiWindowDc.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/gdiWindowDc.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** gdiWindowDc.htm 8 Jan 2006 09:28:07 -0000 1.3 --- gdiWindowDc.htm 4 Feb 2006 10:40:35 -0000 1.4 *************** *** 23,35 **** </h2><pre><b><a name="0">:class gdiWindowDC <super gdiDC </a></b></pre><p>Window device context class ! </p><pre><b><a name="0">:M Release: ( -- ) </a></b></pre><p>The Release: method releases a device context (DC), freeing it for use by other applications. The effect of the ReleaseDC function depends on the type of DC. It frees only common and window DCs. It has no effect on class or private DCs. ! </p><pre><b><a name="0">:M GetDC: ( hWnd -- f ) </a></b></pre><p>The GetDC method retrieves a handle to a display device context for the client area of a specified window. ! </p><pre><b><a name="0">:M GetDCEx: ( hrgnClip flags hWnd -- f ) </a></b></pre><p>The GetDCEx method retrieves a handle to a display device context for the client area of a specified window or for the entire screen. --- 23,35 ---- </h2><pre><b><a name="0">:class gdiWindowDC <super gdiDC </a></b></pre><p>Window device context class ! </p><pre><b><a name="1">:M Release: ( -- ) </a></b></pre><p>The Release: method releases a device context (DC), freeing it for use by other applications. The effect of the ReleaseDC function depends on the type of DC. It frees only common and window DCs. It has no effect on class or private DCs. ! </p><pre><b><a name="2">:M GetDC: ( hWnd -- f ) </a></b></pre><p>The GetDC method retrieves a handle to a display device context for the client area of a specified window. ! </p><pre><b><a name="3">:M GetDCEx: ( hrgnClip flags hWnd -- f ) </a></b></pre><p>The GetDCEx method retrieves a handle to a display device context for the client area of a specified window or for the entire screen. *************** *** 68,72 **** completely validated. Using this function with both DCX_INTERSECTUPDATE and DCX_VALIDATE is identical to using the BeginPaint function. ! </p><pre><b><a name="0">:M GetWindowDC: ( hWnd -- f ) </a></b></pre><p>The GetWindowDC method retrieves the device context (DC) for the entire window, including title bar, menus, and scroll bars. A window device --- 68,72 ---- completely validated. Using this function with both DCX_INTERSECTUPDATE and DCX_VALIDATE is identical to using the BeginPaint function. ! </p><pre><b><a name="4">:M GetWindowDC: ( hWnd -- f ) </a></b></pre><p>The GetWindowDC method retrieves the device context (DC) for the entire window, including title bar, menus, and scroll bars. A window device *************** *** 74,83 **** the device context is the upper-left corner of the window instead of the client area. ! </p><pre><b><a name="0">:M GetDCOrg: ( -- x y ) </a></b></pre><p>The GetDCOrgEx function retrieves the final translation origin for a specified device context (DC). The final translation origin specifies an offset that the system uses to translate device coordinates into client coordinates (for coordinates in an application's window). ! </p><pre><b><a name="0">;class </a></b></pre><p>End of gdiWindowDC class </p><hr><p>Document $Id$</p> --- 74,83 ---- the device context is the upper-left corner of the window instead of the client area. ! </p><pre><b><a name="5">:M GetDCOrg: ( -- x y ) </a></b></pre><p>The GetDCOrgEx function retrieves the final translation origin for a specified device context (DC). The final translation origin specifies an offset that the system uses to translate device coordinates into client coordinates (for coordinates in an application's window). ! </p><pre><b><a name="6">;class </a></b></pre><p>End of gdiWindowDC class </p><hr><p>Document $Id$</p> Index: TrayWindow.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/TrayWindow.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TrayWindow.htm 15 Jan 2006 09:25:50 -0000 1.1 --- TrayWindow.htm 4 Feb 2006 10:40:35 -0000 1.2 *************** *** 23,47 **** </h2><pre><b><a name="0">:class TrayWindow <super window </a></b></pre><p>TrayWindow class ! </p><pre><b><a name="0">:M DefaultIcon: ( -- hIcon ) </a></b></pre><p>Get the handle of the icon whitch should be added to the traybar. ! </p><pre><b><a name="0">:M GetTooltip: ( -- addr len ) </a></b></pre><p>Get the tooltip text for the traybar icon. ! </p><pre><b><a name="0">:M AddIcon: ( -- ) </a></b></pre><p>Add our icon to the traybar ! </p><pre><b><a name="0">:M DeleteIcon: ( -- ) </a></b></pre><p>Remove our icon from the traybar ! </p><pre><b><a name="0">:M IsVisible?: ( -- f ) </a></b></pre><p>Check if the window is visible or not. ! </p><pre><b><a name="0">:M ShowWindow: ( -- ) </a></b></pre><p>Show the window and remove the icon from the traybar. ! </p><pre><b><a name="0">:M HideWindow: ( -- ) </a></b></pre><p>Hide the window and add the icon to the traybar. ! </p><pre><b><a name="0">:M WM_SIZE ( hWnd uMsg wParam lParam -- res ) </a></b></pre><p>Handle the WM_SIZE message. If the window is minimized it will be hidden and the icon will be added to the traybar. ! </p><pre><b><a name="0">:M WM_SYSCOMMAND ( hWnd uMsg wParam lParam -- res ) </a></b></pre><p>Handle the WM_SYSCOMMAND message. If the window is minimized it will be hidden and the icon will be added to the traybar. ! </p><pre><b><a name="0">:M On_IconNotify: ( hWnd uMsg wParam lParam -- res ) </a></b></pre><p>Handle the messages from the traybar icon. </p><p>The default handler removes the icon for the traybar and shows the window, --- 23,47 ---- </h2><pre><b><a name="0">:class TrayWindow <super window </a></b></pre><p>TrayWindow class ! </p><pre><b><a name="1">:M DefaultIcon: ( -- hIcon ) </a></b></pre><p>Get the handle of the icon whitch should be added to the traybar. ! </p><pre><b><a name="2">:M GetTooltip: ( -- addr len ) </a></b></pre><p>Get the tooltip text for the traybar icon. ! </p><pre><b><a name="3">:M AddIcon: ( -- ) </a></b></pre><p>Add our icon to the traybar ! </p><pre><b><a name="4">:M DeleteIcon: ( -- ) </a></b></pre><p>Remove our icon from the traybar ! </p><pre><b><a name="5">:M IsVisible?: ( -- f ) </a></b></pre><p>Check if the window is visible or not. ! </p><pre><b><a name="6">:M ShowWindow: ( -- ) </a></b></pre><p>Show the window and remove the icon from the traybar. ! </p><pre><b><a name="7">:M HideWindow: ( -- ) </a></b></pre><p>Hide the window and add the icon to the traybar. ! </p><pre><b><a name="8">:M WM_SIZE ( hWnd uMsg wParam lParam -- res ) </a></b></pre><p>Handle the WM_SIZE message. If the window is minimized it will be hidden and the icon will be added to the traybar. ! </p><pre><b><a name="9">:M WM_SYSCOMMAND ( hWnd uMsg wParam lParam -- res ) </a></b></pre><p>Handle the WM_SYSCOMMAND message. If the window is minimized it will be hidden and the icon will be added to the traybar. ! </p><pre><b><a name="10">:M On_IconNotify: ( hWnd uMsg wParam lParam -- res ) </a></b></pre><p>Handle the messages from the traybar icon. </p><p>The default handler removes the icon for the traybar and shows the window, *************** *** 49,53 **** </p><p>If the right mouse button is used the popup menu of the window is shown. Use the <b> SetPopupBar: </b> method to assign a popup menu to the window. ! </p><pre><b><a name="0">;class </a></b></pre><p>End of TrayWindow class </p><h2>Example --- 49,53 ---- </p><p>If the right mouse button is used the popup menu of the window is shown. Use the <b> SetPopupBar: </b> method to assign a popup menu to the window. ! </p><pre><b><a name="11">;class </a></b></pre><p>End of TrayWindow class </p><h2>Example Index: gdiBrush.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/gdiBrush.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** gdiBrush.htm 8 Jan 2006 09:28:07 -0000 1.3 --- gdiBrush.htm 4 Feb 2006 10:40:35 -0000 1.4 *************** *** 25,29 **** </a></b></pre><p>Base class for all brush objects. <br /> This is an internal class of the GDI Class library. Don't use it yourself. ! </p><pre><b><a name="0">:M SetOrigin: { xOrg yOrg hdc -- } </a></b></pre><p>Set the brush origin that GDI assigns to the next brush an application selects into the specified device context. <br /> --- 25,29 ---- </a></b></pre><p>Base class for all brush objects. <br /> This is an internal class of the GDI Class library. Don't use it yourself. ! </p><pre><b><a name="1">:M SetOrigin: { xOrg yOrg hdc -- } </a></b></pre><p>Set the brush origin that GDI assigns to the next brush an application selects into the specified device context. <br /> *************** *** 47,92 **** use the UnrealizeObject, SetBrushOrgEx, and SelectObject functions to align the brush before using it. <br /> ! </p><pre><b><a name="0">:M GetOrigin: ( hdc -- xOrg yOrg ) </a></b></pre><p>Get the current brush origin for the specified device context. ! </p><pre><b><a name="0">:M Create: ( lplb -- f ) </a></b></pre><p>The Create function creates a logical brush that has the specified style, color, and pattern. lplb Pointer to a LOGBRUSH structure that contains information about the brush. ! </p><pre><b><a name="0">;class </a></b></pre><p>End of gdiBrush class </p><a name="gdiSolidBrush"></a> <h2>gdiSolidBrush class ! </h2><pre><b><a name="0">:class gdiSolidBrush <super gdiBrush </a></b></pre><p>Solid brush class ! </p><pre><b><a name="0">:M SetRValue: ( r -- ) </a></b></pre><p>Set the red component of the brush color. ! </p><pre><b><a name="0">:M SetGValue: ( g -- ) </a></b></pre><p>Set the green component of the brush color. ! </p><pre><b><a name="0">:M SetBValue: ( b -- ) </a></b></pre><p>Set the blue component of the brush color. ! </p><pre><b><a name="0">:M SetRGB: ( r g b -- ) </a></b></pre><p>Set the red, green and blue component of the brush color. ! </p><pre><b><a name="0">:M SetColor: ( colorref -- ) </a></b></pre><p>Set color of the brush. ! </p><pre><b><a name="0">:M SetSysColor: ( n -- ) </a></b></pre><p>Set the color of the brush to a system color. ! </p><pre><b><a name="0">:M ChooseColor: ( hWnd -- f ) </a></b></pre><p>Open a dialog to choose the color of the brush. ! </p><pre><b><a name="0">:M GetRValue: ( -- r ) </a></b></pre><p>Get the red component of the brush color. ! </p><pre><b><a name="0">:M GetGValue: ( -- g ) </a></b></pre><p>Get the green component of the brush color. ! </p><pre><b><a name="0">:M GetBValue: ( -- b ) </a></b></pre><p>Get the blue component of the brush color. ! </p><pre><b><a name="0">:M GetColor: ( -- colorref ) </a></b></pre><p>Get the color of the brush as a windows COLORREF value. ! </p><pre><b><a name="0">:M Create: ( -- f ) </a></b></pre><p>Create the brush with the current color. ! </p><pre><b><a name="0">;class </a></b></pre><p>End of gdiSolidBrush class </p><a name="gdiHatchBrush"></a> <h2>gdiHatchBrush class ! </h2><pre><b><a name="0">:class gdiHatchBrush <super gdiSolidBrush </a></b></pre><p>Hatch brush class ! </p><pre><b><a name="0">:M SetStyle: ( style -- ) </a></b></pre><p>Set the style of the brush. Possible values are: </p><table border="1"><tr><td>HS_BDIAGONAL --- 47,92 ---- use the UnrealizeObject, SetBrushOrgEx, and SelectObject functions to align the brush before using it. <br /> ! </p><pre><b><a name="2">:M GetOrigin: ( hdc -- xOrg yOrg ) </a></b></pre><p>Get the current brush origin for the specified device context. ! </p><pre><b><a name="3">:M Create: ( lplb -- f ) </a></b></pre><p>The Create function creates a logical brush that has the specified style, color, and pattern. lplb Pointer to a LOGBRUSH structure that contains information about the brush. ! </p><pre><b><a name="4">;class </a></b></pre><p>End of gdiBrush class </p><a name="gdiSolidBrush"></a> <h2>gdiSolidBrush class ! </h2><pre><b><a name="5">:class gdiSolidBrush <super gdiBrush </a></b></pre><p>Solid brush class ! </p><pre><b><a name="6">:M SetRValue: ( r -- ) </a></b></pre><p>Set the red component of the brush color. ! </p><pre><b><a name="7">:M SetGValue: ( g -- ) </a></b></pre><p>Set the green component of the brush color. ! </p><pre><b><a name="8">:M SetBValue: ( b -- ) </a></b></pre><p>Set the blue component of the brush color. ! </p><pre><b><a name="9">:M SetRGB: ( r g b -- ) </a></b></pre><p>Set the red, green and blue component of the brush color. ! </p><pre><b><a name="10">:M SetColor: ( colorref -- ) </a></b></pre><p>Set color of the brush. ! </p><pre><b><a name="11">:M SetSysColor: ( n -- ) </a></b></pre><p>Set the color of the brush to a system color. ! </p><pre><b><a name="12">:M ChooseColor: ( hWnd -- f ) </a></b></pre><p>Open a dialog to choose the color of the brush. ! </p><pre><b><a name="13">:M GetRValue: ( -- r ) </a></b></pre><p>Get the red component of the brush color. ! </p><pre><b><a name="14">:M GetGValue: ( -- g ) </a></b></pre><p>Get the green component of the brush color. ! </p><pre><b><a name="15">:M GetBValue: ( -- b ) </a></b></pre><p>Get the blue component of the brush color. ! </p><pre><b><a name="16">:M GetColor: ( -- colorref ) </a></b></pre><p>Get the color of the brush as a windows COLORREF value. ! </p><pre><b><a name="17">:M Create: ( -- f ) </a></b></pre><p>Create the brush with the current color. ! </p><pre><b><a name="18">;class </a></b></pre><p>End of gdiSolidBrush class </p><a name="gdiHatchBrush"></a> <h2>gdiHatchBrush class ! </h2><pre><b><a name="19">:class gdiHatchBrush <super gdiSolidBrush </a></b></pre><p>Hatch brush class ! </p><pre><b><a name="20">:M SetStyle: ( style -- ) </a></b></pre><p>Set the style of the brush. Possible values are: </p><table border="1"><tr><td>HS_BDIAGONAL *************** *** 120,124 **** </td> </tr> ! </table><pre><b><a name="0">:M GetStyle: ( -- style ) </a></b></pre><p>Get the style of the brush. Possible return values are: </p><table border="1"><tr><td>HS_BDIAGONAL --- 120,124 ---- </td> </tr> ! </table><pre><b><a name="21">:M GetStyle: ( -- style ) </a></b></pre><p>Get the style of the brush. Possible return values are: </p><table border="1"><tr><td>HS_BDIAGONAL *************** *** 152,177 **** </td> </tr> ! </table><pre><b><a name="0">:M Create: ( -- f ) </a></b></pre><p>Create the brush with the current style and color. ! </p><pre><b><a name="0">;class </a></b></pre><p>End of gdiHatchBrush class </p><a name="gdiPatternBrush"></a> <h2>gdiPatternBrush class ! </h2><pre><b><a name="0">:class gdiPatternBrush <super gdiBrush </a></b></pre><p>Pattern brush class. <br /> ! </p><pre><b><a name="0">:M SetBitmap: ( Bitmap -- ) </a></b></pre><p>Set the Bitmap for the PatternBrush. The Bitmap can be a DIB section bitmap, which is created by the CreateDIBSection function. ! </p><pre><b><a name="0">:M GetBitmap: ( -- Bitmap ) </a></b></pre><p>Get the Bitmap for the PatternBrush. ! </p><pre><b><a name="0">:M Create: ( -- f ) </a></b></pre><p>Creates a logical brush with the specified bitmap pattern. ! </p><pre><b><a name="0">;class </a></b></pre><p>End of gdiPatternBrush class </p><a name="gdiDIBPatternBrush"></a> <h2>gdiDIBPatternBrush class ! </h2><pre><b><a name="0">:class gdiDIBPatternBrush <super gdiBrush </a></b></pre><p>DIB Pattern brush class ! </p><pre><b><a name="0">:M Create: ( lpPackedDIB iUsage -- f ) </a></b></pre><p>The Create function creates a logical brush that has the pattern specified by the device-independent bitmap (DIB). <br /> --- 152,177 ---- </td> </tr> ! </table><pre><b><a name="22">:M Create: ( -- f ) </a></b></pre><p>Create the brush with the current style and color. ! </p><pre><b><a name="23">;class </a></b></pre><p>End of gdiHatchBrush class </p><a name="gdiPatternBrush"></a> <h2>gdiPatternBrush class ! </h2><pre><b><a name="24">:class gdiPatternBrush <super gdiBrush </a></b></pre><p>Pattern brush class. <br /> ! </p><pre><b><a name="25">:M SetBitmap: ( Bitmap -- ) </a></b></pre><p>Set the Bitmap for the PatternBrush. The Bitmap can be a DIB section bitmap, which is created by the CreateDIBSection function. ! </p><pre><b><a name="26">:M GetBitmap: ( -- Bitmap ) </a></b></pre><p>Get the Bitmap for the PatternBrush. ! </p><pre><b><a name="27">:M Create: ( -- f ) </a></b></pre><p>Creates a logical brush with the specified bitmap pattern. ! </p><pre><b><a name="28">;class </a></b></pre><p>End of gdiPatternBrush class </p><a name="gdiDIBPatternBrush"></a> <h2>gdiDIBPatternBrush class ! </h2><pre><b><a name="29">:class gdiDIBPatternBrush <super gdiBrush </a></b></pre><p>DIB Pattern brush class ! </p><pre><b><a name="30">:M Create: ( lpPackedDIB iUsage -- f ) </a></b></pre><p>The Create function creates a logical brush that has the pattern specified by the device-independent bitmap (DIB). <br /> *************** *** 197,201 **** </td> </tr> ! </table><pre><b><a name="0">;class </a></b></pre><p>End of gdiDIBPatternBrush class </p><hr><p>Document $Id$</p> --- 197,201 ---- </td> </tr> ! </table><pre><b><a name="31">;class </a></b></pre><p>End of gdiDIBPatternBrush class </p><hr><p>Document $Id$</p> Index: HTMLcontrol.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/HTMLcontrol.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** HTMLcontrol.htm 14 Jan 2006 12:28:21 -0000 1.2 --- HTMLcontrol.htm 4 Feb 2006 10:40:35 -0000 1.3 *************** *** 22,60 **** </h2><pre><b><a name="0">:CLASS HTMLControl <SUPER AXControl </a></b></pre><p>HTML control class. ! </p><pre><b><a name="0">:M Start: ( Parent -- ) </a></b></pre><p>Start the control ! </p><pre><b><a name="0">:M GetLocationURL: ( -- str len ) </a></b></pre><p>Retrieves the URL of the resource that the browser is currently displaying. ! </p><pre><b><a name="0">:M GetLocationName: ( -- str len ) </a></b></pre><p>Retrieves the name of the resource that the browser is currently displaying. ! </p><pre><b><a name="0">:M GetType: ( -- str len ) </a></b></pre><p>Retrieves the type name of the contained document object. ! </p><pre><b><a name="0">:M Busy?: ( -- flag ) </a></b></pre><p>Retrieves a boolean value that indicates whether the browser is engaged in a downloading operation or other activity. ! </p><pre><b><a name="0">:M Offline?: ( -- flag ) </a></b></pre><p>Retrieves a Boolean value indicating whether the browser is currently operating in offline mode. ! </p><pre><b><a name="0">:M GoURL: ( str len -- ) </a></b></pre><p>Navigates to a resource identified by a Uniform Resource Locator (URL) or to the file identified by a full path. ! </p><pre><b><a name="0">:M SetURL: ( zUrl -- ) </a></b></pre><p>Navigates to a resource identified by a Uniform Resource Locator (URL) or to the file identified by a full path. ! </p><pre><b><a name="0">:M GoHome: ( -- ) </a></b></pre><p>Navigates to the current home or start page. ! </p><pre><b><a name="0">:M GoSearch: ( -- ) </a></b></pre><p>Navigates to the current search page. ! </p><pre><b><a name="0">:M GoForward: ( -- ) </a></b></pre><p>Navigates forward one item in the history list. ! </p><pre><b><a name="0">:M GoBack: ( -- ) </a></b></pre><p>Navigates backward one item in the history list. ! </p><pre><b><a name="0">:M Refresh: ( -- ) </a></b></pre><p>Reloads the file that the browser is currently displaying. ! </p><pre><b><a name="0">:M Stop: ( -- ) </a></b></pre><p>Cancels any pending navigation or download operation and stops any dynamic page elements, such as background sounds and animations. ! </p><pre><b><a name="0">;CLASS </a></b></pre><p>End of HTML control class </p><h2>Example (demos\HtmlControlDemo.f) --- 22,60 ---- </h2><pre><b><a name="0">:CLASS HTMLControl <SUPER AXControl </a></b></pre><p>HTML control class. ! </p><pre><b><a name="1">:M Start: ( Parent -- ) </a></b></pre><p>Start the control ! </p><pre><b><a name="2">:M GetLocationURL: ( -- str len ) </a></b></pre><p>Retrieves the URL of the resource that the browser is currently displaying. ! </p><pre><b><a name="3">:M GetLocationName: ( -- str len ) </a></b></pre><p>Retrieves the name of the resource that the browser is currently displaying. ! </p><pre><b><a name="4">:M GetType: ( -- str len ) </a></b></pre><p>Retrieves the type name of the contained document object. ! </p><pre><b><a name="5">:M Busy?: ( -- flag ) </a></b></pre><p>Retrieves a boolean value that indicates whether the browser is engaged in a downloading operation or other activity. ! </p><pre><b><a name="6">:M Offline?: ( -- flag ) </a></b></pre><p>Retrieves a Boolean value indicating whether the browser is currently operating in offline mode. ! </p><pre><b><a name="7">:M GoURL: ( str len -- ) </a></b></pre><p>Navigates to a resource identified by a Uniform Resource Locator (URL) or to the file identified by a full path. ! </p><pre><b><a name="8">:M SetURL: ( zUrl -- ) </a></b></pre><p>Navigates to a resource identified by a Uniform Resource Locator (URL) or to the file identified by a full path. ! </p><pre><b><a name="9">:M GoHome: ( -- ) </a></b></pre><p>Navigates to the current home or start page. ! </p><pre><b><a name="10">:M GoSearch: ( -- ) </a></b></pre><p>Navigates to the current search page. ! </p><pre><b><a name="11">:M GoForward: ( -- ) </a></b></pre><p>Navigates forward one item in the history list. ! </p><pre><b><a name="12">:M GoBack: ( -- ) </a></b></pre><p>Navigates backward one item in the history list. ! </p><pre><b><a name="13">:M Refresh: ( -- ) </a></b></pre><p>Reloads the file that the browser is currently displaying. ! </p><pre><b><a name="14">:M Stop: ( -- ) </a></b></pre><p>Cancels any pending navigation or download operation and stops any dynamic page elements, such as background sounds and animations. ! </p><pre><b><a name="15">;CLASS </a></b></pre><p>End of HTML control class </p><h2>Example (demos\HtmlControlDemo.f) Index: mdi.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/mdi.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** mdi.htm 14 Jan 2006 18:17:04 -0000 1.1 --- mdi.htm 4 Feb 2006 10:40:35 -0000 1.2 *************** *** 21,52 **** in a separate child window within the client area of the application's main window. </p><a name="MDIClientWindow"></a> ! <h2>MDI Client Window class </h2><pre><b><a name="0">:Class MDIClientWindow <super Control ! </a></b></pre><p>MDI client control class ! </p><pre><b><a name="0">:M Start: ( hWindowMenu Parent -- ) </a></b></pre><p>Start the control. ! </p><pre><b><a name="0">:M CreateStruct: ( -- CreateStrucPointer ) </a></b></pre><p>Get the address of CLIENTCREATESTRUCT structure. It contains information about the menu and first multiple document interface (MDI) child window of an MDI client window. An application passes a pointer to this structure as the lpvParam parameter of the CreateWindow function when creating an MDI client window. ! </p><pre><b><a name="0">;Class </a></b></pre><p>End of MDIClientWindow class </p><a name="MDIFrameWindow"></a> ! <h2>MDI Frame Window class ! </h2><pre><b><a name="0">:Class MDIFrameWindow <super Window </a></b></pre><p>All MDI child windows are displayed within the client area of this window. ! </p><pre><b><a name="0">:M WindowMenuNo: ( -- n ) 1 ;M </a></b></pre><p>Override this method to set the menu number in whitch all child windows should be displayed. ! </p><pre><b><a name="0">:M WindowTitle: ( -- z" ) </a></b></pre><p>Get the title text for the frame window. ! </p><pre><b><a name="0">:M SetRedraw: ( f -- ) </a></b></pre><p>Set the redraw state of the window. </p><p><i> f </i> Specifies the redraw state. If this parameter is TRUE, the content can be redrawn after a change. If this parameter is FALSE, the content cannot be redrawn after a change. ! </p><pre><b><a name="0">:M Tile: ( f -- ) </a></b></pre><p>Arrange all child windows in a tile format. </p><p><i> f </i> can be one of the following values optionally combined with --- 21,53 ---- in a separate child window within the client area of the application's main window. </p><a name="MDIClientWindow"></a> ! <h2>MDI client control class </h2><pre><b><a name="0">:Class MDIClientWindow <super Control ! </a></b></pre><p>MDI client control class. This control is used by the MDIFrameWindow class. ! You shouldn't create instances of this class within your application. ! </p><pre><b><a name="1">:M Start: ( hWindowMenu Parent -- ) </a></b></pre><p>Start the control. ! </p><pre><b><a name="2">:M CreateStruct: ( -- CreateStrucPointer ) </a></b></pre><p>Get the address of CLIENTCREATESTRUCT structure. It contains information about the menu and first multiple document interface (MDI) child window of an MDI client window. An application passes a pointer to this structure as the lpvParam parameter of the CreateWindow function when creating an MDI client window. ! </p><pre><b><a name="3">;Class </a></b></pre><p>End of MDIClientWindow class </p><a name="MDIFrameWindow"></a> ! <h2>MDI Frame window class ! </h2><pre><b><a name="4">:Class MDIFrameWindow <super Window </a></b></pre><p>All MDI child windows are displayed within the client area of this window. ! </p><pre><b><a name="5">:M WindowMenuNo: ( -- n ) 1 ;M </a></b></pre><p>Override this method to set the menu number in whitch all child windows should be displayed. ! </p><pre><b><a name="6">:M WindowTitle: ( -- z" ) </a></b></pre><p>Get the title text for the frame window. ! </p><pre><b><a name="7">:M SetRedraw: ( f -- ) </a></b></pre><p>Set the redraw state of the window. </p><p><i> f </i> Specifies the redraw state. If this parameter is TRUE, the content can be redrawn after a change. If this parameter is FALSE, the content cannot be redrawn after a change. ! </p><pre><b><a name="8">:M Tile: ( f -- ) </a></b></pre><p>Arrange all child windows in a tile format. </p><p><i> f </i> can be one of the following values optionally combined with *************** *** 63,82 **** </td> </tr> ! </table><pre><b><a name="0">:M Arrange: ( -- ) </a></b></pre><p>Arrange all minimized child windows. It does not affect child windows that are not minimized. ! </p><pre><b><a name="0">:M Cascade: ( -- ) </a></b></pre><p>Arrange all child windows in a cascade format. ! </p><pre><b><a name="0">:M RefreshMenu: ( -- ) </a></b></pre><p>Refresh the window menu of the MDI frame window. ! </p><pre><b><a name="0">:M MDISetMenu: ( hmenuWindow hmenuFrame -- ) </a></b></pre><p>Replace the entire menu of an MDI frame window, replace the window menu </p><p>of the frame window, or both. ! </p><pre><b><a name="0">:M DrawMenuBar: ( -- ) </a></b></pre><p>Redraws the menu bar of the window. If the menu bar changes after the system has created the window, this function must be called to draw the changed menu bar. ! </p><pre><b><a name="0">:M Restore: ( hWnd -- ) </a></b></pre><p>Restore an MDI child window from maximized or minimized size. ! </p><pre><b><a name="0">:M Maximize: ( hWnd -- ) </a></b></pre><p>M maximize an MDI child window. The system resizes the child window to make its client area fill the client window. The system places the child window's window --- 64,83 ---- </td> </tr> ! </table><pre><b><a name="9">:M Arrange: ( -- ) </a></b></pre><p>Arrange all minimized child windows. It does not affect child windows that are not minimized. ! </p><pre><b><a name="10">:M Cascade: ( -- ) </a></b></pre><p>Arrange all child windows in a cascade format. ! </p><pre><b><a name="11">:M RefreshMenu: ( -- ) </a></b></pre><p>Refresh the window menu of the MDI frame window. ! </p><pre><b><a name="12">:M MDISetMenu: ( hmenuWindow hmenuFrame -- ) </a></b></pre><p>Replace the entire menu of an MDI frame window, replace the window menu </p><p>of the frame window, or both. ! </p><pre><b><a name="13">:M DrawMenuBar: ( -- ) </a></b></pre><p>Redraws the menu bar of the window. If the menu bar changes after the system has created the window, this function must be called to draw the changed menu bar. ! </p><pre><b><a name="14">:M Restore: ( hWnd -- ) </a></b></pre><p>Restore an MDI child window from maximized or minimized size. ! </p><pre><b><a name="15">:M Maximize: ( hWnd -- ) </a></b></pre><p>M maximize an MDI child window. The system resizes the child window to make its client area fill the client window. The system places the child window's window *************** *** 84,132 **** the child window's restore icon in the leftmost position. The system also appends the title bar text of the child window to that of the frame window. ! </p><pre><b><a name="0">:M GetActive: ( -- Maximized handle ) </a></b></pre><p>Retrieve the handle to the active MDI child window. ! </p><pre><b><a name="0">:M Activate: ( hWnd -- ) </a></b></pre><p>Activate a MDI child window. ! </p><pre><b><a name="0">:M Next: ( f hWnd -- ) </a></b></pre><p>Activate the next or previous child window. ! </p><pre><b><a name="0">:M Destroy: ( hWnd -- ) </a></b></pre><p>Destroy an MDI child window. ! </p><pre><b><a name="0">:M CloseChild: ( hWnd -- ) </a></b></pre><p>Close an MDI child window. ! </p><pre><b><a name="0">:M EnumChildWindows: ( lparam pCallBack -- f ) </a></b></pre><p>Enumerate the MDI child windows ! </p><pre><b><a name="0">:M CloseAll: ( -- ) </a></b></pre><p>Close all MDI child windows. ! </p><pre><b><a name="0">:M GetFirstChild: ( -- hWndChild ) </a></b></pre><p>Get handle of the first child window ! </p><pre><b><a name="0">:M GetNextChild: ( -- hWndChild ) </a></b></pre><p>Get handle of the next child window. <br /> NOTE: you must call GetFirstChild: first. ! </p><pre><b><a name="0">:M SendMessageToAllChildren: { wParam lParam msg -- } </a></b></pre><p>Send a message to all child windows ! </p><pre><b><a name="0">:M PostMessageToAllChildren: { wParam lParam msg -- } </a></b></pre><p>Post a message to all child windows ! </p><pre><b><a name="0">;Class </a></b></pre><p>End of MDIFrameWindow class </p><a name="MDIChildWindow"></a> ! <h2>MDI Child Window class ! </h2><pre><b><a name="0">:Class MDIChildWindow <super Window </a></b></pre><p>This is the base class for all windows that should be displayed within the client area of a MDIFrameWindow. ! </p><pre><b><a name="0">:M DefaultIcon: ( -- hIcon ) </a></b></pre><p>Return the handle of the Icon whitch should be displayed in the upper left corner of the MDi child window. ! </p><pre><b><a name="0">:M ParentWindow: ( -- hParent ) </a></b></pre><p>Teturn the handle of parent, 0 = no parent ! </p><pre><b><a name="0">:M Start: ( Parent -- ) </a></b></pre><p>Create a new MDI child window object ! </p><pre><b><a name="0">:M WindowTitle: ( -- z" ) </a></b></pre><p>Get the title text for the MDI child window. ! </p><pre><b><a name="0">:M On_QueryEnd: ( -- f ) </a></b></pre><p>This method is called when the user chooses to end the session or when an application calls the ExitWindows function. If any application returns zero, the session is not ended. </p><p>The default method returns TRUE, so that the session will be ended. ! </p><pre><b><a name="0">:M On_Close: ( -- f ) </a></b></pre><p>This method is called when the user chooses to close the MDI child window. If it returns FALSE the window will not be closed. --- 85,133 ---- the child window's restore icon in the leftmost position. The system also appends the title bar text of the child window to that of the frame window. ! </p><pre><b><a name="16">:M GetActive: ( -- Maximized handle ) </a></b></pre><p>Retrieve the handle to the active MDI child window. ! </p><pre><b><a name="17">:M Activate: ( hWnd -- ) </a></b></pre><p>Activate a MDI child window. ! </p><pre><b><a name="18">:M Next: ( f hWnd -- ) </a></b></pre><p>Activate the next or previous child window. ! </p><pre><b><a name="19">:M Destroy: ( hWnd -- ) </a></b></pre><p>Destroy an MDI child window. ! </p><pre><b><a name="20">:M CloseChild: ( hWnd -- ) </a></b></pre><p>Close an MDI child window. ! </p><pre><b><a name="21">:M EnumChildWindows: ( lparam pCallBack -- f ) </a></b></pre><p>Enumerate the MDI child windows ! </p><pre><b><a name="22">:M CloseAll: ( -- ) </a></b></pre><p>Close all MDI child windows. ! </p><pre><b><a name="23">:M GetFirstChild: ( -- hWndChild ) </a></b></pre><p>Get handle of the first child window ! </p><pre><b><a name="24">:M GetNextChild: ( -- hWndChild ) </a></b></pre><p>Get handle of the next child window. <br /> NOTE: you must call GetFirstChild: first. ! </p><pre><b><a name="25">:M SendMessageToAllChildren: { wParam lParam msg -- } </a></b></pre><p>Send a message to all child windows ! </p><pre><b><a name="26">:M PostMessageToAllChildren: { wParam lParam msg -- } </a></b></pre><p>Post a message to all child windows ! </p><pre><b><a name="27">;Class </a></b></pre><p>End of MDIFrameWindow class </p><a name="MDIChildWindow"></a> ! <h2>MDI Child window class ! </h2><pre><b><a name="28">:Class MDIChildWindow <super Window </a></b></pre><p>This is the base class for all windows that should be displayed within the client area of a MDIFrameWindow. ! </p><pre><b><a name="29">:M DefaultIcon: ( -- hIcon ) </a></b></pre><p>Return the handle of the Icon whitch should be displayed in the upper left corner of the MDi child window. ! </p><pre><b><a name="30">:M ParentWindow: ( -- hParent ) </a></b></pre><p>Teturn the handle of parent, 0 = no parent ! </p><pre><b><a name="31">:M Start: ( Parent -- ) </a></b></pre><p>Create a new MDI child window object ! </p><pre><b><a name="32">:M WindowTitle: ( -- z" ) </a></b></pre><p>Get the title text for the MDI child window. ! </p><pre><b><a name="33">:M On_QueryEnd: ( -- f ) </a></b></pre><p>This method is called when the user chooses to end the session or when an application calls the ExitWindows function. If any application returns zero, the session is not ended. </p><p>The default method returns TRUE, so that the session will be ended. ! </p><pre><b><a name="34">:M On_Close: ( -- f ) </a></b></pre><p>This method is called when the user chooses to close the MDI child window. If it returns FALSE the window will not be closed. *************** *** 134,142 **** need's to be saved. </p><p>The default method returns TRUE, so that the window will be closed. ! </p><pre><b><a name="0">:M On_ChildActivate: ( -- ) </a></b></pre><p>Handle the WM_CHILDACTIVATE message. This message is sent to a child window when the user clicks the window's title bar or when the window is activated, moved, or sized. ! </p><pre><b><a name="0">:M On_GetMinMaxInfo: ( pMinMaxInfo -- pMinMaxInfo ) </a></b></pre><p>Handle the WM_GETMINMAXINFO message. This message is sent to a window when the size or position of the window is about to change. An application can use this message --- 135,143 ---- need's to be saved. </p><p>The default method returns TRUE, so that the window will be closed. ! </p><pre><b><a name="35">:M On_ChildActivate: ( -- ) </a></b></pre><p>Handle the WM_CHILDACTIVATE message. This message is sent to a child window when the user clicks the window's title bar or when the window is activated, moved, or sized. ! </p><pre><b><a name="36">:M On_GetMinMaxInfo: ( pMinMaxInfo -- pMinMaxInfo ) </a></b></pre><p>Handle the WM_GETMINMAXINFO message. This message is sent to a window when the size or position of the window is about to change. An application can use this message *************** *** 146,164 **** position and dimensions, and the default minimum and maximum tracking sizes. An application can override the defaults by setting the members of this structure. ! </p><pre><b><a name="0">:M On_MenuChar: ( w l -- w l ) </a></b></pre><p>Handle the WM_MENUCHAR message. This message is sent when a menu is active and the user presses a key that does not correspond to any mnemonic or accelerator key. This message is sent to the window that owns the menu. ! </p><pre><b><a name="0">:M On_Move: ( l -- l ) </a></b></pre><p>Handle the WM_MOVE message. This message is sent after a window has been moved. ! </p><pre><b><a name="0">:M On_SysCommand: ( h m w l -- h m w l f ) </a></b></pre><p>Handle the WM_SYSCOMMAND message. A window receives this message when the user chooses a command from the window menu or when the user chooses the maximize button, minimize button, restore button, or close button. ! </p><pre><b><a name="0">:M On_Command: ( h m w l -- h m w l f ) </a></b></pre><p>Handle the WM_COMMAND message. This message is sent when the user selects a command item from a menu, when a control sends a notification message to its parent window, or when an accelerator keystroke is translated. ! </p><pre><b><a name="0">;Class </a></b></pre><p>End of MDIChildWindow class </p><h2>Example (demos\MdiExample.f) --- 147,165 ---- position and dimensions, and the default minimum and maximum tracking sizes. An application can override the defaults by setting the members of this structure. ! </p><pre><b><a name="37">:M On_MenuChar: ( w l -- w l ) </a></b></pre><p>Handle the WM_MENUCHAR message. This message is sent when a menu is active and the user presses a key that does not correspond to any mnemonic or accelerator key. This message is sent to the window that owns the menu. ! </p><pre><b><a name="38">:M On_Move: ( l -- l ) </a></b></pre><p>Handle the WM_MOVE message. This message is sent after a window has been moved. ! </p><pre><b><a name="39">:M On_SysCommand: ( h m w l -- h m w l f ) </a></b></pre><p>Handle the WM_SYSCOMMAND message. A window receives this message when the user chooses a command from the window menu or when the user chooses the maximize button, minimize button, restore button, or close button. ! </p><pre><b><a name="40">:M On_Command: ( h m w l -- h m w l f ) </a></b></pre><p>Handle the WM_COMMAND message. This message is sent when the user selects a command item from a menu, when a control sends a notification message to its parent window, or when an accelerator keystroke is translated. ! </p><pre><b><a name="41">;Class </a></b></pre><p>End of MDIChildWindow class </p><h2>Example (demos\MdiExample.f) Index: MdiDialog.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/MdiDialog.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MdiDialog.htm 13 Jan 2006 12:09:26 -0000 1.1 --- MdiDialog.htm 4 Feb 2006 10:40:35 -0000 1.2 *************** *** 23,29 **** </h2><pre><b><a name="0">:CLASS MdiDialogWindow <Super MdiChildWindow </a></b></pre><p>Base class for Multi-document interface (MDI) child windows that contain controls. ! </p><pre><b><a name="0">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="0">:M ~: ( -- ) </a></b></pre><p>Destructor method called when a dynamic object is freed by DISPOSE. </p><hr><p>Document $Id$</p> --- 23,29 ---- </h2><pre><b><a name="0">:CLASS MdiDialogWindow <Super MdiChildWindow </a></b></pre><p>Base class for Multi-document interface (MDI) child windows that contain controls. ! </p><pre><b><a name="1">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="2">:M ~: ( -- ) </a></b></pre><p>Destructor method called when a dynamic object is freed by DISPOSE. </p><hr><p>Document $Id$</p> Index: Window.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Window.htm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Window.htm 26 Jan 2006 17:48:46 -0000 1.7 --- Window.htm 4 Feb 2006 10:40:35 -0000 1.8 *************** *** 20,56 **** </h2><pre><b><a name="0">:CLASS Window <SUPER Generic-Window </a></b></pre><p>Base class for window objects. ! </p><pre><b><a name="0">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. </p><h3>Window sizing ! </h3><pre><b><a name="0">:M GetSize: ( -- w h ) </a></b></pre><p>Get the size (width and height) of the window. ! </p><pre><b><a name="0">:M Width: ( -- width ) </a></b></pre><p>Get the width of the window. ! </p><pre><b><a name="0">:M Height: ( -- height ) </a></b></pre><p>Get the height of the window. ! </p><pre><b><a name="0">:M SetSize: ( w h -- ) </a></b></pre><p>Set the size (width and height) of the window. <br /> Note: The window itself will not be resized. ! </p><pre><b><a name="0">:M On_Size: ( -- ) </a></b></pre><p>User windows should override the On_Size: method. When this method is called, the variables Width and Height will have already been set. <br /> Default does nothing ! </p><pre><b><a name="0">:M MinSize: ( -- width height ) </a></b></pre><p>To change the minimum window size, override the MinSize: method. Default is 10 by 10. ! </p><pre><b><a name="0">:M MaxSize: ( -- width height ) </a></b></pre><p>To change the maximum window size, override the MaxSize: method. Default is 8192 by 8192. ! </p><pre><b><a name="0">:M StartSize: ( -- width height ) </a></b></pre><p>To change the size of the window when it's created, override the StartSize: method or call the SetSize: method before you create the window. ! </p><pre><b><a name="0">:M SetOrigin: ( x y -- ) </a></b></pre><p>To set the upper left corner of the window when it's created call the SetOrigin: method before you create the window. ! </p><pre><b><a name="0">:M StartPos: ( -- left top ) </a></b></pre><p>User windows should override the StartPos: method to set the upper left corner of the window when it's created. </p><h3>Window creation ! </h3><pre><b><a name="0">:M On_Init: ( -- ) </a></b></pre><p>Thing's to do during creation of the window. Default does nothing. ! </p><pre><b><a name="0">:M On_Done: ( -- ) </a></b></pre><p>Thing's to do when the window will be destroyed. Default does nothing. </p><pre>Your On_Init: and On_Done: methods should look like this: --- 20,56 ---- </h2><pre><b><a name="0">:CLASS Window <SUPER Generic-Window </a></b></pre><p>Base class for window objects. ! </p><pre><b><a name="1">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. </p><h3>Window sizing ! </h3><pre><b><a name="2">:M GetSize: ( -- w h ) </a></b></pre><p>Get the size (width and height) of the window. ! </p><pre><b><a name="3">:M Width: ( -- width ) </a></b></pre><p>Get the width of the window. ! </p><pre><b><a name="4">:M Height: ( -- height ) </a></b></pre><p>Get the height of the window. ! </p><pre><b><a name="5">:M SetSize: ( w h -- ) </a></b></pre><p>Set the size (width and height) of the window. <br /> Note: The window itself will not be resized. ! </p><pre><b><a name="6">:M On_Size: ( -- ) </a></b></pre><p>User windows should override the On_Size: method. When this method is called, the variables Width and Height will have already been set. <br /> Default does nothing ! </p><pre><b><a name="7">:M MinSize: ( -- width height ) </a></b></pre><p>To change the minimum window size, override the MinSize: method. Default is 10 by 10. ! </p><pre><b><a name="8">:M MaxSize: ( -- width height ) </a></b></pre><p>To change the maximum window size, override the MaxSize: method. Default is 8192 by 8192. ! </p><pre><b><a name="9">:M StartSize: ( -- width height ) </a></b></pre><p>To change the size of the window when it's created, override the StartSize: method or call the SetSize: method before you create the window. ! </p><pre><b><a name="10">:M SetOrigin: ( x y -- ) </a></b></pre><p>To set the upper left corner of the window when it's created call the SetOrigin: method before you create the window. ! </p><pre><b><a name="11">:M StartPos: ( -- left top ) </a></b></pre><p>User windows should override the StartPos: method to set the upper left corner of the window when it's created. </p><h3>Window creation ! </h3><pre><b><a name="12">:M On_Init: ( -- ) </a></b></pre><p>Thing's to do during creation of the window. Default does nothing. ! </p><pre><b><a name="13">:M On_Done: ( -- ) </a></b></pre><p>Thing's to do when the window will be destroyed. Default does nothing. </p><pre>Your On_Init: and On_Done: methods should look like this: *************** *** 88,129 **** On_Done: super \ cleanup the super class 0 ;M ! </pre><pre><b><a name="0">:M SetClassName: ( adr len -- ) </a></b></pre><p>User windows should override the SetClassName: method to set the window class name. ! </p><pre><b><a name="0">:M GetClassName: ( -- adr len ) </a></b></pre><p>Get the window class name. ! </p><pre><b><a name="0">:M SetParent: ( hwndParent -- ) </a></b></pre><p>Set owner window (0 if no parent). ! </p><pre><b><a name="0">:M ParentWindow: ( -- hwndparent | 0 if no parent ) </a></b></pre><p>Get owner window. ! </p><pre><b><a name="0">:M DefaultCursor: ( -- cursor-id ) </a></b></pre><p>User windows should override the DefaultCursor: method to set the default cursor for window. Default is IDC_ARROW. ! </p><pre><b><a name="0">:M DefaultIcon: ( -- hIcon ) </a></b></pre><p>User windows should override the WindowStyle: method to set the default icon handle for window. Default is the W32F icon. ! </p><pre><b><a name="0">:M WindowStyle: ( -- style ) </a></b></pre><p>User windows should override the WindowStyle: method to set the window style. Default is WS_OVERLAPPEDWINDOW. ! </p><pre><b><a name="0">:M ExWindowStyle: ( -- extended_style ) </a></b></pre><p>User windows should override the ExWindowStyle: method to set the extended window style. Default is null. ! </p><pre><b><a name="0">:M WindowTitle: ( -- Zstring ) </a></b></pre><p>User windows should override the WindowTitle: method to set the window caption. Default is Window. </p><h3>Painting ! </h3><pre><b><a name="0">WinDC dc </a></b></pre><p>The window's device context. <br /> It will be valid only when handling the WM_PAINT message (see On_Paint: method) ! </p><pre><b><a name="0">Record: &ps </a></b></pre><p>The PAINTSTRUCT for Begin- and EndPaint <br /> It will be valid only when handling the WM_PAINT message (see On_Paint: method) ! </p><pre><b><a name="0">:M On_EraseBackground: ( hwnd msg wparam lparam -- res ) </a></b></pre><p>User windows should override the On_EraseBackground: method to handle WM_ERASEBKGND messages. <br /> Default does nothing. ! </p><pre><b><a name="0">:M On_Paint: ( -- ) </a></b></pre><p>User windows should override the On_Paint: method to handle WM_PAINT messages. <br /> Before this method is called BeginPaint will be called so that the PAINTSTRUCT --- 88,129 ---- On_Done: super \ cleanup the super class 0 ;M ! </pre><pre><b><a name="14">:M SetClassName: ( adr len -- ) </a></b></pre><p>User windows should override the SetClassName: method to set the window class name. ! </p><pre><b><a name="15">:M GetClassName: ( -- adr len ) </a></b></pre><p>Get the window class name. ! </p><pre><b><a name="16">:M SetParent: ( hwndParent -- ) </a></b></pre><p>Set owner window (0 if no parent). ! </p><pre><b><a name="17">:M ParentWindow: ( -- hwndparent | 0 if no parent ) </a></b></pre><p>Get owner window. ! </p><pre><b><a name="18">:M DefaultCursor: ( -- cursor-id ) </a></b></pre><p>User windows should override the DefaultCursor: method to set the default cursor fo... [truncated message content] |
