#define CLR_YELLOW		RGB( 255 , 255 , 0   )	 
 #define CLR_PINK		RGB( 255 , 128 , 192 ) 
 #define CLR_HRED		RGB( 255 , 0 , 0     )   
 #define CLR_HMAGENTA		RGB( 255 , 0 , 255   )   
 #define CLR_BROWN		RGB( 128 , 64 , 64   ) 
 #define CLR_ORANGE		RGB( 255 , 128 , 64  ) 
 #define CLR_HGREEN		RGB( 0 , 255 , 0     ) 
 #define CLR_PURPLE		RGB( 128 , 0 , 128   ) 
 #define CLR_BLACK		RGB( 0 , 0 , 0       ) 
 #define CLR_WHITE		RGB( 255 , 255 , 255 ) 
 #define CLR_GRAY		RGB( 128 , 128 , 128 ) 
 #define CLR_HBLUE		RGB( 0 , 0 , 255     )    
  
 #define CLR_HGRAY		RGB( 192 , 192 , 192 ) 
 #define CLR_RED			RGB( 128 , 0 , 0     )   
 #define CLR_OLIVE		RGB( 128 , 128 , 0   ) 
 #define CLR_LGREEN		RGB( 0 , 128 , 0     ) 
 #define CLR_HCYAN		RGB( 0 , 255 , 255   ) 
 #define CLR_BLUE		RGB( 0 , 0 , 128     ) 
 #define CLR_CYAN		RGB( 0 , 128 , 128   )

