This C:\hmg.3.4.0\SAMPLES\Advanced\GRID_SORT is not compiling and some errors were fixed as follows:
Code: Select all
/*
* HMG Grid Demo
* (c) 2005 Roberto Lopez
*
* ListView SORT ORDER COLUMN
* Author: BADIK <badik@mail.ru>
*
* Fixed and enhanced by Pablo César Arrascaeta
* On February, 2015
*/
#include "hmg.ch"
// Memvar fColor // Error during compiling: MEMVAR declaration follows executable statement
Function Main()
Local aRows [20] [3]
Private fColor := { || if ( This.CellRowIndex/2 == int(This.CellRowIndex/2) , { 0,0,255 } , { 0,255,0 } ) }
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 400 ;
TITLE 'Mixed Data Type Grid Test' ;
MAIN
DEFINE MAIN MENU
DEFINE POPUP 'File'
MENUITEM 'Set New Columns Order' ACTION SetOrder()
MENUITEM 'Get Columns Order' ACTION GetOrder()
MENUITEM 'Refresh Grid' ACTION Form_1.Grid_1.Refresh
SEPARATOR
MENUITEM 'Exit' ACTION Form_1.Release
END POPUP
END MENU
aRows [1] := { 113.12, date()-1, 1, 1, .t. }
aRows [2] := { 123.12, date()-2, 2, 2, .f. }
aRows [3] := { 133.12, date(), 3, 3, .t. }
aRows [4] := { 143.12, date(), 1, 4, .f. }
aRows [5] := { 153.12, date(), 2, 5, .t. }
aRows [6] := { 163.12, date(), 3, 6, .f. }
aRows [7] := { 173.12, date(), 1, 7, .t. }
aRows [8] := { 183.12, date(), 2, 8, .f. }
aRows [9] := { 193.12, date(), 3, 9, .t. }
aRows [10] := { 113.12, date(), 1, 10, .f. }
aRows [11] := { 123.12, date(), 2, 11, .t. }
aRows [12] := { 133.12, date(), 3, 12, .f. }
aRows [13] := { 143.12, date(), 1, 13, .t. }
aRows [14] := { 153.12, date(), 2, 14, .f. }
aRows [15] := { 163.12, date(), 3, 15, .t. }
aRows [16] := { 173.12, date(), 1, 16, .f. }
aRows [17] := { 183.12, date(), 2, 17, .t. }
aRows [18] := { 193.12, date(), 3, 18, .f. }
aRows [19] := { 113.12, date(), 1, 19, .t. }
aRows [20] := { 123.12, date(), 2, 20, .f. }
@ 10, 10 GRID Grid_1 ;
WIDTH 620 ;
HEIGHT 330 ;
HEADERS {'Column 1','Column 2','Column 3','Column 4','Column 5'} ;
WIDTHS {140,140,140,140,140} ;
ITEMS aRows ;
EDIT ;
COLUMNCONTROLS { ;
{'TEXTBOX', 'NUMERIC', '$ 999,999.99'}, ;
{'DATEPICKER', 'DROPDOWN'}, ;
{'COMBOBOX', {'One', 'Two', 'Three'}}, ;
{'SPINNER', 1, 20 }, ;
{'CHECKBOX', 'Yes', 'No' } } ;
COLUMNWHEN { { || This.CellValue > 120 }, { || This.CellValue = Date() }, Nil, Nil, Nil } ;
DYNAMICFORECOLOR { fColor , fColor, fColor, fColor, fColor }
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil
Function SetOrder()
Local aColumns := { 3, 5, 4, 2, 1 }
_SetColumnOrderArray( "Grid_1", "Form_1", aColumns )
Form_1.Grid_1.Refresh
Return Nil
Function GetOrder()
Local a := _GetColumnOrderArray( "Grid_1", "Form_1" )
Local cMsg:="", nLen := Len( a )
aEval( a, {|x,i| cMsg := cMsg + "Column " + LTrim( Str ( x ) ) + If(i=nLen,""," + ") } )
MsgInfo(cMsg,"Columns Order")
Return Nil
Function _GetColumnOrderArray( ControlName , ParentForm )
Local i := GetControlIndex( ControlName , ParentForm )
Local nColumn := Len(_HMG_SYSDATA [ 33 ] [i])
Local aSort := ListView_GetColumnOrderArray( _HMG_SYSDATA [ 3 ] [i], nColumn )
// aSort := Array(nColumn) // Not necessary
// ListView_GetColumnOrderArray( _HMG_SYSDATA [ 3 ] [i], nColumn, @aSort ) // This C function accept only 2 parameters
Return aSort
Function _SetColumnOrderArray( ControlName , ParentForm, aSort )
Local i := GetControlIndex( ControlName , ParentForm )
Local nColumn := Len(_HMG_SYSDATA [ 33 ] [i])
ListView_SetColumnOrderArray( _HMG_SYSDATA [ 3 ] [i], nColumn, aSort )
Return Nil
Hi Dr. Soto,
grid's columns put in 3, 5, 4, 2, 1 order as defined in SetOrder() function. This function uses C
function which set order in grid but seems not take duly effects when we push columns data doing by this way.
in place of that. Then I suppose to correct this problem, doesn't it ?
