Update of /cvsroot/win32forth/win32forth/doc/classes
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32623/doc/classes
Added Files:
TrayWindow.htm
Log Message:
Moved TrayWindow.f into the src\lib folder and added docu. about the TrayWindow class. Changed the TrayWindow class to open a popup menu when the user clicks with the right mouse button on the tray icon.
--- NEW FILE: TrayWindow.htm ---
<html>
<head>
<meta http-equiv="Content-Language" content="en-gb">
<meta name="GENERATOR" content="dexh00">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>
</title><style><!--
h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold }
h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } -->
</style>
</head>
<body><h1 align="center">
<a href="mailto:win...@ya...?subject=DOC:Doc error in $Id: TrayWindow.htm,v 1.1 2006/01/15 09:25:50 dbu_de Exp $">
<img border="0" src="../TELLUS.gif" align="left" width="32" height="32"></a>
<img border="0" src="../FORTHPRO.gif"
width="32" height="32"> Win32Forth</h1>
<hr /><h1>TrayWindow class
</h1><hr /><p>Windows that are created with this class will hide themself
in the windows traybar when they are minimized.
</p><a name="TrayWindow"></a>
<h2>Glossary
</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,
when the user click's with the left mouse button on the tray icon.
</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
</h2><pre>
\ Create a tray window
:object TestWindow <super TrayWindow
:M GetTooltip: ( -- addr len )
s" TrayWindow Test" ;M
;object
Start: TestWindow \ open the window
SW_MINIMIZE Show: TestWindow \ minimize it to hide it in the TrayBar
</pre><hr><p>Document $Id: TrayWindow.htm,v 1.1 2006/01/15 09:25:50 dbu_de Exp $</p>
</body></html>
|