#define CLR_SKYPE          RGB(   0, 176,240 )  // голубой, как SKYPE 
 #define CLR_VIBER        RGB(  125, 82,158 )  // фиолетовый, как в Viber 
 #define CLR_VK             RGB(  93, 114,148 )  // сине-серый, как в Контакте 
 #define CLR_TWIT           RGB( 118, 170,235 )  // голубой, как TWITER 
 #define CLR_FB             RGB(  71,  89,149 )  // синеватый, как Фейсбук 
 #define CLR_OK             RGB( 238,  89,149 )  // оранжевый, как Одноклассники

 
 METHOD DoEvent ( Key, nHandle )  CLASS TWndData 
  
    LOCAL o := Self 
    LOCAL i := o:Index 
    LOCAL w := o:IsWindow 
  
    IF ! empty(nHandle) 
       IF     hmg_IsWindowObject( nHandle )                               // control handle 
          o := hmg_GetWindowObject( nHandle ) 
          i := o:Index 
          w := o:IsWindow 
       ELSEIF nHandle > 0 .and. nHandle <= Len( _HMG_aControlHandles )    // control index 
          IF hmg_IsWindowObject( _HMG_aControlHandles[ nHandle ] ) 
             o := hmg_GetWindowObject( _HMG_aControlHandles[ nHandle ] ) 
             i := o:Index 
             w := o:IsWindow 
          ELSE 
             i := nHandle 
             w := .F. 
          ENDIF 
       ENDIF 
    ENDIF 
  
    IF w 
       RETURN Do_WindowEventProcedure ( ::oEvent:Get( Key ), i, o, Key ) 
    ENDIF 
  
 RETURN       Do_ControlEventProcedure( ::oEvent:Get( Key ), i, o, Key ) 
  
 и пример APP_OOPEVENTS 
   
 		DEFINE MAIN MENU  
 		POPUP 'MENU_1'                                    NAME 100                                          
 			ITEM 'Item main menu 1.1'                      NAME 101 IMAGE 'n1' ; 
 				ACTION (ThisWindow.Object):PostMsg(val(This.Name), This.Index) 
 			ITEM 'Item main menu 1.2'                      NAME 102 IMAGE 'n2' ; 
 				ACTION (ThisWindow.Object):PostMsg(val(This.Name)) 
 			ITEM 'Item main menu 1.3 ( This -> Button_2 )' NAME 103 IMAGE 'n3' ; 
 				ACTION (ThisWindow.Object):PostMsg(val(This.Name), This.Button_2.Index) 
 			SEPARATOR                                    
 			ITEM 'Exit'                                    NAME 199            ; 
 				ACTION (ThisWindow.Object):PostMsg(val(This.Name)) 
 		END POPUP                                       
  
 

 
 METHOD Sum( Key, xSum ) CLASS TKeyData 
  
    LOCAL sum := ::Get( Key, 0 ) 
  
    IF    HB_ISNUMERIC( xSum ) 
       IF HB_ISNUMERIC( sum ); sum += xSum 
       ELSE                  ; sum := xSum 
       ENDIF 
       ::Set( Key, sum ) 
    ELSEIF HB_ISARRAY( xSum ) 
       IF HB_ISARRAY( sum ) .AND. Len( sum ) == Len( xSum ) 
          AEval( xSum, {| s, i| sum[ i ] := iif( HB_ISNUMERIC( s ), sum[ i ] + s, s ) } ) 
       ELSE 
          sum := xSum 
       ENDIF 
       ::Set( Key, sum ) 
    ENDIF 
  
 RETURN NIL 
 ... 
 METHOD Sum( Key, xSum ) CLASS TThrData 
  
    LOCAL sum := ::Get( Key, 0 ) 
  
    IF HB_ISNUMERIC( xSum ) 
       IF HB_ISNUMERIC( sum ); sum += xSum 
       ELSE                  ; sum := xSum 
       ENDIF 
       ::Set( Key, sum ) 
    ELSEIF HB_ISARRAY( xSum ) 
       IF HB_ISARRAY( sum ) .AND. Len( sum ) == Len( xSum ) 
          AEval( xSum, {| s, i| sum[ i ] := iif( HB_ISNUMERIC( s ), sum[ i ] + s, s ) } ) 
       ELSE 
          sum := xSum 
       ENDIF 
       ::Set( Key, sum ) 
    ENDIF 
  
 RETURN NIL 
 ... 
 

 
 METHOD AdjColumns( aColumns, nDelta ) CLASS TSBrowse 
  
    LOCAL c, i, k, n, s, w, obr := Self, aCol := {} 
    LOCAL nVisible := 0 
  
    Default nDelta := 1 
  
    If empty(aColumns) 
       aColumns := array( ::nColCount() ) 
       AEval(aColumns, {|xv,nn| xv := nn, aColumns[ nn ] := xv }) 
    Endif 
   
    If  HB_ISNUMERIC(aColumns) 
       AAdd(aCol, aColumns) 
    ElseIf HB_ISCHAR(aColumns) 
       AAdd(aCol, ::nColumn(aColumns)) 
    Else 
       AEval(aColumns, {|xv| AAdd(aCol, iif( HB_ISCHAR(xv), obr:nColumn(xv), xv )) }) 
    EndIf 
  
    AEval( ::aColumns, {|oc| nVisible += iif( oc:lVisible, oc:nWidth, 0 ) }) 
  
    k := Len(aCol) 
    w := GetWindowWidth( ::hWnd ) - nVisible - nDelta - iif( ::lNoVScroll, 0, GetVScrollBarWidth() )  
                                         
    If w > 0 
       n := int( w / k ) 
       s := 0 
     
       For i := 1 To k 
           c := aCol[ i ] 
           If i == k 
              ::aColumns[ c ]:nWidth += ( w - s ) 
           Else 
              s += n 
              ::aColumns[ c ]:nWidth += n 
           EndIf 
       Next 
    EndIf 
  
 RETURN Nil 
 

 
 *-----------------------------------------------------------------------------* 
 STATIC FUNC TsbReport( oWnd, nEvent, aArray, cColName ) 
 *-----------------------------------------------------------------------------* 
 ... 
       :SetColor( { CLR_FOCUSB }, { { |a,b,c| If( c:nCell == b, {RGB( 66, 255, 236), RGB(209, 227, 248)}, ; 
                                                                {RGB(220, 220, 220), RGB(220, 220, 220)} ) } } ) 
  
       :AdjColumns({3, 4, 5})   // или  :AdjColumns() 
  
       END TBROWSE 
  
       oRpt:SetNoHoles() 
 ... 
 

 
 FUNCTION Main() 
 ... 
       :Event(  7, {|ow,ky| Report(ow, ky) } ) 
       // ToolBar 2 
       :Event( 99, {|ow   | ow:Release()   } ) 
       // StatusBar 
       :Event( 91, {|ow   | ow:StatusBar:Say('... W A I T ...') } ) 
       :Event( 92, {|ow   | ow:StatusBar:Say('')                } ) 
       END WITH                           // ---- Window events 
 ... 
 STATIC FUNC TsbReport( oWnd, nEvent, aArray, cColName ) 
 ... 
       // ToolBar 1 
       (This.Object):Event(  1, {|ow| oWnd:StatusBar:Say('... W A I T ...'), ; 
                                      MsgBox('P r i n t i n g'   , ow:Name), ; 
                                      oWnd:StatusBar:Say('') } ) 
       (This.Object):Event(  2, {|ow| oWnd:PostMsg(91),                      ; 
                                      MsgBox('Export to MS Excel', ow:Name), ; 
                                      oWnd:PostMsg(92) } ) 
 ...

 
    DEFINE FONT FontNorm FONTNAME "Courier New"        ;  
                             SIZE _HMG_DefaultFontSize  
 

 
  METHOD AdjColumns( aColumns, nDelta ) CLASS TSBrowse  
  ...  
     LOCAL nVisible := 0, aVisible := {}  
  ...  
     AEval( ::aColumns, {|oc| nVisible += iif( oc:lVisible, oc:nWidth, 0 ) })  
     AEval(   aCol    , {|nc| iif( obr:aColumns[ nc ]:lVisible, AAdd(aVisible, nc), Nil ) })  
    
     k := Len(aVisible)  
  ...  
        For i := 1 To k  
            c := aVisible[ i ]  
  ... 
 

 
 			BUTTON 01  CAPTION 'First'   PICTURE 'n1'     ; 
                     TOOLTIP 'Column report FIRST   Ctrl+1, Shift+1'  ; 
                     ACTION  wPost()   SEPARATOR 
 			BUTTON 02  CAPTION 'Last'    PICTURE 'n2'     ; 
                     TOOLTIP 'Column report LAST    Ctrl+2, Shift+2'  ; 
                     ACTION  wPost()   SEPARATOR 
 			BUTTON 03  CAPTION 'Age'     PICTURE 'n3'     ; 
                     TOOLTIP 'Column report AGE     Ctrl+3, Shift+3'  ; 
                     ACTION  wPost()   SEPARATOR 
 			BUTTON 04  CAPTION 'State'   PICTURE 'n4'     ; 
                     TOOLTIP 'Column report STATE   Ctrl+4, Shift+4'  ; 
                     ACTION  wPost()   SEPARATOR 
 			BUTTON 05  CAPTION 'City'    PICTURE 'n5'     ; 
                     TOOLTIP 'Column report CITY    Ctrl+5, Shift+5'  ; 
                     ACTION  wPost()   SEPARATOR 
 			BUTTON 06  CAPTION 'State ?' PICTURE 'n6'                    ; 
                     TOOLTIP 'Column report STATE + Left(LAST, 1)   Ctrl+6, Shift+6' ; 
                     ACTION  wPost()   SEPARATOR 
 			BUTTON 07  CAPTION 'City ?'  PICTURE 'n7'                    ; 
                     TOOLTIP 'Column report CITY + Left(LAST, 1)    Ctrl+7, Shift+7' ; 
                     ACTION  wPost()   SEPARATOR 
 ... 
       oTabl:SetFocus() 
  
       ON KEY SHIFT+1 ACTION wPost(1) 
       ON KEY SHIFT+2 ACTION wPost(2) 
       ON KEY SHIFT+3 ACTION wPost(3) 
       ON KEY SHIFT+4 ACTION wPost(4) 
       ON KEY SHIFT+5 ACTION wPost(5) 
       ON KEY SHIFT+6 ACTION wPost(6) 
       ON KEY SHIFT+7 ACTION wPost(7) 
       ON KEY ESCAPE  ACTION wPost(99) 
  
 	END WINDOW 
 ... 
 STATIC FUNC Report( oWnd, nEvent ) 
 ... 
    oWnd:Action   := .F. 
    oBrw:lEnabled := .F. 
    oWnd:StatusBar:Say('... W A I T ...') 
 ... 
    TsbReport( oWnd, nEvent, aRpt, cNam ) 
  
   (This.oTabl.Object):Tsb:lEnabled := .T.      // oBrw:lEnabled := .T. 
   (This.oTabl.Object):SetFocus()               // oBrw:SetFocus() 
 ...