- the size of the window and grid adapts to the size of array, it includes other ways of displaying the grid for different operating systems (tested on XP and Win10)
Code: Select all
//#include "minigui.ch"
#include "hmg.ch"
Function Main
Local i, xSel
Local aMultiArray:={1 , 2 , 'string' , Nil , { 5, 55, 555 }, .T. , { 7 , { '7a' , '7b' , { '7c' , { 77.77 , 777.777 } } } , 777 } , 8 }
Local aSingleArray:={1,2,3,4,5,6,7,8,9}
Local xNOTArray:= 1
Local aEmptyArray:={}
Local aTwoDimArray:=Array(100,10)
FOR i = 1 TO LEN( aTwoDimArray )
FOR j = 1 TO LEN( aTwoDimArray [i] )
aTwoDimArray [i][j] := ((i - 1) * 10) + j - 1
NEXT j
NEXT i
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 450 ;
HEIGHT 400 ;
TITLE 'Hello' ;
MAIN
DEFINE MAIN MENU
DEFINE POPUP 'Matrix Browse'
MENUITEM 'One-dimensional array' ACTION ( xSel := MatrixBrowse( aSingleArray ), MsgBox ('Selected value ' + hb_valToStr( xSel )) )
MENUITEM 'Two-dimensional array' ACTION ( xSel := MatrixBrowse( aTwoDimArray, .F. ), MsgBox ('Selected value ' + hb_valToStr( xSel )) )
MENUITEM 'Multi-dimensional array' ACTION { || ( xSel := MatrixBrowse( aMultiArray ), MsgBox ('Selected value ' + hb_valToStr( xSel )) ) }
MENUITEM 'Empty array' ACTION ( xSel := MatrixBrowse( aEmptyArray ), MsgBox ('Selected value ' + hb_valToStr( xSel )) )
MENUITEM 'Not an Array' ACTION ( xSel := MatrixBrowse( xNOTArray ), MsgBox ('Selected value ' + hb_valToStr( xSel )) )
END POPUP
DEFINE POPUP 'ABrowse'
MENUITEM 'One-dimensional array' ACTION ( xSel := ABrowse( aSingleArray ), MsgBox ('Selected row ' + hb_valToStr( xSel )) )
MENUITEM 'Two-dimensional array' ACTION ( xSel := ABrowse( aTwoDimArray, .F. ), MsgBox ('Selected row ' + hb_valToStr( xSel )) )
MENUITEM 'Multi-dimensional array' ACTION { || ( xSel := ABrowse( aMultiArray ), MsgBox ('Selected row ' + hb_valToStr( xSel )) ) }
MENUITEM 'Empty array' ACTION ( xSel := ABrowse( aEmptyArray ), MsgBox ('Selected row ' + hb_valToStr( xSel )) )
MENUITEM 'Not an Array' ACTION ( xSel := ABrowse( xNOTArray ), MsgBox ('Selected row ' + hb_valToStr( xSel )) )
END POPUP
END MENU
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
*******************************************************************************
Function MatrixBrowse ( aAnyArray , lHeader )
Local nItems, aColumns, cFormName
Local nFormNo := 1
Local nGridMargins := 4, nButtonH := 28, nButtonW := 100, nHeaderH := 24, nCellH := 19, nCellW := 100, nMiddleOfForm
Local nVScrollW := GetSystemMetrics( 2 /* SM_CXVSCROLL */ )
Local lVScrollVisible
Private _xMatrixValue
Default lHeader := .T.
IF WIN_OSISXP()
#ifdef MG_VER_H_ //MiniGui
nHeaderH := 20
nCellH := 17
#else
nHeaderH := 20
nCellH := 16
#endif
ENDIF
IF .NOT. HB_isArray( aAnyArray )
MsgStop ("The variable is not an array.")
RETURN Nil
ENDIF
nItems := 1
FOR EACH _xMatrixValue IN aAnyArray
IF hb_isArray( _xMatrixValue )
nItems := MAX ( nItems, LEN( _xMatrixValue ) )
ENDIF
NEXT
_xMatrixValue := Nil
aColumns := Array ( nItems )
AEval( aColumns, { | x, y | aColumns [ y ] := "Column - " + Alltrim(Str( y )) + " -" })
DO WHILE .T.
cFormName := "_MatrixForm_" + Alltrim( Str ( nFormNo ) )
IF !_IsWindowDefined ( cFormName )
EXIT
ENDIF
nFormNo ++
ENDDO
lVScrollVisible := LEN( aAnyArray ) * nCellH + nGridMargins + IF( lHeader, nHeaderH, 0) + nButtonH + 4 /* space between grid/buttons/form */ > GetDesktopRealHeight()
DEFINE WINDOW &cFormName ;
AT 0,0 ;
WIDTH MIN( nItems * nCellW + nGridMargins + IF( lVScrollVisible, nVScrollW, 0), GetDesktopRealWidth() ) ;
HEIGHT MIN ( LEN( aAnyArray ) * nCellH + nGridMargins + IF( lHeader, nHeaderH, 0) + nButtonH + 4 /* space between grid/buttons/form */, GetDesktopRealHeight() ) ;
MODAL ;
NOSIZE ;
NOSYSMENU ;
NOCAPTION
ON KEY ESCAPE ACTION ThisWindow.Release
DEFINE GRID Grid_1
PARENT &CFormName
ROW 0
COL 0
WIDTH MIN ( nItems * nCellW + nGridMargins + IF( lVScrollVisible, nVScrollW, 0) , GetDesktopRealWidth() )
HEIGHT MIN ( LEN( aAnyArray ) * nCellH + nGridMargins + IF(lHeader, nHeaderH, 0) , GetDesktopRealHeight() - nButtonH - 4 /* space between grid/buttons/form */ )
HEADERS aColumns
WIDTHS AFill ( Array (nItems), nCellW )
VALUE { 1, 1 }
DYNAMICFORECOLOR AFill ( Array (nItems), { || if ( hb_isString(This.CellValue) .AND. Alltrim(This.CellValue) = "{ Inner array }" , RED, BLACK ) } )
ONDBLCLICK (_xMatrixValue := GetMatrixValue ( aAnyArray, cFormName ), ThisWindow.Release)
VIRTUAL .T.
ITEMCOUNT LEN( aAnyArray )
ONQUERYDATA QueryArray ( aAnyArray )
SHOWHEADERS lHeader
CELLNAVIGATION .T.
END GRID
nMiddleOfForm := (GetProperty( cFormName, 'WIDTH' ) / 2)
nButtonW := MIN(nMiddleOfForm - 5, nButtonW)
@ GetProperty( cFormName, 'HEIGHT' ) - nButtonH - 2, nMiddleOfForm - nButtonW - 5 BUTTON B_OK ;
CAPTION "OK" ;
ACTION (_xMatrixValue := GetMatrixValue ( aAnyArray, cFormName ), ThisWindow.Release) ;
WIDTH nButtonW ;
HEIGHT nButtonH
@GetProperty( cFormName, 'HEIGHT' ) - nButtonH - 2, nMiddleOfForm + 5 BUTTON B_Cancel ;
CAPTION "Cancel" ;
ACTION ThisWindow.Release ;
WIDTH nButtonW ;
HEIGHT nButtonH
END WINDOW
#ifdef MG_VER_H_ //MiniGui
CENTER WINDOW &cFormName
#else
CENTER WINDOW &cFormName DESKTOP
#endif
ACTIVATE WINDOW &cFormName
Return _xMatrixValue
*******************************************
Function GetMatrixValue ( aArray, cFormName )
Local nRow := GetProperty(cFormName, 'Grid_1', 'Value' ) [1]
Local nCol := GetProperty(cFormName, 'Grid_1', 'Value' ) [2]
Local _xMatrixValue := Nil
Local xCellValue
IF hb_isNumeric ( nRow ) .AND. nRow > 0 .AND. nRow <= LEN( aArray )
xCellValue := GetProperty( cFormName, 'Grid_1', 'Cell', nRow, nCol )
IF hb_isString( xCellValue) .AND. Alltrim( xCellvalue ) == '{ Inner array }'
//show Inner Array
_xMatrixValue := MatrixBrowse( aArray [nRow] [nCol] )
ELSE
IF hb_isArray( aArray [nRow] )
_xMatrixValue := aArray [nRow] [nCol]
ELSEIF nCol == 1
_xMatrixValue := aArray [nRow]
ENDIF
ENDIF
ENDIF
Return _xMatrixValue
******************************************
Procedure QueryArray( aArray )
IF !hb_isArray ( aArray [This.QueryRowIndex] )
IF This.QueryColIndex == 1
This.QueryData := hb_ValToStr( aArray [This.QueryRowIndex] )
ELSE
This.QueryData := "" //Nil
ENDIF
ELSEIF hb_isArray ( aArray [This.QueryRowIndex] [This.QueryColIndex] )
This.QueryData := "{ Inner array }"
ELSE
This.QueryData := hb_ValToStr( aArray [This.QueryRowIndex] [This.QueryColIndex] )
ENDIF
Return
*******************************************************************************
Function ABrowse ( aAnyArray , lHeader )
Local nItems, aColumns
Local nGridMargins := 4, nButtonH := 28, nButtonW := 100, nHeaderH := 24, nCellH := 19, nCellW := 100, nMiddleOfForm
Local nVScrollW := GetSystemMetrics( 2 /* SM_CXVSCROLL */ )
Local lVScrollVisible
Local _nMatrixValue
Default lHeader := .T.
IF WIN_OSISXP()
#ifdef MG_VER_H_ //MiniGui
nHeaderH := 20
nCellH := 17
#else
nHeaderH := 20
nCellH := 16
#endif
ENDIF
IF .NOT. HB_isArray( aAnyArray )
MsgStop ("The variable is not an array.")
RETURN 0
ENDIF
nItems := 1
FOR EACH _nMatrixValue IN aAnyArray
IF hb_isArray( _nMatrixValue )
nItems := MAX ( nItems, LEN( _nMatrixValue ) )
ENDIF
NEXT
_nMatrixValue := 0
aColumns := Array ( nItems )
AEval( aColumns, { | x, y | aColumns [ y ] := "Column - " + Alltrim(Str( y )) + " -" })
lVScrollVisible := LEN( aAnyArray ) * nCellH + nGridMargins + IF( lHeader, nHeaderH, 0) + nButtonH + 4 /* space between grid/buttons/form */ > GetDesktopRealHeight()
DEFINE WINDOW _ABrowseForm_ ;
AT 0,0 ;
WIDTH MIN( nItems * nCellW + nGridMargins + IF( lVScrollVisible, nVScrollW, 0), GetDesktopRealWidth() ) ;
HEIGHT MIN ( LEN( aAnyArray ) * nCellH + nGridMargins + IF( lHeader, nHeaderH, 0) + nButtonH + 4 /* space between grid/buttons/form */, GetDesktopRealHeight() ) ;
MODAL ;
NOSIZE ;
NOSYSMENU ;
NOCAPTION
ON KEY ESCAPE ACTION ThisWindow.Release
DEFINE GRID Grid_1
PARENT _ABrowseForm_
ROW 0
COL 0
WIDTH MIN ( nItems * nCellW + nGridMargins + IF( lVScrollVisible, nVScrollW, 0) , GetDesktopRealWidth() )
HEIGHT MIN ( LEN( aAnyArray ) * nCellH + nGridMargins + IF(lHeader, nHeaderH, 0) , GetDesktopRealHeight() - nButtonH - 4 /* space between grid/buttons/form */ )
HEADERS aColumns
WIDTHS AFill ( Array (nItems), nCellW )
VALUE 1
DYNAMICFORECOLOR AFill ( Array (nItems), { || if ( hb_isString(This.CellValue) .AND. Alltrim(This.CellValue) = "{ Inner array }" , RED, BLACK ) } )
ONDBLCLICK (_nMatrixValue := This.Value, ThisWindow.Release)
VIRTUAL .T.
ITEMCOUNT LEN( aAnyArray )
ONQUERYDATA QueryArray ( aAnyArray )
SHOWHEADERS lHeader
CELLNAVIGATION .F.
END GRID
nMiddleOfForm := _ABrowseForm_.WIDTH / 2
nButtonW := MIN(nMiddleOfForm - 5, nButtonW)
@ _ABrowseForm_.HEIGHT - nButtonH - 2, nMiddleOfForm - nButtonW - 5 BUTTON B_OK ;
CAPTION "OK" ;
ACTION (_nMatrixValue := _ABrowseForm_.Grid_1.Value, ThisWindow.Release) ;
WIDTH nButtonW ;
HEIGHT nButtonH
@ _ABrowseForm_.HEIGHT - nButtonH - 2, nMiddleOfForm + 5 BUTTON B_Cancel ;
CAPTION "Cancel" ;
ACTION ThisWindow.Release ;
WIDTH nButtonW ;
HEIGHT nButtonH
END WINDOW
#ifdef MG_VER_H_ //MiniGui
CENTER WINDOW _ABrowseForm_
#else
CENTER WINDOW _ABrowseForm_ DESKTOP
#endif
ACTIVATE WINDOW _ABrowseForm_
Return _nMatrixValue
#ifdef MG_VER_H_ //MiniGui
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC (GETDESKTOPREALWIDTH)
{
RECT Rect;
SystemParametersInfo ( SPI_GETWORKAREA, 0, &Rect, 0 );
hb_retni ((Rect.right - Rect.left));
}
HB_FUNC (GETDESKTOPREALHEIGHT)
{
RECT Rect;
SystemParametersInfo ( SPI_GETWORKAREA, 0, &Rect, 0 );
hb_retni ((Rect.bottom - Rect.top));
}
#pragma ENDDUMP
#endif
, i.e. without "_HMG_ ...[ 999 ]" 
GRID what?
