[Section_Dogovor] 
 Поля_БД       = { "NDOG", "DateDog", ....} 
 Поля_карточки = { "NDOG", "DateDog", ....} 
 Название_полей_карточки = { "Номер договора", "Дата договора", ....} 
  
 [Tsb_Dogovor/Таблица_Настройки] 
 Font_0=------------ фонты таблицы ----------------- 
 Font_1={"Tahoma", 18, .F., .F.} 
 Font_2={"Times New Roman", 18, .T., .F.} 
 Font_3={"Times New Roman", 18, .F., .F.} 
 Font_4={"Arial Black", 20, .T., .F.} 
 Font_5={"DejaVu Sans Mono", 18, .F., .F.} 
 Font_6={"Snap ITC", 20, .T., .F.} 
 Font_7={"Comic Sans MS", 12, .T., .F.} 
 HandleFont_1=Font_Tsb_Cell1 
 HandleFont_2=Font_Tsb_Head1 
 HandleFont_3=Font_Tsb_Foot1 
 HandleFont_4=Font_Tsb_SpcHd1 
 HandleFont_5=Font_Tsb_Edit1 
 HandleFont_6=Font_Tsb_SuperHd1 
 HandleFont_7=Font_Tsb_DelRecno1 
 SizeColonm={115, 30, 142, 123, 655, 142, 138, 127, 149, 151, 190, 265, 265, 213, 0, 0} 
 .......... 
 [Section_Abonent] 
 .......... 
 

