... 
    App.Cargo:aButStyles := { ; 
       { 0, 1, aBackColor, aBackColor, aBackColor, aBackColor, BLACK, BLACK, 1, aBackColor, aBackColor } ; 
       } 
  
    DEFINE WINDOW Form_Main                                 ; 
       TITLE (App.Cargo):cPRG_NAME                          ; 
       MAIN NOMAXIMIZE NOSIZE                               ; 
       BACKCOLOR aBackColor                                 ; 
       ON INIT    {|| DoEvents() , _wPost(0)             }  ;   // выполняется после инициализации окна 
       ON RELEASE {|| _wSend(92) }  ;   // выполняется перед разрушением окна 
       ON INTERACTIVECLOSE {|| NIL }                        ;   // закрытие окна по [x] 
       ON MOUSEMOVE DisplayCoords()                             // обработка координат мышки 
  
       This.Cargo := oHmgData()           // для окна создаем объект без переменных (условно пустой) 
       This.Cargo:aWinBtn := Nil          // кнопки окна 
       This.Cargo:aBColor := aBackColor   // цвет фона окна 
  
       This.Cargo:aButStyles := App.Cargo:aButStyles 
  
       DEFINE STATUSBAR 
          STATUSITEM "+"                 FONTCOLOR RED 
          STATUSITEM "Item 1" WIDTH 230  FONTCOLOR BLUE 
          STATUSITEM "Item 2" WIDTH 230  FONTCOLOR BLUE 
          STATUSITEM "Item 3" WIDTH 230  FONTCOLOR BLUE 
       END STATUSBAR 
  
       nY := nX := 5 
       DRAW ICON IN WINDOW Form_Main AT nY, nX PICTURE 'iQuest64x1' WIDTH 64 HEIGHT 64 COLOR aBackColor 
       nX += 64 + 5 
  
       @ nY, nX  BUTTONEX Btn_1 WIDTH 64 HEIGHT 64          ; 
          CAPTION '' ICON 'iQuest64x1'                      ; 
          FLAT NOXPSTYLE HANDCURSOR NOTABSTOP               ; 
          BACKCOLOR aBackColor                              ; 
          ON MOUSEHOVER ( This.Backcolor := GRAY       , This.Icon := 'iQuest64x2' ) ;  
          ON MOUSELEAVE ( This.Backcolor := aBackColor , This.Icon := 'iQuest64x1' ) ;  
          ACTION {|| This.Enabled := .F.      ,; 
                     MsgDebug( This.Name )    ,; 
                     This.Enabled := .T.   } ; 
          ON INIT {|| This.Cargo := oHmgData(), ; 
          This.Cargo:cButMisc := '0', ; 
          This.Cargo:aButStyles := ThisWindow.Cargo:aButStyles } 
 ... 
 

 
 //   1   2        3              4               5              6         7      8        9       10             11 
 // Styl Tip,    Fill 
 //       gradient 
 App.Cargo:aButStyles := { ; 
     { 0, 1, {106,131,160}, {106,131,160}, {106,131,160}, {106,131,160}, BLACK, BLACK    , 1, {106,131,160}, RED           },; 
     { 1, 3, {182,189,210}, {220,220,220}, {182,189,210}, WHITE        , BLACK, BLACK    , 1, {220,220,220}, WHITE         },; 
     { 2, 4, {106,131,160}, {220,220,220}, {220,220,220}, {220,220,220}, BLACK, BLACK    , 0, {220,220,220}, WHITE         },; 
     { 3, 4, {192,192,192}, {192,192,192}, {192,192,192}, {192,192,192}, BLACK, BLACK    , 0, { 82,189,210}, BLACK         },; 
     { 4, 2, GRAY         , {255,255,255}, {106,131,160}, {255,255,255}, BLACK, BLACK    , 1, GRAY         , {106,131,160} },; 
     { 5, 2, GRAY         , {220,220,220}, GRAY         , {255,255,255}, BLACK, {196,0,0}, 1, GRAY         , RED           },; 
     { 6, 4, GRAY         , {220,220,220}, {106,131,160}, {255,255,255}, BLACK, BLACK    , 1, GRAY         , {106,131,160} },; 
     { 7, 2, GRAY         , {255,255,255}, {106,131,160}, {255,255,255}, BLACK, BLACK    , 2, GRAY         , {106,131,160} },; 
     { 8, 2, GRAY         , {220,220,220}, GRAY         , {255,255,255}, BLACK, {196,0,0}, 2, GRAY         , RED           },; 
     { 9, 4, GRAY         , {220,220,220}, {106,131,160}, {255,255,255}, BLACK, BLACK    , 2, GRAY         , {106,131,160} },; 
     {10, 1, {196,164,164}, {196,164,164}, {196,164,164}, {196,164,164}, WHITE, WHITE    , 0, {106,131,160}, RED           },; 
     {11, 1, {196,164,164}, {196,164,164}, {196,164,164}, {196,164,164}, BLACK, RED      , 0, {106,131,160}, RED           } ; 
                         } 
 //   1   2        3              4               5              6         7      8        9       10             11 
 //       ^ 
 //       |   FillGradient(hDC, ...) 
 //       1 - Type fill grag vert  1 
 //       2 - Type fill grag vert  2 
 //       3 - Type fill grag horiz 1 
 //       4 - Type fill grag horiz 2 
 //