METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
 было 
 ... 
    EndIf 
  
    SetToolTip ( ::hWnd , ::cToolTip , hToolTip )   //JP  V90 
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
 стало 
    ctooltip := ::cToolTip 
    If Valtype(ctooltip) == "B" 
       ctooltip := Eval(ctooltip, Self, 0)        // 0 - new method 
       If Valtype(ctooltip) != "C" 
          ctooltip := "" 
       EndIf  
    EndIf 
  
    SetToolTip ( ::hWnd , ctooltip , hToolTip )   //JP  V90 
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
  
 METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) CLASS TSBrowse 
 ... 
 было 
    If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ; 
       ! Empty( ::aColumns[ nColumn ]:cToolTip ) 
       If nToolTip != nColumn 
          SetToolTip ( ::hWnd , ::aColumns[ nColumn ]:cToolTip , hToolTip ) 
          SysRefresh() 
       EndIf 
  
       nToolTip := nColumn 
    Else 
       If nToolTip != 0 
          SetToolTip ( ::hWnd , ::cToolTip , hToolTip ) 
          SysRefresh() 
       endif 
       nToolTip := 0 
    EndIf 
 ... 
 стало 
    Local ctooltip 
 ... 
    If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ; 
       ! Empty( ::aColumns[ nColumn ]:cToolTip ) 
       If nToolTip != nColumn 
          SetToolTip ( ::hWnd , ::aColumns[ nColumn ]:cToolTip , hToolTip ) 
          SysRefresh() 
       EndIf 
  
       nToolTip := nColumn 
    Else 
       If nToolTip != 0 
          ctooltip := ::cToolTip 
          If Valtype(ctooltip) == "B" 
             ctooltip := Eval(ctooltip, Self, nColumn) 
             If Valtype(ctooltip) != "C" 
                ctooltip := "" 
             EndIf  
          EndIf 
          SetToolTip ( ::hWnd , ctooltip , hToolTip ) 
          SysRefresh() 
       endif 
  
       nToolTip := 0 
    EndIf 
 ... 
 

 
  
 METHOD Desktop()  CLASS TSBcell 
  
  ::nRow    := 0 
  ::nCol    := 0 
  ::nWidth  := GetDesktopWidth() 
  ::nHeight := GetDesktopHeight() - GetTaskBarHeight() 
  
 RETURN Self 
  
 METHOD App()  CLASS TSBcell 
  
  ::Window() 
  
 RETURN Self 
  
 METHOD Window( hWnd )  CLASS TSBcell 
  
  Default hWnd := _HMG_MainHandle 
  
  ::nRow    := GetWindowRow(hWnd) 
  ::nCol    := GetWindowCol(hWnd) 
  ::nWidth  := GetWindowWidth(hWnd) 
  ::nHeight := GetWindowHeight(hWnd) 
  
 RETURN Self 
  
 METHOD Client( hWnd )  CLASS TSBcell 
  Local actpos := { 0, 0, 0, 0 } 
  
  Default hWnd := _HMG_MainHandle 
  
  GetClientRect(hWnd, actpos) 
  ::nCol    := actpos[1] 
  ::nRow    := actpos[2] 
  ::nWidth  := actpos[3]-actpos[1] 
  ::nHeight := actpos[4]-actpos[2] 
  
 RETURN Self 
 

 
 METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
 было 
 ... 
    EndIf 
  
    SetToolTip ( ::hWnd , ::cToolTip , hToolTip )   //JP  V90 
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
 стало 
    ctooltip := ::cToolTip 
    If Valtype(ctooltip) == "B" 
       ctooltip := Eval(ctooltip, Self) 
    EndIf 
  
    SetToolTip ( ::hWnd , ctooltip , hToolTip )   //JP  V90 
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
  
 METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) CLASS TSBrowse 
 ... 
 было 
    If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ; 
       ! Empty( ::aColumns[ nColumn ]:cToolTip ) 
       If nToolTip != nColumn 
          SetToolTip ( ::hWnd , ::aColumns[ nColumn ]:cToolTip , hToolTip ) 
          SysRefresh() 
       EndIf 
  
       nToolTip := nColumn 
    Else 
       If nToolTip != 0 
          SetToolTip ( ::hWnd , ::cToolTip , hToolTip ) 
          SysRefresh() 
       endif 
       nToolTip := 0 
    EndIf 
 ... 
 стало 
    Local ctooltip 
 ... 
    If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ; 
       ! Empty( ::aColumns[ nColumn ]:cToolTip ) 
       If nToolTip != nColumn 
          ctooltip := ::cToolTip 
          If Valtype(ctooltip) == "B" 
             ctooltip := Eval(ctooltip, Self, nColumn) 
          EndIf 
          SetToolTip ( ::hWnd , ctooltip , hToolTip ) 
          SysRefresh() 
       EndIf 
  
       nToolTip := nColumn 
    Else 
       If nToolTip != nColumn 
          ctooltip := ::cToolTip 
          If Valtype(ctooltip) == "B" 
             ctooltip := Eval(ctooltip, Self, nColumn) 
          EndIf 
          SetToolTip ( ::hWnd , ctooltip , hToolTip ) 
          SysRefresh() 
       endif 
  
       nToolTip := nColumn 
    EndIf 
 ... 
  
 пример 
  
  oBrw:cToolTip             := {|oBr,nNr| "My TsBrowse tooltip "+str(nNr,3)+str(oBr:nAt,5) } 
  oBrw:aColumns[1]:cToolTip := {|oBr,nNr| "My columns Header tooltip "+str(nNr,3)+str(oBr:nAt,5) } 
  oBrw:aColumns[2]:cToolTip := {|oBr,nNr| "My columns Header tooltip "+str(nNr,3)+str(oBr:nAt,5) } 
  ... 
  или 
  bBlock := {|oBr,nNr| "My columns Header tooltip "+str(nNr,3)+str(oBr:nAt,5) } 
  aEval(oBrw:aColumns, {|oCol| oCol:cToolTip := bBlock }) 
 

