#include "minigui.ch"  
 #include "tsbrowse.ch"  
  
 REQUEST SQLMIX  
  
 Procedure Main()  
 SET CENTURY ON 
  
 DEFINE WINDOW Form1 ;  
 	AT 0,0 ;  
 	WIDTH (RR_GetDesktopArea()[4] * 0.99) ;  
 	HEIGHT (RR_GetDesktopArea()[3] * 0.91) ;  
 	TITLE "TsBrowse Array Test" ;  
 	MAIN ;  
 	FONT 'Tahoma' SIZE 9  
  
 END WINDOW  
  
 Test() 
  
 Form1.Center  
 Form1.ACTIVATE  
  
 Return  
  
 *--------------------------------------------------------------  
  
 Function Test()  
 local i := 0  
 local j := 0  
 Local aStr := {}  
 local cAlias := "TEST"  
 local cBrw := "BRW"  
  
 PUBLIC &cBrw  
  
 FOR j := 1 TO 30 
 	AADD( aStr, {"F_" + NTOC(j) , "D", 8, 0 } ) 
 NEXT 
  
 rddSetDefault( "SQLMIX" )  
 dbCreate( cAlias, aStr,, .T., cAlias )  
  
 FOR i := 1 TO 100  
 	(cAlias)->( DbAppend() ) 
 	FOR j := 1 TO 30 
 		(cAlias)->( FieldPut(j, Date()) ) 
 	NEXT 
 NEXT 
  
 rddSetDefault( "SQLMIX" )  
  
 DEFINE TBROWSE &cBrw ; 
 	At 20, 5 ; 
 	ALIAS cAlias ;  
 	OF Form1 ;  
 	WIDTH (Form1.Width - 20) ;  
 	HEIGHT (Form1.Height - 70) ;  
 	COLORS { CLR_BLACK, CLR_BLUE } ;  
 	FONT "MS Sans Serif" ;  
 	SIZE 8 ;  
 	CELL;  
 	SELECTOR .T.  
  
 END TBROWSE  
  
 &cBrw:LoadFields( FALSE )  
  
 Return Nil

  * Fixed: Append a record in a Browse control (via <Alt+A>) worked also with 
            the <Ctrl+Alt+A> and <Shift+Alt+A> hotkeys. 
            Reported and contributed by a HMG user. 
            Adapted for MiniguiEx by Grigory Filatov <gfilatov@inbox.ru> 
   * Fixed: A standard ComboBox control loses an established font color with the 
            defined DISPLAYEDIT clause. 
            Reported by Marcelo A. L. Carli <malcarli@terra.com.br>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\COMBO_4) 
   * Fixed: Wrong font handling in a TimePicker control if the global command 
            SET FONT TO <font>, <size> was defined. 
            Problem was reported by Eladio Bravo <eladibravo@yahoo.es>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\StopEvents) 
   * Modified: Added the global var hInstance internal handling in the all C-code. 
            * New: Added the helpful C-function GetComCtl32DllVer() 
              (see demo in folder \samples\Basic\MAINDEMO_(SYNTAX_I)) 
            * New: Added the helpful C-function GetClassName( <hWnd> ) 
              (see demo in folder \samples\Advanced\MoveDialogBox) 
            * New: Added the internal C-functions GetWindowStyle( <hWnd> ) and 
              IsWindowHasExStyle( <hWnd> ). 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
   * Modified: Revised a ToolTip and ToolTip Custom Draw handling: 
            - the function InitToolTipForRect() was renamed to InitToolTipEx(); 
            - added the new C-functions TTM_Activate(), TTM_SetTipTextColor(), 
              TTM_SetTipBKColor(), TTM_SetMaxTipWidth() and TTM_SetDelayTime(); 
            - added the following new commands: 
              SET TOOLTIP [ ACTIVATE ] <ON | OFF> OF <form> 
              SET TOOLTIP [ ACTIVATE ] TO IsToolTipActive OF <form> 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
            (see demos in folder \samples\Basic\ToolTip\) 
   * Modified: The 'Type' property returns an user-friendly name instead of 
            an internal core name for all controls. 
            Suggested by Roberto Lopez <mail.box.hmg@gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\FormStorage) 
   * Modified: Added the global user variable for any purpose in the application. 
            Usage: _HMG_MainCargo := <any value> ; MyVar := _HMG_MainCargo 
            - function syntax: _GetMainCargo () := <value> 
            - pseudo-OOP syntax: Main.Cargo := <value> 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Histogram) 
   * Enhanced: The BTNTEXTBOX control supports an optional 'NoKeepFocus' clause. 
            Requested by Pete D. <pete_westg/at/yahoo.gr>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demos in folders \samples\Basic\BtnTextBox and 
            \samples\Basic\BtnTextBox_2) 
   * Changed: The function GetFontList() was moved from sample to MiniGUI core. 
            Syntax: aFontList := ; 
              GetFontList( [ hDC ], [ cFontFamilyName ], [ nCharSet ], [ nPitch ],; 
                           [ nFontType ], [ lSortCaseSensitive ], @aFontName ) 
            where 
            nCharSet may be ANSI_CHARSET, DEFAULT_CHARSET, SYMBOL_CHARSET etc. 
            nPitch may be FONT_DEFAULT_PITCH, FONT_FIXED_PITCH, FONT_VARIABLE_PITCH 
            nFontType may be FONT_VECTOR_TYPE, FONT_RASTER_TYPE, FONT_TRUE_TYPE 
            Return aFontList is the multidimensional array 
               { { cFontName, nCharSet, nPitchAndFamily, nFontType }, ... } 
            Return by reference aFontName is the unidimensional array 
               { cFontName1, cFontName2, ... } 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy> 
            (see demo in folder \samples\Advanced\GetFonts) 
   * Updated: HBPrinter library v.2.40: 
            - Changed: using of the function GetFontList() from the Minigui core 
              instead of a local implementation. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\HBPrinter) 
   * Updated: Socket library source code by Matteo Baccan: 
            - Added SetReplyTo( cReplyTo ) method in tsmtp.prg. 
            Contributed by Milomir Zecevic <zeka/at/bnbos.rs> 
            (see in folder \Source\Socket) 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - Changed: using of the header file mgdefs.h in the C-code; 
            - Updated: minor corrections contributed by SergKis. 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.15.1 (from 3.15.0). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2016-10-28 12:29): 
            * Modified: hbrdd and hbrtl were compiled with a custom switch -gc0; 
            * Updated: HbVpdf library source code (see in folder \Source\HbVpdf). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: HMGS-IDE v.1.4.1 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: 'Inter-process communication' sample. 
            Based upon a contribution of Verchenko Andrey <verchenkoag@gmail.com>. 
            Revised by Petr Chornyj <myorg63@mail.ru> 
            (see in folder \samples\Basic\IPC) 
   * New: 'Grid Columns Width' sample. 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\Grid_ColumnsWidth) 
   * New: 'MultiThread usage in HMG' sample. 
            Based upon a contribution of Roberto Lopez <mail.box.hmg@gmail.com>. 
            Enhanced by HMG user KDJ 
            (see in folder \samples\Basic\MultiThread_2) 
   * New: 'Show Password without the asterisks and vice versa' sample. 
            Based upon a contribution of a HMG user. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\ShowPassword) 
   * New: 'Template application' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\Template) 
   * New: 'MiniPrint: insert a last page number after printing' sample. 
            Don't miss this very interesting example! 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\MiniPrint2_2) 
   * New: 'TSBrowse: The discovery of different databases on a single form' sample. 
            Based upon a contribution of SergKis. 
            Contributed by Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Advanced\Tsb_4bases) 
   * New: 'HMG Assistant Utility' sample converts HMG Control Objects Alternate 
            Syntax to @... Commands statement. 
            Contributed by Danny A. del Pilar <dhaine_adp/at/yahoo.com>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see readme.txt in folder \Utils\FMG2PRG) 
   * Updated: 'Form Storage' sample. 
            Based upon a contribution of Petr Chornyj <myorg63@mail.ru> 
            (see in folder \samples\Basic\FormStorage) 
   * Updated: 'Print Pie Graph' sample: updated the data for October 2016. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'Mouse click on one picture which is divided into 3 parts' sample. 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
            (see demos in folder \samples\Basic\Picture_Coords) 
   * Updated: 'Enable/Disable ToolTip Messages' sample. 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
            (see in folder \samples\Basic\ToolTip\ActivateTTips) 
   * Updated: 'Combo Color' sample by Janusz Pora: added the new HMG colors. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\ComboColor) 
   * Updated: 'Read a text from an another application' sample. 
            Revised by Petr Chornyj <myorg63@mail.ru> 
            (see in folder \samples\Advanced\ExternalApp_3) 
   * Updated: 'Move a standard dialog box in the screen' sample. 
            Revised by Petr Chornyj <myorg63@mail.ru> 
            (see in folder \samples\Advanced\MoveDialogBox) 
   * Updated: 'Run the executable file from an application resource' mixed sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\RCDataToFile) 
   * Updated: 'Simple Phone Book' sample: 
            - fixed a refreshing of the grids after a record deletion. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Applications\PHONE_BOOK) 
 

  * New: Added a basic support for the multi-monitors system: 
            - New: CountMonitors(), EnumDisplayMonitors(), GetMonitorInfo(), 
              MonitorFromPoint(), MonitorFromWindow(), WindowToMonitor() functions. 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
   * Enhanced: The ButtonEx control supports the optional GRADIENTFILL <aGradient> 
            clause where aGradient can contain any number of gradients and should 
            be specified in the following way: 
              { { nPart, nClrStart, nClrEnd }, { nPart, nClrStart, nClrEnd }, ... } 
              nPart is to be specified as 0.25, 0.5, etc. and should aggregate to 1. 
            The gradient may be specified as Horizontal or Vertical (default value). 
            The BACKCOLOR clause is required and will determine the pressed gradient 
            color which should be defined similar to aGradient array. 
            Based upon a contribution of Petr Chornyj <myorg63@mail.ru>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo4.prg in folder \samples\Basic\ButtonEx) 
   * Modified: Revised a font management by DEFINE FONT <font> FONTNAME <name> ... 
            command: 
            - New: Added the helpful function GetFontParamByRef(). 
              Syntax: 
                lResult := GetFontParamByRef( GetFontHandle( "fnt" ), @n, @s, ... ) 
              (see demo2.prg in folder \samples\Basic\Font) 
            - Changed: The function GetFontList() uses new C-function EnumFontsEx() 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
   * Modified: Revised a global events management by SET EVENTS FUNCTION TO <name> 
            command: 
            - Changed: The internal function SetEventsFunc() was renamed to 
              SetGlobalListener() and added a verify of given funcname rightness; 
            - New: Added the helpful functions GetGlobalListener() and 
              ResetGlobalListener(). 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
   * Changed: The C-function SendMessage( <hWnd>, ... ) will return an error when 
            a first parameter is not a valid window handle. 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
   * Updated: 'Bos Taurus' Graphics Library (see source in folder \Source\BosTaurus): 
            - fixed the memory leaks in the various C-functions. 
            Bug was reported by Marek Olszewski <mol/at/pro.onet.pl>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\BTGraph) 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.15.2 (from 3.15.1). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HMGS-IDE v.1.4.2 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: 'Ownerdraw ButtonEx control with colors support' sample. 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\ButtonEx_2) 
   * Updated: 'ADORDD' sample with using TBROWSE control for a search result show. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\ADORDD_4) 
   * Updated: 'Stainway HMG Demo' sample by Jacek Kubica. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo1.prg in folder \samples\Basic\ButtonEx) 
   * Updated: 'Print Pie Graph' sample: updated the data for November 2016. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'Virtual Grid Usage' sample: 
            - New: added export an array to DBF; 
            - New: added export a DBF To Excel. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Basic\Grid_8) 
 

  * Fixed: The problem of a RadioGroup control with TRANSPARENT clause on 
            a THEMED colored form. Reported by Dusko Radojcin. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru>. 
   * Fixed: Memory leak in the C-function c_SetPicture() at WinXP and an image 
            with alpha chanel. 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
   * New: 'Vista Split Button' control was defined as User Component. A split 
            button control is composed of either a button and a drop-down menu. 
            Syntax: 
              @ <row>,<col> SPLITBUTTON <name> [ OF <parent> ] ; 
                 [ WIDTH <w> ] [ HEIGHT <h> ] ; 
                 CAPTION <caption> ; 
                 ACTION <action> ; 
                 [ FONT <cFontName> ] ; 
                 [ SIZE <nFontSize> ] ; 
                 [ TOOLTIP <tooltip> ] ; 
                 [ <default: DEFAULT> ] 
            Note: This control works properly at Windows Vista or later only. 
            Based upon a contribution of Petr Chornyj <myorg63@mail.ru> 
            (see demo in folder \samples\Advanced\SplitButton) 
   * Modified: Programmatic change executes 'On Change' procedure for all controls 
            certainly for compatibility with Official HMG. It is not guarded via 
            the command SET PROGRAMMATICCHANGE OFF anymore. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Slider) 
   * Updated: Modified SetFocus method of the 'Command Link' button for a proper 
            handling of a focused look at a few buttons on a form. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\CommandLink) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG 3.4.3 
            patch 1: 
            - Fixed bug in GetLastActiveFormIndex() and GetLastActiveControlIndex() 
              functions. 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy> 
            (see demo in folder \samples\Basic\StopEvents) 
   * New: HbZeeGrid library (see source in folder \Source\HbZeeGrid). 
            ZeeGrid is an editable grid with a similar user interface to Microsoft's 
            Excel spreadsheet. It is released as a compiled DLL and associated header 
            file. You need only distribute the DLL file with your application. 
            Based on the Original Work by David Hillard <david/at/kycsepp.com>. 
            Contributed by Petr Chornyj <myorg63@mail.ru> 
            (see demos in folder \samples\Advanced\HbZeeGrid) 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - New: added handling of the variable :nStatusItem to TControl class. 
              Contributed by SergKis. 
            - Fixed: correction for compatibility with a last Minigui improvement. 
              Problem was reported by russian user. 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.17.0 (from 3.16.2). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2017-02-08 19:36): 
            * Fixed: HbZipArc library source code (see in folder \Source\HbZipArc). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'RadioGroup with multiline items and variable or fixed height' sample. 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\RadioGroup_multiline) 
   * New: 'Vista Split Button' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\SplitButton) 
   * Updated: 'ComboBox control with changing of ReadOnly property at runtime' 
            sample. Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Basic\COMBO_4) 
   * Updated: MsgMenu sample by Carlos Britos <bcd12a[at]yahoo.com.ar>: 
            - modified for compatibility with a last Minigui improvement. 
            Problem was reported by Fischer Zsolt <fischer.zsolt[at]gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\MsgMenu) 
   * Updated: 'UPX shell' sample: added embedding of UPX.EXE inside application. 
            Warning: You should place of upx.exe binary into a project folder for 
            compatibility with this change. 
            Based upon a contribution of Pete D. <pete_westg/at/yahoo.gr> 
            (see in folder \samples\Applications\UPXshell)