ON INIT { || MyInitCard(cTableForm,lEditPrg,hCursorTable),; 
                     ResizeCardForm(cTableForm) , SizePageBack(1)   } ; 

       SetTab_1Card(nRowTab,nFWidth,nFHeight,cFNameTab,nFSizeTab,lEditPrg,aBackColor,; 
                   aTabName, aTabColor, aDimCard, aFontNames, aFontFields, aTabFColor2  ) 
  
        ON KEY ESCAPE OF Form_Card ACTION ThisWindow.Release 
        ON KEY PRIOR  OF Form_Card ACTION MyPageUpCard(cTableForm)    // это PageUp 
        ON KEY NEXT   OF Form_Card ACTION MyPageDownCard(cTableForm)  // это PageDown 
  
    END WINDOW 
 ACTIVATE WINDOW Form_Card 

 DEFINE TAB Tab_1 OF Form_Card ;  
       .........  
        ON CHANGE SizePageBack( Form_Card.Tab_1.Value )  
  
         Form_Card.Tab_1.Visible := .F. 
   
        _HMG_ActiveTabBottom := .F. // lBottomStyle  
    
         FOR nI := 1 TO LEN( aTabName )  
            IF aStatCheckTabView[nI] // показ вкладки разрешено !  
               PAGE aTabName[ nI ]  //IMAGE cResTabImage  
                  cNameLabel := 'Page_' + hb_ntos( nI )  
                  @ 24, 2 LABEL &cNameLabel VALUE "" WIDTH 0 HEIGHT 0 BACKCOLOR aTabColor[nI]  
                  // вывести поля карточки  
                  ShowPageCard( nI, nRowTab, aTabColor[ nI ], aDimCard[ nI ],;  
                                 aFontNames, aFontFields, lEditPrg, nFSizeTab )     
               END PAGE  
            ENDIF    
         NEXT  
    
     END TAB 

_BeginFrame ( cObj,, nY, nX, nWFrm, nHFrm , aObjFrm[nI,2] , , , .F. , .F., .F., .F., .F. , aBackColor , {255, 0, 0} , .F. , .F. , , ) 
 

 
    _HMG_aControlType [k] := "FRAME" 
    _HMG_aControlNames  [k] :=  ControlName 
    _HMG_aControlHandles  [k] :=  ControlHandle 
    ............... 
    _HMG_aControlBkColor  [k] :=  backcolor 
    _HMG_aControlFontColor  [k] :=  fontcolor 
 ? "_HMG_aControlFontColor["+HB_NtoS(K)+"]", HB_ValToExp( _HMG_aControlFontColor[k] )

_HMG_aControlFontColor[27]	{255, 0, 0}