* Modified: Adaptation of MiniGUI core has been revized to be compatible with 
            Embarcadero C++ 7.70 and Visual C++ 2022 Community Edition compilers: 
            - fixed the definition of the width and height values of the borders 
              of all window types; 
            - revised MiniPrint and MiniPrint2 source code to be compatible with 
              the above modifications. 
            Based upon a contribution of Grzegorz Wojnarowski. 
            Many thanks to Grzegorz for his great help to improve BCC 7.7 build. 
            Contributed by Grigory Filatov 
            (see demo in folder \samples\Basic\MAINDEMO_(SYNTAX_I)) 
   * Enhanced: Added the ability to use the bOnInit code block and global 
            parameters in the WaitWindow() function. 
            Added a new command for managing of the WAIT WINDOW properties 
            at runtime: 
              SET WAITWINDOW [ PROMPT TO <cMessage> ] [ FONT <cFont> ] ; 
              [ FONTCOLOR <fontcolor> ] [ BACKCOLOR <backcolor> ] 
            Suggested and contributed by Sergej Kiselev 
            (see demo.prg in folder \samples\Basic\WAIT_WINDOW) 
   * Modified: The IsArrayRGB() internal check-function has been improved to 
            more accurate detection of valid RGB color values. 
            Contributed by Grigory Filatov 
            (see demo in folder \samples\Applications\ButtonBuilder) 
   * Updated: The Alert* family functions: 
            - minor refactoring of input parameters processing; 
            - added comments describing the purpose of each function. 
            Contributed by Grigory Filatov 
            (see demo in folder \samples\Basic\AlertBoxes) 
   * Updated: The DBF network functions: 
            - modified NetLock() internal function; 
            - added comments describing the purpose and parameters of each 
              function. 
            Contributed by Grigory Filatov 
            (see demo in folder \samples\Basic\DATA_BOUND) 
   * Updated: The drawing functions in the MiniGUI core: 
            - added detailed comments to the code. 
            Contributed by Grigory Filatov 
            (see demo in folder \samples\Basic\DRAW) 
   * Updated: MiniGUI Resources control system in the MiniGUI core: 
            - added detailed comments to the code. 
            Contributed by Grigory Filatov 
   * Updated: The CheckStatic() function in the MiniGUI core: 
            - added detailed comments to the code. 
            Contributed by Grigory Filatov 
   * Updated: TCDOMail class in the MiniGUI core: 
            - added detailed comments to the code. 
            Contributed by Grigory Filatov 
   * Updated: TSimpleTaskDialog and TTaskDialog classes in the MiniGUI core: 
            - added detailed comments to the code. 
            Contributed by Grigory Filatov 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2025-03-25 13:54): 
            * Updated: HbCurl library by Przemyslaw Czerpak. 
            Contributed by Grigory Filatov 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'Merge and aggregate datasets via SQLRDD' sample: 
            - added a SUMMARIZE command for Harbour, inspired by Rosetta Code. 
            Based upon a contribution of Mark Clements. 
            Adapted for Minigui Extended by Grigory Filatov 
            (see in folder \samples\Advanced\SQLRDD\Summarize) [PRO VERSION] 
   * Updated: 'Multi-colored Tab Control with using of a Tab Cargo' sample: 
            - added helper function GetTabHeaderHeight() instead of using global 
              internal core variable. 
            Contributed by Grigory Filatov 
            (see in folder \samples\Basic\COLORED_TAB) 
   * Updated: 'Merge cells of a row into one row using _TBrowse() function' sample. 
            Contributed by Sergej Kiselev 
            (see in folder \samples\Advanced\Tsb_MergeRowCells) 
   * Updated: 'WebCam preview and capture' sample: 
            - added detailed comments to the code. 
            Contributed by Grigory Filatov 
            (see in folder \samples\Advanced\WebCam_2) 
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION _wPost( nEvent, nIndex, xParam ) 
 *-----------------------------------------------------------------------------* 
    LOCAL oWnd, cForm 
  
    IF HB_ISOBJECT( nIndex ) 
       IF nIndex:ClassName == 'TSBROWSE' 
          cForm := nIndex:cParentWnd 
          nIndex := GetControlIndex( cForm, nIndex:cControlName ) 
       ELSE 
          cForm := _HMG_THISFORMNAME 
          IF __objHasData( nIndex, "Name" ) ; cForm := nIndex:Name 
          ENDIF 
          nIndex := NIL 
       ENDIF 
    ELSEIF HB_ISCHAR( nIndex ) 
       cForm := nIndex 
       nIndex := NIL 
    ELSE 
       cForm := _HMG_THISFORMNAME 
    ENDIF 
  
    IF _HMG_lOOPEnabled 
 #ifdef _OBJECT_ 
       IF !Empty( cForm ) .and. HB_ISCHAR( cForm ) 
          oWnd := _WindowObj( cForm ) 
          IF HB_ISOBJECT( oWnd ) 
             IF HB_ISCHAR( nEvent ) 
                nEvent := oWnd:oEvents:Get( nEvent, nEvent ) 
             ENDIF 
             IF HB_ISNUMERIC( nEvent ) 
                DoEvents() ; oWnd:PostMsg( nEvent, nIndex, xParam ) 
             ENDIF 
          ENDIF 
       ENDIF 
 #else 
       HB_SYMBOL_UNUSED(nEvent) 
       HB_SYMBOL_UNUSED(nIndex) 
       HB_SYMBOL_UNUSED(xParam) 
       HB_SYMBOL_UNUSED(cForm) 
       HB_SYMBOL_UNUSED(oWnd) 
 #endif 
    ENDIF 
  
 RETURN NIL 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _wSend( nEvent, nIndex, xParam ) 
 *-----------------------------------------------------------------------------* 
    LOCAL oWnd, cForm 
  
    IF HB_ISOBJECT( nIndex ) 
       IF nIndex:ClassName == 'TSBROWSE' 
          cForm := nIndex:cParentWnd 
          nIndex := GetControlIndex( cForm, nIndex:cControlName ) 
       ELSE 
          cForm := _HMG_THISFORMNAME 
          IF __objHasData( nIndex, "Name" ) ; cForm := nIndex:Name 
          ENDIF 
          nIndex := NIL 
       ENDIF 
    ELSEIF HB_ISCHAR( nIndex ) 
       cForm := nIndex 
       nIndex := NIL 
    ELSE 
       cForm := _HMG_THISFORMNAME 
    ENDIF 
  
    IF _HMG_lOOPEnabled 
 #ifdef _OBJECT_ 
       IF !Empty( cForm ) .and. HB_ISCHAR( cForm ) 
          oWnd := _WindowObj( cForm ) 
          IF HB_ISOBJECT( oWnd ) 
             IF HB_ISCHAR( nEvent ) 
                nEvent := oWnd:oEvents:Get( nEvent, nEvent ) 
             ENDIF 
             IF HB_ISNUMERIC( nEvent ) 
                DoEvents() ; oWnd:SendMsg( nEvent, nIndex, xParam ) 
             ENDIF 
          ENDIF 
       ENDIF 
 #else 
       HB_SYMBOL_UNUSED(nEvent) 
       HB_SYMBOL_UNUSED(nIndex) 
       HB_SYMBOL_UNUSED(xParam) 
       HB_SYMBOL_UNUSED(cForm) 
       HB_SYMBOL_UNUSED(oWnd) 
 #endif 
    ENDIF 
  
 RETURN NIL 
  
 #ifdef _OBJECT_ 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _WindowObj( FormName ) 
 *-----------------------------------------------------------------------------* 
 ...