rocedure Brw_5() 
    IF !_IsControlDefined ("oBrw5","Form_1") 
       Select("Test") 
  
       @ 10,630 TBROWSE oBrw5 ; 
          ALIAS "Test" ; 
          OF Form_1 WIDTH 250 HEIGHT 380 ; 
          CELLED ; 
          HEADERS  "Code","First","Last","Birth","Bio" ; 
          WIDTHS 50,150,150,100,200 ; 
          FIELDS FieldWBlock( "Code", Select() ),Test->First,Test->Last,FieldWBlock( "Birth", Select() ),FieldWBlock( "Bio", Select() ) ; 
          EDITABLE ; 
          READONLY {.f.,.t.,.t.} ; 
          BACKCOLOR YELLOW ; 
          FONTCOLOR BLUE ; 
          TOOLTIP "TsBrowse - Standard definition" ; 
 ;//         MESSAGE " Browse DataBase 2 " ; 
          AUTOSEARCH 
  
       oBrw5:lNoResetPos := .F. 
       oBrw5:lPickerMode := .F. 
  
       oBrw5:cToolTip := {|oBr,nCol,nRow| "My TBrowse tooltip. Col ="+str(nCol,3)+" Row ="+str(nRow,3) }  
       aEval(oBrw5:aColumns, {|oCol| oCol:cToolTip := {|oBr,nCol,nRow| "My column tooltip. Col ="+str(nCol,3)+" Row ="+str(nRow,3) } }) 
    endif 
 RETURN 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
 #include "tsbrowse.ch" 
  
  
 Memvar oBrw 
 Static  Ledit:=.F.,nOrd :=0,sSeek:='' 
 *----------------------------------- 
 PROCEDURE Main 
 *----------------------------------- 
    LOCAL i,nArea 
  
    SET SOFTSEEK ON  
  
    SET DELETED ON 
    REQUEST DBFCDX , DBFFPT 
  
  
    Use STREET  Via "DBFCDX" ALIAS BASE shared New 
    if !File('STREET.cdx') 
           INDEX  ON Upper(NAME) Tag  NAME 
    endif 
    dbSetOrder(1) 
    nArea:=Select() 
  
  
    DEFINE WINDOW win_1 AT 0, 0 WIDTH 1200 HEIGHT 700 ; 
       MAIN TITLE "TSBrowse Add Record Demo" NOMAXIMIZE NOSIZE 
        @ 5,10     BUTTON ttop     PICTURE  "First"     TOOLTIP "Первая "     ACTION  TbMove(1,obrw,nArea) WIDTH 20 HEIGHT 18 //  (EkspeD->(DbGoTop()),EkspeDitor.Brw_1.Value := EkspeD->(RecNo())) 
        @ 5,10+20  BUTTON prev     PICTURE  "prior"     TOOLTIP "Предыдущая"  ACTION  TbMove(3,obrw,nArea) WIDTH 20 HEIGHT 18 
        @ 5,10+40  BUTTON nnext    PICTURE  "next"      TOOLTIP "Следующая "  ACTION  TbMove(4,obrw,nArea) WIDTH 20 HEIGHT 18 
        @ 5,10+60  BUTTON bott     PICTURE  "Last"      TOOLTIP "Последняя "  ACTION  TbMove(6,obrw,nArea) WIDTH 20 HEIGHT 18 
  
        @ 5,10+100 BUTTON delRec   PICTURE  "Delete"    TOOLTIP "Удалить !"   ACTION  {||DeleteRecall(obrw,nArea), oBrw:Refresh(.t.) } WIDTH 20 HEIGHT 18 
  
        @ 5,10+120 BUTTON readRec  PICTURE  "editNo"    TOOLTIP "Редактированиe "   ACTION  Edit(1,'win_1',obrw,nArea)   WIDTH 20 HEIGHT 18 //  (EkspeDitor.Brw_1.ALLOWEDIT:=.T.) 
        @ 5,10+120 BUTTON readRecN PICTURE  "edit"      TOOLTIP "Изменить "         ACTION  Edit(2,'win_1',obrw,nArea)   WIDTH 20 HEIGHT 18 //  (EkspeDitor.Brw_1.ALLOWEDIT:=.T.) 
  
  
        @2,10+180   BUTTON BRUN    CAPTION "Add Record" ACTION AddRecord( obrw,nArea ) DEFAULT 
  
    DEFINE STATUSBAR 
          STATUSITEM '' WIDTH 20 
  
    END STATUSBAR 
  
  
       OpenBrows( "oBrw", 'win_1', 30, 2, win_1.Width-20, win_1.Height-95,nArea )  // 'BASE' 
 //      oBrw:bKeyDown := { | nKey | MyKeyAction(nKey,oBrw,'win_1'), lOk := nKey != VK_ESCAPE } 
       oBrw:bKeyDown := { | nKey | MyKeyAction(nKey,'win_1',oBrw,'win_1'), lOk := nKey != VK_ESCAPE } 
  
  
  @ 0, 0 GETBOX MyFind HEIGHT 10 WIDTH 10 VALUE ""  ; 
         ON LOSTFOCUS ( win_1.MyFind.Hide, win_1.oBrw.SetFocus ) ; 
         ON CHANGE    ( MyFind(oBrw) ) 
  
       oBrw:SetFocus()  
  
    END WINDOW 
  
    CENTER WINDOW win_1 
    ACTIVATE WINDOW win_1 
  
 RETURN 
 *-------------------------------- 
 FUNCTION OpenBrows( cBrw, cParent, nRow, nCol, nWidth, nHeight, cAlias ) 
  
 Public &cBrw 
  
     DEFINE TBROWSE &cBrw ; 
            AT nRow, nCol ; 
            ALIAS cAlias ; 
            OF &cParent ; 
            WIDTH  nWidth ; 
            HEIGHT nHeight ; 
            COLORS { CLR_BLACK, CLR_BLUE } ; 
            FONT "MS Sans Serif" ; 
            SIZE 8 
  
        :SetAppendMode( .F. ) 
        :SetDeleteMode( .F. ) 
  
        :lNoHScroll := .T. 
        :lCellBrw := .F. 
  
       ADD COLUMN TO obrw HEADER "Name" FOOTER "" ; 
          SIZE 600 ; 
          DATA FieldWBlock( "name", Select( "base" ) ) EDITABLE 
  
       ADD COLUMN TO obrw HEADER "SOCR" FOOTER "" ; 
          SIZE 350 ; 
          DATA FieldWBlock( "SOCR", Select( "base" ) ) EDITABLE 
       ADD COLUMN TO obrw HEADER "CODE" FOOTER "" ; 
          SIZE 400 ; 
          DATA FieldWBlock( "CODE", Select( "base" ) ) EDITABLE 
  
  
     &cBrw:nHeightCell += 6 
     &cBrw:nHeightHead += 14 
     &cBrw:nHeightFoot := &cBrw:nHeightHead 
     &cBrw:nWheelLines := 1 
  
     &cBrw:lDrawFooters := .T. 
     &cBrw:lNoHScroll   := .T. 
  
 //    LoadFields( cBrw, cParent ) 
  
     END TBROWSE                                 // !!! 
  
 RETURN 
  
 Static Function MyFind( oBrw ) 
 Local cVal := win_1.MyFind.Value 
  
  If ! empty(cVal) 
     (oBrw:cAlias)->( dbSeek(upper(trim(cVal))) ) 
     oBrw:GotoRec((oBrw:cAlias)->( RecNo()) ) 
  EndIf 
  
 Return nil  
  
 *----------------------------------- 
 PROCEDURE AddRecord( obrw ,cAlias) 
 *----------------------------------- 
 Local nRec:=Recno() 
 Local nArea := Select() 
  
      Select(cAlias) 
 /* 
      DbAppend()  
         nRec:=Recno() 
         obrw:GoToRec( nRec )  
         oBrw:Refresh(.t.) 
 */ 
  
     (obrw:cAlias)->( DbAppend() )  
  
     (obrw:cAlias)->( FieldPut( 1, Procname()+": "+strzero(RecNo(),7 )+str(procline(), 7) ) )  
     (obrw:cAlias)->( FieldPut( 3, Str(RecNo(),5) ) )  
    
     obrw:GoToRec( RecNo() )  
     obrw:SetFocus()  
    
      Select(nArea) 
  
 RETURN 
 /*-------------------------------- */ 
  
 FUNCTION TbMove(met,oBrw,cAlias) 
 Local nArea := Select() 
  
     Select(cAlias) 
  
   DO CASE 
     CASE met == 1 
    	oBrw:GoTop() 
     CASE met == 2 
         oBrw:PageUp() 
     CASE met == 3 
         oBrw:GoUp() 
     CASE met == 4 
         oBrw:GoDown() 
     CASE met == 5 
         oBrw:PageDown() 
     CASE met == 6 
         oBrw:GoBottom() 
   ENDCASE 
         oBrw:Refresh(.t.) 
      Select(nArea) 
 RETURN NIL 
 *---------------------------------- 
 Static Procedure DeleteRecall(obrw,cAlias) 
 Local nArea := Select() 
  
     Select(cAlias) 
  if MsgOkCancel('Запись будет удалена! Удалить?','Удаление записи!') = .T. 
  
    if   ( Rlock() ) 
 	( DbDelete())  
         ( dbUnlock() ) 
      oBrw:Refresh(.t.) 
    endif 
  
  end 
      Select(nArea) 
 Return 
  
 Static Procedure Edit(met,cForm,oBrw,cAlias) 
 ******************** 
 Local nArea := Select() 
  
     Select(cAlias) 
  
  if met = 1 
 //      oBrw:lCellBrw := .t.   // выделена строка или ячейка 
 //      Ledit := .t. 
 //      &(cForm).readRec.Visible:=.t. 
 //      &(cForm).readRecN.Visible:=.f. 
  else 
 //      oBrw:lCellBrw := .f.   // выделена строка или ячейка 
 //      Ledit := .f. 
 //      &(cForm).readRec.Visible:=.t. 
 //      &(cForm).readRecN.Visible:=.f. 
  
  endif  
 //   &(cForm).Brw_1.SetFocus 
      oBrw:Refresh(.t.) 
      Select(nArea) 
 Return 
  
 //------------------------------------------------------------------------------ 
 Function KeyToChar( nVirtKey ) 
 //------------------------------------------------------------------------------ 
    LOCAL i, cRetChar := "" 
    LOCAL nKeyboardMode := GetKeyboardMode() 
    LOCAL lShift := CheckBit( GetKeyState( 16 ), 32768 ) 
    LOCAL aKeysNumPad := { 96,97,98,99,100,101,102,103,104,105,106,107,109,110,111 } 
    LOCAL cKeysNumPad := "0123456789*+-./" 
    LOCAL aKeys1 := { 192,189,187,219,221,220,186,222,188,190,191 } 
    LOCAL cKeys1US := "`-=[]\;',./" 
    LOCAL cKeys1ShiftUS := '~_+{}|:"<>?' 
    LOCAL cKeys1RU := "Ё-=ХЪ\ЖЭБЮ." 
    LOCAL cKeys1ShiftRU := "Ё_+ХЪ/ЖЭБЮ," 
    LOCAL cKeys2US := "1234567890QWERTYUIOPASDFGHJKLZXCVBNM " 
    LOCAL cKeys2ShiftUS := "!@#$%^&*()QWERTYUIOPASDFGHJKLZXCVBNM " 
    LOCAL cKeys2RU := "1234567890ЙЦУКЕНГШЩЗФЫВАПРОЛДЯЧСМИТЬ " 
    LOCAL cKeys2ShiftRU := '!"№;%:?*()ЙЦУКЕНГШЩЗФЫВАПРОЛДЯЧСМИТЬ ' 
  
    i := ascan( aKeysNumPad, nVirtKey ) 
    if i > 0 
       RETURN substr( cKeysNumPad, i, 1 ) 
    endif 
  
    i := ascan( aKeys1, nVirtKey ) 
    if i > 0 
       if nKeyboardMode == 1033 // US 
          if lShift 
             cRetChar := substr( cKeys1ShiftUS, i, 1 ) 
          else 
             cRetChar := substr( cKeys1US, i, 1 ) 
          endif 
       elseif nKeyboardMode == 1049 // RU 
          if lShift 
             cRetChar := substr( cKeys1ShiftRU, i, 1 ) 
          else 
             cRetChar := substr( cKeys1RU, i, 1 ) 
          endif 
       endif 
       RETURN cRetChar 
    endif 
  
    i := at( chr( nVirtKey ), cKeys2US ) 
    if i > 0 
       if nKeyboardMode == 1033 // US 
          if lShift 
             cRetChar := substr( cKeys2ShiftUS, i, 1 ) 
          else 
             cRetChar := substr( cKeys2US, i, 1 ) 
          endif 
       elseif nKeyboardMode == 1049 // RU 
          if lShift 
             cRetChar := substr( cKeys2ShiftRU, i, 1 ) 
          else 
             cRetChar := substr( cKeys2RU, i, 1 ) 
          endif 
       endif 
    endif 
  
    RETURN cRetChar 
  
 ************************** 
  
 STATIC FUNCTION MyKeyAction(l_Key,cForm,oBrw, cParent) 
 Local sL_key:='',nRec:=0  
 Local oCell, hBrw, nRow, oGet, uRet 
  
 //MsgInfo('l_key='+Str(l_key)) 
     Select(oBrw:cAlias) 
     If Indexord() =0 
       Return 
     endif 
  
   DO CASE 
 //     CASE l_key==8  //VK_BACK  //.or.l_key>31.and.l_key<242 
 //        if l_key==VK_BACK 
 //          if Len(sSeek) > 0 
 //            sSeek:=left(sSeek,Len(sSeek)-1) 
 //            &(cForm).STATUSBAR.Item(1):=sSeek 
 //          endif 
 //        else 
      CASE  l_key>32.and.l_key<254 
 //            sl_key :=  KeyToChar(l_key )  // моя функция обработки клавиш / my processing function keys 
  
            oCell  := oBrw:GetCellInfo() 
            hBrw   := oBrw:hWnd 
            nRow   := GetWindowHeight(hBrw) + win_1.oBrw.Row - oBrw:nHeightFoot 
            win_1.MyFind.Row    := nRow  
            win_1.MyFind.Col    := oCell:nCol 
            win_1.MyFind.Width  := oCell:nWidth 
            win_1.MyFind.Height := oBrw:nHeightFoot 
            win_1.MyFind.Show() 
            win_1.MyFind.SetFocus() 
            win_1.MyFind.Value  := space(10)  
  
            _PushKey(l_key) 
  
            uRet := .F.       // обработка завершена (nil - продолжит tsb) 
  
   ENDCASE 
  
 Return uRet  
  
 #pragma begindump 
  
 #include <windows.h> 
 #include "hbapi.h" 
  
 HB_BOOL flag_hhk = FALSE; 
 HB_BOOL PAUSE_hhk = FALSE; 
 HHOOK hhk = NULL; 
 HB_LONG VK_PRESIONADO = 0; 
 HB_LONG VK_lParam = 0; 
  
 HB_FUNC( GETKEYBOARDMODE ) 
 { 
 	HKL kbl; 
 	HWND CurApp; 
 	DWORD idthd; 
 	int newmode; 
  
 	CurApp=GetForegroundWindow(); 
 	idthd=GetWindowThreadProcessId(CurApp,NULL); 
 	kbl=GetKeyboardLayout(idthd); 
 	newmode=(int)LOWORD(kbl); 
 	hb_retnl(newmode); 
 } 
  
 #pragma enddump 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
 #include "tsbrowse.ch" 
  
 *----------------------------------- 
 PROCEDURE Main 
 *----------------------------------- 
    LOCAL i,nArea 
    LOCAL nY :=  5, nX := 10 
    LOCAL nW := 24, nH := 24 
  
    SET SOFTSEEK ON 
  
    SET DELETED ON 
    REQUEST DBFCDX , DBFFPT 
  
  
    Use STREET  Via "DBFCDX" ALIAS BASE shared New 
    if !File('STREET.cdx') 
       INDEX  ON Upper(NAME) Tag  NAME 
    endif 
    dbSetOrder(1) 
  
  
    DEFINE WINDOW win_1 AT 0, 0 WIDTH 1200 HEIGHT 700 ; 
       MAIN TITLE "TSBrowse Add Record Demo" NOMAXIMIZE NOSIZE 
  
        @ nY, nX   BUTTON ttop     PICTURE  "First"     TOOLTIP "Первая "           ; 
                   ACTION ( oBrw:Gotop()    , oBrw:SetFocus() )  WIDTH nW HEIGHT nH ; 
                   NOTABSTOP 
          nX += nW 
        @ nY, nX   BUTTON prev     PICTURE  "prior"     TOOLTIP "Предыдущая"        ; 
                   ACTION ( oBrw:GoUp()     , oBrw:SetFocus() )  WIDTH nH HEIGHT nH ; 
                   NOTABSTOP 
          nX += nW 
        @ nY, nX   BUTTON nnext    PICTURE  "next"      TOOLTIP "Следующая "        ; 
                   ACTION ( oBrw:GoDown()   , oBrw:SetFocus() )  WIDTH nW HEIGHT nH ; 
                   NOTABSTOP 
          nX += nW 
        @ nY, nX   BUTTON bott     PICTURE  "Last"      TOOLTIP "Последняя "        ; 
                   ACTION ( oBrw:GoBottom() , oBrw:SetFocus() )  WIDTH nW HEIGHT nH ; 
                   NOTABSTOP 
          nX += nW + 40                                                                                      
        @ nY, nX   BUTTON delRec   PICTURE  "Delete"    TOOLTIP "Удалить !"         ; 
                   ACTION ( oBrw:DeleteRow(), oBrw:SetFocus() )  WIDTH nW HEIGHT nH ; 
                   NOTABSTOP 
          nX += nW 
        @ nY, nX   BUTTON readRec  PICTURE  "editNo"    TOOLTIP "Редактированиe "   ; 
                   ACTION ( MsgBox(_HMG_ThisControlName, _HMG_ThisFormName), oBrw:SetFocus() )   WIDTH nW HEIGHT nH ; 
                   NOTABSTOP 
          nX += nW 
        @ nY, nX   BUTTON readRecN PICTURE  "edit"      TOOLTIP "Изменить "         ; 
                   ACTION ( MsgBox(_HMG_ThisControlName, _HMG_ThisFormName), oBrw:SetFocus() )   WIDTH nW HEIGHT nH ; 
                   NOTABSTOP 
          nX += nW 
        @ nY, nX   BUTTON BRUN    PICTURE "AddRec"     TOOLTIP "Добавить "          ; 
                   ACTION ( AddRecord( oBrw ) )  WIDTH nW HEIGHT nH                 ; 
                   NOTABSTOP 
          nX += nW 
  
    DEFINE STATUSBAR 
          STATUSITEM " " 
    END STATUSBAR 
  
  
       OpenBrows( "oBrw", 'win_1', 30, 2, win_1.Width-20, win_1.Height-95,nArea )  // 'BASE' 
  
       oBrw:bUserKeys := {|nKy,nFlg,oBr| MyKeyAction(nKy,nFlg,oBr) } 
  
  
      @ 0, 0 GETBOX MyFind HEIGHT 10 WIDTH 10 VALUE ""  ; 
             ON LOSTFOCUS ( win_1.MyFind.Hide, win_1.oBrw.SetFocus ) ; 
             ON CHANGE    ( MyFind(oBrw) ) ; 
             INVISIBLE 
  
       oBrw:SetFocus() 
  
    END WINDOW 
  
    CENTER WINDOW win_1 
    ACTIVATE WINDOW win_1 
  
 RETURN 
 *-------------------------------- 
 FUNCTION OpenBrows( cBrw, cParent, nRow, nCol, nWidth, nHeight, cAlias ) 
  
 Public &cBrw 
  
     DEFINE TBROWSE &cBrw ; 
            AT nRow, nCol ; 
            ALIAS cAlias ; 
            OF &cParent ; 
            WIDTH  nWidth ; 
            HEIGHT nHeight ; 
            COLORS { CLR_BLACK, CLR_BLUE } ; 
            FONT "MS Sans Serif" ; 
            SIZE 8 
  
        oBrw:SetAppendMode( .F. ) 
  
        oBrw:SetDeleteMode( .T., .T. ) 
  
        oBrw:lNoHScroll := .T. 
        oBrw:lCellBrw   := .F. 
  
       ADD COLUMN TO obrw HEADER "Name" FOOTER ""      SIZE 600 ; 
          DATA FieldWBlock( "name", Select( "base" ) ) EDITABLE 
  
       ADD COLUMN TO obrw HEADER "SOCR" FOOTER ""      SIZE 350 ; 
          DATA FieldWBlock( "SOCR", Select( "base" ) ) EDITABLE 
  
       ADD COLUMN TO obrw HEADER "CODE" FOOTER ""      SIZE 200 ; 
          DATA FieldWBlock( "CODE", Select( "base" ) ) EDITABLE 
  
     &cBrw:nHeightCell += 6 
     &cBrw:nHeightHead += 14 
     &cBrw:nHeightFoot := &cBrw:nHeightHead 
     &cBrw:nWheelLines := 1 
  
     &cBrw:lDrawFooters := .T. 
     &cBrw:lNoHScroll   := .T. 
  
 //    LoadFields( cBrw, cParent ) 
  
     END TBROWSE                                 // !!! 
  
 RETURN 
  
 Static Function MyFind( oBrw ) 
 Local cVal := win_1.MyFind.Value 
  
  If ! empty(cVal) 
     (oBrw:cAlias)->( dbSeek(upper(trim(cVal))) ) 
     oBrw:GotoRec((oBrw:cAlias)->( RecNo()) ) 
  EndIf 
  
 Return nil 
  
 *----------------------------------- 
 PROCEDURE AddRecord( oBrw ) 
 *----------------------------------- 
 Local nRec 
  
    (obrw:cAlias)->( DbAppend() )  
  
    nRec := (obrw:cAlias)->( RecNo() ) 
  
    (obrw:cAlias)->( FieldPut( 1, Procname()+": "+strzero(nRec,7 )+str(procline(), 7) ) )  
    (obrw:cAlias)->( FieldPut( 3, Str(nRec,5) ) )  
    
    obrw:GoToRec( nRec )  
    obrw:SetFocus()  
  
 RETURN 
  
 STATIC FUNCTION MyKeyAction( nKey, nFlag, oBrw ) 
 Local oCell, hBrw, nRow, uRet 
  
     If nKey > 32 .and. nKey < 254 
  
        If (oBrw:cAlias)->( Indexord() ) == 0 
          Return 
        endif 
  
        oCell  := oBrw:GetCellInfo(1, 1) 
        hBrw   := oBrw:hWnd 
        nRow   := GetWindowHeight(hBrw) + win_1.oBrw.Row - oBrw:nHeightFoot 
        win_1.MyFind.Row    := nRow  
        win_1.MyFind.Col    := oCell:nCol 
        win_1.MyFind.Width  := oCell:nWidth 
        win_1.MyFind.Height := oBrw:nHeightFoot 
        win_1.MyFind.Show() 
        win_1.MyFind.SetFocus() 
        win_1.MyFind.Value  := space(10)  
  
        _PushKey(nKey) 
  
        uRet := .F.       // обработка завершена (nil - продолжит tsb) 
  
     EndIf 
  
 Return uRet 
 

 
 * ============================================================================ 
 * METHOD TSBrowse:MouseMove() Version 9.0 Nov/30/2009 
 * ============================================================================ 
  
 METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) CLASS TSBrowse 
  
    Local nI, nIcon, lHeader, lMChange, nFirst, nLast, nDestCol, ; 
          cMsg       := ::cMsg, ; 
          nColPixPos := 0, ; 
          lFrozen    := .F., ; 
          nColumn    := Max( 1, ::nAtCol( nColPix ) ), ; 
          nRowLine   := ::GetTxtRow( nRowPix ), ctooltip  
    Local nCol := Max( 1, ::nAtCol( nColPix, .T. ) )  
  
    Default ::lMouseDown  := .F., ; 
            ::lNoMoveCols := .F., ; 
            ::lDontChange := .F. 
  
    If ::lIconView 
  
       If ( nIcon := ::nAtIcon( nRowPix, nColPix ) ) != 0 
  
          If ::nIconPos != 0 .and. ::nIconPos != nIcon 
             ::DrawIcon( ::nIconPos ) 
          EndIf 
  
          ::nIconPos := nIcon 
          ::DrawIcon( nIcon, .T. ) 
          CursorHand() 
          Return 0 
       EndIf 
    EndIf 
  
    If ::nFreeze > 0 
  
       For nI := 1 To ::nFreeze 
          nColPixPos += ::GetColSizes()[ nI ] 
       Next 
  
       If nColPix < nColPixPos 
          lFrozen := .T. 
       EndIf 
    EndIf 
  
    If ( lHeader := ( nRowLine == 0 ) ) .and. ! Empty( ::aColumns ) .and. ; 
                                              ! Empty( ::aColumns[ nCol ]:cToolTip ) 
       If ::nToolTip != nCol .or. nRowLine != ::nToolTipRow 
          ctooltip := ::aColumns[ nCol ]:cToolTip 
          If Valtype( ctooltip ) == "B" 
             ctooltip := Eval( ctooltip, Self, nCol, nRowLine ) 
          EndIf 
          SetToolTip( ::hWnd, ctooltip, ::hToolTip ) 
          SysRefresh() 
          ::nToolTipRow := nRowLine 
       EndIf 
       ::nToolTip := nCol 
    Else 
       If ::nToolTip != nCol .or. nRowLine != ::nToolTipRow 
          ctooltip := ::cToolTip 
          If Valtype( ctooltip ) == "B" 
             ctooltip := Eval( ctooltip, Self, nCol, nRowLine ) 
          EndIf 
          SetToolTip( ::hWnd, ctooltip, ::hToolTip ) 
          SysRefresh() 
          ::nToolTipRow := nRowLine 
       EndIf 
       ::nToolTip := nCol 
    EndIf 
  
    lHeader := ( ::GetTxtRow( nRowPix ) == 0 .or. ::GetTxtRow( nRowPix ) == -2 ) 
  
    If ! ::lGrasp .and. ( lFrozen .or. ! lHeader .or. ! ::lMChange ) 
        // don't allow MouseMove to drag/resize columns 
        // unless in header row and not in frozen zone 
       CursorArrow() 
  
       If ::lCaptured 
          If ::lLineDrag 
             ::VertLine() 
             ::lLineDrag := .F. 
          EndIf 
  
          ReleaseCapture() 
          ::lColDrag := ::lCaptured := ::lMouseDown := .F. 
       ElseIf ::lDontChange 
          CursorStop() 
          Return 0 
       EndIf 
  
       lMChange := ::lMChange  // save it for restore 
       ::lMChange := .F. 
  
       If ::lCellBrw .and. ! Empty( ::aColumns[ Max( 1, ::nAtCol( nColPix ) ) ]:cMsg ) 
          ::cMsg := ::aColumns[ Max( 1, ::nAtCol( nColPix ) ) ]:cMsg 
       Else 
          ::cMsg := cMsg 
       EndIf 
  
       ::cMsg := If( ValType( ::cMsg ) == "B", Eval( ::cMsg, Self, Max( 1, ::nAtCol( nColPix ) ) ), ::cMsg ) 
       ::Super:MouseMove( nRowPix, nColPix, nKeyFlags ) 
       ::lMChange := lMChange 
       ::cMsg := cMsg 
       Return 0 
    EndIf 
  
    If ::lMChange .and. ! ::lNoMoveCols .and. ! ::lDontChange 
       If lHeader 
          If ! Empty( ::aSuperHead )  .and. !::lLineDrag 
  
             nFirst := 0 
             nLast  := 0 
             Aeval( ::aSuperHead, { | aSup, nCol | nFirst := If( ::nDragCol >= aSup[1] .and. ::nDragCol <= aSup[ 2 ],nCol,nFirst ), ; 
                            nLast := max(nLast,aSup[ 2 ])} ) 
  
             nDestCol := ::nAtCol( nColPix ) 
             if nLast < nDestCol 
                nLast := nFirst+1 
             else 
                Aeval( ::aSuperHead, { | aSup, nCol | nlast := If( nDestCol >= aSup[1] .and. nDestCol <= aSup[ 2 ],nCol,nlast )} ) 
             endif 
             If nLast != nFirst 
                ::lGrasp := .F. 
                CursorHand() 
                ::lColDrag := ::lCaptured := ::lMouseDown := .F. 
             endif 
          endif 
          If ::lGrasp             // avoid dragging between header & rows 
             ::lGrasp := .F. 
             CursorArrow()        // restore default cursor 
          EndIf 
  
          If ::lColDrag 
             CursorSize() 
          Else 
             If ::lLineDrag 
                ::VertLine( nColPix ) 
                CursorWE() 
             Else 
                If AScan( ::GetColSizes(), { | nColumn | nColPixPos += nColumn, ; 
                            nColPix >= nColPixPos - 2 .and. nColPix <= nColPixPos + 2 }, ::nColPos ) != 0 
                   CursorWE() 
                Else 
                   CursorHand() 
                EndIf 
             EndIf 
          EndIf 
       ElseIf ::lGrasp 
          ::lCaptured := ::lColDrag := .F.     // to avoid collision with header/column dragging 
          ::lMouseDown := .T.                  // has to be down until dragging finishes 
          ::Super:MouseMove( nRowPix, nColPix, nKeyFlags ) 
       Else 
          CursorArrow() 
       EndIf 
    Else 
       If ::lDontChange 
          CursorStop() 
       Else 
          CursorArrow() 
       EndIf 
    EndIf 
  
 Return 0