#include "minigui.ch" 
  
 /* 
  * PROCEDURE Main 
  * 
  * Defines and activates the main window containing a grid and buttons for demonstration purposes. 
  * 
  * Purpose: 
  *   This procedure serves as the entry point for the grid demo application. It creates a main window with a grid control to display and edit data, and two buttons to manipulate the grid's content. 
  *   The grid demonstrates features like cell editing, column controls (textbox and combobox), and data justification. The buttons allow for dynamic modification of the combobox items and adding new rows to the grid. 
  *   This procedure showcases the capabilities of the HMG Extended grid control and provides a basic example of how to interact with it programmatically. 
  * 
  * Notes: 
  *   The Random(4) function used when adding a new item assumes a random number generator is available and seeded appropriately. 
  */ 
 PROCEDURE Main 
  
    LOCAL nId 
  
    DEFINE WINDOW m AT 0, 0 WIDTH 600 HEIGHT 400 TITLE 'Grid Demo' MAIN 
  
       DEFINE GRID g 
          ROW 10 
          COL 10 
          WIDTH 472 
          HEIGHT 200 
          HEADERS { "Name", "City", "Amount" } 
          WIDTHS { 200, 150, 100 } 
          celled .T. 
          allowedit .T. 
          COLUMNCONTROLS { { 'TEXTBOX', 'CHARACTER' }, { 'COMBOBOX', { 'A', 'B', 'C', 'D' } }, { 'TEXTBOX', 'NUMERIC', "999999.99" } } 
          ITEMS { { "Person 1", 1, 1000 }, { "Person 2", 3, 2000 } } 
          JUSTIFY { 0, 0, 1 } 
       END GRID 
  
       DEFINE BUTTON b1 
          ROW 230 
          COL 10 
          WIDTH 240 
          CAPTION "Replace inplaced combobox items" 
          ACTION ReplaceGridEditComboItems( "g", "m", 2, { "FIRST", "SECOND", "THIRD", "FOURTH" } ) 
       END BUTTON 
  
       DEFINE BUTTON b2 
          ROW 260 
          COL 10 
          WIDTH 240 
          CAPTION "Add a new item in grid" 
          ACTION ( nId := m.g.ItemCount, m.g.AddItem( { "Person " + hb_ntos( ++nId ), Random( 4 ), nId * 1000 } ) ) 
       END BUTTON 
  
       ON KEY ESCAPE ACTION thiswindow.release() 
  
    END WINDOW 
    m.CENTER 
    m.ACTIVATE 
  
 RETURN 
  
 /* 
  * FUNCTION ReplaceGridEditComboItems(cGridName, cWindowName, nColIndex, aNewItems) 
  * 
  * Replaces the items in the combobox control of a specific column within a grid. 
  * 
  * Parameters: 
  *   cGridName   (CHARACTER): The name of the grid control. 
  *   cWindowName (CHARACTER): The name of the window containing the grid. 
  *   nColIndex   (NUMERIC): The index of the column whose combobox items are to be replaced (1-based). 
  *   aNewItems   (ARRAY): An array containing the new items to be displayed in the combobox. 
  * 
  * Returns: 
  *   NIL 
  * 
  * Purpose: 
  *   This function allows for the dynamic modification of the combobox items within a grid column. This is useful when the available options in a combobox need to change based on user input or other application logic. 
  *   The function retrieves the current cell values of the specified column, updates the combobox items in the internal control data structure, and then resets the cell values to refresh the display. 
  *   For example, you might use this function to update the list of available products in a combobox based on the selected category in another combobox. 
  * 
  * Notes: 
  *   This function relies on the internal HMG Extended data structures (_HMG_aControlMiscData1) to access and modify the combobox items.  Changes to these internal structures in future versions of HMG Extended may break this function. 
  *   The function assumes that the specified column actually contains a combobox control.  Calling this function on a column with a different control type will likely result in an error. 
  *   The cell values are stored in an array aCell to preserve the current selection of each combobox in the column. 
  *   The function uses GetControlIndex to find the index of the grid control within the window's control array. This index is then used to access the grid's internal data structures. 
  */ 
 FUNCTION ReplaceGridEditComboItems ( cGridName, cWindowName, nColIndex, aNewItems ) 
  
    LOCAL i := GetControlIndex ( cGridName, cWindowName ) 
    LOCAL nItemCount := GetProperty( cWindowName, cGridName, "ItemCount" ) 
    LOCAL aCell := {}, ni 
    LOCAL aEditcontrols := _HMG_aControlMiscData1[ i ][ 13 ] 
  
    // Store the current cell values of the specified column in the aCell array. 
    ni := 0 
    DO WHILE ni < nItemCount 
       AAdd( aCell, GetProperty( cWindowName, cGridName, "Cell", ++ni, nColIndex ) ) 
    ENDDO 
  
    // Check if the column contains a combobox control. 
    IF aEditControls[ nColIndex ][ 1 ] == "COMBOBOX" 
       // Replace the combobox items with the new items. 
       aEditControls[ nColIndex ][ 2 ] := aNewItems 
       _HMG_aControlMiscData1[ i ][ 13 ] := aEditControls 
  
       // Restore the cell values to refresh the display. 
       ni := 0 
       DO WHILE ni < nItemCount 
          SetProperty( cWindowName, cGridName, "Cell", ++ni, nColIndex, aCell[ ni ] ) 
       ENDDO 
    ENDIF 
  
 RETURN NIL 
 

 
 #include "minigui.ch" 
  
 STATIC nTickCount := 0  // Counter to show timer is working 
  
 /* 
  * FUNCTION Main() 
  * 
  * Initializes the main application window and defines its controls. 
  * 
  * Purpose: 
  *   This is the entry point of the application. It creates the main window, 
  *   defines the buttons, labels, and edit box, and sets up their initial 
  *   properties and event handlers. The window is then centered and activated. 
  *   This function sets up the user interface for testing timer functionality. 
  * 
  * Notes: 
  *   The window definition includes buttons to start, stop, and list timers, 
  *   a label to display the tick count, and an edit box to display timer information. 
  */ 
 FUNCTION Main() 
  
    DEFINE WINDOW Form_1 ; 
          AT 0, 0 ; 
          WIDTH 420 HEIGHT 340 ; 
          TITLE "HMG_LISTTIMERS() Function Test" ; 
          MAIN 
  
       @ 20, 20 BUTTON btnStart ; 
          CAPTION "Start Timer" ; 
          WIDTH 100 HEIGHT 28 ; 
          ACTION StartTimer() 
  
       @ 20, 140 BUTTON btnStop ; 
          CAPTION "Stop Timer" ; 
          WIDTH 100 HEIGHT 28 ; 
          ACTION StopTimer() 
  
       @ 60, 20 BUTTON btnList ; 
          CAPTION "List Timers" ; 
          WIDTH 100 HEIGHT 28 ; 
          ACTION ListTimers() 
  
       @ 100, 20 LABEL lblCounter ; 
          VALUE "Tick Count: 0" ; 
          WIDTH 300 HEIGHT 24 
  
       @ 140, 20 EDITBOX edtOutput ; 
          WIDTH 370 HEIGHT 140 ; 
          NOHSCROLL ; 
          READONLY 
  
    END WINDOW 
  
    CENTER WINDOW Form_1 
    ACTIVATE WINDOW Form_1 
  
 RETURN NIL 
  
 /* 
  * PROCEDURE OnTimer() 
  * 
  * Updates the tick count label on the main form. 
  * 
  * Purpose: 
  *   This procedure is called by the timer at a regular interval (defined in StartTimer()). 
  *   It increments the global tick counter (nTickCount) and updates the value of the 
  *   lblCounter label on the main form to display the current tick count. This provides 
  *   a visual indication that the timer is running. 
  * 
  * Notes: 
  *   The nTickCount variable is a global variable that is incremented each time the timer fires. 
  */ 
 PROCEDURE OnTimer() 
    nTickCount++ 
    Form_1.lblCounter.VALUE := "Tick Count: " + LTrim( Str( nTickCount ) ) 
  
 RETURN 
  
 /* 
  * PROCEDURE StartTimer() 
  * 
  * Starts or creates a timer that calls the OnTimer() procedure. 
  * 
  * Purpose: 
  *   This procedure is called when the "Start Timer" button is clicked. It checks if a timer 
  *   named "Timer_1" already exists on the form. If it does, it enables the timer. If it 
  *   doesn't exist, it creates a new timer with an interval of 1000 milliseconds (1 second) 
  *   and sets its action to call the OnTimer() procedure. A message box is then displayed 
  *   to confirm that the timer has been started. 
  * 
  * Notes: 
  *   The IsControlDefined() function is used to check if the timer control already exists. 
  */ 
 PROCEDURE StartTimer() 
  
    IF IsControlDefined( Timer_1, Form_1 ) 
       Form_1.Timer_1.Enabled := .T. 
    ELSE 
       DEFINE TIMER Timer_1 
          PARENT Form_1 
          INTERVAL 1000 
          ACTION OnTimer() 
       END TIMER 
    ENDIF 
  
    MsgInfo( "Timer started." ) 
  
 RETURN 
  
 /* 
  * PROCEDURE StopTimer() 
  * 
  * Stops the timer if it is running. 
  * 
  * Purpose: 
  *   This procedure is called when the "Stop Timer" button is clicked. It retrieves a list of 
  *   currently active timers using the HMG_LISTTIMERS() function. If there is exactly one 
  *   timer in the list (presumably Timer_1), it disables the timer by setting its Enabled 
  *   property to .F.. A message box is then displayed to confirm that the timer has been stopped. 
  * 
  * Notes: 
  *   The HMG_LISTTIMERS() function returns an array of active timers. 
  *   The Enabled property of the timer control determines whether the timer is running or not. 
  */ 
 PROCEDURE StopTimer() 
  
    LOCAL aTimers := HMG_LISTTIMERS() 
  
    IF Len( aTimers ) == 1 
       Form_1.Timer_1.Enabled := .F. 
       MsgInfo( "Timer stopped." ) 
    ENDIF 
  
 RETURN 
  
 /* 
  * FUNCTION ListTimers() 
  * 
  * Displays a list of currently active timers in the edit box on the main form. 
  * 
  * Purpose: 
  *   This function is called when the "List Timers" button is clicked. It retrieves a list of 
  *   currently active timers using the HMG_LISTTIMERS() function. If there are no active timers, 
  *   it displays a message indicating that. Otherwise, it iterates through the list of timers 
  *   and formats the timer information (window handle, timer ID, and interval) into a string. 
  *   This string is then displayed in the edtOutput edit box on the main form. 
  * 
  * Notes: 
  *   The HMG_LISTTIMERS() function returns an array of active timers. Each element in the array 
  *   is itself an array containing the timer's window handle, timer ID, and interval. 
  */ 
 FUNCTION ListTimers() 
  
    LOCAL aTimers := HMG_LISTTIMERS() 
    LOCAL cOutput := "" 
    LOCAL i 
  
    IF Len( aTimers ) == 0 
       cOutput := "No active timers." 
    ELSE 
       FOR i := 1 TO Len( aTimers ) 
          cOutput += "Timer #" + LTrim( Str( i ) ) + CRLF 
          cOutput += "  hWnd     : " + LTrim( Str( aTimers[ i ][ 1 ] ) ) + CRLF 
          cOutput += "  Timer ID : " + LTrim( Str( aTimers[ i ][ 2 ] ) ) + CRLF 
          cOutput += "  Interval : " + LTrim( Str( aTimers[ i ][ 3 ] ) ) + " ms" + CRLF + CRLF 
       NEXT 
    ENDIF 
  
    Form_1.edtOutput.VALUE := cOutput 
  
 RETURN NIL 
 

 
 #include "minigui.ch" 
  
 STATIC nTickCount := 0 // Counter to show timer is working 
  
 /* 
  * FUNCTION Main() 
  * 
  * Initializes the main application window and defines its controls. 
  * 
  * Purpose: 
  *   This is the entry point of the application. It creates the main window, 
  *   defines the buttons, labels, and edit box, and sets up their initial 
  *   properties and event handlers. The window is then centered and activated. 
  *   This function sets up the user interface for testing timer functionality. 
  * 
  * Notes: 
  *   The window definition includes buttons to start, stop, and list timers, 
  *   a label to display the tick count, and an edit box to display timer information. 
  */ 
 FUNCTION Main() 
  
    DEFINE WINDOW Form_1 ; 
          AT 0, 0 ; 
          WIDTH 420 HEIGHT 340 ; 
          TITLE "HMG_LISTTIMERS() Function Test" ; 
          MAIN ; 
          ON RELEASE OnReleaseResources() 
  
       DEFINE STATUSBAR 
          STATUSITEM "Ready" 
       END STATUSBAR 
  
       @ 20, 20 BUTTON btnStart ; 
          CAPTION "Start Timer" ; 
          WIDTH 100 HEIGHT 28 ; 
          ACTION StartTimer() 
  
       @ 20, 140 BUTTON btnStop ; 
          CAPTION "Stop Timer" ; 
          WIDTH 100 HEIGHT 28 ; 
          ACTION StopTimer() 
  
       @ 60, 20 BUTTON btnList ; 
          CAPTION "List Timers" ; 
          WIDTH 100 HEIGHT 28 ; 
          ACTION ListTimers() 
  
       @ 60, 140 BUTTON btnReset ; 
          CAPTION "Reset Count" ; 
          WIDTH 100 HEIGHT 28 ; 
          ACTION ResetCounter() 
  
       @ 100, 20 LABEL lblCounter ; 
          VALUE "Tick Count: 0" ; 
          WIDTH 300 HEIGHT 24 
  
       @ 140, 20 EDITBOX edtOutput ; 
          WIDTH 370 HEIGHT 140 ; 
          NOHSCROLL ; 
          READONLY 
  
    END WINDOW 
  
    CENTER WINDOW Form_1 
    ACTIVATE WINDOW Form_1 
  
 RETURN NIL 
  
 /* 
  * FUNCTION OnReleaseResources() 
  * 
  * Releases the timer control when the form is closed. 
  * 
  * Purpose: 
  *   This function is called when the main form is closed (ON RELEASE event). 
  *   It checks if the Timer_1 control is defined on the form. If it is, it releases 
  *   the timer's resources to prevent memory leaks or other issues. 
  * 
  * Notes: 
  *   Releasing controls when they are no longer needed is good practice to ensure 
  *   efficient resource management. 
  */ 
 FUNCTION OnReleaseResources 
    IF IsControlDefined( Timer_1, Form_1 ) 
       Form_1.Timer_1.RELEASE 
    ENDIF 
  
 RETURN NIL 
  
 /* 
  * PROCEDURE OnTimer() 
  * 
  * Updates the tick count label on the main form. 
  * 
  * Purpose: 
  *   This procedure is called by the timer at a regular interval (defined in StartTimer()). 
  *   It increments the global tick counter (nTickCount) and updates the value of the 
  *   lblCounter label on the main form to display the current tick count. This provides 
  *   a visual indication that the timer is running. 
  * 
  * Notes: 
  *   The nTickCount variable is a global variable that is incremented each time the timer fires. 
  */ 
 PROCEDURE OnTimer() 
    nTickCount++ 
    Form_1.lblCounter.VALUE := "Tick Count: " + LTrim( Str( nTickCount ) ) 
  
 RETURN 
  
 /* 
  * PROCEDURE StartTimer() 
  * 
  * Starts or creates a timer that calls the OnTimer() procedure. 
  * 
  * Purpose: 
  *   This procedure is called when the "Start Timer" button is clicked. It checks if a timer 
  *   named "Timer_1" already exists on the form. If it does, it enables the timer. If it 
  *   doesn't exist, it creates a new timer with an interval of 1000 milliseconds (1 second) 
  *   and sets its action to call the OnTimer() procedure. The status bar is updated to indicate 
  *   that the timer has been started. 
  * 
  * Notes: 
  *   The IsControlDefined() function is used to check if the timer control already exists. 
  */ 
 PROCEDURE StartTimer() 
  
    IF IsControlDefined( Timer_1, Form_1 ) 
       IF Form_1.Timer_1.Enabled 
          Form_1.StatusBar.Item( 1 ) := "Timer already running" 
          RETURN 
       ELSE 
          Form_1.Timer_1.Enabled := .T. 
       ENDIF 
    ELSE 
       DEFINE TIMER Timer_1 
          PARENT Form_1 
          INTERVAL 1000 
          ACTION OnTimer() 
       END TIMER 
    ENDIF 
  
    Form_1.StatusBar.Item( 1 ) := "Timer started" 
  
 RETURN 
  
 /* 
  * PROCEDURE StopTimer() 
  * 
  * Stops the timer if it is running. 
  * 
  * Purpose: 
  *   This procedure is called when the "Stop Timer" button is clicked. It disables the timer 
  *   by setting its Enabled property to .F.. The status bar is updated to indicate whether 
  *   the timer was stopped or if there was no timer running. 
  * 
  * Notes: 
  *   The Enabled property of the timer control determines whether the timer is running or not. 
  */ 
 PROCEDURE StopTimer() 
  
    IF IsControlDefined( Timer_1, Form_1 ) .AND. Form_1.Timer_1.Enabled 
       Form_1.Timer_1.Enabled := .F. 
       Form_1.StatusBar.Item( 1 ) := "Timer stopped" 
    ELSE 
       Form_1.StatusBar.Item( 1 ) := "No timer to stop" 
    ENDIF 
  
 RETURN 
  
 /* 
  * FUNCTION ListTimers() 
  * 
  * Displays a list of currently active timers in the edit box on the main form. 
  * 
  * Purpose: 
  *   This function is called when the "List Timers" button is clicked. It retrieves a list of 
  *   currently active timers using the HMG_LISTTIMERS() function. If there are no active timers, 
  *   it displays a message indicating that. Otherwise, it iterates through the list of timers 
  *   and formats the timer information (window handle, timer ID, and interval) into a string. 
  *   This string is then displayed in the edtOutput edit box on the main form. The status bar 
  *   is updated to show the number of timers listed. 
  * 
  * Notes: 
  *   The HMG_LISTTIMERS() function returns an array of active timers. Each element in the array 
  *   is itself an array containing the timer's window handle, timer ID, and interval. 
  */ 
 FUNCTION ListTimers() 
  
    LOCAL aTimers := HMG_LISTTIMERS() 
    LOCAL cOutput := "" 
    LOCAL i 
  
    IF Len( aTimers ) == 0 
       cOutput := "No active timers." 
    ELSE 
       FOR i := 1 TO Len( aTimers ) 
          cOutput += "Timer #" + LTrim( Str( i ) ) + CRLF 
          cOutput += "  hWnd     : " + LTrim( Str( aTimers[ i ][ 1 ] ) ) + CRLF 
          cOutput += "  Timer ID : " + LTrim( Str( aTimers[ i ][ 2 ] ) ) + CRLF 
          cOutput += "  Interval : " + LTrim( Str( aTimers[ i ][ 3 ] ) ) + " ms" + CRLF + CRLF 
       NEXT 
    ENDIF 
  
    Form_1.edtOutput.VALUE := cOutput 
    Form_1.StatusBar.Item( 1 ) := "Listed " + LTrim( Str( Len( aTimers ) ) ) + " timer(s)" 
  
 RETURN NIL 
  
 /* 
  * PROCEDURE ResetCounter() 
  * 
  * Resets the tick counter to zero. 
  * 
  * Purpose: 
  *   This procedure is called when the "Reset Count" button is clicked. It resets the global 
  *   tick counter (nTickCount) to zero and updates the lblCounter label on the main form to 
  *   reflect the reset value. The status bar is also updated to indicate that the counter 
  *   has been reset. 
  * 
  * Notes: 
  *   The nTickCount variable is a global variable that is incremented by the timer. 
  */ 
 PROCEDURE ResetCounter() 
    nTickCount := 0 
    Form_1.lblCounter.VALUE := "Tick Count: 0" 
    Form_1.StatusBar.Item( 1 ) := "Counter reset" 
  
 RETURN 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
 #define  _HMG_OUTLOG 
  
 #include "hmg.ch" 
 #include "tsbrowse.ch" 
 #include "dbinfo.ch" 
  
 REQUEST DBFCDX 
  
 FUNCTION Main() 
    LOCAL cForm := "wMain" 
    LOCAL nY, nX, nH, nW 
    LOCAL oTsb1, oTsb2, aFile := {}, cFile, aAls := {} 
    LOCAL cAls1 := "CUST_1" , cAls2 := "CUST_2" 
    LOCAL cDbf  := "CUSTOMER2", cID := "CUSTNO" 
    LOCAL cSel1 := "RecNo() %2 != 0" 
    LOCAL cSel2 := "RecNo() %2 == 0" 
    LOCAL cTitl := " Select, Relation and Edit. " + MiniGuiVersion() 
  
    Sets_TSB()           // App.Cargo:oTsb create 
  
    cFile := App.Cargo:cPathDbf + cDbf 
  
    USE ( cFile )  ALIAS ( cAls1 )  NEW SHARED 
    INDEX ON &cID TAG ID 
    SET ORDER TO 1 
    GO TOP 
    AAdd( aFile, Select2Mem(cSel1, cID) )  
    AAdd( aAls , StrTran(cAls1, "_", "") ) 
    GO TOP 
  
    USE ( cFile )  ALIAS ( cAls2 )  NEW SHARED 
    SET ORDER TO 1 
    GO TOP 
    AAdd( aFile, Select2Mem(cSel2, cID) )     
    AAdd( aAls , StrTran(cAls2, "_", "") ) 
    GO TOP 
  
    USE ( aFile[1] ) ALIAS ( aAls[1] ) NEW //SHARED 
    SET RELATION TO ROWID INTO &cAls1 
    GO TOP  
    USE ( aFile[2] ) ALIAS ( aAls[2] ) NEW //SHARED 
    SET RELATION TO ROWID INTO &cAls2 
    GO TOP  
  
    DEFINE WINDOW &cForm TITLE "Demo 2 TBrowse." + cTitl ; 
           MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F., _wPost(0) ) ; 
           ON RELEASE ( This.Hide, _wSend(90) ) 
           This.Cargo := oHmgData() 
  
       This.Maximize 
  
       This.Cargo:aFile := aFile 
  
       nY := nX := 0 
       nW := This.ClientWidth 
       nH := Int( This.ClientHeight / 2 ) 
  
       oTsb1 := App.Cargo:oTsb:Clone() 
       oTsb1:cBrw     := "Brw_1" 
       oTsb1:uAlias   := aAls[1] 
       oTsb1:cAlsFld  := cAls1                 // relation 
       oTsb1:cAlsKey  := NIL //"CUSTNO"        // field relation 
       oTsb1:lAlsEdit := !Empty(oTsb1:cAlsKey) // lock edit 
       oTsb1:aSelFld  := NIL                   // FieldNames relation, array 
       oTsb1:nY := nY 
       oTsb1:nX := nX 
       oTsb1:nW := nW 
       oTsb1:nH := nH 
       oTsb1:lSuperHd := .T. 
       oTsb1:cSuperHd := oTsb1:cBrw + "." + oTsb1:uAlias + " -> " + ; 
                         Lower((oTsb1:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel1 + space(3) + ; 
                         "RELATION: TO ROWID INTO " +oTsb1:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb1:cSuperHd += iif( oTsb1:lAlsEdit, "TRUE", "FALSE" )  
       oTsb1:aSuperHdColor := {CLR_YELLOW, CLR_HBLUE} 
  
       nY += nH  
       nH -= 1 
  
       oTsb2 := App.Cargo:oTsb:Clone() 
       oTsb2:cBrw     := "Brw_2" 
       oTsb2:uAlias   := aAls[2] 
       oTsb2:cAlsFld  := cAls2                 // relation 
       oTsb2:cAlsKey  := cID                   // field relation 
       oTsb2:lAlsEdit := !Empty(oTsb2:cAlsKey) // lock edit 
       oTsb2:aSelFld  := NIL                   // FieldNames relation, array  
       oTsb2:lZebra   := .F. 
       oTsb2:lChess   := .T. 
       oTsb2:nY := nY 
       oTsb2:nH := nH 
       oTsb2:lSuperHd := .T. 
       oTsb2:cSuperHd := oTsb2:cBrw + "." + oTsb2:uAlias + " -> " + ; 
                         Lower((oTsb2:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel2 + space(3) + ; 
                         "RELATION: TO ROWID INTO " +oTsb2:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb2:cSuperHd += iif( oTsb2:lAlsEdit, "TRUE", "FALSE" ) 
       oTsb2:aSuperHdColor := {CLR_HBLUE, CLR_YELLOW} 
  
       This.Cargo:aBrw := _TBrowse({ oTsb1, oTsb2 }) 
       This.Cargo:nBrw := 1 
  
       This.Cargo:aBrw[ This.Cargo:nBrw ]:SetFocus() 
  
       ON KEY F1     ACTION NIL 
       ON KEY TAB    ACTION {||  
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw + 1 
                             nb := iif( nb > Len(ab), 1, nb ) 
                             ob := ab[ nb ] 
                             ob:SetFocus() 
                             Return Nil 
                             } 
       ON KEY ESCAPE ACTION {|| 
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw  
                             ob := ab[ nb ] 
                             IF ob:IsEdit ; ob:SetFocus() 
                             ELSE         ; _wSend(99) 
                             ENDIF 
                             Return Nil 
                             } 
  
       WITH OBJECT This.Object 
        :Event( 0, {|ow| AEval(ow:Cargo:aBrw, {|ob| ob:Show() }), DoEvents() }) 
        :Event(90, {|ow|  
                    dbCloseAll() 
                    hb_FileDelete("*.cdx")  
                    AEval(ow:Cargo:aFile, {|cf| dbDrop(cf, cf, "DBFCDX") }) 
                    FErase("mem")  //!!! 
                    Return Nil 
                    }) 
        :Event(99, {|ow| ow:Release() }) 
       END WITH 
  
    END WINDOW 
  
    ACTIVATE WINDOW &cForm 
  
 RETURN NIL 
  
 STATIC FUNCTION Select2Mem(bMode, cFld) 
    LOCAL nOld  := Select() 
    LOCAL aRecs := {}, cAls := Alias() 
    LOCAL cFile := "mem:" + cAls, nFld, aRec, nRec 
    Default cFld := "CUSTNO" 
  
    IF IsChar( bMode ) ; bMode := &("{|| "+bMode + " }") 
    ENDIF 
  
    DO EVENTS 
    nFld := FieldPos(cFld) 
    GO TOP 
    DO WHILE !EOF() 
       DO EVENTS 
       nRec := iif( EVal( bMode ), RecNo(), 0 ) 
       IF nRec > 0 
          AAdd(aRecs, { FieldGet(nFld), Deleted() }) 
       ENDIF 
       SKIP 
    ENDDO 
    GO TOP 
    DO EVENTS 
    dbDrop(cFile, cFile, "DBFCDX") 
    dbCreate( cFile, {{"ROWID", "N", 10, 0}}, "DBFCDX", .T., cAls + "_" ) 
    FOR EACH aRec IN aRecs 
        dbAppend() 
        FieldPut(1, aRec[1]) 
        IF ! Empty( aRec[2] ) ; dbDelete() 
        ENDIF 
    NEXT 
    dbGoTop() 
    dbCloseArea() 
    dbSelectArea(nOld) 
    DO EVENTS 
  
 RETURN cFile 
  
 STATIC FUNCTION Sets_TSB( oTsb ) 
    LOCAL oac := App.Cargo 
  
    Default oac:oTsb := oTsb ; Default oac:oTsb := oHmgData() 
  
    oac:oTsb:aEdit     := .F. 
    oac:oTsb:aFoot     := .T. 
    oac:oTsb:lZebra    := .T. 
    oac:oTsb:aNumber   := { 1, App.Object:W(0.5) } 
    oac:oTsb:uSelector := 20 
    oac:oTsb:bInit     := {|ob,op| 
                            Local cn := op:cAlsKey, lEdit, oc 
                            ob:Hide() 
                            lEdit := !Empty(op:lAlsEdit) 
                            ob:LoadFields(lEdit, op:aSelFld, op:cAlsFld) 
                            IF !Empty(cn) .and. ob:nColumn(cn, .T.) > 0 
                               ob:DelColumn(cn) 
                            ENDIF 
                            IF lEdit ; ob:lRecLockArea := lEdit 
                            ENDIF 
                            Return Nil 
                            } 
    oac:oTsb:bAfter    := {|ob| 
                            Local oc := ob:aColumns[1] 
                            oc:nClrBack := {|na,nc,obr| 
                                            Local ocol := obr:aColumns[nc] 
                                            Local nclr := ocol:nClrHeadBack 
                                            IF (obr:cAlias)->( Deleted() ) 
                                               nclr := CLR_HGRAY 
                                               na := nc 
                                            ENDIF 
                                            Return nclr 
                                            } 
                            Return Nil 
                            } 
    oac:oTsb:bGotFocus := {|ob| 
                            Local owc 
                            IF IsObject(ob) 
                               SET WINDOW THIS TO ob:cParentWnd 
                               owc := This.Cargo 
                               owc:nBrw := ob:Cargo:nBrw 
                               SET WINDOW THIS TO  
                            ENDIF 
                            Return Nil 
                            } 
  
    oac:oTsb:nHeightCell := App.Object:H(1.2) 
    oac:oTsb:nHeightHead := App.Object:H(1.2) 
  
    oTsb := oac:oTsb 
  
 RETURN oTsb 
  
 *----------------------------------------------------------------------------* 
 INIT PROCEDURE Sets_ENV() 
 *----------------------------------------------------------------------------* 
    LOCAL cFont := "Arial", nSize := 12, oac 
  
    rddSetDefault( "DBFCDX" ) 
  
    SET DECIMALS  TO 4 
    SET EPOCH     TO 2000 
    SET DATE      TO GERMAN 
    SET CENTURY   ON 
    SET DELETED   OFF 
    SET AUTOPEN   ON 
    SET EXACT     ON 
    SET EXCLUSIVE ON 
    SET SOFTSEEK  ON 
    SET OOP ON 
    SET TOOLTIPSTYLE BALLOON 
  
    SET MULTIPLE QUIT WARNING  
    SET WINDOW MAIN OFF 
    SET NAVIGATION EXTENDED 
    SET WINDOW MODAL PARENT HANDLE ON 
  //SET DEFAULT ICON TO "1MG" 
    SET ShowRedAlert ON 
  
    App.Cargo := oHmgData() ; oac := App.Cargo 
  
    oac:lLogDel   := .T.  
    oac:cLogFile  := hb_FNameExtSet( App.ExeName, ".log" ) 
    oac:cPathDbf  := ".\" 
    oac:nMenuBmpH := 24  
  
    SET FONT TO cFont, nSize 
  
    _DefineFont("Normal"  , cFont, nSize  , .F., .F. ) 
    _DefineFont("Bold"    , cFont, nSize  , .T., .F. ) 
    _DefineFont("Italic"  , cFont, nSize-4, .F., .T. ) 
    // Alert* font 
    _DefineFont("DlgFont" , cFont, nSize+2, .F., .F. ) 
  
  
    _SetGetLogFile( oac:cLogFile ) 
  
    IF oac:lLogDel ; hb_FileDelete( oac:cLogFile ) 
    ENDIF 
  
    SET MENUSTYLE EXTENDED 
    SetMenuBitmapHeight( oac:nMenuBmpH ) 
    // 
  
 RETURN 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
 #define  _HMG_OUTLOG 
  
 #include "hmg.ch" 
 #include "tsbrowse.ch" 
 #include "dbinfo.ch" 
  
 REQUEST DBFCDX 
  
 /* 
  * FUNCTION Main() 
  * 
  * Demonstrates the use of two TBrowse objects to display data from two related DBF files. 
  * 
  * Purpose: 
  *   This function creates a main window containing two TBrowse objects. Each TBrowse displays data from a different DBF file ("CUSTOMER2" accessed via aliases CUST1 and CUST2). 
  *   The TBrowse objects are related through a relation set up between the DBF files. 
  *   The function demonstrates how to use the _TBrowse() function to manage multiple TBrowse objects within a single window and how to switch focus between them using the TAB key. 
  *   It also shows how to handle the ESCAPE key to exit edit mode or close the window. 
  *   The function uses temporary DBF files created in memory to filter the data displayed in each TBrowse (one showing records where RecNo() % 2 != 0, the other where RecNo() % 2 == 0). 
  * 
  * Notes: 
  *   The function relies on the Sets_TSB() function to configure the TBrowse objects. 
  *   The CUSTOMER2.DBF file must exist in the same directory as the executable. 
  *   The temporary DBF files are deleted when the window is closed. 
  */ 
 FUNCTION Main() 
    LOCAL cForm := "wMain" 
    LOCAL nY, nX, nH, nW 
    LOCAL oTsb1, oTsb2, aFile := {}, cFile, aAls := {} 
    LOCAL cAls1 := "CUST_1" , cAls2 := "CUST_2" 
    LOCAL cDbf  := "CUSTOMER2", cID := "CUSTNO" 
    LOCAL cSel1 := "RecNo() %2 != 0" 
    LOCAL cSel2 := "RecNo() %2 == 0" 
    LOCAL cTitl := " Select, Relation and Edit. " + MiniGuiVersion() 
  
    Sets_TSB()           // App.Cargo:oTsb create 
  
    cFile := App.Cargo:cPathDbf + cDbf 
  
    USE ( cFile )  ALIAS ( cAls1 )  NEW SHARED 
    INDEX ON &cID TAG ID 
    SET ORDER TO 1 
    GO TOP 
    AAdd( aFile, Select2Mem(cSel1, cID) )  
    AAdd( aAls , StrTran(cAls1, "_", "") ) 
    GO TOP 
  
    USE ( cFile )  ALIAS ( cAls2 )  NEW SHARED 
    SET ORDER TO 1 
    GO TOP 
    AAdd( aFile, Select2Mem(cSel2, cID) )     
    AAdd( aAls , StrTran(cAls2, "_", "") ) 
    GO TOP 
  
    USE ( aFile[1] ) ALIAS ( aAls[1] ) NEW SHARED 
    SET RELATION TO ROWID INTO &cAls1 
    GO TOP  
    USE ( aFile[2] ) ALIAS ( aAls[2] ) NEW SHARED 
    SET RELATION TO ROWID INTO &cAls2 
    GO TOP  
  
    DEFINE WINDOW &cForm TITLE "Demo 2 TBrowse." + cTitl ; 
           MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F., _wPost(0) ) ; 
           ON RELEASE ( This.Hide, _wSend(90) ) 
           This.Cargo := oHmgData() 
  
       This.Maximize 
  
       This.Cargo:aFile := aFile 
  
       nY := nX := 0 
       nW := This.ClientWidth 
       nH := Int( This.ClientHeight / 2 ) 
  
       oTsb1 := App.Cargo:oTsb:Clone() 
       oTsb1:cBrw     := "Brw_1" 
       oTsb1:uAlias   := aAls[1] 
       oTsb1:cAlsFld  := cAls1                 // relation 
       oTsb1:cAlsKey  := NIL //"CUSTNO"        // field relation 
       oTsb1:lAlsEdit := !Empty(oTsb1:cAlsKey) // lock edit 
       oTsb1:aSelFld  := NIL                   // FieldNames relation, array 
       oTsb1:nY := nY 
       oTsb1:nX := nX 
       oTsb1:nW := nW 
       oTsb1:nH := nH 
       oTsb1:lSuperHd := .T. 
       oTsb1:cSuperHd := oTsb1:cBrw + "." + oTsb1:uAlias + " -> " + ; 
                         Lower((oTsb1:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel1 + space(3) + ; 
                         "RELATION: TO ROWID INTO " +oTsb1:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb1:cSuperHd += iif( oTsb1:lAlsEdit, "TRUE", "FALSE" )  
       oTsb1:aSuperHdColor := {CLR_YELLOW, CLR_HBLUE} 
  
       nY += nH  
       nH -= 1 
  
       oTsb2 := App.Cargo:oTsb:Clone() 
       oTsb2:cBrw     := "Brw_2" 
       oTsb2:uAlias   := aAls[2] 
       oTsb2:cAlsFld  := cAls2                 // relation 
       oTsb2:cAlsKey  := cID                   // field relation 
       oTsb2:lAlsEdit := !Empty(oTsb2:cAlsKey) // lock edit 
       oTsb2:aSelFld  := NIL                   // FieldNames relation, array  
       oTsb2:lZebra   := .F. 
       oTsb2:lChess   := .T. 
       oTsb2:nY := nY 
       oTsb2:nH := nH 
       oTsb2:lSuperHd := .T. 
       oTsb2:cSuperHd := oTsb2:cBrw + "." + oTsb2:uAlias + " -> " + ; 
                         Lower((oTsb2:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel2 + space(3) + ; 
                         "RELATION: TO ROWID INTO " +oTsb2:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb2:cSuperHd += iif( oTsb2:lAlsEdit, "TRUE", "FALSE" ) 
       oTsb2:aSuperHdColor := {CLR_HBLUE, CLR_YELLOW} 
  
       This.Cargo:aBrw := _TBrowse({ oTsb1, oTsb2 }) 
       This.Cargo:nBrw := 1 
  
       This.Cargo:aBrw[ This.Cargo:nBrw ]:SetFocus() 
  
       ON KEY F1     ACTION NIL 
       ON KEY TAB    ACTION {||  
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw + 1 
                             nb := iif( nb > Len(ab), 1, nb ) 
                             ob := ab[ nb ] 
                             ob:SetFocus() 
                             Return Nil 
                             } 
       ON KEY ESCAPE ACTION {|| 
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw  
                             ob := ab[ nb ] 
                             IF ob:IsEdit ; ob:SetFocus() 
                             ELSE         ; _wSend(99) 
                             ENDIF 
                             Return Nil 
                             } 
  
       WITH OBJECT This.Object 
        :Event( 0, {|ow| AEval(ow:Cargo:aBrw, {|ob| ob:Show() }), DoEvents() }) 
        :Event(90, {|ow|  
                    dbCloseAll() 
                    hb_FileDelete("*.cdx")  
                    AEval(ow:Cargo:aFile, {|cf| dbDrop(cf, cf, "DBFCDX") }) 
                    FErase("mem") 
                    Return Nil 
                    }) 
        :Event(99, {|ow| ow:Release() }) 
       END WITH 
  
    END WINDOW 
  
    ACTIVATE WINDOW &cForm 
  
 RETURN NIL 
  
 /* 
  * STATIC FUNCTION Select2Mem(lMode, cFld) 
  * 
  * Creates a temporary in-memory DBF file containing records from the current work area based on a filter condition. 
  * 
  * Parameters: 
  *   lMode (LOGICAL):  If .T., selects records where RecNo() % 2 == 0. If .F., selects records where RecNo() % 2 != 0. 
  *   cFld (CHARACTER, optional): The field to copy to the new DBF. Defaults to "CUSTNO". 
  * 
  * Returns: 
  *   CHARACTER: The alias of the newly created in-memory DBF file (e.g., "mem:ALIAS"). 
  * 
  * Purpose: 
  *   This function is used to create temporary DBF files in memory that contain a subset of the data from an existing DBF file. 
  *   This allows for filtering and displaying specific records in TBrowse objects without modifying the original DBF file. 
  *   The function iterates through the records in the current work area, applies the filter condition based on lMode, and copies the specified field (cFld) and deletion status to the new in-memory DBF. 
  *   The new DBF file is created with a single field named "ROWID" of type Numeric. 
  * 
  * Notes: 
  *   The function uses the dbDrop() function to delete any existing DBF file with the same alias before creating the new one. 
  *   The function uses dbCreate() to create the new in-memory DBF file. 
  *   The function uses dbAppend() and FieldPut() to add records to the new DBF file. 
  *   The function uses dbDelete() to mark records as deleted in the new DBF file if they were deleted in the original DBF file. 
  *   The function restores the original work area after creating the new DBF file. 
  */ 
 STATIC FUNCTION Select2Mem(bMode, cFld) 
    LOCAL nOld  := Select() 
    LOCAL aRecs := {}, cAls := Alias() 
    LOCAL cFile := "mem:" + cAls, nFld, aRec, nRec 
    Default cFld := "CUSTNO" 
  
    IF IsChar( bMode ) ; bMode := &("{|| "+bMode + " }") 
    ENDIF 
  
    DO EVENTS 
    nFld := FieldPos(cFld) 
    GO TOP 
    DO WHILE !EOF() 
       DO EVENTS 
       nRec := iif( EVal( bMode ), RecNo(), 0 ) 
       IF nRec > 0 
          AAdd(aRecs, { FieldGet(nFld), Deleted() }) 
       ENDIF 
       SKIP 
    ENDDO 
    GO TOP 
    DO EVENTS 
    dbDrop(cFile, cFile, "DBFCDX") 
    dbCreate( cFile, {{"ROWID", "N", 10, 0}}, "DBFCDX", .T., cAls + "_" ) 
    FOR EACH aRec IN aRecs 
        dbAppend() 
        FieldPut(1, aRec[1]) 
        IF ! Empty( aRec[2] ) ; dbDelete() 
        ENDIF 
    NEXT 
    dbGoTop() 
    dbCloseArea() 
    dbSelectArea(nOld) 
    DO EVENTS 
  
 RETURN cFile 
  
 /* 
  * STATIC FUNCTION Sets_TSB( oTsb ) 
  * 
  * Configures default settings for TBrowse objects used in the application. 
  * 
  * Parameters: 
  *   oTsb (OBJECT, optional): An existing TBrowse object to configure. If NIL, a new oHmgData() object is created. 
  * 
  * Returns: 
  *   OBJECT: The configured TBrowse object (either the passed object or the newly created one). 
  * 
  * Purpose: 
  *   This function centralizes the configuration of common TBrowse settings, promoting code reuse and consistency. 
  *   It sets properties such as zebra striping, column numbering, and event handlers for initialization, after-browse operations, and focus changes. 
  *   The function also defines closures (code blocks) for customizing the appearance and behavior of the TBrowse objects. 
  *   This allows for dynamic modification of the TBrowse based on the data being displayed. 
  * 
  * Notes: 
  *   The function uses the App.Cargo object to store the TBrowse settings. 
  *   The bInit closure is responsible for loading the fields into the TBrowse and handling column customization. 
  *   The bAfter closure is responsible for customizing the appearance of the TBrowse after it has been loaded. 
  *   The bGotFocus closure is responsible for setting the focus to the TBrowse object and updating the window title. 
  */ 
 STATIC FUNCTION Sets_TSB( oTsb ) 
    LOCAL oac := App.Cargo 
  
    Default oac:oTsb := oTsb, oac:oTsb := oHmgData() 
  
    oac:oTsb:aEdit     := .F. 
    oac:oTsb:aFoot     := .T. 
    oac:oTsb:lZebra    := .T. 
    oac:oTsb:aNumber   := { 1, App.Object:W(0.5) } 
    oac:oTsb:uSelector := 20 
    oac:oTsb:bInit     := {|ob,op| 
                            Local cn := op:cAlsKey, lEdit, oc 
                            ob:Hide() 
                            lEdit := !Empty(op:lAlsEdit) 
                            ob:LoadFields(lEdit, op:aSelFld, op:cAlsFld) 
                            IF !Empty(cn) .and. ob:nColumn(cn, .T.) > 0 
                               ob:DelColumn(cn) 
                            ENDIF 
                            IF lEdit ; ob:lRecLockArea := lEdit 
                            ENDIF 
                            Return Nil 
                            } 
    oac:oTsb:bAfter    := {|ob| 
                            Local oc := ob:aColumns[1] 
                            oc:nClrBack := {|na,nc,obr| 
                                            Local ocol := obr:aColumns[nc] 
                                            Local nclr := ocol:nClrHeadBack 
                                            IF (obr:cAlias)->( Deleted() ) 
                                               nclr := CLR_HGRAY 
                                               na := nc 
                                            ENDIF 
                                            Return nclr 
                                            } 
                            Return Nil 
                            } 
    oac:oTsb:bGotFocus := {|ob| 
                            Local owc 
                            IF IsObject(ob) 
                               SET WINDOW THIS TO ob:cParentWnd 
                               owc := This.Cargo 
                               owc:nBrw := ob:Cargo:nBrw 
                               SET WINDOW THIS TO  
                            ENDIF 
                            Return Nil 
                            } 
  
    oac:oTsb:nHeightCell := App.Object:H(1.2) 
    oac:oTsb:nHeightHead := App.Object:H(1.2) 
  
    oTsb := oac:oTsb 
  
 RETURN oTsb 
  
 /* 
  * INIT PROCEDURE Sets_ENV() 
  * 
  * Initializes the application environment, setting various system parameters and defining fonts. 
  * 
  * Purpose: 
  *   This procedure sets up the Harbour MiniGUI Extended Edition (HMG Extended) environment for the application. 
  *   It configures the default RDD (Replaceable Database Driver), date and time formats, display settings, and other system parameters. 
  *   It also defines custom fonts for use throughout the application, ensuring a consistent look and feel. 
  *   The procedure also sets up logging functionality, creating a log file to record application events and errors. 
  * 
  * Notes: 
  *   The procedure uses the rddSetDefault() function to set the default RDD to DBFCDX. 
  *   The procedure uses the SET command to configure various system parameters. 
  *   The procedure uses the _DefineFont() function to define custom fonts. 
  *   The procedure uses the _SetGetLogFile() function to set the log file. 
  *   The procedure uses the hb_FileDelete() function to delete the log file if it already exists. 
  */ 
 INIT PROCEDURE Sets_ENV() 
    LOCAL cFont := "Arial", nSize := 12, oac 
  
    rddSetDefault( "DBFCDX" ) 
  
    SET DECIMALS  TO 4 
    SET EPOCH     TO 2000 
    SET DATE      TO GERMAN 
    SET CENTURY   ON 
    SET DELETED   OFF 
    SET AUTOPEN   ON 
    SET EXACT     ON 
    SET EXCLUSIVE ON 
    SET SOFTSEEK  ON 
    SET OOP ON 
    SET TOOLTIPSTYLE BALLOON 
  
    SET MULTIPLE QUIT WARNING  
    SET NAVIGATION EXTENDED 
    SET WINDOW MODAL PARENT HANDLE ON 
    SET ShowRedAlert ON 
  
    App.Cargo := oHmgData() ; oac := App.Cargo 
  
    oac:lLogDel   := .T.  
    oac:cLogFile  := hb_FNameExtSet( App.ExeName, ".log" ) 
    oac:cPathDbf  := ".\" 
  
    SET FONT TO cFont, nSize 
  
    _DefineFont("Normal"  , cFont, nSize  , .F., .F. ) 
    _DefineFont("Bold"    , cFont, nSize  , .T., .F. ) 
    _DefineFont("Italic"  , cFont, nSize-4, .F., .T. ) 
    // Alert* font 
    _DefineFont("DlgFont" , cFont, nSize+2, .F., .F. ) 
  
  
    _SetGetLogFile( oac:cLogFile ) 
  
    IF oac:lLogDel ; hb_FileDelete( oac:cLogFile ) 
    ENDIF 
  
  
 RETURN 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
 #define  _HMG_OUTLOG 
  
 #include "hmg.ch" 
 #include "tsbrowse.ch" 
 #include "dbinfo.ch" 
  
 REQUEST DBFCDX 
  
 FUNCTION Main() 
    LOCAL cForm := "wMain" 
    LOCAL nY, nX, nH, nW 
    LOCAL oTsb1, oTsb2, aFile := {}, cFile, aAls := {} 
    LOCAL cAls1 := "CUST_1" , cAls2 := "CUST_2" 
    LOCAL cDbf  := "CUSTOMER2", cID := "CUSTNO" 
    LOCAL cSel1 := "RecNo() %2 != 0" 
    LOCAL cSel2 := "RecNo() %2 == 0" 
    LOCAL cTitl := " Select, NO Relation and Edit. " + MiniGuiVersion() 
  
    Sets_TSB()           // App.Cargo:oTsb create 
  
    cFile := App.Cargo:cPathDbf + cDbf 
  
    USE ( cFile )  ALIAS ( cAls1 )  NEW SHARED 
    AAdd( aFile, Select2Mem(cSel1, cID) )  
    AAdd( aAls , StrTran(cAls1, "_", "") ) 
    GO TOP 
  
    USE ( cFile )  ALIAS ( cAls2 )  NEW SHARED 
    AAdd( aFile, Select2Mem(cSel2, cID) )     
    AAdd( aAls , StrTran(cAls2, "_", "") ) 
    GO TOP 
  
    USE ( aFile[1] ) ALIAS ( aAls[1] ) NEW  
    GO TOP  
    USE ( aFile[2] ) ALIAS ( aAls[2] ) NEW  
    GO TOP  
  
    DEFINE WINDOW &cForm TITLE "Demo 2 TBrowse." + cTitl ; 
           MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F., _wPost(0) ) ; 
           ON RELEASE ( This.Hide, _wSend(90) ) 
           This.Cargo := oHmgData() 
  
       This.Maximize 
  
       This.Cargo:aFile := aFile 
  
       nY := nX := 0 
       nW := This.ClientWidth 
       nH := Int( This.ClientHeight / 2 ) 
  
       oTsb1 := App.Cargo:oTsb:Clone() 
       oTsb1:cBrw     := "Brw_1" 
       oTsb1:uAlias   := aAls[1] 
       oTsb1:cAlsFld  := cAls1                 // relation 
       oTsb1:cAlsKey  := NIL //"CUSTNO"        // field relation 
       oTsb1:lAlsEdit := !Empty(oTsb1:cAlsKey) // lock edit 
     //oTsb1:aSelFld  := NIL                   // FieldNames relation, array 
       oTsb1:aSelFld  := {"COUNTRY", "STATE", "CITY", "COMPANY", "ADDR1"} 
       oTsb1:nY := nY 
       oTsb1:nX := nX 
       oTsb1:nW := nW 
       oTsb1:nH := nH 
       oTsb1:lSuperHd := .T. 
       oTsb1:cSuperHd := oTsb1:cBrw + "." + oTsb1:uAlias + " -> " + ; 
                         Lower((oTsb1:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel1 + space(3) + ; 
                         "RELATION: TO ROWNR INTO " +oTsb1:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb1:cSuperHd += iif( oTsb1:lAlsEdit, "TRUE", "FALSE" )  
       oTsb1:aSuperHdColor := {CLR_YELLOW, CLR_HBLUE} 
  
       nY += nH  
       nH -= 1 
  
       oTsb2 := App.Cargo:oTsb:Clone() 
       oTsb2:cBrw     := "Brw_2" 
       oTsb2:uAlias   := aAls[2] 
       oTsb2:cAlsFld  := cAls2                 // relation 
       oTsb2:cAlsKey  := cID                   // field relation 
       oTsb2:lAlsEdit := !Empty(oTsb2:cAlsKey) // lock edit 
       oTsb2:aSelFld  := NIL                   // FieldNames relation, array  
       oTsb2:lZebra   := .F. 
       oTsb2:lChess   := .T. 
       oTsb2:nY := nY 
       oTsb2:nH := nH 
       oTsb2:lSuperHd := .T. 
       oTsb2:cSuperHd := oTsb2:cBrw + "." + oTsb2:uAlias + " -> " + ; 
                         Lower((oTsb2:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel2 + space(3) + ; 
                         "RELATION: TO ROWNR INTO " +oTsb2:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb2:cSuperHd += iif( oTsb2:lAlsEdit, "TRUE", "FALSE" ) 
       oTsb2:aSuperHdColor := {CLR_HBLUE, CLR_YELLOW} 
  
       This.Cargo:aBrw := _TBrowse({ oTsb1, oTsb2 }) 
       This.Cargo:nBrw := 1 
  
       This.Cargo:aBrw[ This.Cargo:nBrw ]:SetFocus() 
  
       ON KEY F1     ACTION NIL 
       ON KEY TAB    ACTION {||  
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw + 1 
                             nb := iif( nb > Len(ab), 1, nb ) 
                             ob := ab[ nb ] 
                             ob:SetFocus() 
                             Return Nil 
                             } 
       ON KEY ESCAPE ACTION {|| 
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw  
                             ob := ab[ nb ] 
                             IF ob:IsEdit ; ob:SetFocus() 
                             ELSE         ; _wSend(99) 
                             ENDIF 
                             Return Nil 
                             } 
  
       WITH OBJECT This.Object 
        :Event( 0, {|ow| AEval(ow:Cargo:aBrw, {|ob| ob:Show() }), DoEvents() }) 
        :Event(90, {|ow|  
                    dbCloseAll() 
                    AEval(ow:Cargo:aFile, {|cf| dbDrop(cf, cf, "DBFCDX") }) 
                    FErase("mem")   
                    Return Nil 
                    }) 
        :Event(99, {|ow| ow:Release() }) 
       END WITH 
  
    END WINDOW 
  
    ACTIVATE WINDOW &cForm 
  
 RETURN NIL 
  
 STATIC FUNCTION Select2Mem(bMode, cFld) 
    LOCAL nOld  := Select() 
    LOCAL aRecs := {}, cAls := Alias() 
    LOCAL cFile := "mem:" + cAls, nFld, aRec, nRec 
    Default cFld := "CUSTNO" 
  
    IF IsChar( bMode ) ; bMode := &("{|| "+bMode + " }") 
    ENDIF 
  
    DO EVENTS 
    nFld := FieldPos(cFld) 
    GO TOP 
    DO WHILE !EOF() 
       DO EVENTS 
       nRec := iif( EVal( bMode ), RecNo(), 0 ) 
       IF nRec > 0 
          AAdd(aRecs, { RecNo(), Deleted() }) 
       ENDIF 
       SKIP 
    ENDDO 
    GO TOP 
    DO EVENTS 
    dbDrop(cFile, cFile, "DBFCDX") 
    dbCreate( cFile, {{"ROWNR", "N", 10, 0}}, "DBFCDX", .T., cAls + "_" ) 
    FOR EACH aRec IN aRecs 
        dbAppend() 
        FieldPut(1, aRec[1]) 
        IF ! Empty( aRec[2] ) ; dbDelete() 
        ENDIF 
    NEXT 
    dbGoTop() 
    dbCloseArea() 
    dbSelectArea(nOld) 
    DO EVENTS 
  
 RETURN cFile 
  
 STATIC FUNCTION Sets_TSB( oTsb ) 
    LOCAL oac := App.Cargo 
  
    Default oac:oTsb := oTsb ; Default oac:oTsb := oHmgData() 
  
    oac:oTsb:aEdit     := .F. 
    oac:oTsb:aFoot     := .T. 
    oac:oTsb:lZebra    := .T. 
    oac:oTsb:aNumber   := { 1, App.Object:W(0.5) } 
    oac:oTsb:uSelector := 20 
    oac:oTsb:bInit     := {|ob,op| 
                            Local cn := op:cAlsKey, lEdit, oc 
                            ob:Hide() 
                            lEdit := !Empty(op:lAlsEdit) 
                            ob:LoadFields(lEdit, op:aSelFld, op:cAlsFld) 
                            IF lEdit ; ob:lRecLockArea := lEdit 
                            ENDIF 
                            ob:bOnDrawLine := {|obr| 
                                      Local cAls := obr:Cargo:oParam:cAlsFld 
                                      (cAls)->( dbGoTo((obr:cAlias)->ROWNR) ) 
                                      Return Nil 
                                      } 
                            Return Nil 
                            } 
    oac:oTsb:bAfter    := {|ob| 
                            Local oc := ob:aColumns[1] 
                            oc:nClrBack := {|na,nc,obr| 
                                            Local ocol := obr:aColumns[nc] 
                                            Local nclr := ocol:nClrHeadBack 
                                            IF (obr:cAlias)->( Deleted() ) 
                                               nclr := CLR_HGRAY 
                                               na := nc 
                                            ENDIF 
                                            Return nclr 
                                            } 
                            Return Nil 
                            } 
    oac:oTsb:bGotFocus := {|ob| 
                            Local owc 
                            IF IsObject(ob) 
                               SET WINDOW THIS TO ob:cParentWnd 
                               owc := This.Cargo 
                               owc:nBrw := ob:Cargo:nBrw 
                               SET WINDOW THIS TO  
                            ENDIF 
                            Return Nil 
                            } 
  
    oac:oTsb:nHeightCell := App.Object:H(1.2) 
    oac:oTsb:nHeightHead := App.Object:H(1.2) 
  
    oTsb := oac:oTsb 
  
 RETURN oTsb 
  
 *----------------------------------------------------------------------------* 
 INIT PROCEDURE Sets_ENV() 
 *----------------------------------------------------------------------------* 
    LOCAL cFont := "Arial", nSize := 12, oac 
  
    rddSetDefault( "DBFCDX" ) 
  
    SET DECIMALS  TO 4 
    SET EPOCH     TO 2000 
    SET DATE      TO GERMAN 
    SET CENTURY   ON 
    SET DELETED   OFF 
    SET AUTOPEN   OFF 
    SET EXACT     ON 
    SET EXCLUSIVE ON 
    SET SOFTSEEK  ON 
    SET OOP ON 
    SET TOOLTIPSTYLE BALLOON 
  
    SET MULTIPLE QUIT WARNING  
    SET WINDOW MAIN OFF 
    SET NAVIGATION EXTENDED 
    SET WINDOW MODAL PARENT HANDLE ON 
  //SET DEFAULT ICON TO "1MG" 
    SET ShowRedAlert ON 
  
    App.Cargo := oHmgData() ; oac := App.Cargo 
  
    oac:lLogDel   := .T.  
    oac:cLogFile  := hb_FNameExtSet( App.ExeName, ".log" ) 
    oac:cPathDbf  := ".\" 
    oac:nMenuBmpH := 24  
  
    SET FONT TO cFont, nSize 
  
    _DefineFont("Normal"  , cFont, nSize  , .F., .F. ) 
    _DefineFont("Bold"    , cFont, nSize  , .T., .F. ) 
    _DefineFont("Italic"  , cFont, nSize-4, .F., .T. ) 
    // Alert* font 
    _DefineFont("DlgFont" , cFont, nSize+2, .F., .F. ) 
  
  
    _SetGetLogFile( oac:cLogFile ) 
  
    IF oac:lLogDel ; hb_FileDelete( oac:cLogFile ) 
    ENDIF 
  
    SET MENUSTYLE EXTENDED 
    SetMenuBitmapHeight( oac:nMenuBmpH ) 
    // 
  
 RETURN 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
 #define  _HMG_OUTLOG 
  
 #include "hmg.ch" 
 #include "tsbrowse.ch" 
 #include "dbinfo.ch" 
  
 REQUEST DBFCDX 
  
 /* 
  * FUNCTION Main() 
  * 
  * Demonstrates the use of TBrowse controls with data selection, relation, and editing capabilities. 
  * 
  * Purpose: 
  *   This function demonstrates the use of two TBrowse controls to display and interact with data from a DBF file. 
  *   It performs the following steps: 
  *     1. Sets up the TBrowse environment using Sets_TSB(). 
  *     2. Opens two instances of the "CUSTOMER2" DBF file with different aliases and selection criteria. 
  *     3. Creates two memory tables based on the selection criteria. 
  *     4. Defines a main window with two TBrowse controls, each displaying data from one of the memory tables. 
  *     5. Configures the TBrowse controls with specific properties, including aliases, relation fields, and editability. 
  *     6. Sets up key bindings for navigation and exiting the application. 
  *     7. Activates the main window, making it visible to the user. 
  * 
  * Notes: 
  *   - The "CUSTOMER2" DBF file is assumed to exist in the application's directory. 
  *   - The Sets_TSB() function is responsible for initializing the TBrowse environment and setting default properties. 
  *   - The Select2Mem() function creates a memory table based on a selection criteria. 
  *   - The application uses the App.Cargo object to store application-wide data, such as the TBrowse objects and file paths. 
  */ 
 FUNCTION Main() 
    LOCAL cForm := "wMain" 
    LOCAL nY, nX, nH, nW 
    LOCAL oTsb1, oTsb2, aFile := {}, cFile, aAls := {} 
    LOCAL cAls1 := "CUST_1" , cAls2 := "CUST_2" 
    LOCAL cDbf  := "CUSTOMER2", cID := "CUSTNO" 
    LOCAL cSel1 := "RecNo() %2 != 0" 
    LOCAL cSel2 := "RecNo() %2 == 0" 
    LOCAL cTitl := " Select, Relation and Edit. " + MiniGuiVersion() 
  
    Sets_TSB()           // App.Cargo:oTsb create 
  
    cFile := App.Cargo:cPathDbf + cDbf 
  
    USE ( cFile )  ALIAS ( cAls1 )  NEW SHARED 
    AAdd( aFile, Select2Mem(cSel1, cID) )  
    AAdd( aAls , StrTran(cAls1, "_", "") ) 
    GO TOP 
  
    USE ( cFile )  ALIAS ( cAls2 )  NEW SHARED 
    AAdd( aFile, Select2Mem(cSel2, cID) )     
    AAdd( aAls , StrTran(cAls2, "_", "") ) 
    GO TOP 
  
    USE ( aFile[1] ) ALIAS ( aAls[1] ) NEW  
    GO TOP  
    USE ( aFile[2] ) ALIAS ( aAls[2] ) NEW  
    GO TOP  
  
    DEFINE WINDOW &cForm TITLE "Demo 2 TBrowse." + cTitl ; 
           MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F., _wPost(0) ) ; 
           ON RELEASE ( This.Hide, _wSend(90) ) 
           This.Cargo := oHmgData() 
  
       This.Maximize 
  
       This.Cargo:aFile := aFile 
  
       nY := nX := 0 
       nW := This.ClientWidth 
       nH := Int( This.ClientHeight / 2 ) 
  
       oTsb1 := App.Cargo:oTsb:Clone() 
       oTsb1:cBrw     := "Brw_1" 
       oTsb1:uAlias   := aAls[1] 
       oTsb1:cAlsFld  := cAls1                 // relation 
       oTsb1:cAlsKey  := NIL                   // field relation 
       oTsb1:lAlsEdit := !Empty(oTsb1:cAlsKey) // lock edit 
     //oTsb1:aSelFld  := NIL                   // FieldNames relation, array 
       oTsb1:aSelFld  := {"COUNTRY", "STATE", "CITY", "COMPANY", "ADDR1"} 
       oTsb1:nY := nY 
       oTsb1:nX := nX 
       oTsb1:nW := nW 
       oTsb1:nH := nH 
       oTsb1:lSuperHd := .T. 
       oTsb1:cSuperHd := oTsb1:cBrw + "." + oTsb1:uAlias + " -> " + ; 
                         Lower((oTsb1:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel1 + space(3) + ; 
                         "RELATION: TO ROWID INTO " +oTsb1:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb1:cSuperHd += iif( oTsb1:lAlsEdit, "TRUE", "FALSE" )  
       oTsb1:aSuperHdColor := {CLR_YELLOW, CLR_HBLUE} 
  
       nY += nH  
       nH -= 1 
  
       oTsb2 := App.Cargo:oTsb:Clone() 
       oTsb2:cBrw     := "Brw_2" 
       oTsb2:uAlias   := aAls[2] 
       oTsb2:cAlsFld  := cAls2                 // relation 
       oTsb2:cAlsKey  := cID                   // field relation 
       oTsb2:lAlsEdit := !Empty(oTsb2:cAlsKey) // lock edit 
       oTsb2:aSelFld  := NIL                   // FieldNames relation, array  
       oTsb2:lZebra   := .F. 
       oTsb2:lChess   := .T. 
       oTsb2:nY := nY 
       oTsb2:nH := nH 
       oTsb2:lSuperHd := .T. 
       oTsb2:cSuperHd := oTsb2:cBrw + "." + oTsb2:uAlias + " -> " + ; 
                         Lower((oTsb2:uAlias)->( dbInfo( DBI_FULLPATH ) )) + ; 
                         space(3) + "SELECT: " + cSel2 + space(3) + ; 
                         "RELATION: TO ROWID INTO " +oTsb2:cAlsFld + ; 
                         space(3) + "EDIT: " 
       oTsb2:cSuperHd += iif( oTsb2:lAlsEdit, "TRUE", "FALSE" ) 
       oTsb2:aSuperHdColor := {CLR_HBLUE, CLR_YELLOW} 
  
       This.Cargo:aBrw := _TBrowse({ oTsb1, oTsb2 }) 
       This.Cargo:nBrw := 1 
  
       This.Cargo:aBrw[ This.Cargo:nBrw ]:SetFocus() 
  
       ON KEY F1     ACTION NIL 
       ON KEY TAB    ACTION {||  
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw + 1 
                             nb := iif( nb > Len(ab), 1, nb ) 
                             ob := ab[ nb ] 
                             ob:SetFocus() 
                             Return Nil 
                             } 
       ON KEY ESCAPE ACTION {|| 
                             Local ab := ThisWindow.Cargo:aBrw, ob 
                             Local nb := ThisWindow.Cargo:nBrw  
                             ob := ab[ nb ] 
                             IF ob:IsEdit ; ob:SetFocus() 
                             ELSE         ; _wSend(99) 
                             ENDIF 
                             Return Nil 
                             } 
  
       WITH OBJECT This.Object 
        :Event( 0, {|ow| AEval(ow:Cargo:aBrw, {|ob| ob:Show() }), DoEvents() }) 
        :Event(90, {|ow|  
                    dbCloseAll() 
                    AEval(ow:Cargo:aFile, {|cf| dbDrop(cf, cf, "DBFCDX") }) 
                    FErase("mem")   
                    Return Nil 
                    }) 
        :Event(99, {|ow| ow:Release() }) 
       END WITH 
  
    END WINDOW 
  
    ACTIVATE WINDOW &cForm 
  
 RETURN NIL 
  
 /* 
  * STATIC FUNCTION Select2Mem(bMode, cFld) 
  * 
  * Creates a memory table containing records selected from the current database based on a given condition. 
  * 
  * Parameters: 
  *   bMode (BLOCK or CHARACTER): A code block or character expression that defines the selection criteria. 
  *                               If a code block, it should evaluate to .T. for records to be included. 
  *                               If a character expression, it is converted to a code block. 
  *   cFld (CHARACTER, optional): The name of the field to be used as the ROWID in the memory table. Defaults to "CUSTNO". 
  * 
  * Returns: 
  *   CHARACTER: The alias of the newly created memory table. 
  * 
  * Purpose: 
  *   This function is used to create a temporary memory table containing a subset of records from a DBF file, 
  *   based on a specified selection criteria. This allows for filtering and manipulating data without directly 
  *   modifying the original DBF file. The memory table includes a "ROWNR" field that stores the original record number 
  *   from the DBF file, enabling a relation between the memory table and the original DBF. 
  * 
  * Notes: 
  *   - The function uses dbCreate() to create the memory table, which is automatically opened. 
  *   - The function uses dbAppend() and FieldPut() to add records to the memory table. 
  *   - The function uses dbDelete() to mark records as deleted in the memory table if they were deleted in the original DBF. 
  *   - The function uses dbDrop() to delete the memory table if it already exists. 
  *   - The function uses dbCloseArea() to close the memory table after it has been created. 
  *   - The function uses dbSelectArea() to restore the original selected work area. 
  */ 
 STATIC FUNCTION Select2Mem(bMode, cFld) 
    LOCAL nOld  := Select() 
    LOCAL aRecs := {}, cAls := Alias() 
    LOCAL cFile := "mem:" + cAls, nFld, aRec, nRec 
    Default cFld := "CUSTNO" 
  
    IF IsChar( bMode ) ; bMode := &("{|| "+bMode + " }") 
    ENDIF 
  
    DO EVENTS 
    nFld := FieldPos(cFld) 
    GO TOP 
    DO WHILE !EOF() 
       DO EVENTS 
       nRec := iif( EVal( bMode ), RecNo(), 0 ) 
       IF nRec > 0 
          AAdd(aRecs, { RecNo(), Deleted() }) 
       ENDIF 
       SKIP 
    ENDDO 
    GO TOP 
    DO EVENTS 
    dbDrop(cFile, cFile, "DBFCDX") 
    dbCreate( cFile, {{"ROWNR", "N", 10, 0}}, "DBFCDX", .T., cAls + "_" ) 
    FOR EACH aRec IN aRecs 
        dbAppend() 
        FieldPut(1, aRec[1]) 
        IF ! Empty( aRec[2] ) ; dbDelete() 
        ENDIF 
    NEXT 
    dbGoTop() 
    dbCloseArea() 
    dbSelectArea(nOld) 
    DO EVENTS 
  
 RETURN cFile 
  
 /* 
  * STATIC FUNCTION Sets_TSB( oTsb ) 
  * 
  * Configures the default settings and event handlers for TBrowse objects used in the application. 
  * 
  * Parameters: 
  *   oTsb (OBJECT, optional): An existing TBrowse object to configure. If not provided, a new oHmgData() object is created. 
  * 
  * Returns: 
  *   OBJECT: The configured TBrowse object (either the provided object or the newly created one). 
  * 
  * Purpose: 
  *   This function centralizes the configuration of TBrowse objects, ensuring consistency across the application. 
  *   It sets default properties such as editability, footer visibility, zebra striping, and column numbering. 
  *   It also defines event handlers for initialization, drawing lines, and gaining focus. 
  *   This function promotes code reusability and simplifies the creation of TBrowse controls. 
  * 
  * Notes: 
  *   - The function uses the App.Cargo object to store application-wide data, such as the default TBrowse settings. 
  *   - The bInit codeblock is executed when the TBrowse object is initialized. It loads the fields to be displayed and sets up the record locking area. 
  *   - The bOnDrawLine codeblock is executed when a line is drawn in the TBrowse object. It positions the cursor in the related DBF file. 
  *   - The bAfter codeblock is executed after the TBrowse object is displayed. It sets the background color of deleted records. 
  *   - The bGotFocus codeblock is executed when the TBrowse object gains focus. It sets the active window and updates the application's current TBrowse object. 
  */ 
 STATIC FUNCTION Sets_TSB( oTsb ) 
    LOCAL oac := App.Cargo 
  
    DEFAULT oac:oTsb := oTsb, oac:oTsb := oHmgData() 
  
    oac:oTsb:aEdit     := .F. 
    oac:oTsb:aFoot     := .T. 
    oac:oTsb:lZebra    := .T. 
    oac:oTsb:aNumber   := { 1, App.Object:W(0.5) } 
    oac:oTsb:uSelector := 20 
    oac:oTsb:bInit     := {|ob,op| 
                            Local cn := op:cAlsKey, lEdit, oc 
                            ob:Hide() 
                            lEdit := !Empty(op:lAlsEdit) 
                            ob:LoadFields(lEdit, op:aSelFld, op:cAlsFld) 
                            IF lEdit ; ob:lRecLockArea := lEdit 
                            ENDIF 
                            ob:bOnDrawLine := {|obr| 
                                      Local cAls := obr:Cargo:oParam:cAlsFld 
                                      (cAls)->( dbGoTo((obr:cAlias)->ROWNR) ) 
                                      Return Nil 
                                      } 
                            Return Nil 
                            } 
    oac:oTsb:bAfter    := {|ob| 
                            Local oc := ob:aColumns[1] 
                            oc:nClrBack := {|na,nc,obr| 
                                            Local ocol := obr:aColumns[nc] 
                                            Local nclr := ocol:nClrHeadBack 
                                            IF (obr:cAlias)->( Deleted() ) 
                                               nclr := CLR_HGRAY 
                                               na := nc 
                                            ENDIF 
                                            Return nclr 
                                            } 
                            Return Nil 
                            } 
    oac:oTsb:bGotFocus := {|ob| 
                            Local owc 
                            IF IsObject(ob) 
                               SET WINDOW THIS TO ob:cParentWnd 
                               owc := This.Cargo 
                               owc:nBrw := ob:Cargo:nBrw 
                               SET WINDOW THIS TO  
                            ENDIF 
                            Return Nil 
                            } 
  
    oac:oTsb:nHeightCell := App.Object:H(1.2) 
    oac:oTsb:nHeightHead := App.Object:H(1.2) 
  
    oTsb := oac:oTsb 
  
 RETURN oTsb 
  
 /* 
  * INIT PROCEDURE Sets_ENV() 
  * 
  * Initializes the application environment, setting various system settings and defining fonts. 
  * 
  * Purpose: 
  *   This procedure sets up the application's environment by configuring various system settings, 
  *   such as the default RDD, date format, decimal precision, and font settings. It also defines 
  *   application-specific settings, such as the log file path and whether to delete the log file on startup. 
  *   This ensures that the application runs consistently across different systems and configurations. 
  * 
  * Notes: 
  *   - The procedure sets the default RDD to DBFCDX, which is a common RDD for DBF files. 
  *   - The procedure sets the date format to German. 
  *   - The procedure sets various other system settings, such as SET DELETED OFF, SET EXACT ON, and SET SOFTSEEK ON. 
  *   - The procedure defines three fonts: "Normal", "Bold", and "Italic". 
  *   - The procedure creates an oHmgData() object and stores it in App.Cargo for application-wide data storage. 
  *   - The procedure sets the log file path and whether to delete the log file on startup. 
  */ 
 INIT PROCEDURE Sets_ENV() 
    LOCAL cFont := "Arial", nSize := 12, oac 
  
    rddSetDefault( "DBFCDX" ) 
  
    SET DECIMALS  TO 4 
    SET EPOCH     TO 2000 
    SET DATE      TO GERMAN 
    SET CENTURY   ON 
    SET DELETED   OFF 
    SET AUTOPEN   OFF 
    SET EXACT     ON 
    SET EXCLUSIVE ON 
    SET SOFTSEEK  ON 
    SET OOP ON 
    SET TOOLTIPSTYLE BALLOON 
  
    SET MULTIPLE QUIT WARNING  
    SET NAVIGATION EXTENDED 
    SET WINDOW MODAL PARENT HANDLE ON 
    SET ShowRedAlert ON 
  
    App.Cargo := oHmgData() ; oac := App.Cargo 
  
    oac:lLogDel   := .T.  
    oac:cLogFile  := hb_FNameExtSet( App.ExeName, ".log" ) 
    oac:cPathDbf  := ".\" 
  
    SET FONT TO cFont, nSize 
  
    _DefineFont("Normal"  , cFont, nSize  , .F., .F. ) 
    _DefineFont("Bold"    , cFont, nSize  , .T., .F. ) 
    _DefineFont("Italic"  , cFont, nSize-4, .F., .T. ) 
    // Alert* font 
    _DefineFont("DlgFont" , cFont, nSize+2, .F., .F. ) 
  
    _SetGetLogFile( oac:cLogFile ) 
  
    IF oac:lLogDel ; hb_FileDelete( oac:cLogFile ) 
    ENDIF 
  
 RETURN 
 

 
 Enhancements 
  
 * Added support for CenterAlign and RightAlign properties in StatusBar items without requiring color attributes. 
   (Requested by Ivanil Marcelino) 
  
 * Improved _Alert() function now correctly handles the AlwaysOnTop parameter. 
  
 * HMG_PressKey() now displays an “Invalid parameter” message for better error handling. 
  
 * Registry function RegCreateKey() replaced with the recommended RegCreateKeyEx() WinAPI call. 
  
 --- 
  
 Library and Core Updates 
  
 * Refactored network functions for improved performance and maintainability: 
   NetRecLock(), NetFileLock(), NetAppend(), NetDelete(), and NetRecall() 
  
 * Internal modules improved for: 
  
   * PDF management 
   * Help file handling 
   * Hotkey configuration 
   * StatusBar keyboard shortcuts 
   * Windows Registry access 
   * DBF/Array conversions (HMG_DbfToArray(), HMG_ArrayToDbf()) 
  
 * Updated libraries: 
  
   * HbSQLite3 now uses SQLite version 3.50.3 
   * HbVpdf library now includes full function documentation 
   * Shell32 source refactored 
   * SQLRDD library updated (Pro version) 
   * Harbour Compiler 3.2.0dev (SVN 2025-07-19 19:44) integrated (Pro version) 
  
 --- 
  
 New Samples 
  
 * Custom Progress Bar using OOP 
   Location: \samples\Basic\MyProgressbar 
  
 * Registry Wrapper Test 
   Location: \samples\Basic\REGISTRY_4 
  
 * Two memory tables based on selection criteria 
   Location: \samples\Advanced\Tsb_2tsb (demo8.prg and demo9.prg) 
  
 --- 
  
 Updated Samples with Detailed Comments 
  
 The following samples have been updated with comprehensive inline documentation: 
  
 * DATA_BOUND 
 * Grid_8 
 * AlertBoxes 
 * HotKeyBox 
 * HotKeys 
 * FastFind 
 * REPORT_GENERATOR 
 * EZ_Lines (Pro version) 
 * HMG_Tetris (Pro version) 
 * MineSweeper (Pro version) 
 * Sudoku (Pro version)