* 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