* ----------------------------------------------------------------------------------- * 
 STATIC FUNCTION DokRetResize( oBrw ) 
 * ----------------------------------------------------------------------------------- * 
     LOCAL nW := This.ClientWidth - oBrw:nLeft 
     LOCAL nH := This.ClientHeight, y, x, w, h, g 
     LOCAL oWnd, aPar, nAlC, hSpl, nAlH, nGaH, nSpH 
  
     oBrw:OnResize( nW, nH ) 
  
    IF _HMG_MouseState == 0 
     
       oWnd := This.Object 
       aPar := oWnd:GetProp(0) 
       nAlC := aPar[4] 
       hSpl := aPar[5] 
       nAlH := aPar[6] 
       nGaH := aPar[7] 
       nSpH := GetWindowHeight(hSpl) 
       h    := nH - nSpH - nAlH                 // остаток высоты без контролов 
       g    := int( h / nAlC )                      // GapsHeight new 
       y    := nSpH + g                            // Y start 
  
       AEval( oWnd:GetObj4Type('LABEL,GETBOX,OBUTTON'), {|oc| oc:Hide() } ) 
  
       This.K_1.Row := y; y += This.K_1.Height + g 
       This.K_2.Row := y; y += This.K_2.Height + g 
       This.K_3.Row := y 
       This.K_4.Row := y; y += This.K_4.Height + g 
       This.K_5.Row := y 
       This.K_6.Row := y; y += This.K_6.Height + g 
       This.K_7.Row := y; y += This.K_7.Height + g 
       This.K_8.Row := y; y += This.K_8.Height + g 
       This.K_9.Row := y; y += This.K_9.Height + g 
       This.K_A.Row := y; y += This.K_A.Height + g 
       This.K_B.Row := y 
       This.K_C.Row := y; y += This.K_C.Height + g 
       This.K_D.Row := y 
       This.K_E.Row := y; y += This.K_E.Height + g 
       This.K_F.Row := y 
       This.K_G.Row := y; y += This.K_G.Height + g 
       This.K_H.Row := y 
       This.K_I.Row := y; y += This.K_I.Height + g 
  
       This.O_1.Row := y; y += This.O_1.Height + g 
       This.O_2.Row := y; y += This.O_2.Height + g 
       This.O_3.Row := y 
       This.O_4.Row := y; y += This.O_4.Height + g 
       This.O_5.Row := y 
       This.O_6.Row := y; y += This.O_6.Height + g 
       This.O_7.Row := y 
       This.O_8.Row := y; y += This.O_8.Height + g 
       This.O_D.Row := y 
       This.O_E.Row := y; y += This.O_E.Height + g 
       This.O_F.Row := y 
       This.O_G.Row := y; y += This.O_G.Height + g 
       This.O_H.Row := y 
       This.O_I.Row := y; y += This.O_I.Height + g 
  
       This.Save.Row := y 
  
       AEval( oWnd:GetObj4Type('LABEL,GETBOX,OBUTTON'), {|oc| oc:Show() } ) 
  
       oBrw:AdjColumns()  
       oBrw:SetFocus() 
  
    ENDIF 
  
 RETURN NIL 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
 #include "tsbrowse.ch" 
  
 FIELD id, info 
 *----------------------------------- 
 PROCEDURE Main 
 *----------------------------------- 
    LOCAL i, obrw 
  
    IF !hb_FileExists( "datab.dbf" ) 
       dbCreate( "datab", { { "ID", "N", 5, 0 }, { "INFO", "C", 15, 0 } } ) 
    ENDIF 
  
    USE datab ALIAS base NEW 
    INDEX ON id TO datab temporary 
  
    IF LastRec() == 0 
       FOR i := 1 TO 100 
          APPEND BLANK 
          REPLACE id WITH RecNo(), info WITH "record " + hb_ntos( RecNo(), 4 ) 
       NEXT 
    ENDIF 
  
    DEFINE WINDOW win_1 AT 0, 0 WIDTH 400 HEIGHT 500 ; 
       MAIN TITLE "TSBrowse Add Record Demo" NOMAXIMIZE NOSIZE 
  
       @06, 10 BUTTON BRUN CAPTION "Add Record" ACTION AddRecord( obrw ) // DEFAULT 
  
       DEFINE TBROWSE obrw AT 40, 10 GRID ALIAS "base" WIDTH 370 HEIGHT 418 ; 
                   ON INIT {|ob| InitTsb( .F., ob ) } 
       END TBROWSE ON INIT {|ob| InitTsb( .T., ob ) } 
  
    END WINDOW 
  
    CENTER WINDOW win_1 
    ACTIVATE WINDOW win_1 
  
 RETURN 
  
 *----------------------------------- 
 STAT FUNC InitTsb( lEnd, obrw ) 
 *----------------------------------- 
  
    If ! lEnd 
  
       ADD COLUMN TO obrw HEADER "ID"   SIZE 100 DATA FieldWBlock( "id"  , Select( "base" ) ) 
       ADD COLUMN TO obrw HEADER "INFO" SIZE 150 DATA FieldWBlock( "info", Select( "base" ) ) 
  
       obrw:lNoHScroll := .T. 
       obrw:SetColor( { 2 }, { {|| iif( base->( ordKeyNo() ) % 2 == 0, RGB( 255, 255, 255 ), RGB( 230, 230, 230 ) ) } } ) 
  
    Else 
  
       obrw:SetNoHoles() 
       obrw:SetFocus() 
  
    EndIf 
        
 RETURN NIL 
  
 *----------------------------------- 
 PROCEDURE AddRecord( obrw ) 
 *----------------------------------- 
    APPEND BLANK 
    REPLACE id WITH RecNo(), info WITH "record " + hb_ntos( RecNo(), 4 ) 
  
    obrw:GoToRec( base->( RecNo() ), .T. ) 
    obrw:SetFocus() 
  
 RETURN 
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION _EndTBrowse( bInit ) 
 *-----------------------------------------------------------------------------* 
    LOCAL i, oBrw 
    LOCAL oc, ow := oDlu2Pixel() 
  
    IF _HMG_BeginTBrowseActive 
       i := AScan ( _HMG_aControlHandles, _HMG_ActiveTBrowseHandle ) 
       IF i > 0 
          oBrw := _HMG_aControlIds[ i ] 
          oBrw:lRePaint := .T. 
          oBrw:Display() 
          _HMG_ActiveTBrowseName   := "" 
          _HMG_ActiveTBrowseHandle := 0 
          _HMG_BeginTBrowseActive  := .F. 
  
          IF _HMG_lOOPEnabled 
             ow := _WindowObj ( _HMG_aControlParenthandles[ i ] ) 
             oc := _ControlObj( _HMG_aControlHandles      [ i ] ) 
          ENDIF 
  
          Do_ControlEventProcedure ( bInit, i, oBrw, ow, oc ) 
  
       ENDIF 
    ENDIF 
  
 RETURN NIL