код prg (еще в начальной стадии) 
    cTitle    := "OK-CANCEL" 
    aBtnColor := { LGREEN , {189,30,73} } 
    cIcoRes   := nIcoSize  := NIL 
    bInit     := oa:bInitSomeBtn  
    AlertOkCancel( cMsg, cTitle,1, cIcoRes, nIcoSize, aBtnColor, .T., bInit ) 
  
    cTitle    := "YES-NO-CANCEL" 
    aBtnColor := { FUCHSIA, LGREEN , {189,30,73} } 
    cIcoRes   := oa:cIcoYesNo64 //App.Cargo:cIcoYesNo64 
    nIcoSize  := oa:nIcoSize //64 
    bInit     := oa:bInitSomeBtn  
    AlertYesNoCancel( cMsg, cTitle, 3, cIcoRes, nIcoSize, aBtnColor, .T., bInit ) 
  
    cTitle    := "YES-NO" 
    aBtnColor := { FUCHSIA, {189,30,73} } 
    bInit     := oa:bInitSomeBtn //{|| bInitAlertSomeBtn() } 
    AlertYesNo( cMsg, cTitle, , cIcoRes, nIcoSize, aBtnColor, .T., bInit ) 
 ... 
 код обработчика (замена BUTTON на OBUTTON) 
    o:bInitSomeBtn := {|| 
      Local lBExt, lTime, lEbox, lDraw, ob, oo, a, b, i, o 
      Local oc := This.Cargo 
      Local cFocus := This.FocusedControl 
      lTime := !Empty(oc:oTimer) 
      lEbox := !Empty(oc:EditBox) 
      lDraw := !Empty(oc:Draw) 
      lBExt := !Empty(oc:lExtButton) 
      IF !lBExt                      // метяем Button -> OButton 
         IF HB_ISBLOCK( b := oAlert():b_Cargo2oNew ) 
            oo := EVal(b, oc) 
            //_o2log(oo, 12, "=> oo:...", .T.) 
            i  := 0 
            FOR EACH a IN oo:GetAll() 
                o := a[2] 
                IF "BUTT" $ o:cType 
                   i++ 
                   ? str(i, 2), o:cName, o:cType 
                   IF HB_ISBLOCK( b := oAlert():b_Btn2BtnEx ) 
                      This.&(o:cName).Release 
                      ob := EVal(b, o) 
                      IF !Empty(cFocus) 
                         This.&(cFocus).SetFocus 
                      ENDIF 
                      //_o2log(ob, 12, "=> ob:...", .T.) 
                   ENDIF 
                ENDIF 
            NEXT 
         ENDIF 
      ENDIF 
      Return Nil 
      } 
    o:b_Cargo2oNew := {|oc| 
      Local oo := oHmgData(), a, o 
      Default oc := This.Cargo 
      FOR EACH a IN oc:GetAll() 
          o := oHmgData() 
          o:nPos := hb_enumindex(a) 
          IF HB_ISCHAR(a[2]) 
             o:cName  := a[1] 
             o:cType  := a[2] 
             o:nIndex := This.&(a[1]).Index 
             o:nY := int(This.&(a[1]).Row) 
             o:nX := int(This.&(a[1]).Col) 
             o:nW := int(This.&(a[1]).Width) 
             o:nH := int(This.&(a[1]).Height) 
             IF     "BUTT" $ a[2]                   // [O]BUTTON 
                o:cCaption := This.&(a[1]).Caption 
                o:cInpMask := _HMG_aControlInputMask [ o:nIndex ] 
                o:bAction  := _HMG_aControlProcedures[ o:nIndex ] 
                o:cFont    := _HMG_aControlFontName  [ o:nIndex ] 
                o:nFont    := _HMG_aControlFontSize  [ o:nIndex ] 
                o:aFont    := _HMG_aControlFontAttributes[ o:nIndex ] 
                o:hFont    := _HMG_aControlFontHandle[ o:nIndex ] 
             ELSEIF "LABE" $ a[2]                   // LABEL 
                o:cValue   := This.&(a[1]).Value 
             ELSEIF "EDIT" $ a[2]                   // EDIBOX 
             ELSEIF "TIME" $ a[2]                   // TIMER  
             ENDIF 
             oo:Set(a[1], o) 
          ELSEIF a[1] == "DRAW" 
             o:cType     := a[1] 
             o:aDraw     := AClone(a[2]) 
             o:cName     := a[2][1] 
             o:nY        := int(a[2][2]) 
             o:nX        := int(a[2][3]) 
             o:nW        := a[2][5] 
             o:nH        := a[2][5] 
             o:cIcoFile  := a[2][4] 
             o:lIsNumber := HB_ISNUMERIC( o:cIcoFile ) 
             IF o:lIsNumber 
                o:lIsHIcon := IsHIcon( o:cIcoFile ) 
             ELSE 
                o:lIsHIcon := .F. 
             ENDIF 
             oo:Set(a[1], o) 
          ENDIF 
      NEXT 
      DO EVENTS 
      Return oo 
      } 
  
    o:b_Btn2BtnEx := {|o|            // меняем Button -> OButton 
      Local ob := oHmgData() 
      ob:Set(o:GetAll()) 
      DEFINE BUTTONEX &(ob:cName) 
        ROW             ob:nY 
        COL             ob:nX 
        WIDTH           ob:nW 
        HEIGHT          ob:nH 
        CAPTION         ob:cCaption 
        //BACKCOLOR     aBack 
        NOHOTLIGHT      .F. 
        NOXPSTYLE       .F. 
        VERTICAL        .T. 
        FLAT            .T. 
      END BUTTONEX 
      This.&(ob:cName).Action := ob:bAction 
      ob:nIndex := This.&(ob:cName).Index 
      ob:cType  := This.&(ob:cName).Type //"OBUTTON" 
      Return ob 
      } 
 ... 
 

 
 *----------------------------------------------------------------------------* 
 FUNCTION oSys(cSec)           // App.Cargo:oSystem usage: oSys():cTempFolder 
 *----------------------------------------------------------------------------* 
    LOCAL o 
     
    IF Empty( App.Cargo:oSystem ) 
       App.Cargo:oSystem := oHmgData() ; o := App.Cargo:oSystem 
  
       o:nBorderWidth        := GetBorderWidth() 
       o:nBorderHeight       := GetBorderHeight() 
       o:nTitleHeight        := GetTitleHeight()  
       o:nMenuBarHeight      := GetMenuBarHeight() 
  
       o:BorderWidth         := o:nBorderWidth   
       o:BorderHeight        := o:nBorderHeight  
       o:TitleHeight         := o:nTitleHeight   
       o:MenuBarHeight       := o:nMenuBarHeight 
  
       // System folder 
       o:cDesktopFolder      := Sys.DesktopFolder      + hb_ps() 
       o:cMyDocumentsFolder  := Sys.MyDocumentsFolder  + hb_ps() 
       o:cProgramFilesFolder := Sys.ProgramFilesFolder + hb_ps() 
       o:cSystemFolder       := Sys.SystemFolder       + hb_ps() 
       o:cTempFolder         := Sys.TempFolder         + hb_ps() 
       o:cUserTempFolder     := Sys.UserTempFolder     + hb_ps() 
       o:cWindowsFolder      := Sys.WindowsFolder      + hb_ps() 
      
       o:DesktopFolder       := Sys.DesktopFolder      
       o:MyDocumentsFolder   := Sys.MyDocumentsFolder  
       o:ProgramFilesFolder  := Sys.ProgramFilesFolder 
       o:SystemFolder        := Sys.SystemFolder       
       o:TempFolder          := Sys.TempFolder         
       o:UserTempFolder      := Sys.UserTempFolder     
       o:WindowsFolder       := Sys.WindowsFolder      
      
       // Desktop area 
       o:nRow                := 0                       
       o:nCol                := 0 - GetBorderWidth()    
       o:nWidth              := Sys.DesktopWidth       
       o:nHeight             := Sys.DesktopHeight      
       o:nDesktopWidth       := Sys.DesktopWidth  
       o:nDesktopHeight      := Sys.DesktopHeight 
      
       o:Y    := o:nRow    
       o:X    := o:nCol    
       o:W    := o:nWidth  
       o:H    := o:nHeight 
       o:MaxW := GetDesktopWidth() + 2*GetBorderWidth () 
       o:MinH := GetTitleHeight () + 2*GetBorderHeight() + 2*GetMenuBarHeight() 
      
       o:Row                 := o:nRow    
       o:Col                 := o:nCol    
       o:Width               := o:nWidth  
       o:Height              := o:nHeight 
       o:DesktopWidth        := o:nDesktopWidth  
       o:DesktopHeight       := o:nDesktopHeight 
      
       // Cliend area 
       o:nClientRow          := Sys.ClientRow           
       o:nClientCol          := Sys.ClientCol           
       o:nClientWidth        := Sys.ClientWidth  
       o:nClientHeight       := Sys.ClientHeight 
      
       o:nY                  := o:nClientRow    
       o:nX                  := o:nClientCol    
       o:nW                  := o:nClientWidth  
       o:nH                  := o:nClientHeight 
      
       o:ClientRow           := o:nClientRow    
       o:ClientCol           := o:nClientCol    
       o:ClientWidth         := o:nClientWidth  
       o:ClientHeight        := o:nClientHeight 
  
       // TsBrowse color 
       o:oTsbClr := oHmgData() 
  
       o:oTsbClr:nClrText            := GetSysColor( COLOR_WINDOWTEXT )    // [  1 ]  
       o:oTsbClr:nClrPane            := GetSysColor( COLOR_WINDOW )        // [  2 ]  
       o:oTsbClr:nClrHeadFore        := GetSysColor( COLOR_BTNTEXT )       // [  3 ]  
       o:oTsbClr:nClrHeadBack        := GetSysColor( COLOR_BTNFACE )       // [  4 ]  
       o:oTsbClr:nClrForeFocu        := GetSysColor( COLOR_CAPTIONTEXT )   // [  5 ]  
       o:oTsbClr:nClrFocuBack        := GetSysColor( COLOR_ACTIVECAPTION ) // [  6 ]  
       o:oTsbClr:nClrEditFore        := GetSysColor( COLOR_WINDOWTEXT )    // [  7 ]  
       o:oTsbClr:nClrEditBack        := GetSysColor( COLOR_WINDOW )        // [  8 ]  
       o:oTsbClr:nClrFootFore        := GetSysColor( COLOR_BTNTEXT )       // [  9 ]  
       o:oTsbClr:nClrFootBack        := GetSysColor( COLOR_BTNFACE )       // [ 10 ]  
       o:oTsbClr:nClrSeleFore        := CLR_HGRAY                          // [ 11 ] inactive focused 
       o:oTsbClr:nClrSeleBack        := CLR_GRAY                           // [ 12 ] inactive focused 
       o:oTsbClr:nClrOrdeFore        := GetSysColor( COLOR_BTNTEXT )       // [ 13 ]  
       o:oTsbClr:nClrOrdeBack        := GetSysColor( COLOR_BTNFACE )       // [ 14 ]  
       o:oTsbClr:nClrLine            := GetSysColor( COLOR_BTNSHADOW )     // [ 15 ]  
       o:oTsbClr:nClrSupHeadFore     := GetSysColor( COLOR_BTNTEXT )       // [ 16 ]  
       o:oTsbClr:nClrSupHeadBack     := GetSysColor( COLOR_BTNFACE )       // [ 17 ]  
       o:oTsbClr:nClrSpecHeadFore    := GetSysColor( COLOR_BTNTEXT )       // [ 18 ]  
       o:oTsbClr:nClrSpecHeadBack    := GetSysColor( COLOR_BTNFACE )       // [ 19 ]  
       o:oTsbClr:nClrSpecHeadActive  := CLR_HRED                           // [ 20 ]  
  
       o:oTsbClr:nClrAutoFilter      := GetSysColor( COLOR_INACTCAPTEXT )  // [ 19 ] 
       o:oTsbClr:nClrAutoSearch      := GetSysColor( COLOR_INFOBK )        // [ 19 ] 
       o:oTsbClr:nClrBtnHighLight    := GetSysColor( COLOR_BTNHIGHLIGHT ) 
       o:oTsbClr:nClrBtnChadow       := GetSysColor( COLOR_BTNSHADOW ) 
  
       o:oTsbClr:nClr_1  := o:nClrText            // [  1 ]  
       o:oTsbClr:nClr_2  := o:nClrPane            // [  2 ]  
       o:oTsbClr:nClr_3  := o:nClrHeadFore        // [  3 ]  
       o:oTsbClr:nClr_4  := o:nClrHeadBack        // [  4 ]  
       o:oTsbClr:nClr_5  := o:nClrForeFocu        // [  5 ]  
       o:oTsbClr:nClr_6  := o:nClrFocuBack        // [  6 ]  
       o:oTsbClr:nClr_7  := o:nClrEditFore        // [  7 ]  
       o:oTsbClr:nClr_8  := o:nClrEditBack        // [  8 ]  
       o:oTsbClr:nClr_9  := o:nClrFootFore        // [  9 ]  
       o:oTsbClr:nClr_10 := o:nClrFootBack        // [ 10 ]  
       o:oTsbClr:nClr_11 := o:nClrSeleFore        // [ 11 ] inactive focused 
       o:oTsbClr:nClr_12 := o:nClrSeleBack        // [ 12 ] inactive focused 
       o:oTsbClr:nClr_13 := o:nClrOrdeFore        // [ 13 ]  
       o:oTsbClr:nClr_14 := o:nClrOrdeBack        // [ 14 ]  
       o:oTsbClr:nClr_15 := o:nClrLine            // [ 15 ]  
       o:oTsbClr:nClr_16 := o:nClrSupHeadFore     // [ 16 ]  
       o:oTsbClr:nClr_17 := o:nClrSupHeadBack     // [ 17 ]  
       o:oTsbClr:nClr_18 := o:nClrSpecHeadFore    // [ 18 ]  
       o:oTsbClr:nClr_19 := o:nClrSpecHeadBack    // [ 19 ]  
       o:oTsbClr:nClr_20 := o:nClrSpecHeadActive  // [ 20 ]  
                                          
    ENDIF                                 
  
    IF HB_ISCHAR(cSec) 
       IF "TSBC" $ upper(cSec) .or. "TSB" $ upper(cSec) 
          RETURN App.Cargo:oSystem:oTsbClr 
       ENDIF 
    ENDIF 
  
 RETURN App.Cargo:oSystem 
 

 
 [MENU_1]  
 ;  //--------------------------------------------------------------------------------------------------------------------------------- 
 ;  // Name            Item text                      Icon                     Font    Disable  Function        Param        Separator      
 ;  //--1-------------------2---------------------------3------------------------4--------5-------6---------------7---------------8---- 
 010 = {  0  |        gTxt('Caption_1')         | "i_About32"            | "Bold"      |  1  | "MsgInfo"   | ""                 | 1 } 
 020 = {"I_1"| '&1. '+gTxt('Menu_by_1')         | oAC('ICO'):cIcoMyDbg   | "Bold"      |     | "My_Debug"  | {1,2,3}            |   } 
 030 = {"I_2"| '&2. '+gTxt('Menu_by_2')         | oAC('ICO'):cIcoMyDbg   | "Normal"    |     | "My_Debug"  | {2,"Str3"}         |   } 
 040 = {"I_3"| '&3. '+gTxt('Menu_by_3')         | oAC('ICO'):cIcoMyDbg   | "Bold"      |     | "My_Debug"  | {3,"Str4"}         | 1 } 
 050 = {"I_4"| '&4. '+gTxt('Menu_by_4')         | oAC('ICO'):cIcoMgDbg   | "Normal"    |     | "Mg_Debug"  | {4,"Str4"}         |   } 
 060 = {"I_5"| '&5. '+gTxt('Menu_by_5')         | oAC('ICO'):cIcoMgDbg   | "Bold"      |     | "Mg_Debug"  | {5,"Str5"}         | 1 } 
 070 = {"M11"| '&6. '+gTxt('Menu_by_6')         | oAC('ICO'):cIcoYesNo   | "DlgFont"   |     | "My_YesNo"  | {"test11"}         |   } 
 080 = {"M13"| '&7. '+gTxt('Menu_by_7')         | oAC('ICO'):cIcoYesNo   | "ComSnMs"   |     | "My_YesNo"  | {"test12"}         | 1 } 
 090 = {"M14"| '&8. '+gTxt('Menu_by_8')         | oAC('ICO'):cIcoInfo    | "Bold"      |     | "AlertInfo" | {"test14"}         |   } 
 100 = {"M15"| '&9. '+gTxt('Menu_by_9')         | oAC('ICO'):cIcoInfo    | "DlgFont"   |     | "AlertInfo" | {"test15"}         | 1 } 
 110 = {"YYY"| '&A. '+gTxt('Run_Notepad_1')     | oAC('ICO'):cIcoNtpd    | "ComSnMs"   |     | "myViewLog" | {1,2,3,.F. , ,"a"} |   } 
 120 = {"ZZZ"| '&B. '+gTxt('Run_Notepad_2')     | oAC('ICO'):cIcoNtpd    | "ComSnMs"   |     | "myOpenLog" | {2,4,6,.T. , ,"b"} | 1 } 
 130 = {"I_7"| '&C. '+gTxt('No_processing_f_1') | "i_About32"            | "Bold"      |  1  | "No_Funct"  | {"Str7",7}         |   } 
 140 = {"I_8"| '&D. '+gTxt('No_processing_f_2') | oAC('ICO'):cIcoNoExe   | "Normal"    |     | "No_Funct"  | {"Str8",8}         |   }