FUNCTION GetProperty ( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 ) 
       CASE Arg2 == "CARGO" 
  
          RetVal := _WindowCargo ( Arg1 ) 
  
       CASE Arg2 == "OBJECT" 
  
          RetVal := _GetWindowObj ( Arg1 ) 
  
  
 i_this.ch 
 line 48 
 // WINDOWS (THIS) 
  
 #xtranslate This . <p:Title,NotifyIcon,NotifyTooltip,FocusedControl,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,HelpButton,Cargo,Object> => GetProperty ( _HMG_THISFORMNAME , <"p"> ) 
  
 line 111 
 #xtranslate ThisWindow . <p:Title,NotifyIcon,NotifyTooltip,FocusedControl,BackColor,Name,Handle,Type,Index,Row,Col,Width,Height,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Topmost,Cargo,Object> => GetProperty ( _HMG_THISFORMNAME , <"p"> ) 
  
 i_windows.ch 
 line 63 
    #xtranslate <w>   . \<p:Name,Handle,Type,Index,Title,Height,Width,ClientHeight,ClientWidth,Col,Row,NotifyIcon,NotifyToolTip,FocusedControl,BackColor,MinHeight,MinWidth,MaxHeight,MaxWidth,TitleBar,SysMenu,Sizable,MaxButton,MinButton,Closable,Topmost,HelpButton,Cargo,Object\> => GetProperty ( <"w">, \<"p"\> ) ;; 
  
 ////////////////////////////////////////////////////////////////////////////////////////////// 
 CLASS TWndData 
  
      PROTECTED: 
  VAR cVar 
  VAR cName 
  VAR cType 
  VAR nIndex 
  VAR nHandle 
  VAR nParent 
  
      EXPORTED: 
  VAR oUserKeys      
  
  METHOD New( nIndex, cName, nHandle, nParent, cType, cVar ) INLINE (    ; 
            ::nIndex := nIndex, ::cName := cName, ::nHandle := nHandle,  ; 
            ::nParent := nParent, ::cType := cType, ::cVar := cVar,      ; 
            ::oUserKeys := TKeyData():New(), ; 
              Self )                              CONSTRUCTOR 
  
  ACCESS Index         INLINE ::nIndex 
  ACCESS Name          INLINE ::cName 
  ACCESS Handle        INLINE ::nHandle 
  ACCESS Parent        INLINE ::nParent 
  ACCESS Type          INLINE ::cType 
  ACCESS VarName       INLINE ::cVar  
  ACCESS Row           INLINE GetWindowRow   ( ::nHandle ) 
  ACCESS Col           INLINE GetWindowCol   ( ::nHandle ) 
  ACCESS Width         INLINE GetWindowWidth ( ::nHandle ) 
  ACCESS Height        INLINE GetWindowHeight( ::nHandle ) 
  ACCESS ClientWidth   INLINE _GetClientRect ( ::nHandle )[ 3 ] 
  ACCESS ClientHeight  INLINE _GetClientRect ( ::nHandle )[ 4 ] 
  
  METHOD UserKeys( Key, Block ) INLINE iif( HB_ISBLOCK( Block ), ; 
                                            ::oUserKeys:Set( Key, Block ), ; 
                                            ::oUserKeys:Do ( Key, Block ) ) 
  
 ENDCLASS          
  
 ////////////////////////////////////////////////////////////////////////////////////////////// 
 CLASS TKeyData 
  
      PROTECTED: 
  VAR oObj 
  VAR aKey                 INIT hb_Hash() 
  VAR bBlk 
  
      EXPORTED: 
  VAR Cargo 
  
  METHOD New( o )          INLINE ( ::Obj := o, Self )         CONSTRUCTOR 
  
  METHOD Set( Key, Block ) INLINE hb_HSet( ::aKey, Key, Block ) 
  METHOD Get( Key )        INLINE hb_HGetDef( ::aKey, Key, Nil ) 
  METHOD Del( Key )        INLINE iif( hb_hHasKey( ::aKey, Key ), hb_HDel( Key ), ) 
  METHOD Do ( Key, Param ) INLINE ( ::bBlk := ::Get(Key), iif( HB_ISBLOCK(::bBlk), ; 
                                           EVal(::bBlk, ::Obj, Key, Param), Nil ) ) 
  ACCESS Obj               INLINE ::oObj 
  ASSIGN Obj( o )          INLINE ::oObj := iif( HB_ISOBJECT(o), o, Self ) 
  
 ENDCLASS          
  
  
 ////////////////////////////////////////////////////////////////////////////////////////////// 
 Пример с :UserKeys дополнить 
 ... 
       ON RELEASE  dbCloseAll()  
  
       PRIV oWnd := This.Object 
  
       oWnd:UserKeys('M_1_1', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_2', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_3', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_4', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_5', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_6', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_7', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_8', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_9', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_1_0', {|     | ThisWindow.Release() }) 
  
       oWnd:UserKeys('M_2_1', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_2_2', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
       oWnd:UserKeys('M_2_3', {|o,k,p| MsgBox( o:ClassName+"|"+cValToChar(k)+"|"+cValToChar(p), This.Name ) }) 
  
       oWnd:UserKeys('M_3_1', {|     | MsgBox( ( This.Name )+"|"+( ThisWindow.Name )          , oWnd:Name ) }) 
       oWnd:UserKeys('M_3_2', {|     | MsgBox( ( This.Name )+"|"+( ThisWindow.Name )          , oWnd:Name ) }) 
       oWnd:UserKeys('M_3_3', {|     | MsgBox( ( This.Name )+"|"+( ThisWindow.Name )          , oWnd:Name ) }) 
  
 		DEFINE MAIN MENU  
 			POPUP 'MENU_1' 
 				ITEM 'Item main menu 1.1'	ACTION oWnd:UserKeys( This.Name, {3,2,1,0} ) NAME M_1_1 IMAGE 'n1' 
 				ITEM 'Item main menu 1.2'	ACTION oWnd:UserKeys( This.Name, {1,2,3,4} ) NAME M_1_2 IMAGE 'n2' 
 				ITEM 'Item main menu 1.3'	ACTION oWnd:UserKeys( This.Name, {'A','B'} ) NAME M_1_3 IMAGE 'n3' 
 				ITEM 'Item main menu 1.4'	ACTION oWnd:UserKeys( This.Name, {'C'}     ) NAME M_1_4 IMAGE 'n4' 
 				ITEM 'Item main menu 1.5'	ACTION oWnd:UserKeys( This.Name )            NAME M_1_5 IMAGE 'n5' 
 				ITEM 'Item main menu 1.6'	ACTION oWnd:UserKeys( This.Name )            NAME M_1_6 IMAGE 'n6' 
 				ITEM 'Item main menu 1.7'	ACTION oWnd:UserKeys( This.Name )            NAME M_1_7 IMAGE 'n7' 
 				ITEM 'Item main menu 1.8'	ACTION oWnd:UserKeys( This.Name )            NAME M_1_8 IMAGE 'n8' 
 				ITEM 'Item main menu 1.9'	ACTION oWnd:UserKeys( This.Name )            NAME M_1_9 IMAGE 'n9' 
 				SEPARATOR 
 				ITEM 'Exit'             	ACTION oWnd:UserKeys( This.Name )        		NAME M_1_0 
 			END POPUP 
 			POPUP 'MENU_2' 
 				ITEM 'Item main menu 2.1'	ACTION oWnd:UserKeys( This.Name, 2.1 )   NAME M_2_1 IMAGE 'n1' 
 				ITEM 'Item main menu 2.2'	ACTION oWnd:UserKeys( This.Name, 2.2 )   NAME M_2_2 IMAGE 'n2' 
 				ITEM 'Item main menu 2.3'	ACTION oWnd:UserKeys( This.Name, 2.3 )   NAME M_2_3 IMAGE 'n3' 
 			END POPUP 
 			POPUP 'MENU_3' 
 				ITEM 'Item main menu 3.1'	ACTION oWnd:UserKeys( This.Name )      NAME M_3_1 IMAGE 'n1' 
 				ITEM 'Item main menu 3.2'	ACTION oWnd:UserKeys( This.Name )      NAME M_3_2 IMAGE 'n2' 
 				ITEM 'Item main menu 3.3'	ACTION oWnd:UserKeys( This.Name )      NAME M_3_3 IMAGE 'n3' 
 			END POPUP 
 		END MENU 
  
   		DEFINE STATUSBAR 
 ...