Use this routine to set the title bar icon of a window.
Occurrence Becomes Active $50=$formtitle perform "_getwhnd" if ($status < 0) done $50="d:\userdlls\ud6\ud6.ico" perform "_mhseticon" $hicon$=$51 ; hIcon = $51 ; sizeof(hIcon) = $52
<ACCEPT> $51=$hicon$ perform "_mhkillicon"
Please note: You should.ensure that the icon is destroyed after use. The Windows system will automatically destroy any icons when the application terminates, destroying it at a more appropriate time frees memory and system resources.
This function is only available under Win32 platforms (ie: Windows 95/98/ME and NT/2000).
Trying to find the window handle of a window that has not been created results in a NULL return value from _getwhnd(). Therefore it is not possible to call it from the execute trigger.
|$Revision: 1.11 $ $Date: 2011/02/28 02:56:32 $||[go to top]|