* Fixed: Revised a releasing of the COMBOBOXEX control 
          (a bug has been introduced since the first implementation 
          of this control). 
  
 * Enhanced: Standard IMAGE BUTTON control supports normal display 
          of the PNG images with alpha channel. 
  
 * Enhanced: The GetBox control additionally supports Ctrl+Z hotkey 
          to undo the current value when editing. 
  
 * Enhanced: Added a new optional clause IMAGESIZE <w>, <h> to the 
          COMBOBOXEX control (similar to ButtonEx control). 
          The alternative syntax is IMAGEWIDTH <w> and IMAGEHEIGHT <h>. 
  
 * Enhanced: MENUITEM command supports optional clause ICON <icon> 
          in the context menu. 
  
 * Enhanced: Added description of OS error value in the ErrorLog file 
          using the new GetOSErrorDescription( <nError> ) function. 
  
 * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
          - fixed incorrect use of the SetMsg() method in the TSBrowse 
            class when TBROWSE was defined without a MESSAGE clause. 
  
 * Updated: HbZipArc library source code: 
          - added new function hb_IsZipFile( <cFilename> ) for 
            a quick test to determine if a file is a ZIP file. 
  
 * Updated: PageScript 32 library: 
          - update for using PageScript DLL 4.0.1.157 (from 4.0.1.144). 
  
 * Updated: Harbour Compiler 3.2.0dev (SVN 2023-04-21 13:01). 
  
 * Updated some Basic and Advanced samples. 
 

  * Enhanced: New GetCPUInfo() function was used in the Error logging 
            routine. 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
            (see demo in folder \samples\Basic\ShowDetailError) 
   * Enhanced: Added a new optional clause HOTKEY <KeyName> to the 
            CREATE LINK FILE command. 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
            (see demo in folder \samples\Basic\CreateLink) 
   * Updated: Unneeded casting of the C-code was removed in some places. 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
   * Updated: Added use of low-level resource management system to C code 
            of CreateGradientBrush() function. 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
            (see demo in folder \samples\Advanced\SetThemes) 
   * Updated: HBPrinter library: 
            - further parameter substitution in C-code using macros from 
              the header file mgdefs.h. 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
            (see source in folder \Source\HBPrinter) 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.42.0 (from 3.41.2). 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
   * Updated: 'Tree Menu' sample: added useful function 
            TreeItemGetPathValue ( ControlName, ParentForm, nItem ). 
            Adapted for Minigui Extended by Grigory Filatov 
            (see in folder \samples\Basic\TreeMenu_2) 
   * Updated: 'PageScript 32 test' sample: 
            - update external app Viewer.exe to version 1.2 (from 1.0). 
            Contribution of Richard Visscher <richard/at/irvis.com> 
            (see in folder \samples\Advanced\PageScript) 
 

  * Enhanced: Added the OOP class TThrData for managing objects 
            in the thread. 
            Suggested and contributed by Sergej Kiselev 
            (see demo3.prg in folder \samples\Advanced\ShellExec) 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2023-05-19 16:29): 
            * Fixed: do not generate warnings for undeclared methods 
              when -w[12] is used. 
            Contributed by Przemyslaw Czerpak <druzus/at/priv.onet.pl> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'FTP Navigator' sample based upon CURL library. 
            Note: this example requires curl.dll. 
            Based upon a contribution of HMG user Edward. 
            Adapted for Minigui Extended by Jozef Rudnicki 
            (see in folder \samples\Advanced\FtpNavigator) 
   * New: 'Read xlsx files without using OLE, libraries, etc' sample. 
            Don't miss this very interesting example! 
            Based upon a contribution of HMG user Edward 
            (see in folder \samples\Advanced\ReadXLSX) 
   * Updated: 'Horizontal radio group with variable items width' sample: 
            - updated with the latest changes in the Minigui core. 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
            (see in folder \samples\Basic\RadioGroup_nofixed) 
   * Updated: 'ShellExecuteEx() and WaitForSingleObject() usage' sample. 
            Contributed by Sergej Kiselev and Verchenko Andrey 
            (see in folder \samples\Advanced\ShellExec) 
   * Updated: 'Monthly calendar with date stamp at runtime' sample: 
            - changed color theme. 
            Contributed by Grigory Filatov <gfilatov@gmail.com> 
            (see demo2.prg in folder \samples\Advanced\Tsb_calendar) 
 

 
 #include "minigui.ch" 
  
 Procedure Main 
  
 	DEFINE WINDOW Win1 ; 
 		AT 0,0 ; 
 		WIDTH 550 ; 
 		HEIGHT 450 ; 
 		TITLE 'Custom Component Demo' ; 
 		MAIN  
  
 		DEFINE MAIN MENU 
 			DEFINE POPUP 'Test' 
 				MENUITEM 'Custom Method: SetFocus' ACTION Win1.Test.SetFocus 
 				MENUITEM 'Custom Method: Disable' ACTION Win1.Test.Disable 
 				MENUITEM 'Custom Method: Enable' ACTION Win1.Test.Enable 
 				MENUITEM 'Custom Property: Handle (Get)' ACTION MsgInfo ( Win1.Test.Handle ) 
 				MENUITEM 'Custom Property: Handle (Set)' ACTION Win1.Test.Handle := 1 
 				MENUITEM 'Custom Property: Caption (Get)' ACTION MsgInfo ( Win1.Test.Caption ) 
 				MENUITEM 'Custom Property: Caption (Set)' ACTION Win1.Test.Caption := 'New Caption' 
 				MENUITEM 'Custom Property: Picture (Get)' ACTION MsgInfo ( Win1.Test.Picture ) 
 				MENUITEM 'Custom Property: Picture (Set)' ACTION Win1.Test.Picture := 'button.png' 
 			END POPUP 
 		END MENU 
  
 		@ 10 , 10 HMGBUTTON test ; 
 			OF Win1 ; 
 			CAPTION 'Left Align Button' ; 
 			PICTURE "hmg.png" ; 
 			WIDTH 280 ; 
 			HEIGHT 180 ; 
 			ACTION MsgInfo('Click! 1') LEFT 
  
 		@ 200 , 10 HMGBUTTON test2 ; 
 			OF Win1 ; 
 			CAPTION 'Right Align Button' ; 
 			PICTURE "hmg.png" ; 
 			WIDTH 280 ; 
 			HEIGHT 180 ; 
 			ACTION MsgInfo('Click! 2') RIGHT 
  
 		@ 10 , 300 HMGBUTTON test3 ; 
 			OF Win1 ; 
 			CAPTION 'Top Picture Align Button' ; 
 			PICTURE "hmg.png" ; 
 			WIDTH 220 ; 
 			HEIGHT 180 ; 
 			ACTION MsgInfo('Click! 3') TOP 
  
 		@ 200 , 300 HMGBUTTON test4 ; 
 			OF Win1 ; 
 			CAPTION 'Bottom Picture Align Button' ; 
 			PICTURE "hmg.png" ; 
 			WIDTH 220 ; 
 			HEIGHT 180 ; 
 			ACTION MsgInfo('Click! 4') BOTTOM 
  
 	END WINDOW 
  
 	Win1.Test.SetFocus 
  
 	CENTER WINDOW Win1 
  
 	ACTIVATE WINDOW Win1 
  
 Return 
 

