#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