METHOD Edit( uVar, nCell, nKey, nKeyFlags, cPicture, bValid, nClrFore, ; 
 ... 
       If nKey != VK_RETURN .or. ( ! oCol:lCheckBoxNoReturn .or. !Empty(::lCheckBoxAllReturn) ) 
 ... 
 CLASS TSBrowse 
    DATA lCheckBoxAllReturn    INIT .F. 
 

 
           @ 230, 50 IMAGE Image_Warning PARENT Form_Calc   ; 
             PICTURE 'Warning128' WIDTH 128 HEIGHT 128      ; 
             STRETCH TRANSPARENT BACKGROUNDCOLOR aBackColor INVISIBLE

h_controlmisc.prg line 4025 
 CASE Arg3 == "BACKCOLOR" .OR. Arg3 == "GRADIENTOVER" .OR. Arg3 == "BACKGROUNDCOLOR" 
 добавь и пересобери libу 

 
 h_controlmisc.prg line 4025  
  CASE Arg3 == "BACKCOLOR" .OR. Arg3 == "GRADIENTOVER" .OR. Arg3 == "BACKGROUNDCOLOR" 

 
 /*   
    IF _HMG_lOOPEnabled 
       Eval ( _HMG_bOnControlInit, k, mVar ) 
 #ifdef _OBJECT_ 
       ow := _WindowObj ( ParentFormHandle ) 
       oc := _ControlObj( ControlHandle ) 
 #endif 
    ENDIF 
 */ 
    Do_ControlEventProcedure ( bInit, k, ow, oc ) 
  
 RETURN Nil 
 

 
 METHOD Destroy() CLASS TSBrowse 
 ... 
 вместо 
    If ::aSortBmp != Nil 
       DeleteObject ( ::aSortBmp[ 1 ] ) 
       DeleteObject ( ::aSortBmp[ 2 ] ) 
    EndIf 
  
    If ::aCheck != Nil 
       DeleteObject ( ::aCheck[ 1 ] ) 
       DeleteObject ( ::aCheck[ 2 ] ) 
    EndIf 
 так 
    If Valtype( ::aSortBmp ) == "A" .and. ! Empty( ::aSortBmp ) 
       AEval( ::aSortBmp, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
    EndIf 
  
    If Valtype( ::aCheck ) == "A" .and. ! Empty( ::aCheck ) 
       AEval( ::aCheck, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
    EndIf 
 Картинок можно больше складывать и на ходу менять по ситуевинам разным  
  
 

 
    DATA   lDestroyAll   AS LOGICAL INIT .F.          // flag to destroy all bitmap created LoadImage(...) 
 ... 
 METHOD Destroy() CLASS TSBrowse 
  
    Local oCol 
  
    Default ::lDestroy := .F. 
  
    If ::uBmpSel != Nil .and. ::lDestroy 
       DeleteObject ( ::uBmpSel ) 
    EndIf 
  
    If ::hBrush != Nil   // Alen Uzelac 13.09.2012 
       DeleteObject ( ::hBrush ) 
    EndIf 
  
    If ::oCursor != Nil  // GF 29.02.2016 
       ::oCursor:End() 
    EndIf 
  
    If ::hBmpCursor != Nil 
       DeleteObject ( ::hBmpCursor ) 
    EndIf 
  
    If Valtype( ::aSortBmp ) == "A" .and. ! Empty( ::aSortBmp ) 
       AEval( ::aSortBmp, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
    EndIf 
  
    If Valtype( ::aCheck ) == "A" .and. ! Empty( ::aCheck ) 
       AEval( ::aCheck, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
    EndIf 
  
    If Len( ::aColumns ) > 0 
       FOR EACH oCol IN ::aColumns 
          If Valtype( oCol:aCheck ) == "A" 
             AEval( oCol:aCheck, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
          EndIf 
          If Valtype( oCol:aBitMaps ) == "A" 
             AEval( oCol:aBitMaps, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
          EndIf 
          If ! ::lDestroyAll 
             LOOP 
          EndIf 
          If ! Empty( oCol:uBmpCell )  .and. ! HB_ISBLOCK( oCol:uBmpCell ) 
             DeleteObject( oCol:uBmpCell ) 
          EndIf 
          If ! Empty( oCol:uBmpHead )  .and. ! HB_ISBLOCK( oCol:uBmpHead ) 
             DeleteObject( oCol:uBmpHead ) 
          EndIf 
          If ! Empty( oCol:uBmpSpcHd ) .and. ! HB_ISBLOCK( oCol:uBmpSpcHd ) 
             DeleteObject( oCol:uBmpSpcHd ) 
          EndIf 
          If ! Empty( oCol:uBmpFoot )  .and. ! HB_ISBLOCK( oCol:uBmpFoot )  
             DeleteObject( oCol:uBmpFoot ) 
          EndIf 
       Next 
    EndIf 
  
    If ::lDestroyAll 
       If Valtype( ::aSuperHead ) == "A" .and. ! Empty( ::aSuperHead ) 
          AEval( ::aSuperHead, {|a| If( Empty(a[8]) .or. HB_ISBLOCK(a[8]), , DeleteObject( a[8] ) ) } ) 
       EndIf 
    EndIf 
  
    If Valtype( ::aBitMaps ) == "A" .and. ! Empty( ::aBitMaps ) 
       AEval( ::aBitMaps, {|hBmp| If( Empty( hBmp ), , DeleteObject( hBmp ) ) } ) 
    EndIf 
 #ifndef _TSBFILTER7_ 
    If ::lFilterMode 
       ::lFilterMode := .F. 
       If Select( ::cAlias ) != 0 
          ::SetFilter() 
       EndIf 
    EndIf 
 #endif 
    ::hWnd := 0 
  
 Return 0 
 

          cObj := "GetBox_Dolg" + HB_NtoS(nI) 
           @ nRowGet, nColGet GETBOX &cObj VALUE aSumma[nI] ; 
             PICTURE "@Z 99999.99" ; 
             ..... 
             ON CHANGE { || DolgGetBoxChange(aSumma) } 
  
           SetProperty( ThisWindow.Name, cObj, "Cargo", nI )

Т.е. сохраняется АКТИВНОЕ местоположение КУРСОРА в GetBox.

Ошибка оказывается появилась давно.
В версии 18.11 ошибка тоже появляется. Ниже протестировать пока не удалось.
Очень срочно нужна помощь.... Что делать мне ?

 
          IF .NOT. _IsControlDefined ( Arg2 , Arg1 ) 
             MsgMiniGuiError ( "Control: " + Arg2 + " Of " + Arg1 + " Not defined." ) 
          ENDIF 
 

 
 FUNCTION GetProperty ( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 ) 
 ... line 8584 
 /*         IF .NOT. _IsControlDefined ( Arg2 , Arg1 ) 
             MsgMiniGuiError ( "Control: " + Arg2 + " Of " + Arg1 + " Not defined." ) 
          ENDIF */ 
 

#endif 
       IF ( Upper( Arg2 ) == "VSCROLLBAR" .OR. Upper( Arg2 ) == "HSCROLLBAR" ) 
          IF .NOT. _IsWindowDefined ( Arg1 ) 
             MsgMiniGuiError ( "Window: " + Arg1 + " is not defined." ) 
          ENDIF 
       ELSE 
          IF .NOT. _IsControlDefined ( Arg2 , Arg1 ) 
             MsgMiniGuiError ( "Control: " + Arg2 + " Of " + Arg1 + " Not defined. 4585 !!!" ) 
          ENDIF 
       ENDIF

/* IF .NOT. _IsControlDefined ( Arg2 , Arg1 ) 
             MsgMiniGuiError ( "Control: " + Arg2 + " Of " + Arg1 + " Not defined. 4585 !!!" ) 
          ENDIF */

      aObj2But[12,12] := { || SetProperty(cForm, This.Name, "Enabled", .F.) ,; 
                               DogListAbon(cForm, "nTable","","","")         ,; 
                               MsgDebug( "Проверка выхода", cForm )          ,; 
                               MsgDebug( ThisWindow.Name, This.Name )        ,; 
                               SetProperty(cForm, This.Name, "Enabled", .T.) ,; 
                               Brw4Focus(nTable) }   // строка 2273

 
       aObj2But[12,12] := { || SetProperty(cForm, This.Name, "Enabled", .F.)     ,; 
                               DogListAbon(cForm, "nTable","","","")             ,; 
                               SetProperty(cForm, "oBut_SpAbon", "Enabled", .T.) ,; 
                               Brw4Focus(nTable) } 

 
        aObj2But[12,12] := { |cw,cn| cw := ThisWindow.Name, cn := This.Name, ; 
                                SetProperty(cw, cn, "Enabled", .F.)        , ;  
                                DogListAbon(cw, "nTable","","","")         , ;  
                                SetProperty(cw, cn, "Enabled", .T.)        , ;  
                                Brw4Focus(nTable) }  
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION _ThisInfo( aThis ) 
 *-----------------------------------------------------------------------------* 
  
    IF HB_ISARRAY( aThis ) 
  
       _HMG_ThisFormIndex   := aThis [1] 
       _HMG_ThisEventType   := aThis [2] 
       _HMG_ThisType        := aThis [3] 
       _HMG_ThisIndex       := aThis [4] 
       _HMG_ThisFormName    := aThis [5] 
       _HMG_ThisControlName := aThis [6] 
  
       RETURN NIL 
  
    ENDIF 
  
 RETURN { _HMG_ThisFormIndex, _HMG_ThisEventType, _HMG_ThisType, _HMG_ThisIndex, _HMG_ThisFormName, _HMG_ThisControlName } 
  
 то твой блок будет выглядеть так 
  
        aObj2But[12,12] := { |at| at := _ThisInfo(), ; 
                                  This.Name.Enabled := .F., ; 
                                  DogListAbon(cw, "nTable","","",""), ;  
                                 _ThisInfo(at), ; 
                                  This.Name.Enabled := .T., ; 
                                  Brw4Focus(nTable) }  
  
 

 
         aObj2But[12,12] := { |at| at := _ThisInfo(), ;  
                                   This.Enabled := .F., ;  
                                   DogListAbon(cw, "nTable","","",""), ; 
                                  _ThisInfo(at), ;  
                                   This.Enabled := .T., ;  
                                   Brw4Focus(nTable) }   
 

 
          aObj2But[12,12] := { |at| at := _ThisInfo(), This.Enabled := .F., ;   
                                           DogListAbon(ThisWindow.Name, "nTable","","",""), ;  
                                          _ThisInfo(at),  This.Enabled := .T., ;   
                                           Brw4Focus(nTable) }    
  

 
 FUNCTION HMG_GetForms( cTyp, lObj ) 
    LOCAL i, o, lTyp, lHand, aNames:={} 
  
    cTyp  := iif( HB_ISCHAR( cTyp ), Upper(cTyp), '' ) 
    lHand := iif( HB_ISLOGICAL( lObj ), ! lObj, .F. ) 
    lObj  := _HMG_lOOPEnabled .and. ! empty(lObj) 
    
    FOR i := 1 TO Len( _HMG_aFormNames ) 
    
        IF _HMG_aFormDeleted [ i ]; LOOP 
        ENDIF 
    
        IF ( lTyp := iif( Empty(cTyp), .T., _HMG_aFormType [ i ] $ cTyp ) ) 
    
           If lHand 
              AAdd(aNames, _HMG_aFormHandles [ i ] )  
 #ifdef _OBJECT_ 
           ElseIf lObj 
              o := do_obj( _HMG_aFormHandles [ i ] ) 
              If HB_ISOBJECT( o ) 
                 AAdd(aNames, o) 
              EndIf 
 #endif 
           Else 
              AAdd(aNames, _HMG_aFormNames [ i ] )  
           EndIf 
    
        ENDIF 
    
    NEXT 
  
 RETURN aNames 
 

 
    ACCESS Title         INLINE GetWindowText ( ::nHandle ) 
    ASSIGN Title( cVal ) INLINE SetWindowText ( ::nHandle, cVal ) 
    ACCESS Enabled         INLINE IsWindowEnabled( ::nHandle ) 
    ASSIGN Enabled( xVal ) INLINE iif ( Empty( xVal ), DisableWindow ( ::nHandle ), EnableWindow ( ::nHandle ) ) 
 

 
 /* 
 */ 
  
 #define _HMG_OUTLOG 
  
 #include "hmg.ch" 
  
 PROCEDURE main 
  
    LOCAL cActiveFormName := 'Form_2' 
    
    SET OOP ON 
  
    DEFINE WINDOW Form_1 ; 
       AT 0, 0 ; 
       WIDTH 640 HEIGHT 480 ; 
       TITLE 'Main Window'; 
       MAIN 
  
    DEFINE MAIN MENU 
       POPUP 'Child Window' 
          ITEM 'Open Win 2' ACTION {|| DoWindow2() } 
       END POPUP 
    END MENU 
  
    DEFINE BUTTON B_OK 
       ROW    20 
       COL    30 
       WIDTH  100 
       HEIGHT 28 
       ACTION Msgbox( 'OK' ) 
       CAPTION "OK" 
    END BUTTON 
  
 //   DEFINE TIMER T_1 INTERVAL 250 ACTION SetProperty( ThisWindow.Name, "Enabled", ( _IsWindowActive( cActiveFormName ) == .F. ) ) 
  
    END WINDOW 
  
    CENTER WINDOW Form_1 
    ACTIVATE WINDOW Form_1 
  
 RETURN 
  
 ***************************************************************************** 
 PROCEDURE DoWindow2() 
  
 //   LOCAL cActiveFormName := 'Form_3' 
    LOCAL cOwnerFormName := ThisWindow.Name, cOwnerFormTitle := ThisWindow.Title 
    LOCAL oWnd := ThisWindow.Object 
    LOCAL cTit := oWnd:Title 
  
    DEFINE WINDOW Form_2 ; 
       AT App.Row + 30, App.Col + 30 ; 
       WIDTH 600 HEIGHT 400 ; 
       TITLE 'Win 2' ; 
       CHILD ; 
       ON INIT    ( oWnd:Title := cTit + " - Disabled", oWnd:Enabled := .F. ) ; 
       ON RELEASE ( oWnd:Enabled := .T., oWnd:Title := cTit, oWnd:SetFocus() ) 
 /* 
       ON INIT ( SetProperty( cOwnerFormName, "Title", cOwnerFormTitle + " - Disabled" ) ) ; 
       ON RELEASE ( SetProperty( cOwnerFormName, "Title", cOwnerFormTitle ) ) ; 
 */ 
       @ 20, 40 BUTTON Button_2 caption 'Child Win 3' WIDTH 100 HEIGHT 28 ACTION {|| DoWindow3() } 
  
 //   DEFINE TIMER T_1 INTERVAL 250 ACTION SetProperty( ThisWindow.Name, "Enabled", ( _IsWindowActive( cActiveFormName ) == .F. ) ) 
  
    END WINDOW 
  
    ACTIVATE WINDOW Form_2 
  
 RETURN 
  
 ***************************************************************************** 
 PROCEDURE DoWindow3() 
  
 //   LOCAL cOwnerFormName := ThisWindow.Name, cOwnerFormTitle := ThisWindow.Title 
    LOCAL oWnd := ThisWindow.Object 
    LOCAL cTit := oWnd:Title 
  
    DEFINE WINDOW Form_3 ; 
       AT App.Row + 60, App.Col + 60 ; 
       WIDTH 600 HEIGHT 400 ; 
       TITLE 'Win 3' ; 
       CHILD ; 
       ON INIT    ( oWnd:Title := cTit + " - Disabled", oWnd:Enabled := .F. ) ; 
       ON RELEASE ( oWnd:Enabled := .T., oWnd:Title := cTit, oWnd:SetFocus() ) 
 /*   
       ON INIT ( SetProperty( cOwnerFormName, "Title", cOwnerFormTitle + " - Disabled" ) ) ; 
       ON RELEASE ( SetProperty( cOwnerFormName, "Enabled", .T. ), SetProperty( cOwnerFormName, "Title", cOwnerFormTitle ), ; 
          DoMethod( cOwnerFormName, "setFocus" ) ) 
 */ 
    @ 50, 100 BUTTON Button_2 caption 'OK' WIDTH 100 HEIGHT 28 ACTION {|| MsgBox( 'OK' ) } 
  
    END WINDOW 
  
    ACTIVATE WINDOW Form_3 
  
 RETURN 
 

   ?  ThisWindow.Name, _HMG_ThisFormName, cStaticGlobalForm 
 возвращает:   
    Form_Main	Form_Main	Form_AYC	

 
       WHILE _IsWindowDefined( cForm := cFrm+'_'+hb_ntos(++nFrm) ) 
       ENDDO 
 

 
 Выполнение основного тела блока кода  перенести на событие приложения, т.е. 
 FUNCTION Main(...) 
 ... 
    SetsEnv() 
  
    WITH OBJECT oDlu2Pixel() 
    :Event( 1, {|| AEval(_ThisInfo(), {|xv,nv| _LogFile(.T., nv, cValToChar(xv)) }), ; 
                   SetProperty('Form_Main', 'Timer_1', 'Enabled', .T.) }) 
    END WITH 
 ... 
    DEFINE WINDOW Form_Main AT nY, nX WIDTH nW HEIGHT nH ; 
 ... 
         DEFINE TIMER Timer_1 INTERVAL 2000  ACTION ( This.Enabled := .F., oDlu2Pixel():Post(1) ) 
  
    END WINDOW 
 ... 
 

 
     WITH OBJECT oDlu2Pixel()  
     :Event( 1, {|| SetProperty('Form_Main', 'Timer_1', 'Enabled', .F.) ; 
                    AEval(_ThisInfo(), {|xv,nv| _LogFile(.T., nv, cValToChar(xv)) }), ;  
                    SetProperty('Form_Main', 'Timer_1', 'Enabled', .T.) })  
     END WITH  
  ...  
     DEFINE WINDOW Form_Main AT nY, nX WIDTH nW HEIGHT nH ;  
  ...  
          DEFINE TIMER Timer_1 INTERVAL 2000  ACTION oDlu2Pixel():Post(1) ) 
 

 
 #xcommand DEFINE TBROWSE <name> OBJ <obrw> ; 
 ... 
        [ ON INIT <bInit> ] ; 
 ... 
     =>; 
 <obrw> :=_DefineTBrowse (<"name"> ,    ; 
 ... 
        [ <.lAutoCol.> ], [ \{<aColSel>\} ], ; 
          <bInit> );; // так лучше, по мне, чем <{bInit}> 
        with object <obrw> 
 ... 
 

 
 *-----------------------------------------------------------------------------* 
 STAT FUNC Brw_Age( nY, nX, nW, nH ) 
 *-----------------------------------------------------------------------------* 
    LOCAL cBrw   := This.E0.Cargo 
    LOCAL aFont  := { GetFontHandle('FontBold'), GetFontHandle('FontBold') } 
    LOCAL aClr   := {} 
    LOCAL aDatos := AgeSelect(.T.)                                     // Init value 
    LOCAL oBrw 
    LOCAL bInit  := {|ob| Brw_Init(ob) } , ; 
          bEnd   := {|ob| Brw_End (ob) } 
 ... 
 

 
 #xcommand DEFINE TBROWSE <name> ; 
 ... 
 #xcommand DEFINE TBROWSE <name> OBJ <obrw> ; 
 ... 
        [ <.lAutoCol.> ], [ \{<aColSel>\} ], ; 
          iif( Valtype( <bInit> ) == 'B', <bInit>, <{bInit}> ) );; 
        with object <obrw> 
 ... 
 и 
 #command END TBROWSE ; 
        [ ON END <bInit> ] ; 
    =>; 
        _EndTBrowse ( iif( Valtype( <bInit> ) == 'B', <bInit>, <{bInit}> ) );; 
        end with 
 

 
 *-----------------------------------------------------------------------------* 
 STAT FUNC Brw_Age( nY, nX, nW, nH ) 
 *-----------------------------------------------------------------------------* 
 ... 
    LOCAL bInit  := {|| Brw_Age_Init() }  
    LOCAL bEnd   := {|| Brw_Age_End () }  
  
 *-----------------------------------------------------------------------------* 
 STATIC FUNC Brw_Age_Init() 
 *-----------------------------------------------------------------------------* 
  
    WITH OBJECT (This.Object):Tsb 
 ... 
 *-----------------------------------------------------------------------------* 
 STATIC FUNC Brw_Age_End() 
 *-----------------------------------------------------------------------------* 
  
    WITH OBJECT (This.Object):Tsb 
 ... 
 и 
    DEFINE TBROWSE &cBrw OBJ oBrw AT nY, nX WIDTH nW HEIGHT nH CELL ; 
           COLORS aColor ON INIT  Eval( bInit ) 
 ... 
    END TBROWSE ON END Eval( bEnd ) 
 

 
 ... 
 	DEFINE WINDOW &cWnd AT 0,0 WIDTH 980 HEIGHT 650 ; 
 ... 
       WITH OBJECT This.Object 
       :StatusBar:Say(MiniGUIVersion(), 3) 
       :Event(  1, {|ow,ky,ap| AgeReport(ow, ky, ap) } ) 
       :Event( 91, {|oc      | Brw_Age_Init(oc:Tsb)  } ) 
       :Event( 92, {|oc      | Brw_Age_End (oc:Tsb)  } ) 
       :Event( 99, {|ow      | ow:Release()          } ) 
       END WITH                 
 ... 
 *-----------------------------------------------------------------------------* 
 STATIC FUNC Brw_Age_Init( oBrw ) 
 *-----------------------------------------------------------------------------* 
    DEFAULT oBrw := (This.Object):Tsb 
  
    WITH OBJECT oBrw 
 ... 
 *-----------------------------------------------------------------------------* 
 STATIC FUNC Brw_Age_End( oBrw ) 
 *-----------------------------------------------------------------------------* 
    DEFAULT oBrw := (This.Object):Tsb 
  
    WITH OBJECT oBrw 
 ... 
    DEFINE TBROWSE &cBrw OBJ oBrw AT nY, nX WIDTH nW HEIGHT nH CELL ; 
           COLORS aColor ON INIT  _wPost( 91, This.Index ) 
           DO EVENTS    
 ... 
    END TBROWSE ON END _wPost( 92, This.Index ) 
        DO EVENTS 
 

 
       WITH OBJECT This.Object 
       :StatusBar:Say(MiniGUIVersion(), 3) 
       :Event(  1, {|ow,ky,ap| AgeReport(ow, ky, ap) } ) 
       :Event( 91, {|oc      | Brw_Age_Init(oc:Tsb)  } ) 
       :Event( 92, {|oc      | Brw_Age_End (oc:Tsb)  } ) 
       :Event( 93, {|oc      | Brw_Age_Body(oc:Tsb)  } ) 
       :Event( 99, {|ow      | ow:Release()          } ) 
       END WITH                 
 ... 
 *-----------------------------------------------------------------------------* 
 STATIC FUNC Brw_Age_Body( oBrw ) 
 *-----------------------------------------------------------------------------* 
  
    WITH OBJECT oBrw 
  
 // эти строки перенесены из функции Brw_Age_Init(...) для примера 
    :nHeightCell  += 5 
    :nHeightHead  := :nHeightCell + 2 
    :nHeightFoot  := :nHeightCell + 2   
  
    END WITH 
  
 RETURN Nil 
 ... 
    DEFINE TBROWSE &cBrw OBJ oBrw AT nY, nX WIDTH nW HEIGHT nH CELL ; 
           COLORS aColor ON INIT  _wPost( 91, This.Index ) 
           DO EVENTS    
  
       :SetArrayTo(aArray, aFont, aHead, aSize, aFoot, aPict, aAlign, aName) 
  
        AEval(:aColumns,  {|oc| oc:lEmptyValToChar := .T., oc:lFixLite := .T. }) 
  
        _wSend( 93, GetControlIndex( :cControlName, :cParentWnd ) ) 
  
          If lAdj 
       :AdjColumns() 
          EndIf 
  
       :ResetVScroll( .T. ) 
       :oHScroll:SetRange(0,0) 
                       
    END TBROWSE ON END _wPost( 92, This.Index ) 
        DO EVENTS 
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION _GetCaption ( ControlName , ParentForm ) 
 *-----------------------------------------------------------------------------* 
    LOCAL cRetVal As String 
    LOCAL i 
  
    IF ( i := GetControlIndex ( ControlName , ParentForm ) ) > 0 
  
       IF _HMG_aControlType [ i ] == 'TOOLBAR' .OR. _HMG_aControlType [ i ] == 'TOOLBUTTON' .OR. ; 
          _HMG_aControlType [ i ] == 'MENU'    .OR. _HMG_aControlType [ i ] == 'RADIOGROUP' 
 ... 
 RETURN cRetVal 
 

 
 METHOD cTextSupHdGet( nCol, aSuperHead, cText ) CLASS TSBrowse 
  
    LOCAL xDef := '', xVal 
    Default nCol := 1, aSuperHead := ::aSuperHead 
     
    If nCol > 0 .and. nCol <= Len( aSuperHead ) 
       xVal := ::GetValProp( aSuperHead[ nCol, 3 ], xDef, nCol ) 
       If HB_ISCHAR(cText) 
          ::aSuperHead[ nCol, 3 ] := cText 
       EndIf 
    EndIf 
  
    If xVal == Nil; xVal := xDef 
    EndIf 
  
 RETURN xVal 
 

 
           :nCell := nCol 
 //          :Refresh() 
           If nPos > 1 
 

 
    DEFINE WINDOW &cForm WIDTH 0 HEIGHT 0 TITLE cTitle MODAL NOSIZE BACKCOLOR aBackColor ; 
       ON INTERACTIVECLOSE ( lPressButton .OR. lClosable ) ; 
       ON RELEASE iif( ! lPressButton .AND. lClosable, _HMG_ModalDialogReturn := 0, NIL ) 
  
       FillDlg( cMsg, aOptions, nLineas, cIcoFile, nIcoSize, aBtnColors, bInit, lClosable ) 
  
    END WINDOW 
  
 //   ACTIVATE WINDOW &cForm ON INIT FillDlg( cMsg, aOptions, nLineas, cIcoFile, nIcoSize, aBtnColors, bInit, lClosable ) 
    ACTIVATE WINDOW &cForm  
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION HMG_RGB2n( p1, p2, p3 ) 
 *-----------------------------------------------------------------------------* 
  
    If     HB_ISARRAY  ( p1 ); RETURN RGB( p1[1], p1[2], p1[3] ) 
    ElseIf HB_ISNUMERIC( p2 ); RETURN RGB( p1   , p2   , p3    ) 
    EndIf 
  
 RETURN p1 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION HMG_n2RGB( nColor ) 
 *-----------------------------------------------------------------------------* 
 RETURN { GetRed( nColor ), GetGreen( nColor ), GetBlue( nColor ) } 
 

 
    LOCAL aClr   := {} 
  
    AAdd( aClr, { CLR_FOCUSB, { |a,b,c| iif( c:nCell == b,      ;     // CLR_FOCUSB 
                { HMG_RGB2n( 66, 255, 236), HMG_RGB2n(209, 227, 248) }, ; 
                { HMG_RGB2n(220, 220, 220), HMG_RGB2n(220, 220, 220) } ) } } )  
    AAdd( aClr, { CLR_HEADF , {||   HMG_RGB2n( YELLOW ) } } )             // 3 , текста шапки таблицы 
    AAdd( aClr, { CLR_HEADB , {|| { HMG_RGB2n(40, 122, 237), ; 
                                    HMG_RGB2n(48,  29,  26) } } } ) // 4 , фона шапка таблицы 
  
    oBrw := Brw2Arr(cBrw, nY, nX, nW, nH, aDatos, aClr, aFont) 
 

   AAdd( aClr, { 6, { |a,b,c| iif( c:nCell == b,                ;     // CLR_FOCUSB 
                     { RGB( 66, 255, 236), RGB(209, 227, 248) }, ; 
                     { RGB(220, 220, 220), RGB(220, 220, 220) } ) } } )  
  
     AAdd( aClr, { CLR_HEADF , {||   ArrayRGB_TO_COLORREF( YELLOW ) } } )             // 3 , текста шапки таблицы  
     AAdd( aClr, { CLR_HEADB , {|| { RGB(40, 122, 237), ;  
                                     RGB(48,  29,  26) } } } ) // 4 , фона шапка таблицы  
  
    oBrw := Brw2Arr(cBrw, nY, nX, nW, nH, aDatos, aClr, aFont) 
 

 
 STATIC FUNCTION FillDlg( cMsg, aOptions, nLineas, cIcoFile, nIcoSize, aBtnColors, bBlock, lClosable ) 
 ... 
    This.Closable := lClosable 
  
    This.&( aBut[ Max( 1, Min( nLenaOp, _HMG_ModalDialogReturn ) ) ] ).SetFocus() 
  
    This.Center() 
  
    IF lClosable 
       ON KEY ESCAPE OF &cForm ACTION ( _HMG_ModalDialogReturn := 0, lPressButton := .T., ThisWindow.Release() ) 
    ENDIF 
     
    IF HB_ISBLOCK( bBlock ) 
       Do_WindowEventProcedure( bBlock, This.Index, 'WINDOW_ACTIVATE' ) 
    ENDIF 
  
    IF _IsControlDefined( "oTimer", cForm ) 
       This.oTimer.Enabled := .T. 
    ENDIF 
 ... 
 

 
 METHOD ToWidth( uLen, nKfc ) CLASS TSColumn 
    LOCAL nWidth, nLen, cTyp, cChr := 'B' 
  
    Default nKfc := 1 
  
    If ! empty( ::cPicture ) .and. HB_ISCHAR( ::cPicture ) 
       If empty( uLen ) 
          cChr := ::cPicture 
          If Left(cChr, 2) == '@K' 
             cChr := AllTrim(Substr(cChr, 3)) 
          EndIf 
          nLen := Len( cChr ) 
       Else 
          If     '9' $ ::cPicture; cChr := '9' 
          ElseIf 'X' $ ::cPicture; cChr := 'X' 
          EndIf 
          nLen := uLen 
          cChr := Replicate(cChr, nLen) 
       EndIf 
    Else 
       cTyp := ::cFieldTyp 
       nLen := iif( empty(uLen), ::nFieldLen, uLen ) 
  
       If     cTyp $ 'CML'; cChr := 'B' 
       ElseIf cTyp == 'ND'; cChr := '9' 
       EndIf 
  
       nLen := iif( empty(nLen), 7, nLen ) 
       cChr := Replicate(cChr, nLen) 
    EndIf 
  
    nWidth := GetTextWidth( 0, cChr, ::hFont ) 
    nWidth := Int( nWidth * nKfc ) 
  
 RETURN nWidth 
  
 Применять так к примеру 
    with object oBrw 
    For i := 1 To Len( :aColumns ) 
        oc := :aColumns[ i ] 
        cp := oc:cName 
        xv := :GetValue(cp) 
        cn := '_' + cp 
        s  := iif( oc:nFieldLen > 40, 40, Nil ) 
        nl := oc:ToWidth( s ) 
        @ y, x LABEL &cn                 ; 
               VALUE oc:cHeading         ; 
               WIDTH l  HEIGHT h         ; 
               VCENTERALIGN               
        @ y, x+l+20 GETBOX &cp             ; 
               VALUE xv                    ; 
               WIDTH nl HEIGHT h           ; 
               PICTURE :cPictureGet(, i)    
        y += This.&(cn).Height + 20  
    Next 
    end with