/*---------------------------------------------------------------------------- 
  MINIGUI - Harbour Win32 GUI library source code 
  
  Copyright 2002-2010 Roberto Lopez <harbourminigui@gmail.com> 
  http://harbourminigui.googlepages.com/ 
  
  This program is free software; you can redistribute it and/or modify it under  
  the terms of the GNU General Public License as published by the Free Software  
  Foundation; either version 2 of the License, or (at your option) any later  
  version.  
  
  This program is distributed in the hope that it will be useful, but WITHOUT  
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS  
  FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. 
  
  You should have received a copy of the GNU General Public License along with  
  this software; see the file COPYING. If not, write to the Free Software  
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA (or  
  visit the web site http://www.gnu.org/). 
  
  As a special exception, you have permission for additional uses of the text  
  contained in this release of Harbour Minigui. 
  
  The exception is that, if you link the Harbour Minigui library with other  
  files to produce an executable, this does not by itself cause the resulting  
  executable to be covered by the GNU General Public License. 
  Your use of that executable is in no way restricted on account of linking the  
  Harbour-Minigui library code into it. 
  
  Parts of this project are based upon: 
  
 	"Harbour GUI framework for Win32" 
  	Copyright 2001 Alexander S.Kresin <alex@kresin.ru> 
  	Copyright 2001 Antonio Linares <alinares@fivetech.com> 
 	www - https://harbour.github.io/ 
  
 	"Harbour Project" 
 	Copyright 1999-2023, https://harbour.github.io/ 
  
 	"WHAT32" 
 	Copyright 2002 AJ Wos <andrwos@aust1.net>  
  
 	"HWGUI" 
   	Copyright 2001-2021 Alexander S.Kresin <alex@kresin.ru> 
  
  ---------------------------------------------------------------------------*/ 
  
 // WINDOWS (THIS) 
  
 #xtranslate This . <p:Title,Parent,NotifyIcon,NotifyTooltip,Cursor,FocusedControl,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,Closable,MaxButton,MinButton,Visible,Enabled,Topmost,HelpButton,Object> => GetProperty ( _HMG_THISFORMNAME , <"p"> ) 
 #xtranslate This . <p:Title,NotifyIcon,NotifyTooltip,Cursor,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,Closable,MaxButton,MinButton,Visible,Enabled,Topmost,HelpButton> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) 
 #xtranslate This . <p:OnInit,OnRelease,OnInterActiveClose,OnNotifyClick,OnMouseClick,OnMouseDrag,OnMouseMove,OnMove,OnSize,OnMaximize,OnMinimize,OnPaint,OnRestore,OnDropFiles> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) 
 #xtranslate This . <p:Activate,Center,Release,Maximize,Minimize,Restore> [()] => DoMethod ( _HMG_THISFORMNAME , <"p"> ) 
 #xtranslate This . <p:Names,Controls> => HMG_GetFormControls ( _HMG_THISFORMNAME , "ALL" ) 
  
 #xtranslate This . <c> . <p:Names>  => HMG_GetFormControls ( _HMG_THISFORMNAME , <(c)> ) 
 #xtranslate This . <c> . <p:ClientWidth>  => _GetClientRect ( GetControlHandle ( <(c)> , _HMG_THISFORMNAME ) ) \[3] 
 #xtranslate This . <c> . <p:ClientHeight> => _GetClientRect ( GetControlHandle ( <(c)> , _HMG_THISFORMNAME ) ) \[4] 
 #xtranslate This . <c> . <p:Value,Name,Handle,Type,Index,Address,BackColor,BackgroundColor,FontColor,Picture,Icon,HBitmap,ToolTip,FontName,FontSize,FontBold,FontUnderline,FontItalic,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo,Tabstop,ColumnCOUNT> => GetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> ) 
 #xtranslate This . <c> . <p:Value,Name,Address,BackColor,BackgroundColor,FontColor,Picture,Icon,HBitmap,ToolTip,FontName,FontSize,FontBold,FontUnderline,FontItalic,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo,Tabstop> := <n> => SetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <n> ) 
 #xtranslate This . <c> . <p:ListWidth,Position,CaretPos,ForeColor,AllowAppend,AllowDelete,AllowEdit,InputItems,DisplayItems,FormatString,Indent,Linecolor,ItemHeight,ValidMessage,AutoFont,RichValue,Alignment,CaseConvert,Transparent,CueBanner,GradientFill,GradientOver,Object,ImageWidth,ImageHeight> => GetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> ) 
 #xtranslate This . <c> . <p:ListWidth,Position,CaretPos,ForeColor,AllowAppend,AllowDelete,AllowEdit,Blink,InputItems,DisplayItems,FormatString,Indent,Linecolor,ItemHeight,ValidMessage,AutoFont,RichValue,Alignment,CaseConvert,Transparent,ColumnWidthLimits,CueBanner,GradientFill,GradientOver,Increment,ImageWidth,ImageHeight> := <n> => SetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <n> ) 
 #xtranslate This . <c> . <p:Caption,Header,Image,Item,Icon,ToolTip,Width,ColumnWidth,Enabled,RichValue,HeaderImage,CheckboxItem,Cargo,Increment,ColumnDISPLAYPOSITION> (<arg>) => GetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <arg> ) 
 #xtranslate This . <c> . <p:Velocity> := <n> => SetProperty ( _HMG_THISFORMNAME, <(c)> , "Velocity" , <n> ) 
 #xtranslate This . <c> . <p:Caption,Header,Image,Item,Icon,ToolTip,Width,ColumnWidth,Enabled,RichValue,CheckboxItem,Cargo,ColumnDISPLAYPOSITION> (<arg>) := <n> => SetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <arg> , <n> ) 
 #xtranslate This . <c> . <p:Cell> (<arg1> , <arg2>) => GetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <arg1> , <arg2> ) 
 #xtranslate This . <c> . <p:Cell> (<arg1> , <arg2>) := <n> => SetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <arg1> , <arg2> , <n> ) 
 #xtranslate This . <c> . <p:HeaderImage> (<arg1>) := <arg2> => SetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <arg1> , <arg2> ) 
 #xtranslate This . <c> . <p:HeaderImage> (<arg1>) := {<arg2> , <arg3>} => SetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <arg1> , <arg2> , <arg3> ) 
 #xtranslate This . <c> . <p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick,OnEnter,ColumnsAutoFit,ColumnsAutoFitH> [()] => DoMethod ( _HMG_THISFORMNAME, <(c)> , <"p"> ) 
 #xtranslate This . <c> . <p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek,ColumnAutoFit,ColumnAutoFitH> (<a>) => Domethod ( _HMG_THISFORMNAME, <(c)> , <"p"> , <a> ) 
 #xtranslate This . <c> . <p:AddItem,AddPage> (<a1> , <a2> ) => Domethod ( _HMG_THISFORMNAME, <(c)> , <"p"> , <a1> , <a2> ) 
 #xtranslate This . <c> . <p:AddItem,AddPage> (<a1> , <a2> , <a3> ) => Domethod ( _HMG_THISFORMNAME, <(c)> , <"p"> , <a1> , <a2> , <a3> ) 
 #xtranslate This . <c> . <p:AddItem,AddColumn,AddControl,AddPage> (<a1> , <a2> , <a3> , <a4> ) => Domethod ( _HMG_THISFORMNAME, <(c)> , <"p"> , <a1> , <a2> , <a3> , <a4> ) 
 #xtranslate This . <c> . <p:ReadOnly,DisableEdit,Options,Spacing,Length> => GetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> ) 
 #xtranslate This . <c> . <p:ReadOnly,DisableEdit,Options,Spacing,Speed,Volume,Zoom,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick,OnEnter> := <n> => SetProperty ( _HMG_THISFORMNAME, <(c)> , <"p"> , <n> ) 
 #xtranslate This . <x> . <c> . <p:Caption,Enabled,Value> => GetProperty ( _HMG_THISFORMNAME , <(x)> , <(c)> , <"p"> ) 
 #xtranslate This . <x> . <c> . <p:Caption,Enabled,Value> := <n> => SetProperty ( _HMG_THISFORMNAME , <(x)> , <(c)> , <"p"> , <n> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo> => GetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Cargo> := <n> => SetProperty ( _HMG_THISFORMNAME , <(x)> , <k> , <(c)> , <"p"> , <n> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:ListWidth,Position,CaretPos,ForeColor,RichValue> => GetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:ListWidth,Position,CaretPos,ForeColor,RichValue> := <n> => SetProperty ( _HMG_THISFORMNAME , <(x)> , <k> , <(c)> , <"p"> , <n> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Caption,Header,Item,Icon,RichValue,CheckboxItem> (<arg>) => GetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <arg> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Caption,Header,Item,Icon,RichValue,CheckboxItem> (<arg>) := <n> => SetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <arg> , <n> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick,OnEnter> [()] => DoMethod ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek> (<a>) => Domethod ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <a> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,AddPage> (<a1> , <a2>) => Domethod ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <a1> , <a2> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,AddPage> (<a1> , <a2> , <a3> ) => Domethod ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <a1> , <a2> , <a3> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:AddItem,AddColumn,AddControl,AddPage> (<a1> , <a2> , <a3> , <a4> ) => Domethod ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <a1> , <a2> , <a3> , <a4> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Length,Options,Spacing> => GetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:ReadOnly,DisableEdit,Options,Spacing,Speed,Volume,Zoom> := <n> => SetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <n> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Cell> (<arg1> , <arg2>) => GetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <arg1> , <arg2> ) 
 #xtranslate This . <x> (<k>) . <c> . <p:Cell> (<arg1> , <arg2>) := <n> => SetProperty ( _HMG_THISFORMNAME, <(x)> , <k> , <(c)> , <"p"> , <arg1> , <arg2> , <n> ) 
 #xtranslate This . SplitBox  . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,Object,InputItems,DisplayItems,Cargo> => GetProperty ( _HMG_THISFORMNAME, "SplitBox" , <(c)> , <"p"> ) 
 #xtranslate This . SplitBox  . <c> . <p:Value,Name,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,Blink,InputItems,DisplayItems,Cargo> := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox" , <(c)> , <"p"> , <n> ) 
 #xtranslate This . SplitBox  . <c> . <p:AllowAppend,AllowDelete,DisableEdit,ReadOnly> => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> ) 
 #xtranslate This . SplitBox  . <c> . <p:AllowAppend,AllowDelete,DisableEdit,ReadOnly> := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <n> ) 
 #xtranslate This . SplitBox  . <c> . <p:Caption,Header,Item,Icon,HeaderImages,CheckboxItem> (<arg>) => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <arg> ) 
 #xtranslate This . SplitBox  . <c> . <p:Caption,Header,Item,Icon,HeaderImages,CheckboxItem> (<arg>) := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <arg> , <n> ) 
 #xtranslate This . SplitBox  . <c> . <p:Cell> (<arg1> , <arg2>) => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <arg1> , <arg2> ) 
 #xtranslate This . SplitBox  . <c> . <p:Cell> (<arg1> , <arg2>) := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <arg1> , <arg2> , <n> ) 
 #xtranslate This . SplitBox  . <c> . <p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick,OnEnter> [()] => DoMethod ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> ) 
 #xtranslate This . SplitBox  . <c> . <p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek> (<a>) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <a> ) 
 #xtranslate This . SplitBox  . <c> . <p:AddItem,AddPage> (<a1> , <a2>) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <a1> , <a2> ) 
 #xtranslate This . SplitBox  . <c> . <p:AddItem,AddPage> (<a1> , <a2> , <a3> ) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <a1> , <a2> , <a3> ) 
 #xtranslate This . SplitBox  . <c> . <p:AddItem,AddColumn,AddControl,AddPage> (<a1> , <a2> , <a3> , <a4> ) => Domethod ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <a1> , <a2> , <a3> , <a4> ) 
 #xtranslate This . SplitBox  . <c> . <p:Name,Length> => GetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> ) 
 #xtranslate This . SplitBox  . <c> . <p:ReadOnly,DisableEdit,Speed,Volume,Zoom> := <n> => SetProperty ( _HMG_THISFORMNAME, "SplitBox", <(c)> , <"p"> , <n> ) 
 #xtranslate This . SplitBox  . <x> . <c> . <p:Caption,Enabled,Value> => GetProperty ( _HMG_THISFORMNAME , "SplitBox" , <(x)> , <(c)> , <"p"> ) 
 #xtranslate This . SplitBox  . <x> . <c> . <p:Caption,Enabled,Value> := <n> => SetProperty ( _HMG_THISFORMNAME , "SplitBox", <(x)> , <(c)> , <"p"> , <n> ) 
  
 // WINDOWS (THISWINDOW) 
  
 #xtranslate ThisWindow . <p:Title,Parent,NotifyIcon,NotifyTooltip,Cursor,FocusedControl,BackColor,Name,Handle,Type,Index,Row,Col,Width,Height,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,Closable,MaxButton,MinButton,Visible,Enabled,Topmost,HelpButton,Cargo,Object> => GetProperty ( _HMG_THISFORMNAME , <"p"> ) 
 #xtranslate ThisWindow . <p:Title,NotifyIcon,NotifyTooltip,Cursor,BackColor,Row,Col,Width,Height,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,Closable,MaxButton,MinButton,Visible,Enabled,Topmost,HelpButton,Cargo> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) 
 #xtranslate ThisWindow . <p:OnInit,OnRelease,OnInterActiveClose,OnGotFocus,OnLostFocus,OnNotifyClick,OnMouseClick,OnMouseDrag,OnMouseMove,OnMove,OnSize,OnMaximize,OnMinimize,OnPaint,OnRestore,OnDropFiles> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) 
 #xtranslate ThisWindow . <p:AlphaBlendTransparent,BackColorTransparent> := <arg> => SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) 
 #xtranslate ThisWindow . <p:Activate,Center,EnableUpdate,DisableUpdate,Redraw,Release,Maximize,Minimize,Restore,Show,Hide,SetFocus> [ () ] => DoMethod ( _HMG_THISFORMNAME , <"p"> ) 
 #xtranslate ThisWindow . <p:Names,Controls>  => HMG_GetFormControls ( _HMG_THISFORMNAME , "ALL" ) 
 #xtranslate ThisWindow . <p:ClientWidth>  => _GetClientRect ( GetFormHandle ( _HMG_THISFORMNAME ) ) \[3] 
 #xtranslate ThisWindow . <p:ClientHeight> => _GetClientRect ( GetFormHandle ( _HMG_THISFORMNAME ) ) \[4] 
  
 // CONTROLS 
  
 // RichEditBox ( by Dr. Claudio Soto, January 2014 ) 
 #xtranslate ThisRichEditBox . <p: GetClickLinkRange,GetClickLinkText> => GetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> ) 
  
 * Property without arguments 
  
 #xtranslate This . <p:FontColor,ForeColor,Value,ReadOnly,DisableEdit,Options,Spacing,Address,Picture,Icon,HBitmap,Tooltip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeout,Caption,Displayvalue,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Length,Position,CaretPos,Alignment,CaseConvert,Transparent,CueBanner,GradientFill,GradientOver,Increment,ImageWidth,ImageHeight,ColumnCOUNT,FormatString> => GetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> ) 
 #xtranslate This . <p:FontColor,ForeColor,Value,ReadOnly,DisableEdit,Options,Spacing,Address,Picture,Icon,HBitmap,Tooltip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeout,Caption,DisplayValue,Visible,Enabled,Checked,RangeMin,RangeMax,Repeat,Speed,Volume,Zoom,Position,CaretPos,Action,Blink,Alignment,CaseConvert,Transparent,ColumnWidthLimits,CueBanner,GradientFill,GradientOver,Increment,ImageWidth,ImageHeight,FormatString> := <arg> => SetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <arg> ) 
  
 * Property with 1 argument 
  
 #xtranslate This . <p:Item,Caption,Header,Icon,Width,ColumnWidth,ColumnDISPLAYPOSITION,Enabled> (<n>) => GetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <n> ) 
 #xtranslate This . <p:Item,Caption,Header,Icon,Width,ColumnWidth,ColumnDISPLAYPOSITION,Enabled> (<n>) := <arg> => SetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <n> , <arg> ) 
  
 #xtranslate This . <p:ColumnCONTROL,ColumnDYNAMICBACKCOLOR,ColumnDYNAMICFORECOLOR,ColumnJUSTIFY,ColumnVALID,ColumnWHEN,ColumnVALIDMESSAGE,ColumnONHEADCLICK,HeaderDYNAMICFONT,HeaderDYNAMICBACKCOLOR,HeaderDYNAMICFORECOLOR> (<n>) => GetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <n> ) 
 #xtranslate This . <p:ColumnCONTROL,ColumnDYNAMICBACKCOLOR,ColumnDYNAMICFORECOLOR,ColumnJUSTIFY,ColumnVALID,ColumnWHEN,ColumnVALIDMESSAGE,ColumnONHEADCLICK,HeaderDYNAMICFONT,HeaderDYNAMICBACKCOLOR,HeaderDYNAMICFORECOLOR> (<n>) := <arg> => SetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <n> , <arg> ) 
  
 * Property with 2 arguments 
  
 #xtranslate This . <p:Cell> ( <n1> , <n2> ) => GetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <n1> , <n2> ) 
 #xtranslate This . <p:Cell> ( <n1> , <n2> ) := <arg> => SetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <n1> , <n2> , <arg> ) 
  
 * Method without arguments 
  
 #xtranslate This . <p:Redraw,Refresh,DeleteAllItems,Release,Play,Stop,Close,PlayReverse,Pause,Eject,OpenDialog,Resume,Save,GetArray,EnableUpdate,DisableUpdate,Action,OnClick,OnGotFocus,OnLostFocus,OnChange,OnDblClick,OnEnter,ColumnAutoFit,ColumnAutoFitH> [ () ] => DoMethod ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> ) 
  
 * Method with 1 argument 
  
 #xtranslate This . <p:AddItem,DeleteItem,Open,Seek,SetArray,DeletePage,DeleteColumn,Expand,Collapse> (<arg>) => DoMethod ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <arg> ) 
  
 * Method with 2 arguments 
  
 #xtranslate This . <p:AddItem,AddPage> ( <arg1> , <arg2> )	=> DoMethod ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <arg1> , <arg2> ) 
  
 * Method with 3 arguments 
  
 #xtranslate This . <p:AddItem,AddPage> ( <arg1>,<arg2>,<arg3> )	=> DoMethod ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <arg1> , <arg2> , <arg3> ) 
  
 * Method with 4 arguments 
  
 #xtranslate This . <p:AddItem,AddControl,AddColumn,AddPage> ( <arg1> , <arg2> , <arg3> , <arg4> ) => DoMethod ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <arg1> , <arg2> , <arg3> , <arg4> ) 
  
  
 // COMMON ( REQUIRES TYPE CHECK ) 
  
 #xtranslate This . <p:Name,Handle,Type,Index,Row,Col,Width,Height,BackColor,Cargo,Object> => iif ( _HMG_THISType == 'C' , GetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> ) , GetProperty ( _HMG_THISFORMNAME , <"p"> ) ) 
 #xtranslate This . <p:Row,Col,Width,Height,BackColor,Cargo> := <arg> => iif ( _HMG_THISType == 'C' , SetProperty ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> , <arg> ) , SetProperty ( _HMG_THISFORMNAME , <"p"> , <arg> ) ) 
 #xtranslate This . <p:Show,Hide,SetFocus> [ () ] => iif ( _HMG_THISType == 'C' , DoMethod ( _HMG_THISFORMNAME , _HMG_THISCONTROLNAME , <"p"> ) , DoMethod ( _HMG_THISFORMNAME , <"p"> ) ) 
 #xtranslate This . <p:ClientWidth>  => _GetClientRect ( iif ( _HMG_THISType == 'C' , GetControlHandle ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetFormHandle ( _HMG_THISFORMNAME ) ) ) \[3] 
 #xtranslate This . <p:ClientHeight> => _GetClientRect ( iif ( _HMG_THISType == 'C' , GetControlHandle ( _HMG_THISCONTROLNAME , _HMG_THISFORMNAME ) , GetFormHandle ( _HMG_THISFORMNAME ) ) ) \[4] 
  
 // EVENT PROCEDURES 
  
 #xtranslate This . QueryRowIndex => _HMG_THISQueryRowIndex 
 #xtranslate This . QueryColIndex => _HMG_THISQueryColIndex 
 #xtranslate This . QueryData     => _HMG_THISQueryData 
 #xtranslate This . CellRowIndex  => _HMG_THISItemRowIndex 
 #xtranslate This . CellColIndex  => _HMG_THISItemColIndex 
 #xtranslate This . CellRow       => _HMG_THISItemCellRow 
 #xtranslate This . CellCol       => _HMG_THISItemCellCol 
 #xtranslate This . CellWidth     => _HMG_THISItemCellWidth 
 #xtranslate This . CellHeight    => _HMG_THISItemCellHeight 
 #xtranslate This . CellValue     => _HMG_THISItemCellValue 
 #xtranslate This . CellValue := <arg> => _SetGridCellEditValue ( <arg> )  
  
 // INPLACE EDIT GRID EVENT 
  
 #xtranslate This . InplaceEditControlHandle  => _HMG_GridInplaceEdit_ControlHandle 
 #xtranslate This . InplaceEditControlIndex   => _HMG_GridInplaceEdit_GridIndex 
 #xtranslate This . InplaceEditGridName       => iif( _HMG_GridInplaceEdit_GridIndex > 0, _HMG_aControlNames \[ _HMG_GridInplaceEdit_GridIndex ], "" ) 
 #xtranslate This . InplaceEditParentName     => iif( _HMG_GridInplaceEdit_GridIndex > 0, GetParentFormName( _HMG_GridInplaceEdit_GridIndex ), "" ) 
  
 #xtranslate This . IsInplaceEditEventInit    => ( _HMG_GridInplaceEdit_StageEvent == 1 ) 
 #xtranslate This . IsInplaceEditEventRun     => ( _HMG_GridInplaceEdit_StageEvent == 2 ) 
 #xtranslate This . IsInplaceEditEventFinish  => ( _HMG_GridInplaceEdit_StageEvent == 3 ) 
 

 
 ... 
    oBrw := _TBrowse( oTsb, cAls, cBrw, nY, nX, nW, nH ) 
  
    oBrw:bEvents := {|ob,nMsg,nWParam,nLParam| 
                     Local lRet, nCell, nHead, nFoot, nSpec 
                     // события назначаем (можно не все, тогда должен работать и ob:bLdblClick) 
                     nHead := 30 
                     nFoot := 31 
                     nSpec := 32 
                     nCell := 33 
                     lRet := bEvents_LDblClick( ob, nMsg, nWParam, nLParam, nCell, nHead, nFoot, nSpec ) 
                     Return lRet 
                    } 
 ... 
       :Event(30, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
       :Event(31, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
       :Event(32, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
       :Event(33, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
 ... 
 FUNCTION bEvents_LDblClick( ob, nMsg, nWParam, nLParam, nCell, nHead, nFoot, nSpec ) 
    Local nRowPix, nColPix, nRow, nCol, lPost, nPost, o 
  
    //#define WM_LBUTTONDBLCLK  515  // 0x203 
    IF nMsg == 515 .and. !_GetKeyState( VK_SHIFT ) .and. ! ob:IsEdit .and. ob:lCellBrw 
  
       IF ! ob:lEnabled .or. ob:lDontChange ; RETURN lPost 
       ENDIF 
  
       o := ob:Cargo ; Default o := oHmgData() 
       Default nCell := o:nEventCell 
       Default nHead := o:nEventHead 
       Default nFoot := o:nEventFoot 
       Default nSpec := o:nEventSpec 
       Default nCell := 0, nHead := 0, nFoot := 0, nSpec := 0 
  
       IF Empty( nCell + nHead + nFoot + nSpec) ; RETURN lPost 
       ENDIF 
  
       nRowPix := HiWord( nLParam ) 
       nColPix := LoWord( nLParam ) 
       nRow  := ob:GetTxtRow( nRowPix ) 
       nCol  := ob:nAtColActual( nColPix ) 
       lPost := .F. 
       nPost := 0 
  
       IF ! Empty(nCell) .and. nRow == ob:nRowPos .and. nRow > 0 
          lPost := .T. 
          nPost := nCell 
       ELSEIF ! Empty(nHead) .and. nRow == 0 .and. ! Empty( ob:lDrawHeaders ) 
          lPost := .T. 
          nPost := nHead 
       ELSEIF ! Empty(nFoot) .and. nRow == -1 .and. ! Empty( ob:lDrawFooters ) 
          lPost := .T. 
          nPost := nFoot 
       ELSEIF ! Empty(nSpec) .and. nRow == -2 .and. ! Empty( ob:lDrawSpecHd ) 
          lPost := .T. 
          nPost := nSpec 
       ENDIF 
  
       IF lPost ; DO EVENTS ; _wPost( nPost, ob:cParentWnd, { nRow, nCol, ob, nWParam } ) 
       ENDIF 
  
    ENDIF 
  
 RETURN lPost 
 ... 
 

FUNCTION FindListZa(...) 
 ... 
    hOld := _HMG_InplaceParentHandle 
    _HMG_InplaceParentHandle := ThisWindow.Handle 
  
    DEFINE WINDOW Form_NZ          ; 
           MODAL                   ; 
           ON INIT {|| MyInitFormNZ(...) } 
 ... 
           cText := "1.Меню" 
           @ BUTTONEX Button_1 ...  ACTION {|| _wSend(10), DoEvents(), _wPost(12) } 
  
           cText     := "2.Меню" 
           @ BUTTONEX Button_2 ...  ACTION {|| _wSend(20), DoEvents(), _wPost(22) } 
  
           cText     := "3.Меню" 
           @ BUTTONEX Button_3 ....  ACTION {|| _wSend(30), DoEvents(), _wPost(32) } 
  
           cText      := "Выход" 
           @ BUTTONEX Button_5 ... ACTION {|| _wSend(97) } 
  
          ON KEY ESCAPE OF Form_NZ ACTION _wPost(97) 
          ON KEY F2     OF Form_NZ ACTION _wPost(87, ThisWindow.Name) 
  
          WITH OBJECT This.Object 
             :Event( 0, {|  | InkeyGui(200)                                  } ) 
             :Event( 1, {|  | This.Button_1.Setfocus , _PushKey( VK_RETURN ) } ) 
             :Event( 2, {|  | This.Button_2.Setfocus , _PushKey( VK_RETURN ) } ) 
             :Event( 3, {|  | This.Button_3.Setfocus , _PushKey( VK_RETURN ) } ) 
             :Event( 4, {|  | This.Button_4.Setfocus , _PushKey( VK_RETURN ) } ) 
  
             :Event(10, {|  | This.Button_1.Enabled := .F. } ) 
             :Event(11, {|ow| This.Button_1.Enabled := .T. , _wPost(90, ow) } )       
             :Event(12, {|ow| // 1.Меню 
                              IniSaveFileThisNZ(...) 
                              ReListNZ1(...) 
                              DoEvents() 
                              _wPost(11, ow:Name) 
                              RETURN NIL 
                              } ) 
  
              :Event(20, {|  | This.Button_2.Enabled := .F. } ) 
              :Event(21, {|ow| This.Button_2.Enabled := .T. , _wPost(90, ow) } )      
              :Event(22, {|ow| // 2.Меню 
                               LOCAL nMsg 
                               IniSaveFileThisFNZ(...) 
                               aNew := ReListNZ2(...) 
                               nMsg := iif( LEN(aNew) > 0, 99, 21 ) 
                               DoEvents() 
                               _wPost(nMsg, ow:Name) 
                               RETURN NIL 
                               } ) 
  
              :Event( 30, {|  | This.Button_3.Enabled := .F. } ) 
              :Event( 31, {|ow| This.Button_3.Enabled := .T.  , _wPost(90, ow) } )  
              :Event( 32, {|ow| // 3.Меню 
                                LOCAL nMsg 
                                IniSaveFileThisFNZ(...) 
                                aNew := ReListNZ3(...) 
                                nMsg := iif( LEN(aNew) > 0, 99, 31 ) 
                                DoEvents() 
                                _wPost(nMsg, ow:Name) 
                                RETURN NIL 
                                } ) 
  
             :Event( 87, {|ow| HelpThisWindow() , DoEvents(), _wPost(90, ow)  } ) 
  
             :Event( 90, {|ow| // остаться в окне выбора  
                               Local cMsg := "Window not found ! " + ow:Name + ";" + ProcNL()    
                               IF ! To_Focus(ow:Name , "Label_0")  
                                  AlertStop(cMsg, "ERROR")     
                               ENDIF  
                               DO EVENTS 
                               wApi_Sleep(100) 
                               Return Nil 
                               } ) 
  
             :Event( 97, {|ow| IniSaveFileThisFNZ(...) ,; 
                               aNew := {} , DoEvents(),  _wPost(99, ow:Name) } ) 
  
             :Event(99, {|ow| ow:Release()  } ) 
          END WITH 
  
    END WINDOW 
  
    CENTER WINDOW Form_NZ 
    ACTIVATE WINDOW Form_NZ 
  
    IF ! ISNIL(hOld) ; _HMG_InplaceParentHandle := hOld 
    ENDIF 
  
 RETURN aNew