OpenEuphoria

EuGrid Question

• Posted by "C. K. Lester" <cklester at yahoo.com> Sep 04, 2003
• 404 views

Why doesn't the following show at least one row of data?

----------
include Win32Lib.ew
without warning
include EuGrid.ew
atom gridvoid
object void

constant Window1 = createEx( Window, "Testing EuGrid", 0, Default, Default,
400, 311, 0, 0 )
integer grid_Players grid_Players = EGW_CreateGrid( Window1, 4, 64, 384,
152, 1 )
gridvoid = EGW_SetGridProperty( grid_Players,
EGW_ROW_HEADER_DATACOL,EGW_ROWNUM )
gridvoid = EGW_SetGridProperty( grid_Players, EGW_ROW_HEADER_WIDTH,23 )
gridvoid = EGW_SetGridProperty( grid_Players, EGW_COL_HEADER_HEIGHT,20 )
gridvoid = EGW_SetGridProperty( grid_Players,
EGW_BACKGROUND_COLOR,16777215 )
gridvoid = EGW_SetGridProperty( grid_Players,
EGW_BACKGROUND_COLOR,16777215 )

-- add columns to grid_Players
 void = EGW_AddColumn( grid_Players, "Data" ,  150, 1, EGW_EDIT, 1 )

-- create a blank record in grid_Players
 void = EGW_AddDataRow( grid_Players, {""} , EGW_GetRowCount(
grid_Players)+1)

----------------------------------------------------------------------------
----

WinMain( Window1,Normal )