OpenEuphoria

1. EuGrid - Phil

• Posted by Jonas Temple <jtemple at yhti.net> Jun 19, 2003
• 405 views

Phil,

I think I may have found a bug in the sorting feature of EuGrid.  Using 
the following example, click on either of the columns and try either 
sort options.  You'll notice that the results are not what's expected.  
What I suspect to be the problem is that in this example the grid is 
showing columns elements 2 - 3 of the sequence.  The first column is not 
displayed.  It seems that in this case the sort routine is sorting on 
the data to the "left" of the clicked column.

Jonas

include Win32Lib.ew
include eugrid.ew
without warning

atom dep_opt_col, dep_desc_col, rtn_code, void
---------------------------------------------------------
constant DepWin = createEx( Window, "Test Grid", 0, 10, 10, 550, 500, 
{WS_DLGFRAME, WS_SYSMENU}, {WS_EX_DLGMODALFRAME} )
constant DepGC = EGW_CreateGrid( DepWin, 10, 10, 532, 408, True)
dep_opt_col = EGW_AddColumn(DepGC, "Columna A", 132, EGW_LAST, EGW_EDIT, 
2)
rtn_code = EGW_SetColumnProperty(DepGC, dep_opt_col, EGW_COL_MAXCHARS, 
10)
dep_desc_col = EGW_AddColumn(DepGC, "Column B", 350, EGW_LAST, 
EGW_STATIC, 3)
constant DepCancelPB = createEx( PushButton, "Cancel", DepWin, 110, 430, 
90, 30, 0, 0)

procedure DepWin_onOpen (integer self, integer event, sequence params)
    sequence dep_data
    dep_data = {{"Z","A","Z"},
                {"Y","B","Y"},
                {"X","C","X"},
                {"W","D","W"},
                {"V","E","V"},
                {"U","F","U"}}
  	rtn_code = EGW_LoadData(DepGC, dep_data, EGW_REPLACE)
end procedure
setHandler(DepWin, w32HOpen, routine_id("DepWin_onOpen"))

procedure DepCancelPB_onClick (integer self, integer event, sequence 
params)--params is ()
    closeWindow(DepWin)
end procedure
setHandler(DepCancelPB, w32HClick, routine_id("DepCancelPB_onClick"))

WinMain( DepWin,Normal )