*-----------------------------------------------------------------------------* 
 FUNCTION _DefineWindow ( FormName, Caption, x, y, w, h, nominimize, nomaximize, ; 
       nosize, nosysmenu, nocaption, aMin, aMax, InitProcedure, ReleaseProcedure, ; 
       MouseDragProcedure, SizeProcedure, ClickProcedure, MouseMoveProcedure, aRGB, ; 
       PaintProcedure, noshow, topmost, main, icon, child, fontname, fontsize, ; 
       NotifyIconName, NotifyIconTooltip, NotifyIconLeftClick, GotFocus, LostFocus, ; 
       VirtualHeight, VirtualWidth, scrollleft, scrollright, scrollup, scrolldown, ; 
       hscrollbox, vscrollbox, helpbutton, MaximizeProcedure, MinimizeProcedure, cursor, ; 
       NoAutoRelease, InteractiveCloseProcedure, RestoreProcedure, MoveProcedure, DropProcedure, ; 
       mdi, palette, NotifyIconDblClick, cPanelParent, panel, NotifyBalloonClick, clientwidth, clientheight ) 
 *-----------------------------------------------------------------------------* 
    LOCAL BrushHandle, FormHandle, ParentHandle 
    LOCAL hnotifyicon, htooltip 
    LOCAL ClassName 
    LOCAL cType 
    LOCAL mVar 
    LOCAL vscroll, hscroll 
    LOCAL k 
 #ifdef _OBJECT_ 
    LOCAL o 
    //_!!! 
    IF HB_ISOBJECT( FormName ) 
       o := FormName 
       FormName                  := o:FormName                  
       Caption                   := o:Caption                   
       x                         := o:x                         
       y                         := o:y                         
       w                         := o:w                         
       h                         := o:h                         
       nominimize                := o:nominimize                
       nomaximize                := o:nomaximize                
       nosize                    := o:nosize                    
       nosysmenu                 := o:nosysmenu                 
       nocaption                 := o:nocaption                 
       aMin                      := o:aMin                      
       aMax                      := o:aMax                      
       InitProcedure             := o:InitProcedure             
       ReleaseProcedure          := o:ReleaseProcedure          
       MouseDragProcedure        := o:MouseDragProcedure        
       SizeProcedure             := o:SizeProcedure             
       ClickProcedure            := o:ClickProcedure            
       MouseMoveProcedure        := o:MouseMoveProcedure        
       aRGB                      := o:aRGB                      
       PaintProcedure            := o:PaintProcedure            
       noshow                    := o:noshow                    
       topmost                   := o:topmost                   
       main                      := o:main                      
       icon                      := o:icon                      
       child                     := o:child                     
       fontname                  := o:fontname                  
       fontsize                  := o:fontsize                  
       NotifyIconName            := o:NotifyIconName            
       NotifyIconTooltip         := o:NotifyIconTooltip         
       NotifyIconLeftClick       := o:NotifyIconLeftClick       
       GotFocus                  := o:GotFocus                  
       LostFocus                 := o:LostFocus                 
       VirtualHeight             := o:VirtualHeight             
       VirtualWidth              := o:VirtualWidth              
       scrollleft                := o:scrollleft                
       scrollright               := o:scrollright               
       scrollup                  := o:scrollup                  
       scrolldown                := o:scrolldown                
       hscrollbox                := o:hscrollbox                
       vscrollbox                := o:vscrollbox                
       helpbutton                := o:helpbutton                
       MaximizeProcedure         := o:MaximizeProcedure         
       MinimizeProcedure         := o:MinimizeProcedure         
       cursor                    := o:cursor                    
       NoAutoRelease             := o:NoAutoRelease             
       InteractiveCloseProcedure := o:InteractiveCloseProcedure 
       RestoreProcedure          := o:RestoreProcedure          
       MoveProcedure             := o:MoveProcedure             
       DropProcedure             := o:DropProcedure             
       mdi                       := o:mdi                       
       palette                   := o:palette                   
       NotifyIconDblClick        := o:NotifyIconDblClick        
       cPanelParent              := o:cPanelParent              
       panel                     := o:panel                     
       NotifyBalloonClick        := o:NotifyBalloonClick        
       clientwidth               := o:clientwidth               
       clientheight              := o:clientheight              
       o := NIL 
    ENDIF 
    //_!!! --- 
 #endif 
 ... 
    //_!!! 
    IF HB_ISNUMERIC( w ) .and. w > 0 .and. w < 1 
       w := int( GetDesktopWidth() * w ) 
    ENDIF 
    IF HB_ISNUMERIC( h ) .and. h > 0 .and. h < 1 
       h := int( GetDesktopHeight() * h ) 
    ENDIF 
    //_!!! --- 
    IF !ISNUMBER( w ) .AND. !ISNUMBER( h ) 
 ... 
       _HMG_aFormMiscData2  [ k ] := oHmgData()  //_!!! '' 
 ... 
       AAdd ( _HMG_aFormMiscData2, oHmgData() ) //_!!! '' ) 
 ... 
    _SetThisFormInfo ( k ) 
  
    o := _HMG_aFormMiscData2 [ k ]                    //_!!! 
  
    o:nForm   := k 
    o:cForm   := FormName 
    o:hForm   := FormHandle 
    o:cType   := _HMG_aFormType [ k ] 
    o:aBColor := _HMG_aFormBkColor [ k ] 
    o:hParent := _HMG_aFormParentHandle [ k ] 
    o:cParent := "" 
    o:nParent := 0 
    IF !Empty( o:hParent ) 
       o:nParent := GetFormNameByHandle ( o:hParent, @o:cParent ) 
    ENDIF 
  
    IF _HMG_lOOPEnabled 
       Eval ( _HMG_bOnFormInit, k, mVar ) 
 #ifdef _OBJECT_ 
       o := _WindowObj( FormHandle ) 
       IF HB_ISOBJECT( o ) 
          o:cProcFile := ProcFile( 1 ) 
          o:cProcName := ProcName( 1 ) 
          o:nProcLine := ProcLine( 1 ) 
       ENDIF 
 #endif 
    ENDIF 
 ... 
 

 
 METHOD TextWidth( cText, nSize, cFont, lBold, cChar ) CLASS TDlu2Pix 
  
    LOCAL hFont, nWidth, cTxt := "", cTmp 
  
    IF HB_ISARRAY( cText ) 
       FOR EACH cTmp IN cText 
           IF !HB_ISCHAR( cTmp ) ; cTmp := cValToChar( cTmp ) 
           ENDIF 
           IF Len(cTmp) > Len( cTxt ) ; cTxt := cTmp 
           ENDIF 
       NEXT 
       cText := cTxt 
    ENDIF 
    cChar := hb_defaultValue( cChar, 'A' ) 
 ... 
 METHOD Breadth( nW, k ) CLASS TDlu2Pix 
  
    LOCAL nWidth := 0, cW := "", cTmp 
  
    IF    HB_ISARRAY( nW ) 
       FOR EACH cTmp IN nW 
           IF Len(cTmp) > Len( cW ) ; cW := cTmp 
           ENDIF 
       NEXT 
       nW := ::TextWidth( cW ) 
    ELSEIF HB_ISCHAR( nW ) 
       nW := ::TextWidth( nW ) 
    ENDIF 
  
    k := hb_defaultValue( k, 0.5 ) 
 ... 
 

 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _Set_Font_Default( FontName, FontSize, w, h, cText )    //_!!! 
 *-----------------------------------------------------------------------------* 
    LOCAL o := oHmgData(), FontHandle 
  
    Default FontName := hb_defaultValue( FontName, _HMG_DefaultFontName ) 
    IF FontSize == NIL 
       IF ( FontHandle := GetFontHandle( FontName ) ) != 0 
          GetFontParamByRef( FontHandle, @FontName, @FontSize ) 
       ENDIF 
    ENDIF 
    Default FontSize := hb_defaultValue( FontSize, _HMG_DefaultFontSize ) 
    Default cText    := " " 
    o:oDlu           := oDlu2Pixel( , , FontSize ) 
  
    IF  CRLF $ cText ; Default h := Len( hb_ATokens( cText, CRLF ) ) * o:oDlu:H1 
    ELSE             ; Default h := 1 
    ENDIF 
    IF h > 0 .and. h <= 5 ; h := o:oDlu:H( h ) 
    ENDIF 
  
    IF CRLF $ cText ; Default w := o:oDlu:Breadth( hb_ATokens( cText, CRLF ) ) 
    ELSE            ; Default w := 2 
    ENDIF 
    IF w > 0 .and. w <= 5 ; w := o:oDlu:W( w ) 
    ENDIF 
  
    o:FontName := FontName 
    o:FontSize := FontSize 
    o:w := w 
    o:h := h 
  
 RETURN o 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _Set_Cargo_Values( k, lWindow, mVar, ParentFormName )    //_!!! 
 *-----------------------------------------------------------------------------* 
    LOCAL o 
  
    IF !Empty( lWindow )                   // for Windows 
  
       IF !HB_ISOBJECT(_HMG_aFormMiscData2 [ k ] ) 
          _HMG_aFormMiscData2 [ k ] := oHmgData() 
       ENDIF 
  
       o := _HMG_aFormMiscData2 [ k ] 
  
       o:nIndex  := k 
       o:cType   := _HMG_aFormType    [ k ] 
       o:cForm   := _HMG_aFormNames   [ k ] 
       o:nHandle := _HMG_aFormHandles [ k ] 
       o:aBColor := _HMG_aFormBkColor [ k ] 
       o:hParent := _HMG_aFormParentHandle [ k ] 
       o:cParent := "" 
       o:nParent := 0 
       o:mVar    := mVar 
       o:lHandle := IsWindowHandle( o:nHandle ) 
       o:lParent := IsWindowHandle( o:hParent ) 
  
       IF !Empty( o:hParent ) .and. o:lParent 
          o:nParent := GetFormNameByHandle ( o:hParent, @o:cParent ) 
       ENDIF 
  
       Default o:cFontName := _HMG_ActiveFontName 
       Default o:nFontSize := _HMG_ActiveFontSize 
       Default o:oFontDlu  := oDlu2Pixel( , , o:nFontSize ) 
  
    ELSE                                        // for Controls 
  
       o := _HMG_aControlMiscData2 [ k ]  ; Default o := oHmgData() 
  
       o:nIndex  := k 
       o:cType   := _HMG_aControlType [ k ] 
       o:cName   := _HMG_aControlNames    [ k ] 
       o:nHandle := _HMG_aControlHandles  [ k ] 
       o:aBColor := _HMG_aControlBkColor  [ k ]  
       o:aFColor := _HMG_aControlFontColor[ k ] 
       o:hParent := _HMG_aControlParenthandles [ k ] 
       o:cParent := "" 
       o:nParent := 0 
       o:mVar    := mVar 
       o:lHandle := IsWindowHandle( o:nHandle ) 
       o:lParent := IsWindowHandle( o:hParent ) 
  
       IF !Empty( ParentFormName ) 
          o:cParent := ParentFormName 
          o:nParent := GetFormIndex( ParentFormName ) 
       ELSEIF !Empty( o:hParent ) .and. o:lParent 
          o:nParent := GetFormNameByHandle ( o:hParent, @o:cParent ) 
       ENDIF 
  
    ENDIF 
  
 RETURN o 
 ... 
 h_label.prg 
 #include "minigui.ch" 
 #include "i_winuser.ch" 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _CreateLabel ( oControl ) 
 *-----------------------------------------------------------------------------* 
    LOCAL o := oControl, q 
    LOCAL ControlName, ParentFormName, x, y, Caption, w, h,    ; 
          fontname, fontsize, bold, BORDER, CLIENTEDGE, HSCROLL, VSCROLL,  ; 
          TRANSPARENT, aRGB_bk, aRGB_font, ProcedureName, tooltip, HelpId, ; 
          invisible, italic, underline, strikeout, autosize, rightalign,   ; 
          centeralign, blink, mouseover, mouseleave, VCenterAlign,         ; 
          NoPrefix, nId, bInit, dblclick, rclick  
  
    ControlName    := o:ControlName    
    ParentFormName := o:ParentFormName 
    x              := o:x              
    y              := o:y              
    Caption        := o:Caption         
    w              := o:w              
    h              := o:h              
    fontname       := o:fontname       
    fontsize       := o:fontsize       
    bold           := o:bold             
    BORDER         := o:BORDER           
    CLIENTEDGE     := o:CLIENTEDGE       
    HSCROLL        := o:HSCROLL          
    VSCROLL        := o:VSCROLL          
    TRANSPARENT    := o:TRANSPARENT      
    aRGB_bk        := o:aRGB_bk        ; Default aRGB_bk     := o:aBColor 
    aRGB_font      := o:aRGB_font      ; Default aRGB_font   := o:aFColor 
    ProcedureName  := o:ProcedureName  
    tooltip        := o:tooltip        
    HelpId         := o:HelpId         
    invisible      := o:invisible        
    italic         := o:italic           
    underline      := o:underline        
    strikeout      := o:strikeout        
    autosize       := o:autosize        
    rightalign     := o:rightalign       
    centeralign    := o:centeralign      
    blink          := o:blink            
    mouseover      := o:mouseover      
    mouseleave     := o:mouseleave     
    VCenterAlign   := o:VCenterAlign   
    NoPrefix       := o:NoPrefix       
    nId            := o:nId            
    bInit          := o:bInit          
    dblclick       := o:dblclick       
    rclick         := o:rclick         
  
    Default aRGB_bk   := o:aBackColor 
    Default aRGB_font := o:aFontColor 
  
    q := _Set_Font_Default( FontName, FontSize, w, h, Caption ) 
  
    FontName := q:FontName ; w := q:w 
    FontSize := q:FontSize ; h := q:h 
  
    q := _DefineLabel ( ControlName, ParentFormName, x, y, Caption, w, h,    ; 
            fontname, fontsize, bold, BORDER, CLIENTEDGE, HSCROLL, VSCROLL,  ; 
            TRANSPARENT, aRGB_bk, aRGB_font, ProcedureName, tooltip, HelpId, ; 
            invisible, italic, underline, strikeout, autosize, rightalign,   ; 
            centeralign, blink, mouseover, mouseleave, VCenterAlign,         ; 
            NoPrefix, nId, bInit, dblclick, rclick ) 
  
    IF HB_ISOBJECT( q ) 
       q:cProcFile := ProcFile( 1 ) 
       q:cProcName := ProcName( 1 ) 
       q:nProcLine := ProcLine( 1 ) 
       IF !Empty( q:lHandle ) 
          o := _ControlObj( q:nHandle ) 
          o:cProcFile := ProcFile( 1 ) 
          o:cProcName := ProcName( 1 ) 
          o:nProcLine := ProcLine( 1 ) 
       ENDIF 
    ENDIF 
  
 RETURN q 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _DefineLabel ( ControlName, ParentFormName, x, y, Caption, w, h, ; 
       fontname, fontsize, bold, BORDER, CLIENTEDGE, HSCROLL, VSCROLL, ; 
       TRANSPARENT, aRGB_bk, aRGB_font, ProcedureName, tooltip, HelpId, invisible, ; 
       italic, underline, strikeout, autosize, rightalign, centeralign, ; 
       blink, mouseover, mouseleave, VCenterAlign, NoPrefix, nId, bInit, dblclick, rclick ) 
 *-----------------------------------------------------------------------------* 
    LOCAL ParentFormHandle, ControlHandle, FontHandle 
    LOCAL mVar 
    LOCAL k := 0 
    LOCAL Style 
    LOCAL blInit 
    LOCAL lDialogInMemory 
    LOCAL ow, oc, o 
  
    hb_default( @w, 120 ) 
    hb_default( @h, 24 ) 
    __defaultNIL( @ProcedureName, "" ) 
    hb_default( @invisible, .F. ) 
    hb_default( @bold, .F. ) 
    hb_default( @italic, .F. ) 
    hb_default( @underline, .F. ) 
    hb_default( @strikeout, .F. ) 
    hb_default( @VCenterAlign, .F. ) 
    __defaultNIL( @rclick, "" ) 
  
    __defaultNIL( @Caption   , "" ) 
    hb_default( @blink       , .F. ) 
    hb_default( @autosize    , .F. ) 
    hb_default( @border      , .F. ) 
    hb_default( @HSCROLL     , .F. ) 
    hb_default( @VSCROLL     , .F. ) 
    hb_default( @NoPrefix    , .F. ) 
    hb_default( @TRANSPARENT , .F. ) 
    hb_default( @rightalign  , .F. ) 
    hb_default( @centeralign , .F. ) 
    hb_default( @VCenterAlign, .F. ) 
  
    IF ( FontHandle := GetFontHandle( FontName ) ) != 0 
       GetFontParamByRef( FontHandle, @FontName, @FontSize, @bold, @italic, @underline, @strikeout ) 
    ENDIF 
  
    IF _HMG_BeginWindowActive .OR. _HMG_BeginDialogActive 
       ParentFormName := iif( _HMG_BeginDialogActive, _HMG_ActiveDialogName, _HMG_ActiveFormName ) 
       __defaultNIL( @FontName, _HMG_ActiveFontName ) 
       __defaultNIL( @FontSize, _HMG_ActiveFontSize ) 
    ENDIF 
  
    IF _HMG_FrameLevel > 0 .AND. !_HMG_ParentWindowActive 
       x := x + _HMG_ActiveFrameCol [_HMG_FrameLevel] 
       y := y + _HMG_ActiveFrameRow [_HMG_FrameLevel] 
       ParentFormName := _HMG_ActiveFrameParentFormName [_HMG_FrameLevel] 
    ENDIF 
  
    lDialogInMemory := _HMG_DialogInMemory 
  
    IF .NOT. _IsWindowDefined ( ParentFormName ) .AND. .NOT. lDialogInMemory 
       MsgMiniGuiError( "Window: " + IFNIL( ParentFormName, "Parent", ParentFormName ) + " is not defined." ) 
    ENDIF 
  
    IF _IsControlDefined ( ControlName, ParentFormName ) .AND. .NOT. lDialogInMemory 
       MsgMiniGuiError ( "Control: " + ControlName + " Of " + ParentFormName + " Already defined." ) 
    ENDIF 
  
    IF ISARRAY ( Caption ) 
       mVar := '' 
       AEval ( Caption, {|v| mVar += cValToChar ( v ) } ) 
       Caption := mVar 
    ELSEIF ISBLOCK ( Caption ) 
       Caption := cValToChar ( Eval ( Caption ) ) 
    ELSE 
       Caption := cValToChar ( Caption ) 
    ENDIF 
  
    mVar := '_' + ParentFormName + '_' + ControlName 
    k := _GetControlFree() 
  
    IF _HMG_BeginDialogActive 
  
       ParentFormHandle := _HMG_ActiveDialogHandle 
  
       Style := WS_CHILD + SS_NOTIFY 
  
       IF border 
          Style += WS_BORDER 
       ENDIF 
  
       IF !invisible 
          Style += WS_VISIBLE 
       ENDIF 
  
       IF HSCROLL 
          Style += WS_HSCROLL 
       ENDIF 
  
       IF VSCROLL 
          Style += WS_VSCROLL 
       ENDIF 
  
       IF rightalign 
          Style += ES_RIGHT 
       ENDIF 
  
       IF centeralign 
          Style += ES_CENTER 
       ENDIF 
  
       IF VCenterAlign 
          Style += SS_CENTERIMAGE 
       ENDIF 
  
       IF lDialogInMemory         //Dialog Template 
  
          //          {{'ID',k/hwnd,class,Style,ExStyle,x,y,w,h,caption,HelpId,tooltip,font,size, bold, italic, underline, strikeout}}  --->_HMG_aDialogItems 
          blInit := {|x, y, z| InitDialogLabel( x, y, z ) } 
          AAdd( _HMG_aDialogItems, { nId, k, "static", style, 0, x, y, w, h, caption, HelpId, tooltip, FontName, FontSize, bold, italic, underline, strikeout, blInit, _HMG_BeginTabActive, .F. , _HMG_ActiveTabPage } ) 
  
       ELSE 
  
          ControlHandle := GetDialogItemHandle ( ParentFormHandle, nId ) 
  
          x := GetWindowCol ( Controlhandle ) 
          y := GetWindowRow ( Controlhandle ) 
          w := GetWindowWidth  ( Controlhandle ) 
          h := GetWindowHeight ( Controlhandle ) 
  
          IF caption != NIL 
             SetWindowText ( ControlHandle , caption ) 
          ENDIF 
  
          SetWindowStyle ( ControlHandle, Style, .T. ) 
  
       ENDIF 
  
    ELSE 
  
       ParentFormHandle := GetFormHandle ( ParentFormName ) 
  
       Controlhandle := InitLabel ( ParentFormHandle, Caption, 0, x, y, w, h, '', ( ISBLOCK( ProcedureName ) .OR. ISBLOCK( dblclick ) .OR. ISBLOCK( rclick ) .OR. ISSTRING( tooltip ) ), ( ISBLOCK( mouseover ) .OR. ISBLOCK( mouseleave ) ) , border , clientedge , HSCROLL , VSCROLL , TRANSPARENT , invisible , rightalign , centeralign , VCenterAlign , NoPrefix ) 
  
    ENDIF 
  
    IF .NOT. lDialogInMemory 
  
       IF FontHandle != 0 
          _SetFontHandle( ControlHandle, FontHandle ) 
       ELSE 
          __defaultNIL( @FontName, _HMG_DefaultFontName ) 
          __defaultNIL( @FontSize, _HMG_DefaultFontSize ) 
          FontHandle := _SetFont ( ControlHandle, FontName, FontSize, bold, italic, underline, strikeout ) 
       ENDIF 
  
       IF _HMG_BeginTabActive 
          AAdd ( _HMG_ActiveTabCurrentPageMap , Controlhandle ) 
       ENDIF 
  
       IF tooltip != NIL 
          SetToolTip ( ControlHandle , tooltip , GetFormToolTipHandle ( ParentFormName ) ) 
       ENDIF 
  
    ENDIF 
  
 #ifdef _NAMES_LIST_ 
    _SetNameList( mVar , k ) 
 #else 
    Public &mVar. := k 
 #endif 
  
    _HMG_aControlType [k] :=  "LABEL" 
    _HMG_aControlNames  [k] :=  ControlName 
    _HMG_aControlHandles  [k] :=  ControlHandle 
    _HMG_aControlParenthandles  [k] :=  ParentFormHandle 
    _HMG_aControlIds  [k] :=  nId 
    _HMG_aControlProcedures  [k] :=  ProcedureName 
    _HMG_aControlPageMap  [k] :=  {} 
    _HMG_aControlValue [k] :=   Nil 
    _HMG_aControlInputMask  [k] :=  transparent 
    _HMG_aControllostFocusProcedure  [k] :=  mouseleave 
    _HMG_aControlGotFocusProcedure [k] :=  mouseover 
    _HMG_aControlChangeProcedure  [k] :=  rclick 
    _HMG_aControlDeleted  [k] :=  .F. 
    _HMG_aControlBkColor  [k] :=  aRGB_bk 
    _HMG_aControlFontColor  [k] :=  aRGB_font 
    _HMG_aControlDblClick   [k] :=  _HMG_ActiveTabButtons 
    _HMG_aControlHeadClick  [k] :=  dblclick 
    _HMG_aControlRow  [k] :=  y 
    _HMG_aControlCol  [k] :=  x 
    _HMG_aControlWidth  [k] :=  w 
    _HMG_aControlHeight   [k] :=  h 
    _HMG_aControlSpacing  [k] :=  iif ( autosize == .T. , 1 , 0 ) 
    _HMG_aControlContainerRow  [k] :=  iif ( _HMG_FrameLevel > 0 , _HMG_ActiveFrameRow [_HMG_FrameLevel] , -1 ) 
    _HMG_aControlContainerCol  [k] :=  iif ( _HMG_FrameLevel > 0 , _HMG_ActiveFrameCol [_HMG_FrameLevel] , -1 ) 
    _HMG_aControlPicture  [k] :=  "" 
    _HMG_aControlContainerHandle  [k] :=  0 
    _HMG_aControlFontName  [k] :=  fontname 
    _HMG_aControlFontSize  [k] := fontsize 
    _HMG_aControlFontAttributes  [k] :=  { bold, italic, underline, strikeout } 
    _HMG_aControlToolTip  [k] :=  tooltip 
    _HMG_aControlRangeMin [k] :=  iif ( _HMG_FrameLevel > 0 , _HMG_ActiveTabName , '' ) 
    _HMG_aControlRangeMax [k] :=  iif ( _HMG_FrameLevel > 0 , _HMG_ActiveFrameParentFormName [_HMG_FrameLevel] , '' ) 
    _HMG_aControlCaption  [k] :=  Caption 
    _HMG_aControlVisible  [k] :=  iif( invisible, FALSE, TRUE ) 
    _HMG_aControlHelpId  [k] :=  HelpId 
    _HMG_aControlFontHandle  [k] :=  FontHandle 
    _HMG_aControlBrushHandle   [k] :=  0 
    _HMG_aControlEnabled   [k] :=  .T. 
    _HMG_aControlMiscData1 [k] :=  { 0, blink, .T. } 
    _HMG_aControlMiscData2 [k] :=  oHmgData()  //_!!! '' 
  
    IF blink == .T. .AND. .NOT. lDialogInMemory 
       _DefineTimer ( 'BlinkTimer' + hb_ntos( k ) , ParentFormName , 500 , {|| _HMG_aControlMiscData1 [k] [3] := ! _HMG_aControlMiscData1 [k] [3], ; 
          iif( _HMG_aControlMiscData1 [k] [3] == .T. , _ShowControl ( ControlName , ParentFormName ), _HideControl ( ControlName , ParentFormName ) ) } ) 
    ENDIF 
  
    IF autosize == .T. .AND. .NOT. lDialogInMemory 
       _SetControlWidth ( ControlName , ParentFormName , GetTextWidth( NIL, Caption, FontHandle ) + ; 
          iif( bold == .T. .OR. italic == .T., GetTextWidth( NIL, " ", FontHandle ), 0 ) ) 
       _SetControlHeight ( ControlName , ParentFormName , FontSize + iif( FontSize < 14, 12, 16 ) ) 
    ENDIF 
  
    oc := _Set_Cargo_Values( k, .F., mVar, ParentFormName )    //_!!! 
  
    oc:cProcFile := ProcFile( 1 ) 
    oc:cProcName := ProcName( 1 ) 
    oc:nProcLine := ProcLine( 1 ) 
  
    IF _HMG_lOOPEnabled 
       Eval ( _HMG_bOnControlInit, k, mVar ) 
       ow := _WindowObj ( ParentFormHandle ) 
       o  := _ControlObj( ControlHandle ) 
       IF HB_ISOBJECT ( o ) 
          o:cProcFile := ProcFile( 1 ) 
          o:cProcName := ProcName( 1 ) 
          o:nProcLine := ProcLine( 1 ) 
       ENDIF 
    ENDIF 
  
    Do_ControlEventProcedure ( bInit, k, ow, o ) 
  
 RETURN oc    // Cargo 
 ... 
 

 
 * Fixed: The program crashed when using the HMG_SetMenuTheme() function 
        along with a transparent label on the form (introduced in the 
        build 19.10). 
  
 * New: Added the useful function HMG_GetAllFonts( [ lObj ] ) to get an 
        array of font names and parameters that were defined with 
        DEFINE FONT <font> FONTNAME <name> ... command. 
  
 * Enhanced: Added the optional 3rd and 4th parameters in the ExtractIconEx() 
        function for extraction the ICON of a resource ID from exe or dll. 
        Syntax: 
        ExtractIconEx( cResName, nItem [, nX ] [, nY ] ) => { hIcon, nId }, 
        where nX and xY are the icon sizes in pixels (32x32 by default). 
  
 * Updated: Improved object error logging using the _o2Log() function. 
  
 * Updated the Harbour Compiler 3.2, SQLRDD and Sqlite libraries. 
  
 * Added new and updated some Basic and Advanced samples.