Вызов на кнопках c главного меню программы: 
     FormMyTable("Form_Dogovor",1,"Section_Dogovor",....) 
     FormMyTable("Form_Abonent",2,"Section_Abonent",....) 
     ..... 
     FormMyTable("Form_Oplata",5,"Section_Oplata",....) 
  
 FUNCTION FormMyTable(cFormName,nTable,cIniSection,....) 
  
 IF !_IsWindowActive( cFormName ) 
  
     PRIVATE oBrw 
  
     // создать окно ожидания 
     aBegin := WaitWinCreate( 'Создаю таблицу ...' ) 
  
     // считывание фонтов таблицы из ини-файла 
     IniGetTbrwFont(cIniSection+"/Таблица_Настройки", @aTableFont, @aTableHndlFont) 
  
     // задать все используемые фонты  
     cTbl     := HB_NtoS(nTable) 
     aTsbFont := {"Font_Tsb_Cell" +cTbl, "Font_Tsb_Head" +cTbl, ; 
                  "Font_Tsb_Foot" +cTbl, "Font_Tsb_SpcHd"+cTbl, ; 
                  "Font_Tsb_Edit" +cTbl     } 
  
     DEFINE WINDOW &cFormName  At 0, 0      ; 
        WIDTH nWinWidth HEIGHT nWinHeight   ; 
        TITLE cTitle ICON cIco              ; 
        WINDOWTYPE STANDARD TOPMOST         ; 
        NOMAXIMIZE NOSIZE                   ; 
        BACKCOLOR aBackColor                ; 
        FONT cFont SIZE nFontSize           ; 
        ON INIT {|| DoEvents(), _wPost(1) } ;  // !!! обязательно DoEvents() 
        ON RELEASE { || DoMethod( "Form_Main", "Restore" ) } 
  
      ..... 
        (This.Object):Cargo := oKeyData()   // создать объект (контейнер) для окна &cFormName 
        oCrg := (This.Object):Cargo 
        oCrg:cAlias             := ALIAS() 
        oCrg:aTsbFilter         := {} 
        oCrg:aTsbSort           := {} 
        oCrg:aTsbField          := GetProfile( cIniSection, "Поля_БД", {} ) 
        oCrg:aCardField         := GetProfile( cIniSection, "Поля_карточки", {} ) 
        oCrg:aCardName          := GetProfile( cIniSection, "Название_полей_карточки", {} ) 
        oCrg:aWinUpColor        := GetProfile( cIniSection, "Цвет_фона_верх_формы", BLACK ) 
        oCrg:aBackColor         := GetProfile( cIniSection, "Цвет_фона_всей_формы", BLACK ) 
        oCrg:lDeletedView       := .F.  // отключить флаг показа удал.записей 
        oCrg:aUpMenu2Button     := GetProfile( cIniSection, "Кнопки_верху_таблицы", {} )   // объекты верхних кнопок  
        ..... 
        oCrg:nTable             := nTable       // номер таблицы 
        oCrg:cFont              := cFont         
        oCrg:nFontSize          := nFontSize         
        oCrg:nTsbFootCol        := GetProfile( cIniSection, "Показ_строки_подвала_итого", 2 ) 
  
        // кнопки меню вверху окна  
        aUpTBar := myUpBarTable(cFormName,nTable,..) 
        nWinHUp := aUpTBar[1]       // высота кнопок + отступы кнопок 
        nWinXUp := aUpTBar[2] + 10  // конец всех кнопок 
      ..... 
        nHUp    := nWinHUp 
        @ nHUp, 0 LABEL Label_Filter VALUE "Поиск: нет" WIDTH nW/2 HEIGHT 40 ... 
  
        @ nHUp, nW/2 LABEL Label_Sort VALUE "Сортировка: нет" WIDTH nW/2 HEIGHT 40 ... 
      ..... 
        Select(Select(cBaseMain)) 
        oCrg:cAlias := ALIAS() 
        goto TOP 
        nY := This.Label_Filter.Row + This.Label_Filter.Height + 1 
  
        DEFINE TBROWSE oBrw AT nY,nX WIDTH nW HEIGHT nH CELL ; 
           FONT aTsbFont                                     ; 
           ON CHANGE   {|ob| ChangeBrowse(ob) }              ; 
           ON GOTFOCUS {|ob| ChangeBrowse(ob) }              ; 
           BACKCOLOR aBackColor                              ; 
           ON INIT {|ob|              ; 
              ob:nColOrder     :=  0 ,; // убрать значок сортировки по полю 
              ob:lNoChangeOrd  := .T.,; // убрать сортировку по полю                ob:nWheelLines   :=  1 ,; // прокрутка колесом мыши с шагом ... 
              ob:lNoGrayBar    := .F.,; // показывать неактивный курсор в таблице 
              ob:lNoLiteBar    := .F.,; // при переключении фокуса на другое окно не убирать "легкий" Bar 
              ob:lNoResetPos   := .F.,; // предотвращает сброс позиции записи на gotfocus 
              ob:lNoPopUp      := .T.,; // избегает всплывающее меню при щелчке правой кнопкой мыши по заголовку столбца 
              ob:nStatusItem   :=  0 ,; // в 1-й Item StatusBar не выводить автоматом из тсб 
              ob:lPickerMode   := .F.,; // формат даты нормальный 
              ob:nCellMarginLR :=  1  ; // отступ от линии ячейки при прижатии влево, вправо на кол-во пробелов 
              }   // !!! только эти установки в ON INIT !!! 
           oBrw:lCheckBoxAllReturn := .T. // Enter modify value oCol:lCheckBox 
           sBrw( nTable, oBrw)  // запомнить oBrw по номеру nTable 
  
           CreateBrowseTable(cFormName,nTable)  // создать таблицу: поля, цвета и т.д. 
           oBrw:nCell := 3       // передвинуть МАРКЕР на 3 колонку 
  
        END TBROWSE {|ob| ob:SetNoHoles(), ob:SetFocus(), ob:Refresh() } 
  
        CreateBrowseContextMenu(cFormName,nTable)  // контекстное меню ТСБ 
  
        // на окне  
        oCrg:nWinHUp     := nWinHUp    // для правки заголовка верха меню 
        oCrg:oBrw        := oBrw       // сам объект таблица 
  
        // НОМЕР СОБЫТИЯ кнопок или показа: 0, 1, 3, 4, 5, 6, 7, 10, 40, 90, 100 и т.д.    
        WITH OBJECT This.Object 
           :Event( 0, {|ow,ky,ob| MsgBox(hb_ntos(ky)+": "+ob:cControlName+" Value "+; 
                             cValToChar(ob:GetValue(ob:nCell)), "INFO-"+ow:Name) } ) 
  
           :Event( 1, {|ow| This.Topmost := .F., myInitFormTable(ow) } ) 
  
           :Event( 3, {|  | // Помощь / О таблице 
                            LOCAL hHandle 
                            hHandle  := ThisWindow.Handle 
                            This.oBut_Help.Enabled := .F. 
                            Darken2Open(hHandle) 
                            MyHelpTable(cFormName,nTable) 
                            Darken2Close(hHandle) 
                            This.oBut_Help.Enabled := .T. 
                            Tsb4Focus(nTable) 
                            Return Nil 
                            } ) 
  
             :Event( 6, {|ow,ky,aRSort| // Label_Sort 
                            LOCAL nWidth, nSize, cFont, cStr 
                            LOCAL cLbl := "Label_Sort", cForm := ow:Name 
                            ky := LEN(aRSort) > 0 
                            cStr := "Сортировка: " + iif( ky,  aRSort[1], "нет" ) 
                            ow:Cargo:aTsbSort := aRSort 
                            IF _IsControlDefined(cLbl, cForm) 
                               nWidth := GetProperty(cForm, cLbl, "Width") 
                               nSize  := GetProperty(cForm, cLbl, "FontSize" ) 
                               cFont  := GetProperty(cForm, cLbl, "FontName" ) 
                               SetProperty(cForm, cLbl, "Value"   , cStr) 
                            ELSE 
                               myLogTbrw("*** ERROR *** LABEL "+cLbl+" not found ! FormName =", cForm, nTable ) 
                            ENDIF 
                            RETURN NIL 
                            } ) 
  
           :Event( 7, {|ow,ky,cStr|   // Label_Filter 
                            LOCAL nWidth, nSize, cFont 
                            LOCAL cLbl := "Label_Filter", cForm := ow:Name 
                            ky := "Поиск: " 
                            cStr := ky + cStr 
                            IF _IsControlDefined(cLbl, cForm) 
                               nWidth := GetProperty(cForm, cLbl, "Width") 
                               nSize  := GetProperty(cForm, cLbl, "FontSize" ) 
                               cFont  := GetProperty(cForm, cLbl, "FontName" ) 
                               SetProperty(cForm, cLbl, "Value"   , cStr) 
                            ELSE 
                               myLogTbrw("*** ERROR *** LABEL "+cLbl+" not found ! FormName =", cForm, nTable ) 
                            ENDIF 
                            RETURN NIL 
                            } ) 
   
           :Event(10, {|ow,ky,cBtn| // вызов Карточка / oBut_Card 
                            LOCAL oBrw := ow:Cargo:oBrw  
                            SetProperty(ow:Name, cBtn, "Enabled", .F.) 
                            ky := 110      // переназначаем на новое событие 
                            _wSend(ky, oBrw:cParentWnd, oBrw) 
                            SetProperty(ow:Name, cBtn, "Enabled", .T.) 
                            Tsb4Focus(nTable) 
                            Return Nil 
                            } ) 
  
           :Event(90, {|ow| This.oBut_Exit.Enabled := .F.             ,; // Выход 
                            TsbCloseIndex(ow:Name,nTable)                 ,; 
                            ReleaseTableFont(nTable,"удалить фонты")  ,; 
                            _wSend(99)    } ) 
  
           :Event(99, {|ow| ow:Release()  } ) 
  
           :Event(110, {|ow,ky,oBrw| // ---------- Показ Карточки ------------ 
                            LOCAL cParent := "", nValButton := 0 // не использую 
                            LOCAL cForm := ow:Name 
                            LOCAL hWnd  := ow:Handle 
                            Darken2Open(ow:Handle)            // затенение 
                            ? ProcNL() 
                            ? This.Name, ThisWindow.Name, Application.Handle, hWnd 
                            ? ky, ow:Name, oBrw:cAlias 
                            SetWaitCursor( Application.Handle ) 
                            SetCursorSystem( IDC_WAIT ) 
                            SetWaitCursor( hWnd )              // Курсор мышки - ожидание 
                            myCard(oBrw, nTable, ... )         // сама карточка 
                            Darken2Close(ow:Handle)            // убрать затенение 
                            Tsb4Focus(nTable) 
                            Return Nil 
                            } ) 
  
        END WITH 
  
        ON KEY .... 
  
     END WINDOW 
  
     DoMethod( cFormName, "Center"   ) 
     ACTIVATE WINDOW &cFormName ON INIT {|| SetProperty(cFormName, "Topmost", .T.) } 
  
 ELSE   // !IsWindowActive() 
  
    SwitchToWin( cFormName )  // переключить на тек.форму 
  
    Tsb4Focus(nTable) 
  
 ENDIF  // !IsWindowActive() 
  
 RETURN NIL 
  
 //////////////////////////////////////////////////////////////////// 
 STATIC FUNCTION ChangeBrowse(oBrw) 
    LOCAL o, cVal, cLen, nLen, aItogo, nColFoot, cFormName, nTable 
    .......... 
  
    SET WINDOW THIS TO oBrw  
       // использовать данные из контейнера 
       cFormName := This.Name 
       o         := This.Cargo 
       nTable    := o:nTable 
       nColFoot  := o:nTsbFootCol  
       aItogo    := o:aItogo  
       ....... 
       cVal := HB_NToS( (oBrw:cAlias)->(OrdKeyNo()) ) 
       nLen := (oBrw:cAlias)->(OrdKeyCount()) 
       oBrw:aColumns[1]:cFooting := { || ALLTRIM(Transform( nLen, "9 999 999" ))  } 
       oBrw:aColumns[nColFoot]:cFooting := { || " Записи: " + cVal + "/" + cLen } 
       oBrw:DrawFooters()       // выполнить прорисовку подвала 
  
   SET WINDOW THIS TO 
  
 RETURN Nil 
  
 /////////////////////////////////////////////////////////////////////////////// 
 //  вывод кнопок верхнего меню  
 STATIC FUNCTION myUpBarTable(cFormName,nTable,....) 
    ............ 
       aObj2     := Data_UpMenu(nTable) 
       aRBtn     := aObj2[1] 
       aCBtn     := aObj2[2] 
       aWBtn     := aObj2[3] 
       aHBtn     := aObj2[4] 
       aBtnObj   := aObj2[5] 
       aBtnCap   := aObj2[6] 
       aGrd1Clr  := aObj2[7] 
       aGrd2Clr  := aObj2[8] 
       aBtnIco   := aObj2[9] 
       a2FntClr  := aObj2[10] 
       a4BtnFont := aObj2[11] 
       aBtnPst   := aObj2[12] 
       .....       
       // вывод кнопок на форму 
       FOR nI := 1 TO Len(aBtnCap) 
          cCapt := ATREPL( ";", aBtnCap[nI], CRLF ) 
          nPost := aBtnPst[nI]                        // цифры - событие на кнопке 
          aGrad := { aGrd1Clr[nI], aGrd2Clr[nI] } 
          my2BUTTON(aRBtn[nI], aCBtn[nI], aWBtn[nI], aHBtn[nI], aBtnObj[nI], cCapt,; 
                       aGrad, , aBtnIco[nI], a2FntClr[nI], a4BtnFont[nI], nPost ) 
       NEXT 
  
  
 /////////////////////////////////////////////////////////////////////////////// 
 // считать в массив названия,цвет,иконки,ширину кнопки и т.д. 
 // можно сделать и чтение из ини-файла 
 STATIC FUNCTION Data_UpMenu(nTable) 
    ............... 
    nW     := GetDesktopWidth() 
    cIcoXX := IIF( nW >= 1280, "64", "48" ) // размер иконки 
    IF nTable == 1      
       aBtnCap := { "", "Карта","Карточка","Добавить;запись", ....} 
       aBtnIco := { {"iMaps"+cIcoXX+"x1" ,"iMaps"+cIcoXX+"x2" }   ,; 
                    {"iEditCard"+cIcoXX+"x1","iEditCard"+cIcoXX+"x2"} ,; 
                    {"iInsert"+cIcoXX+"x1","iInsert"+cIcoXX+"x2"} ,; 
                    ..... 
                    {"iExit"+cIcoXX+"x1"  ,"iExit"+cIcoXX+"x2"  }     } 
  
       aBtnClr := { aMainIcoBCls        ,;   // 1   Помощь 
                    COLOR_BLUE_VK       ,;   // 2   Карта 
                    COLOR_DARK_GREY     ,;   // 3   Карточка 
                    COLOR_DARK_GREY     ,;   // 4   Добавить запись 
                    ....... 
                    COLOR_RED_METRO }        // 13  Выход 
       aBtnObj := { "oBut_Help" , "oBut_Maps"  , "oBut_Card"   , "oBut_Ins", .... } 
  
       aBtnPst := { 3, 4, 10, 11, 22, 20, 21, 50, 70, 60, 80, 85, 90 } // _wPost(Х) 
  
    ELSEIF nTable == 2  // таблица: Список абонентов 
    .............. 
 

