* Modified: Using of the C-function hb_vmPushNumInt() instead of hb_vmPushLong() 
            for proper 64-bit handling in the MiniGUI core. 
            Based upon a workaround of Przemyslaw Czerpak <druzus/at/priv.onet.pl>. 
            Contributed by Dr. Claudio Soto <srvet@adinet.com.uy>. 
   * Updated: Modified the application manifest for compatibility with Windows 10. 
            A manifest file is common now for 32- and 64-bit builds. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see Windows7.Manifest in folder \Resources) 
   * Updated: HbSQLite3 library: 
            - update for using a recent SQLITE3 version 3.10.0. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:  
            - Fixed: Correction of the editable status in the method KeyDown. 
              Problem was reported by Dusko Radojcin. 
            Based upon a contribution of Janusz Pora <januszpora@onet.eu>. 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2016-01-09 20:57): 
            * New: added HBFOXPRO library (see in folder \Harbour\Lib); 
            * New: added HBGZIO library (see in folder \Harbour\Lib); 
            * Updated: OpenSSL wrapper for using 1.0.2e version. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: HMGS-IDE v.1.3.0 Project Manager and Two-Way Visual Form Designer: 
            - fixed minor typo in the Image control definition. 
            Bug was reported by Pete Dionysopoulos <pete_westg@yahoo.gr>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * New: 'Vista Command Link Button' sample: 
            - Command Link Button control was defined as user component below: 
              @ <row>,<col> CLBUTTON <name> OF <parent> ; 
                 CAPTION <caption> NOTETEXT <notes> ; 
 		ACTION <action> [ <default: DEFAULT> ] 
            - added pseudo-OOP method SetShield for showing of the Admin 
              privilege requiring. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\CommandLink) 
   * Updated: 'Print Pie Graph' sample: 
            - updated the data for December 2015. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'NirCmd Dll Usage' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\NirCmdDll) 
   * Updated: 'Volume Info' sample: 
            - added a sample with using of the updated CallDll32 function. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo3.prg in folder \samples\Advanced\VOLUME_INFO) 
   * Updated: 'Windows Version' sample: 
            - fixed Windows 10 detection. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\WinVersion) 
 

 
   * Fixed: The compilation of the MiniGUI core in the newer BCC versions 
            (tested since 5.82 to 7.0). 
            Problem was reported by Ivanil Marcelino <ivanil@linkbr.com.br>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Fixed: CallDll library source code: 
            - renamed CallDll32() to HMG_CallDLL() for avoiding of the names 
              conflict with the function in the HbMisc contrib library. 
              Note: This is an INCOMPATIBLE change. 
            Problem was reported by Pete Dionysopoulos <pete_westg@yahoo.gr>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \Source\CallDll). 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:  
            - added handling of the variable :lNoDescend from TSColumn class; 
            - fixed header aligning at the switching of the column order. 
            Contributed by SergKis. 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.11.0dev (from 3.10.0). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2016-02-10 17:17): 
            * Fixed: APPEND FROM ... DELIMITED and APPEND FROM ... SDF bugs; 
            * Updated: HbNetIO contrib library; 
              (see readme.txt in folder \samples\Basic\NETIO\Server); 
            * Updated: most important differences between Harbour and xHarbour 
              (see xhb-diff.txt in folder \harbour\doc) 
            Contributed by Przemyslaw Czerpak <druzus/at/priv.onet.pl> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: HMGS-IDE v.1.3.0 Project Manager and Two-Way Visual Form Designer: 
            - correction of 'out of array range' error in the internal function 
              cTypeOfControl(). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * New: 'Test Print a Plain Text File' sample. 
            Based upon a contribution by Bicahi Esgici <esgici@gmail.com>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\MiniPrint_3) 
   * New: 'Transfer Grid data to HTML file' sample. 
            Based upon a contribution of S.Rathinagiri <srgiri@dataone.in>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\Grid2HTML) 
   * New: 'SQLCipher usage' sample is based on SQLCipher encryption for SQLite 
            (https://www.zetetic.net/sqlcipher). It is mingw32-based lib only. 
            Based upon a contribution of S.Rathinagiri <srgiri@dataone.in>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\sqlcipher) 
   * Updated: 'Vista Command Link Button' sample: 
            - expanded syntax: 
              @ <row>,<col> CLBUTTON <name> OF <parent> ; 
                 [ WIDTH <w> ] [ HEIGHT <h> ] ; 
                 CAPTION <caption> NOTETEXT <notes> ; 
                 ACTION <action> [ <default: DEFAULT> ] 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\CommandLink) 
   * Updated: 'HMGTALK Client' sample for using of the function CallDll32() 
            from the Harbour hbmisc library. 
            (see demo in folder \samples\Advanced\HMGTALK) 
 

 
 2016.02.10 21:11:45 Windows 10 10.0.0 
 Harbour 3.2.0dev (r1602101617) Borland C++ 5.5.1 (32-bit) x86 
 THREADS: 0 
 N_LOOPS: 1000000 
 [ T000: empty loop overhead ]...................................0.05 
 ==================================================================== 
 [ T001: x := L_C ]..............................................0.00 
 [ T002: x := L_N ]..............................................0.00 
 [ T003: x := L_D ]..............................................0.00 
 [ T004: x := S_C ]..............................................0.02 
 [ T005: x := S_N ]..............................................0.02 
 [ T006: x := S_D ]..............................................0.00 
 [ T007: x := M->M_C ]...........................................0.03 
 [ T008: x := M->M_N ]...........................................0.02 
 [ T009: x := M->M_D ]...........................................0.02 
 [ T010: x := M->P_C ]...........................................0.02 
 [ T011: x := M->P_N ]...........................................0.02 
 [ T012: x := M->P_D ]...........................................0.02 
 [ T013: x := F_C ]..............................................0.00 
 [ T014: x := F_N ]..............................................0.00 
 [ T015: x := F_D ]..............................................0.00 
 [ T016: x := o:Args ]...........................................0.08 
 [ T017: x := o[2] ].............................................0.06 
 [ T018: round( i / 1000, 2 ) ]..................................0.11 
 [ T019: str( i / 1000 ) ].......................................0.38 
 [ T020: val( s ) ]..............................................0.13 
 [ T021: val( a [ i % 16 + 1 ] ) ]...............................0.23 
 [ T022: dtos( d - i % 10000 ) ].................................0.27 
 [ T023: eval( { || i % 16 } ) ].................................0.19 
 [ T024: eval( bc := { || i % 16 } ) ]...........................0.13 
 [ T025: eval( { |x| x % 16 }, i ) ].............................0.16 
 [ T026: eval( bc := { |x| x % 16 }, i ) ].......................0.13 
 [ T027: eval( { |x| f1( x ) }, i ) ]............................0.20 
 [ T028: eval( bc := { |x| f1( x ) }, i ) ]......................0.19 
 [ T029: eval( bc := &("{ |x| f1( x ) }"), i ) ].................0.17 
 [ T030: x := &( "f1(" + str(i) + ")" ) ]........................1.36 
 [ T031: bc := &( "{|x|f1(x)}" ), eval( bc, i ) ]................1.81 
 [ T032: x := valtype( x ) +  valtype( i ) ].....................0.22 
 [ T033: x := strzero( i % 100, 2 ) $ a[ i % 16 + 1 ] ]..........0.42 
 [ T034: x := a[ i % 16 + 1 ] == s ].............................0.16 
 [ T035: x := a[ i % 16 + 1 ] = s ]..............................0.19 
 [ T036: x := a[ i % 16 + 1 ] >= s ].............................0.19 
 [ T037: x := a[ i % 16 + 1 ] <= s ].............................0.19 
 [ T038: x := a[ i % 16 + 1 ] < s ]..............................0.19 
 [ T039: x := a[ i % 16 + 1 ] > s ]..............................0.19 
 [ T040: ascan( a, i % 16 ) ]....................................0.14 
 [ T041: ascan( a, { |x| x == i % 16 } ) ].......................1.58 
 [ T042: iif( i%1000==0, a:={}, ) , aadd(a,{i,1,.T.,s,s2,a2 ]....0.48 
 [ T043: x := a ]................................................0.00 
 [ T044: x := {} ]...............................................0.05 
 [ T045: f0() ]..................................................0.02 
 [ T046: f1( i ) ]...............................................0.05 
 [ T047: f2( c[1...8] ) ]........................................0.03 
 [ T048: f2( c[1...40000] ) ]....................................0.03 
 [ T049: f2( @c[1...40000] ) ]...................................0.02 
 [ T050: f2( @c[1...40000] ), c2 := c ]..........................0.05 
 [ T051: f3( a, a2, s, i, s2, bc, i, n, x ) ]....................0.22 
 [ T052: f2( a ) ]...............................................0.03 
 [ T053: x := f4() ].............................................0.48 
 [ T054: x := f5() ].............................................0.11 
 [ T055: x := space(16) ]........................................0.08 
 [ T056: f_prv( c ) ]............................................0.17 
 ==================================================================== 
 [ total application time: ]....................................13.59 
 [ total real time: ]...........................................13.64 
 

  * Fixed: The hack in the menu's C-code was guarded for applying at the tray 
            menu closing only. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Modified: The constant _PUBLIC_RELEASE_ is turned ON by default in the header 
            file include\minigui.ch instead of the constant _ZEROPUBLIC_. 
            The internal Public variables will be released at window's and 
            control's destruction. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Replacing the cycles 'For-Next' with 'For Each-Next' for improvement 
            of the speed of the Tab pages updating. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:  
            - added a new class TCursor for proper processing of TBROWSE cursor 
              which was defined by user for a whole control. 
            Syntax: TCursor():New( cResCursorName [, cPredefinedCursorName ] ) 
            where the predefined names are "ARROW", "IBEAM", "WAIT", "CROSS" etc. 
            Sample code: oBrw:oCursor := TCursor():New( , "HAND" ) 
              Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            - added handling of the column's order in the ARRAY mode with 
              using of the TSColumn variable oCol:lIndexCol. 
              Contributed by SergKis 
              (see demo at Menu TSBrowse->'Grid form' in folder 
              \samples\Advanced\TSBrowse) 
            - added a new service method GetCellInfo( nRowPos, nCell, lColSpecHd ) 
              Contributed by SergKis 
              (see demo2.prg in folder \samples\Advanced\Tsb_array_2) 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.12.0dev (from 3.11.0). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2016-02-18 17:02): 
            * Fixed: HbZipArc library source code to support the ASCII characters 
              above 128 in the name of files (see in folder \Source\HbZipArc). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: HMGS-IDE v.1.3.0 Project Manager and Two-Way Visual Form Designer. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look for what's new at changelog.txt in folder \Ide) 
   * New: 'Minigui Modal Form Designer Utility' sample (spanish only). 
            Contributed by Rafael Moran <webrmoran[at]yahool.com> 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \Utils\xForm) 
   * New: 'Gregorian Calendar to Microsoft Excel through HMG OLE' sample. 
            Contributed by Danny A. del Pilar <dhaine_adp@yahoo.com>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GregorianCalendar) 
   * Updated: 'Vista Command Link Button' sample: 
            - added a write only property 'NoteText'. 
            You can set this property at runtime: 
              Win.CLbutton.NoteText := 'New Note' 
              SetProperty( Form, Control, 'NoteText', 'New Note' ) 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\CommandLink) 
   * Updated: 'SendMailReport Enhanced 1.5' sample. 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see in folder \samples\Applications\SendMailReport) 
 

 
 h_tsbrowse.prg 
 было 
 Static nLapsus, hPrvWnd, hWndParent, lToolTip, nToolTip, hToolTip := 0   //V90 
 ... 
 ///////////////////////////////////////// 
 Function _DefineTBrowse ( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight,; 
 ... 
         ParentFormHandle = GetFormHandle (ParentFormName) 
         hToolTip := GetFormToolTipHandle (ParentFormName) 
  
         oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight,; 
 ... 
              lTransparent, uSelector, lEditable, lAutoCol, aColSel, tooltip) 
  
         IF ( nColums := Len(oBrw:aColumns) ) > 0                           /* BK    18.05.2015 */ 
 ... 
  
  
 ///////////////////////////////////////// 
 CLASS TSBrowse FROM TControl 
 ... 
    DATA   cToolTip                                   // tooltip when mouse is over Cells 
 ... 
  
 ///////////////////////////////////////// 
 METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
    EndIf 
  
    SetToolTip ( ::hWnd , ::cToolTip , hToolTip )   //JP  V90 
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
 ///////////////////////////////////////// 
 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 ) )     //V90 
  
    Default ::lMouseDown  := .F., ; 
            ::lNoMoveCols := .F., ;     //V90 
            ::lDontChange := .F., ;     //V90 
            nToolTip      := 0, ;       //V90 
            lToolTip      := .F.        //V90 
  
    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 := ::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 
  
    lHeader := (::GetTxtRow( nRowPix ) == 0 .or. ::GetTxtRow( nRowPix ) == -2) 
 ... 
  
 ///////////////////////////////////////// 
 METHOD VertLine( nColPixPos, nColInit, nGapp ) CLASS TSBrowse 
 ... 
    If nColInit != Nil 
       nsCol   := nColInit 
       nsWidth := nColPixPos 
       nGap := If( ! Empty( nGapp ), nGapp, 0 ) 
       nsOldPixPos := 0 
       hWndParent := 0           //V90 
       hPrvWnd    := 0           //V90 
       lToolTip   := .F.         //V90 
       _InvertRect( ::hDC, { 0, nsWidth - ::aColSizes[ nsCol ] - 2, aRect[4], nsWidth - ::aColSizes[ nsCol ] + 2 } ) 
    EndIf 
 ... 
  
  
 стало 
 Static nLapsus, hPrvWnd, hWndParent  
 ... 
 ///////////////////////////////////////// 
 Function _DefineTBrowse ( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight,; 
 ... 
         ParentFormHandle = GetFormHandle (ParentFormName) 
  
         oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight,; 
 ... 
              lTransparent, uSelector, lEditable, lAutoCol, aColSel, tooltip) 
  
         oBrw:hToolTip := GetFormToolTipHandle (ParentFormName) 
  
         IF ( nColums := Len(oBrw:aColumns) ) > 0                           /* BK    18.05.2015 */ 
 ... 
  
 ///////////////////////////////////////// 
 CLASS TSBrowse FROM TControl 
 ... 
    DATA   cToolTip                                   // tooltip when mouse is over Cells 
    DATA   hToolTip        AS NUMERIC INIT 0 
    DATA   nToolTip        AS NUMERIC INIT 0 
    DATA   nToolTipRow     AS NUMERIC INIT 0 
 ... 
 ///////////////////////////////////////// 
 METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
    EndIf 
  
    ctooltip := ::cToolTip                    
    If Valtype(ctooltip) == "B" 
       ctooltip := Eval(ctooltip, Self) 
    EndIf 
  
    SetToolTip ( ::hWnd , ctooltip , ::hToolTip )    
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
  
 ///////////////////////////////////////// 
 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 ) )     //V90 
    Local nRowLine   := ::GetTxtRow( nRowPix ) 
    Local ctooltip 
           
    Default ::lMouseDown  := .F., ; 
            ::lNoMoveCols := .F., ;     //V90 
            ::lDontChange := .F.        //V90 
  
    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[ nColumn ]:cToolTip ) 
       If ::nToolTip != nColumn .or. nRowLine != ::nToolTipRow 
          ctooltip := ::aColumns[ nColumn ]:cToolTip 
          If Valtype(ctooltip) == "B" 
             ctooltip := Eval(ctooltip, Self, nColumn, nRowLine)         
          EndIf 
          SetToolTip ( ::hWnd , ctooltip , ::hToolTip )  
          SysRefresh() 
          ::nToolTipRow := nRowLine 
       EndIf 
       ::nToolTip := nColumn 
    Else 
       If ::nToolTip != nColumn .or. nRowLine != ::nToolTipRow 
          ctooltip := ::cToolTip 
          If Valtype(ctooltip) == "B" 
             ctooltip := Eval(ctooltip, Self, nColumn, nRowLine)        
          EndIf 
          SetToolTip ( ::hWnd , ctooltip , ::hToolTip )  
          SysRefresh() 
          ::nToolTipRow := nRowLine 
       endif 
       ::nToolTip := nColumn 
    EndIf 
  
    lHeader := (::GetTxtRow( nRowPix ) == 0 .or. ::GetTxtRow( nRowPix ) == -2) 
 ... 
  
 ///////////////////////////////////////// 
 METHOD VertLine( nColPixPos, nColInit, nGapp ) CLASS TSBrowse 
 ... 
    If nColInit != Nil 
       nsCol   := nColInit 
       nsWidth := nColPixPos 
       nGap := If( ! Empty( nGapp ), nGapp, 0 ) 
       nsOldPixPos := 0 
       hWndParent := 0           //V90 
       hPrvWnd    := 0           //V90 
       _InvertRect( ::hDC, { 0, nsWidth - ::aColSizes[ nsCol ] - 2, aRect[4], nsWidth - ::aColSizes[ nsCol ] + 2 } ) 
    EndIf 
 ... 
 

 
 было 
 METHOD DrawLine( xRow ) CLASS TSBrowse 
 ... 
          nVertText := 0 
          lCheck := oColumn:lCheckBox .and. ValType( uData ) == "L"        //V90 
  
          If lCheck .and. ValType( uData ) == "L" 
             cPicture:= "" 
             nVertText := If( uData, 3, 4 ) 
          EndIf 
 ... 
          If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
             uBmpCell := ::uBmpSel 
             nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
          ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" .and. ! Empty( ::aBitMaps ) 
             If uData > 0 .and. uData <= Len(::aBitMaps) 
                uBmpCell := ::aBitMaps[ uData ] 
             EndIf 
             nAlign := nMakeLong( oColumn:nAlign, oColumn:nAlign ) 
             uData    := "" 
 ... 
          If lCheck 
             Default ::aCheck := { StockBmp( 6 ), StockBmp( 7 )} 
             hBitMap := ::aCheck[ If( Upper( uData ) == "T", 1, 2 ) ] 
             nAlign := nMakeLong( DT_CENTER, DT_CENTER ) 
             uData  := "" 
 ... 
  
 METHOD DrawSelect( xRow ) CLASS TSBrowse 
 ... 
             lCheck    := oColumn:lCheckBox .and. ValType( uData ) == "L"     //V90 
             lNoLite   := oColumn:lNoLite 
             nVertText := 0 
  
             If lCheck .and. ValType( uData ) == "L" 
                cPicture := "" 
                nVertText := If( uData, 3, 4 ) 
             EndIf 
 ... 
             If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
                uBmpCell := ::uBmpSel 
                nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
             ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" .and. ! Empty( ::aBitMaps ) 
                If uData > 0 .and. uData <= Len(::aBitMaps) 
                   uBmpCell := ::aBitMaps[ uData ] 
                   nAlign := nMakeLong( LoWord( nAlign ), nAlign ) 
                   uData    := "" 
                EndIf 
 ... 
          If lCheck    //V90 
             Default ::aCheck := { StockBmp( 6 ), StockBmp( 7 ) } 
             hBitMap := ::aCheck[ If( Upper( uData ) == "T", 1, 2 ) ] 
             nAlign  := nMakeLong( DT_CENTER, DT_CENTER ) 
             uData   := "" 
 ... 
  
 METHOD Destroy()                                                       CLASS TSBrowse 
 ... 
  
 стало 
 METHOD DrawLine( xRow ) CLASS TSBrowse 
 ... 
    Local aBitMaps, lCheckVal := .F. 
 ... 
          nVertText  := 0 
          lCheck     := oColumn:lCheckBox .and. ValType(uData) == "L"        //V90 
  
          If lCheck  
             cPicture  := "" 
             nVertText := If( uData, 3, 4 ) 
             lCheckVal := uData 
          EndIf 
 ... 
          If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
             uBmpCell := ::uBmpSel 
             nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
          ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" 
             aBitMaps := If( empty(oColumn:aBitMaps), ::aBitMaps, oColumn:aBitMaps ) 
             If ! Empty( aBitMaps ) .and. uData > 0 .and. uData <= Len(aBitMaps) 
                uBmpCell := aBitMaps[ uData ] 
             endif 
             nAlign := nMakeLong( oColumn:nAlign, oColumn:nAlign ) 
             uData  := "" 
 ... 
          If lCheck 
             Default ::aCheck := { StockBmp( 6 ), StockBmp( 7 )} 
             If Valtype(oColumn:aCheck) == "A"               
                hBitMap := oColumn:aCheck[ If( lCheckVal, 1, 2 ) ] 
             Else 
                hBitMap :=       ::aCheck[ If( lCheckVal, 1, 2 ) ] 
             EndIf 
             nAlign := nMakeLong( DT_CENTER, DT_CENTER ) 
             uData  := "" 
 ... 
  
 METHOD DrawSelect( xRow )                                              CLASS TSBrowse 
 ... 
    Local aBitMaps, lCheckVal := .F. 
 ... 
             lCheck    := oColumn:lCheckBox .and. ValType( uData ) == "L"     //V90 
             lNoLite   := oColumn:lNoLite 
             nVertText := 0 
  
             If lCheck 
                cPicture  := "" 
                nVertText := If( uData, 3, 4 ) 
                lCheckVal := uData 
             EndIf 
 ... 
             If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
                uBmpCell := ::uBmpSel 
                nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
             ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" 
                aBitMaps := If( empty(oColumn:aBitMaps), ::aBitMaps, oColumn:aBitMaps ) 
                If ! Empty( aBitMaps ) .and. uData > 0 .and. uData <= Len(aBitMaps) 
                   uBmpCell := aBitMaps[ uData ] 
                endif 
                nAlign := nMakeLong( LoWord( nAlign ), nAlign ) 
                uData  := "" 
 ... 
          If lCheck 
             Default ::aCheck := { StockBmp( 6 ), StockBmp( 7 )} 
             If Valtype(oColumn:aCheck) == "A"             
                hBitMap := oColumn:aCheck[ If( lCheckVal, 1, 2 ) ] 
             Else 
                hBitMap :=       ::aCheck[ If( lCheckVal, 1, 2 ) ] 
             EndIf 
             nAlign := nMakeLong( DT_CENTER, DT_CENTER ) 
             uData  := "" 
 ... 
  
 METHOD Destroy()                                                       CLASS TSBrowse 
 LOCAL i 
 ... 
    If Len(::aColumns) > 0 
       For i := 1 To Len(::aColumns) 
           If Valtype(::aColumns[ i ]:aCheck) == "A" 
              AEval(::aColumns[ i ]:aCheck, {|hBmp| If( empty(hBmp), , DeleteObject(hBmp) ) }) 
           EndIf 
           If Valtype(::aColumns[ i ]:aBitMaps) == "A" 
              AEval(::aColumns[ i ]:aBitMaps, {|hBmp| If( empty(hBmp), , DeleteObject(hBmp) ) }) 
           EndIf 
       Next 
    EndIf 
 ... 
  
 

 
 /* 
  * 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 200 
          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 )  
       @06, 110 BUTTON BFND CAPTION "Find ID 100" ACTION FindRecord( obrw )  
  
       DEFINE STATUSBAR FONT _HMG_DefaultFontName SIZE _HMG_DefaultFontSize 
          STATUSITEM "" 
       END STATUSBAR 
  
       DEFINE TBROWSE obrw AT 40, 10 GRID ALIAS "base" ; 
          WIDTH 370 HEIGHT 418 - 60 
  
       ADD COLUMN TO obrw HEADER "ID" ; 
          SIZE 100 ; 
          DATA FieldWBlock( "id", Select( "base" ) ) ; 
          TOOLTIP "My column 1" 
  
       ADD COLUMN TO obrw HEADER "INFO" ; 
          SIZE 150 ; 
          DATA FieldWBlock( "info", Select( "base" ) ) ; 
          TOOLTIP "My column 2" 
  
       obrw:cToolTip   := "My all columns TsBrowse tooltip" 
       obrw:lNoHScroll := .T. 
       obrw:SetColor( { 2 }, { {|| iif( base->( ordKeyNo() ) % 2 == 0, RGB( 255, 255, 255 ), RGB( 230, 230, 230 ) ) } } ) 
  
       END TBROWSE 
  
       obrw:SetFocus() 
  
    END WINDOW 
  
    CENTER WINDOW win_1 
    ACTIVATE WINDOW win_1 
  
 RETURN 
  
 *----------------------------------- 
 PROCEDURE AddRecord( obrw ) 
 *----------------------------------- 
    APPEND BLANK 
    REPLACE id WITH RecNo(), info WITH "record " + hb_ntos( RecNo(), 4 ) 
  
    obrw:GoToRec( base->( RecNo() ) ) 
    obrw:SetFocus() 
  
 RETURN 
  
 FUNC FindRecord( obrw ) 
  
  SEEK 100 
  
  obrw:GotoRec(RecNo()) 
  obrw:SetFocus() 
  
 RETURN