HB_FUNC( TSBRWSCROLL ) 
 { 
    HWND  hWnd          = ( HWND ) HB_PARNL( 1 ); 
    int   iRows         = hb_parni( 2 ); 
    HFONT hFont         = ( HFONT ) HB_PARNL( 3 ); 
    int   nHeightCell   = hb_parni( 4 ); 
    int   nHeightHead   = hb_parni( 5 ); 
    int   nHeightFoot   = hb_parni( 6 ); 
    int   nHeightSuper  = hb_parni( 7 ); 
    int   nHeightSpecHd = hb_parni( 8 ); 
  
    HFONT hOldFont = NULL; 
    HDC   hDC      = GetDC( hWnd ); 
    RECT  rct; 
  
    if( hFont ) 
       hOldFont = ( HFONT ) SelectObject( hDC, hFont ); 
  
    GetClientRect( hWnd, &rct ); 
  
    rct.top    += ( nHeightHead + nHeightSuper - ( nHeightSuper ? 1 : 0 ) + nHeightSpecHd - ( nHeightSpecHd ? 1 : 0 ) ); // exclude heading from scrolling 
    rct.bottom -= nHeightFoot;                                                                                           // exclude footing from scrolling 
    rct.bottom -= ( ( rct.bottom - rct.top  ) % nHeightCell );                                                           // exclude unused portion at bottom 
    if( iRows > 0 ) 
       rct.bottom -= nHeightCell; 
    else 
       rct.top += nHeightCell; 
  
    ScrollWindowEx( hWnd, 0, ( int ) -( nHeightCell * iRows ), 0, &rct, 0, 0, 0 ); 
  
    if( hFont ) 
       SelectObject( hDC, hOldFont ); 
  
    ReleaseDC( hWnd, hDC ); 
 } 
 

 
 #include "minigui.ch" 
 #include "tsbrowse.ch" 
 #include "common.ch" 
 #include "hmg.ch" 
 #include "i_winuser.ch" 
  
  
 static oMain 
 static hMain 
  
 Func Main() 
  
     SET OOP ON 
  
     DEFINE WINDOW Form_0                                  ; 
 		AT 0,0                                             ; 
       WIDTH    GetDeskTopWidth()                        ; 
       HEIGHT   GetDesktopHeight() - GetTaskBarHeight()                       ; 
 		TITLE "Test ::CellInfo"            ; 
 		MAIN                                               ; 
       ON INIT {|| nil }                          ; 
       NOTIFYICON "CRANE"                                ; 
       NOTIFYTOOLTIP "TestCell"      ; 
  
       oMain :=This.Object 
       hMain := ThisWindow.Handle 
  
  
   		DEFINE STATUSBAR  Font  "ARIAL" SIZE 9 BOLD 
 			STATUSITEM '' WIDTH  100 ACTION Nil 
 			STATUSITEM '' WIDTH  150 ACTION Nil 
 			STATUSITEM ''            ACTION Nil 
 			STATUSITEM '' WIDTH   80 ACTION Nil 
 			STATUSITEM '' WIDTH  400 ACTION Nil 
          DATE 
          CLOCK 
 		END STATUSBAR 
  
  
  
  
  
  
  
  
       DEFINE SPLITBOX HANDLE hSpl 
          DEFINE TOOLBAR ToolBar_1 CAPTION ""              BUTTONSIZE 60,32 FLAT 
             BUTTON 01 ; 
                CAPTION 'Справочники'  ; 
                PICTURE 'NEWSUPLOAD16' ; 
  
  
             BUTTON 02  ; 
                CAPTION 'Портфель'  ; 
                PICTURE 'n2'      ; 
 					WHOLEDROPDOWN SEPARATOR 
 					 
                DEFINE DROPDOWN MENU BUTTON 02 
                   ITEM "Моделирование"                          IMAGE 'factory16'  ACTION _wPost(11)      NAME 100 
              END MENU 
  
  
          END TOOLBAR 
  
          DEFINE TOOLBAR ToolBar_2 CAPTION ""               BUTTONSIZE 42,32 FLAT 
             BUTTON 99  CAPTION 'Выход'    PICTURE 'exit'   ACTION {|| oMain:Release()} 
          END TOOLBAR 
        END SPLITBOX 
  
 	This.Height := GetDeskTopHeight() - This.StatusBar.Height -  GetBorderHeight() 
  
  
  
  
  
 	END WINDOW 
  
  
  
        DoMethod("Form_0", "maximize") 
        oBrw := CreateBrowse( oMain ) 
  
        Form_0.Activate 
        CUSTOMER->(dbClosearea()) 
 Return nil 
  
  
 FUNCTION CreateBrowse( oWnd  ) 
  
    LOCAL i 
    LOCAL aDatos := {} 
  
    FOR i := 1 TO 1000 
       AAdd( aDatos, { i, RandStr( 30 ), Date() - i, if( i % 2 == 0, TRUE, FALSE ) } ) 
    NEXT 
     
    if isControlDefined( "oBrw", "Form_0" ) 
       doMethod( "Form_0" , "oBrw", "Release") 
    end 
  
    DEFINE TBROWSE oBrw AT 50, 2 ; 
       OF Form_0 ; 
       WIDTH oWnd:ClientWidth() - 4 ; 
       HEIGHT oWnd:ClientHeight() - GetProperty( "Form_0", "StatusBar", "Height" ) - 52 ; 
       GRID ; 
       FONT "Arial" SIZE 12 
  
    oBrw:SetArray( aDatos, .T. ) 
    oBrw:nWheelLines   := 1 
    oBrw:nClrLine      := COLOR_GRID 
    oBrw:lNoChangeOrd  := TRUE 
    oBrw:lCellBrw      := TRUE 
    oBrw:hBrush 	      := CreateSolidBrush( 242, 245, 204 ) 
  
    oBrw:lNoVScroll    := TRUE 
    oBrw:nHeightCell := 22 
    oBrw:nHeightHead := 22 
    oBrw:nLineStyle  := 6 
  
    // prepare for showing of Double cursor 
    AEval( oBrw:aColumns, {| oCol| oCol:lFixLite := oCol:lEdit := TRUE , oCol:bPrevEdit := {|xVal, oBrw| PrevEdit(xVal, oBrw) }} ) 
  
    // assignment of column's names 
    oBrw:aColumns[ 1 ]:cName := "NUMBER" 
    oBrw:aColumns[ 2 ]:cName := "TEXT" 
    oBrw:aColumns[ 3 ]:cName := "DATE" 
    oBrw:aColumns[ 4 ]:cName := "LOGIC" 
  
    // the reference to columns by names 
    oBrw:SetColSize( "NUMBER", 100 ) 
    oBrw:SetColSize( "TEXT", 500 ) 
    oBrw:SetColSize( "DATE", 200 ) 
  
    // Checking the method nColumn() 
    oBrw:SetColSize( oBrw:nColumn( "LOGIC" ), 300 ) 
  
  
    oBrw:GetColumn( 'NUMBER' ):nAlign := DT_CENTER 
    oBrw:GetColumn( 'TEXT'   ):nAlign := DT_LEFT 
    oBrw:GetColumn( 'DATE'   ):nAlign := DT_CENTER 
    oBrw:GetColumn( 'LOGIC'  ):nAlign := DT_CENTER 
  
  
    oBrw:SetColor( { 1 }, { RGB( 0, 12, 120 ) } ) 
    oBrw:SetColor( { 2 }, { RGB( 242, 245, 204 ) } ) 
    oBrw:SetColor( { 5 }, { RGB( 0, 0, 0 ) } ) 
    oBrw:SetColor( { 6 }, { {|a, b, c| IF( c:nCell == b, { RGB( 66, 255, 236 ), RGB( 111, 183, 155 ) }, ; 
       { RGB( 255, 255, 255 ), RGB( 200, 200, 200 ) } )  }   } )  // cursor backcolor 
  
    END TBROWSE 
  
   
  
  
  
 RETURN oBrw 
  
 FUNCTION RandStr( nLen ) 
  
    LOCAL cSet  := "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM" 
    LOCAL cPass := "" 
    LOCAL i := 0 
  
    FOR i := 1 TO nLen 
       cPass += SubStr( cSet, Random( 52 ), 1 ) 
    NEXT 
  
 RETURN cPass 
  
  
 Func PrevEdit(xVal, oBrw) 
 LOCAL oCell 
 LOCAL oWnd, hWnd 
 LOCAL aRect := {0,0,0,0} 
  
            GetWindowRect( oBrw:hWnd, aRect ) 
            SET OOP ON 
            oCell := oBrw:GetCellInfo(oBrw:nRowPos) 
            DEFINE WINDOW Cell                                                                                              ; 
                AT oCell:nRow + aRect[2] + 1 ,   oCell:nCol + aRect[1] +1                                                                                ;  // aRect  добавлено чтоб перейти в физические координаты , иначе при перемещении окна координаты не меняются 
                WIDTH    oCell:nWidth - 2                                                                                              ; 
                HEIGHT   oCell:nHeight -2                        ; 
                NOCAPTION                                                                                                    ; 
                MODAL                                                                                                        ; 
  
  
                oWnd := ThisWindow.Object 
                hWnd := oWnd:Handle() 
  
             END WINDOW 
  
             SetWindowLong(hWnd, GWL_STYLE, WS_BORDER) 
  
             _DefineHotKey ( "CELL" , 0 , VK_ESCAPE , {|| oWnd:Release() } ) 
             _DefineHotKey ( "CELL" , 0 , VK_RETURN , {|| oWnd:Release() } ) 
             Cell.Activate 
             oBrw:DrawSeLect() 
  
 return .F. 
  
 

 
  ix := GetControlIndex( cBrw, cForm ) 
    IF _HMG_aControlContainerRow[ ix ] == -1 
       nRow += ::nTop - 1 
       nCol += ::nLeft 
    ELSE 
       nRow += _HMG_aControlRow[ ix ] - 1 
       nCol += _HMG_aControlCol[ ix ] 
    ENDIF 
  
  
 

 
 #include "minigui.ch" 
 #include "tsbrowse.ch" 
 #include "common.ch" 
 #include "hmg.ch" 
 #include "i_winuser.ch" 
  
  
 static oMain 
 static hMain 
  
 FUNCTION Main() 
     LOCAL nBtnW, nBtnH, nEndW, oBrw 
  
     SET DATE GERMAN 
  
     SET OOP ON 
  
     SET FONT TO "Arial", 12 
     // кнопки toolbar от размера фонта 
     nBtnW := App.Object:W(1.5) 
     nBtnH := App.Object:H1 + 16 + 2       // 16 - это размер по высоте bmp 
     nEndW := App.Object:W(0.7) 
  
     DEFINE WINDOW Form_0 AT 0,0  WIDTH Sys.ClientWidth HEIGHT Sys.ClientHeight ; 
        TITLE "Test ::CellInfo"       ; 
        MAIN                          ; 
        ON INIT    NIL                ; 
        ON RELEASE dbCloseAll()       ; 
        NOTIFYICON "CRANE"            ; 
        NOTIFYTOOLTIP "TestCell"      ; 
  
        oMain := This.Object 
        hMain := ThisWindow.Handle 
  
        //DEFINE STATUSBAR  /*Font  "ARIAL" SIZE 9*/ BOLD 
        DEFINE STATUSBAR FONT App.FontName SIZE iif( App.FontSize > 11, 11, App.FontSize ) BOLD 
           STATUSITEM '' WIDTH  100 ACTION Nil 
           STATUSITEM '' WIDTH  150 ACTION Nil 
           STATUSITEM ''            ACTION Nil 
           STATUSITEM '' WIDTH   80 ACTION Nil 
           STATUSITEM '' WIDTH  400 ACTION Nil 
           DATE 
           CLOCK 
        END STATUSBAR 
  
        DEFINE SPLITBOX HANDLE hSpl 
        DEFINE TOOLBAR ToolBar_1 CAPTION ""                          BUTTONSIZE nBtnW, nBtnH FLAT 
           BUTTON 01 CAPTION 'Справочники'  PICTURE 'NEWSUPLOAD16'                 SEPARATOR 
           BUTTON 02 CAPTION 'Портфель'     PICTURE 'n2'             WHOLEDROPDOWN SEPARATOR 
              DEFINE DROPDOWN MENU BUTTON 02 
              ITEM "Моделирование"                          IMAGE 'factory16'  ACTION _wPost(11)      NAME 100 
              END MENU 
        END TOOLBAR 
        DEFINE TOOLBAR ToolBar_2 CAPTION ""                          BUTTONSIZE nEndW, nBtnH FLAT 
           BUTTON 99  CAPTION 'Выход'    PICTURE 'exit'   ACTION {|| oMain:Release()} 
        END TOOLBAR 
        END SPLITBOX 
  
     END WINDOW 
  
     DoMethod(oMain:Name, "maximize") 
     oBrw := CreateBrowse( oMain, GetWindowHeight(hSpl) + 2, 2 ) 
  
     ACTIVATE WINDOW &(oMain:Name)     //Form_0.Activate 
  
 Return nil 
  
  
 FUNCTION CreateBrowse( oWnd, nY, nX  ) 
  
    LOCAL i, oBrw 
    LOCAL aDatos := {} 
  
    FOR i := 1 TO 1000 
       AAdd( aDatos, { i, RandStr( 30 ), Date() - i, if( i % 2 == 0, TRUE, FALSE ) } ) 
    NEXT 
  
    if isControlDefined( "oBrw", oWnd:Name ) 
       doMethod( oWnd:Name , "oBrw", "Release") 
    end 
  
    DEFINE TBROWSE oBrw AT nY, nX  OF &(oWnd:Name) ; 
       WIDTH  oWnd:ClientWidth()  - nX * 2 ; 
       HEIGHT oWnd:ClientHeight() - oWnd:StatusBar:Height - nY ; 
       GRID  
       //FONT "Arial" SIZE 12 
  
    :SetArray( aDatos, .T. ) 
    :nWheelLines   := 1 
    :nClrLine      := COLOR_GRID 
    :lNoChangeOrd  := TRUE 
    :lCellBrw      := TRUE 
    :hBrush        := CreateSolidBrush( 242, 245, 204 ) 
  
    :lNoVScroll    := TRUE 
    :nHeightCell   := 22 
    :nHeightHead   := 22 
    :nLineStyle    := 6 
  
    // prepare for showing of Double cursor 
    AEval( :aColumns, {| oCol| oCol:lFixLite := oCol:lEdit := TRUE , oCol:bPrevEdit := {|xVal, oBrw| PrevEdit(xVal, oBrw) }} ) 
  
    // assignment of column's names 
    :aColumns[ 1 ]:cName := "NUMBER" 
    :aColumns[ 2 ]:cName := "TEXT" 
    :aColumns[ 3 ]:cName := "DATE" 
    :aColumns[ 4 ]:cName := "LOGIC" 
  
    // the reference to columns by names 
    :SetColSize( "NUMBER", 100 ) 
    :SetColSize( "TEXT", 500 ) 
    :SetColSize( "DATE", 200 ) 
  
    // Checking the method nColumn() 
    :SetColSize( oBrw:nColumn( "LOGIC" ), 300 ) 
  
  
    :GetColumn( 'NUMBER' ):nAlign := DT_CENTER 
    :GetColumn( 'TEXT'   ):nAlign := DT_LEFT 
    :GetColumn( 'DATE'   ):nAlign := DT_CENTER 
    :GetColumn( 'LOGIC'  ):nAlign := DT_CENTER 
  
  
    :SetColor( { 1 }, { RGB( 0, 12, 120 ) } ) 
    :SetColor( { 2 }, { RGB( 242, 245, 204 ) } ) 
    :SetColor( { 5 }, { RGB( 0, 0, 0 ) } ) 
    :SetColor( { 6 }, { {|a, b, c| IF( c:nCell == b, { RGB( 66, 255, 236 ), RGB( 111, 183, 155 ) }, ; 
       { RGB( 255, 255, 255 ), RGB( 200, 200, 200 ) } )  }   } )  // cursor backcolor 
  
    END TBROWSE 
  
 RETURN oBrw 
  
 FUNCTION RandStr( nLen ) 
  
    LOCAL cSet  := "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM" 
    LOCAL cPass := "" 
    LOCAL i := 0 
  
    FOR i := 1 TO nLen 
       cPass += SubStr( cSet, Random( 52 ), 1 ) 
    NEXT 
  
 RETURN cPass 
  
  
 FUNCTION PrevEdit(xVal, oBrw) 
    LOCAL oCell := oBrw:GetCellInfo(oBrw:nRowPos) 
    LOCAL nY := oCell:nRow + oBrw:nHeightHead + 4 
    LOCAL nX := oCell:nCol 
    LOCAL nW := oCell:nWidth 
    LOCAL nH := oCell:nHeight 
    LOCAL oWnd, hWnd 
  
    DEFINE WINDOW Cell AT nY,nX WIDTH nW - 2 HEIGHT nH - 2 MODAL NOCAPTION ; 
           ON LOSTFOCUS oWnd:Release() 
       oWnd := ThisWindow.Object 
       hWnd := oWnd:Handle 
  
     END WINDOW 
  
     SetWindowLong(hWnd, GWL_STYLE, WS_BORDER) 
  
     _DefineHotKey ( "CELL" , 0 , VK_ESCAPE , {|| oWnd:Release() } ) 
     _DefineHotKey ( "CELL" , 0 , VK_RETURN , {|| oWnd:Release() } ) 
     Cell.Activate 
     oBrw:DrawSeLect() 
  
 return .F.