///////////////////////////////////////////////////////////////////////////////////////////// 
 FUNCTION my2BUTTON(y, x, w, h, cObj, cCapt, aBtnGrad, aBtnClr, aIcon, aFntClr, aFnt, nwPost ) 
    LOCAL aGrOver, aGrFill, nSizeIcon, lSizeIcon, y1, x1, lTextVertical, cForm 
    DEFAULT cCapt    := "" , aFntClr := {  BLACK, YELLOW } 
    DEFAULT aFnt     := { "Tahona", 12 , .T. , .F. } , aIcon := {"Icon1x1","Icon1x1",.F.,48} 
    DEFAULT aBtnGrad := {} , aBtnClr := { BLUE, YELLOW } 
  
    cForm := _HMG_ThisFormName 
  
    IF LEN(aFnt) == 4 
       lTextVertical := aFnt[4]  //  VERTICAL 
    ELSE 
       lTextVertical := .F. 
    ENDIF 
  
    IF LEN(aIcon) < 3  ;  lSizeIcon := .F. 
    ELSE               ;  lSizeIcon := aIcon[3] 
    ENDIF 
    IF LEN(aIcon) < 4  ;  nSizeIcon := 32 
    ELSE               ;  nSizeIcon := aIcon[4] 
    ENDIF 
  
    IF LEN(aBtnGrad) > 0 
  
       aGrOver := { { 0.5, aBtnGrad[2], aBtnGrad[1] }, { 0.5, aBtnGrad[1], aBtnGrad[2] } } 
       aGrFill := { { 0.5, aBtnGrad[1], aBtnGrad[2] }, { 0.5, aBtnGrad[2], aBtnGrad[1] } } 
  
       IF lSizeIcon 
          IF lTextVertical  //  VERTICAL 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]       ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP                                          ; 
               BACKCOLOR aGrOver GRADIENTFILL aGrFill                                  ; 
               FONT aFnt[1] SIZE aFnt[2]  BOLD  VERTICAL                               ; 
               ON MOUSEHOVER ( This.GradientFill := aGrFill , This.Fontcolor := aFntClr[2]  ,; 
                               This.Icon := LoadIconByName(aIcon[2], nSizeIcon, nSizeIcon) ) ; 
               ON MOUSELEAVE ( This.GradientOver := aGrOver , This.Fontcolor := aFntClr[1]  ,; 
                               This.Icon := LoadIconByName(aIcon[1], nSizeIcon, nSizeIcon) ) ; 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ELSE 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]       ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP                                          ; 
               BACKCOLOR aGrOver GRADIENTFILL aGrFill                                  ; 
               FONT aFnt[1] SIZE aFnt[2]  BOLD                                         ; 
               ON MOUSEHOVER ( This.GradientFill := aGrFill , This.Fontcolor := aFntClr[2]  ,; 
                               This.Icon := LoadIconByName(aIcon[2], nSizeIcon, nSizeIcon) ) ; 
               ON MOUSELEAVE ( This.GradientOver := aGrOver , This.Fontcolor := aFntClr[1]  ,; 
                               This.Icon := LoadIconByName(aIcon[1], nSizeIcon, nSizeIcon) ) ; 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ENDIF 
          // при первом построении изменить размер иконки 
          This.&(cObj).Icon := LoadIconByName( aIcon[1], nSizeIcon, nSizeIcon ) 
       ELSE 
          IF lTextVertical  //  VERTICAL 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]        ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP                                          ; 
               BACKCOLOR aGrOver GRADIENTFILL aGrFill                                  ; 
               FONT aFnt[1] SIZE aFnt[2]  BOLD  VERTICAL                               ; 
               ON MOUSEHOVER ( This.GradientFill := aGrFill , This.Icon := aIcon[2] ,; 
                               This.Fontcolor := aFntClr[2]  )                         ; 
               ON MOUSELEAVE ( This.GradientOver := aGrOver , This.Icon := aIcon[1] ,; 
                               This.Fontcolor := aFntClr[1]  )                         ; 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ELSE 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]        ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP                                          ; 
               BACKCOLOR aGrOver GRADIENTFILL aGrFill                                  ; 
               FONT aFnt[1] SIZE aFnt[2]  BOLD                                         ; 
               ON MOUSEHOVER ( This.GradientFill := aGrFill , This.Icon := aIcon[2] ,; 
                               This.Fontcolor := aFntClr[2]  )                         ; 
               ON MOUSELEAVE ( This.GradientOver := aGrOver , This.Icon := aIcon[1] ,; 
                               This.Fontcolor := aFntClr[1]  )                         ; 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ENDIF 
       ENDIF 
  
    ELSE 
  
       IF lSizeIcon 
          IF lTextVertical  //  VERTICAL 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]        ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP BACKCOLOR aBtnClr[1]                      ; 
               FONT aFnt[1] SIZE aFnt[2] BOLD VERTICAL                                  ; 
               ON MOUSEHOVER ( This.Backcolor := aBtnClr[2] , This.Fontcolor := aFntClr[2] ,; 
                               This.Icon := LoadIconByName(aIcon[2],nSizeIcon,nSizeIcon) ); 
               ON MOUSELEAVE ( This.Backcolor := aBtnClr[1] , This.Fontcolor := aFntClr[1] ,; 
                               This.Icon := LoadIconByName(aIcon[1],nSizeIcon,nSizeIcon) ); 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ELSE 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]        ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP BACKCOLOR aBtnClr[1]                     ; 
               FONT aFnt[1] SIZE aFnt[2] BOLD                                          ; 
               ON MOUSEHOVER ( This.Backcolor := aBtnClr[2] , This.Fontcolor := aFntClr[2] ,; 
                               This.Icon := LoadIconByName(aIcon[2],nSizeIcon,nSizeIcon) ); 
               ON MOUSELEAVE ( This.Backcolor := aBtnClr[1] , This.Fontcolor := aFntClr[1] ,; 
                               This.Icon := LoadIconByName(aIcon[1],nSizeIcon,nSizeIcon) ); 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ENDIF 
          // при первом построении изменить размер иконки 
          This.&(cObj).Icon := LoadIconByName( aIcon[1], nSizeIcon, nSizeIcon ) 
       ELSE 
          IF lTextVertical  //  VERTICAL 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]       ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP  BACKCOLOR aBtnClr[1]                    ; 
               FONT aFnt[1] SIZE aFnt[2] BOLD  VERTICAL                                ; 
               ON MOUSEHOVER ( This.Backcolor := aBtnClr[2] , This.Icon := aIcon[2] ,; 
                               This.Fontcolor := aFntClr[2]  )                         ; 
               ON MOUSELEAVE ( This.Backcolor := aBtnClr[1] , This.Icon := aIcon[1] ,; 
                               This.Fontcolor := aFntClr[1]  )                         ; 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ELSE 
             @ y, x  BUTTONEX &cObj PARENT &cForm WIDTH w HEIGHT h CAPTION cCapt ICON aIcon[1]        ; 
               NOXPSTYLE HANDCURSOR NOTABSTOP  BACKCOLOR aBtnClr[1]                    ; 
               FONT aFnt[1] SIZE aFnt[2] BOLD                                          ; 
               ON MOUSEHOVER ( This.Backcolor := aBtnClr[2] , This.Icon := aIcon[2] ,; 
                               This.Fontcolor := aFntClr[2]  )                         ; 
               ON MOUSELEAVE ( This.Backcolor := aBtnClr[1] , This.Icon := aIcon[1] ,; 
                               This.Fontcolor := aFntClr[1]  )                         ; 
               ON INIT   {|| This.Cargo := nwPost }                                    ; 
               ACTION _wPost(This.Cargo, , This.Name) 
          ENDIF 
       ENDIF 
    ENDIF 
  
    y1 := y + This.&(cObj).Height 
    x1 := x + This.&(cObj).Width 
  
 RETURN { y1, x1 }

 
  
 *----------------------------------------------------------------------------* 
 FUNCTION oRecGet( aField, oRec ) 
 *----------------------------------------------------------------------------* 
    LOCAL cFld, nPos 
    Default oRec := oKeyData() 
  
    IF ISCHAR(aField) 
       aField := alltrim(aField) 
       IF left(aField, 1) == "{" .and. right(aField, 1) == "}" 
          aField := &aField 
       ELSE 
          aField := hb_ATokens(aField, ",") 
       ENDIF 
    ENDIF 
  
    IF ISARRAY(aField) 
       FOR EACH cFld IN aField 
           IF     Empty( cFld ) ; LOOP 
           ELSEIF ISARRAY(cFld) ; cFld := cFld[1]  // массив как структура 
           ENDIF 
           cFld := alltrim(cFld) 
           IF ( nPos := FieldPos(cFld) ) > 0 
              oRec:Set( trim(FieldName(nPos)), FieldGet(nPos) ) 
           ENDIF 
       NEXT 
    ELSE 
       AEval( Array( FCount() ), {|v,n| v:=n, oRec:Set( trim(FieldName(n)), FieldGet(n) ) } ) 
    ENDIF 
  
 RETURN oRec 
  
 *----------------------------------------------------------------------------* 
 FUNCTION oRecPut( oRec, aField ) 
 *----------------------------------------------------------------------------* 
    LOCAL aFld, cFld, nPos, xVal, nCnt := 0 
  
    IF ISCHAR( aField ) 
       aField := alltrim(aField) 
       IF left(aField, 1) == "{" .and. right(aField, 1) == "}" 
          aField := &aField 
       ELSE 
          aField := hb_ATokens(aField, ",") 
       ENDIF 
    ENDIF 
  
    IF ISARRAY( aField ) 
       FOR EACH cFld IN aField 
           IF ISARRAY(cFld) ; cFld := aFld[1]  // массив как структура 
           ENDIF 
           IF Empty( cFld ) ; LOOP 
           ENDIF 
           cFld := upper(alltrim( cFld )) 
           xVal := oRec:Get( cFld ) 
           IF xVal == NIL ; LOOP 
           ENDIF 
           IF ( nPos := FieldPos(cFld) ) > 0 
              IF FieldType( nPos ) $ "+^=";  LOOP  // защита записи 
              ENDIF 
              FieldPut( nPos, xVal ) 
              nCnt++ 
           ENDIF 
       NEXT 
    ELSE 
       FOR EACH aFld IN oRec:GetAll(.F.) 
           cFld := aFld[1] 
           IF Empty(cFld) .or. aFld[2] == NIL ; LOOP 
           ENDIF 
           IF ( nPos := FieldPos(cFld) ) > 0 
              IF FieldType( nPos ) $ "+^=";  LOOP  // защита записи 
              ENDIF 
              FieldPut( nPos, aFld[2] ) 
              nCnt++ 
           ENDIF 
       NEXT 
    ENDIF 
  
 RETURN nCnt > 0