* New: AES File Encryption Library source code (see in folder \Source\HbAES). 
            This library is based on PolarSSL (http://www.polarssl.org). 
            You can use the following function for crypt/decrypting a file: 
              CryptFileAES( cFileIn, cFileOut, cPassword, nMode ) 
              - nMode = 0 for Encryption and nMode = 1 for Decryption; 
              - cPassword can be either a character string or a key filename. 
            Based upon a contribution of S.Rathinagiri <srgiri@dataone.in>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\AESDEMO) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            - Fixed: Added auto scroll of a text in EDITBOX and TEXTBOX controls 
              at the changing of a 'CaretPos' property. 
            - New: Added optional clause STOREJOBDATA <aJobData> in the command 
              START PRINTDOC. Note that aJobData memvar must be declared as 
              Public or Private for using in the function HMG_PrintGetJobInfo(). 
              aJobInfo := HMG_PrintGetJobInfo ( aJobData ) --> {} or { nJobID, 
              cPrinterName, cMachineName, cUserName, cDocument, cDataType, 
              cStatus, nStatus, nPriorityLevel, nPositionPrintQueue, nTotalPages, 
              nPagesPrinted, cSubmittedDate, cSubmittedTime } 
              Contributed by Dr. Claudio Soto <srvet@adinet.com.uy>. 
              Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
              (see demo in folder \samples\Basic\Print_JobStatus) 
            - New: Added the helpful function 
              HMG_PrinterGetStatus ( [ cPrinterName ] ) --> nStatusPrinter 
              Contributed by Dave. 
              (see demo in folder \samples\Basic\Print_JobStatus) 
   * Enhanced: Compatibility flags for Windows Vista, 7, 8, 8.1 and 10 were 
            added to an application manifest. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see Windows7.Manifest in folder \Resources) 
   * Updated: HBPrinter library (see source in folder \Source\HBPrinter): 
            - PRG-code was formatted by Harbour contrib hbformat utility; 
            - C-code was formatted to Harbour standard using uncrustify tool. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Dll library source code (see in folder \Source\Dll): 
            - correction of using of WIN32_LEAN_AND_MEAN constant at compiling. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:  
            - the C-function GetSysMetrics() is defined as pseudo-function; 
            - the function LoadImage() supports JPG, GIF, TIF and PNG images. 
              Transparent property will be added to these images automatically. 
              Contributed by Grigory Filatov <gfilatov@inbox.ru> 
              (see 'Grid Test' at demo in folder \samples\Advanced\TSBrowse) 
            - added a new method SetArrayTo in the TSBrowse class. 
              Contributed by SergKis 
              (see demo in folder \samples\Advanced\Tsb_array_2) 
            - added a new method GoToRec( nRec ) in the TSBrowse class. 
              Contributed by Igor Nazarov 
              (see demo in folder \samples\Advanced\Tsb_addrecord) 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2015-08-26 16:21). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: 'Get Password with CredUI' sample: 
            - added the function GetDomainName(); 
            - added a show of usage of the CredUIPrompt flags. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GetPassword) 
   * Updated: 'MiniPrint: Enhanced look of Print Preview window' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\MiniPrint) 
   * Updated: 'Process Information' sample is based on the ProcInfo library: 
            - fixed a memory leak in the C-function EnumWindows(). 
              Problem was reported by Igor Nazarov. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\ProcInfo) 
 

 
 #include "minigui.ch"  
 #include "tsbrowse.ch"  
   
 REQUEST DBFCDX   
   
 FUNCTION Main()  
  LOCAL i, k, n, cForm, cBrw, oBrw, aFld 
   
  RDDSETDEFAULT('DBFCDX')  
  
  SET EXCLUSIVE    ON 
  SET AUTOPEN      ON 
  SET DECIMALS     TO 4 
  SET DATE         TO GERMAN 
  SET EPOCH        TO 2000 
  SET CENTURY      ON 
  SET EXACT        ON 
  
  If ! Open_Table("TZAK", "TZAK")   
     MsgStop("File not used !", "Error") 
     RETURN 
  EndIf 
  
  cForm := "Form_1" 
  
  DEFINE WINDOW &cForm AT 0,0   ; 
 	WIDTH  700 ; 
 	HEIGHT 500 ; 
 	TITLE 'Demo test' ; 
 	MAIN  
 	 
    cBrw  := "oBrw5" 
  
    DEFINE TBROWSE  &cBrw  AT 10,10  ; 
       WIDTH 670 HEIGHT 450  ; 
       ALIAS "TZAK" ; 
       HEADERS  "Value 1" ,     "Op.",    "Name",     "Op.",   "Value 2" ; 
       WIDTHS        150  ,        40,       150,        40,        150  ; 
       COLUMNS  { "R_1"   ,     "R_5",     "R_2",     "R_6",     "R_3" } 
        
       :SetAppendMode( .F. )  
       :SetDeleteMode( .F. )  
  
       :lNoHScroll := .T. 
   
    END TBROWSE  
  
    oBrw := _HMG_aControlIds[ GetControlIndex(cBrw, cForm) ] 
  
 //   aFld := { "R_1", "R_5", "R_2", "R_6", "R_3" } 
 //   LoadFields(cBrw, cForm, .F., aFld) 
  
    LoadFields(cBrw, cForm) 
     
  
    oBrw:bOnEscape   := {|o| DoMethod(cForm, 'Release') } 
        
  END WINDOW 
  
  CENTER   WINDOW Form_1 
  ACTIVATE WINDOW Form_1 
  
 RETURN 
  
  
 Function Open_Table( cFile, cAlias ) 
 Local a, i 
  
  DEFAULT cFile  := "tzak", ; 
          cAlias := cFile 
  
    cFile := lower(cFile) 
  
    If ! file(cFile+".dbf") 
       dbCreate(cFile, { {"R_0", "C",   1, 0}, ; 
                         {"R_1", "C",  40, 0}, ; 
                         {"R_2", "C",  30, 0}, ; 
                         {"R_3", "C",  40, 0}, ; 
                         {"R_4", "C",  30, 0}, ; 
                         {"R_5", "C",   2, 0}, ; 
                         {"R_6", "C",   2, 0}, ; 
                         {"R_7", "C",  10, 0}, ; 
                         {"R_8", "C",  80, 0}, ; 
                         {"R_9", "C", 160, 0}  ; 
                       }) 
  
        a := { {"D", "", "Perionds", "", "99.99.9999"          , "<=", "<="}, ; 
               {"C", "", "Sclad"   , "", "XXXXXXXXXXXXXXXXXXXX", "<=", "<="}, ; 
               {"C", "", "Material", "", "XXXXXXXXXXXXXXXXXXXX", "<=", "<="}, ; 
               {"N", "", "Kol-vo"  , "", "999999999.999"       , "<=", "<="}, ; 
               {"N", "", "Summa"   , "", "9999999999.99"       , "<=", "<="}  ; 
             } 
              
        USE ( cFile ) ALIAS ( cFile ) NEW 
        For i := 1 To len(a) 
            dbAppend() 
            AEval(a[ i ], {|x,n| FieldPut(n, x) }) 
        Next 
        USE 
  
    EndIf 
  
    If ( i := RAt('\', cAlias) ) > 0 
       cAlias := upper(subs(cAlias, i+1)) 
    EndIf 
  
    USE ( cFile ) ALIAS ( cAlias ) SHARED  NEW 
  
 Return Used()