OpenEuphoria

Re: Win32Lib: Disable Focusability

• Posted by Jonas Temple <jtemple at yhti.net> Aug 04, 2004
• 491 views

cklester wrote:
> 
> Jonas, some of the code got cremated...
> Could you repost that again?! :)
> 

Arrrggghhhh!

I just checked again and when I paste the code into the web interface
it has all the code so I guess it's chopping it off afterwards!

Try this one....

Jonas

--  code generated by Win32Lib IDE v0.18.17

 
include Win32Lib.ew
without warning
include euGrid.ew
atom gridvoid

--------------------------------------------------------------------------------
--  Window Main
constant Main = createEx( Window, "Simulated Read Only List View", 0, Default, 
Default, 530, 436, 0, 0 )
integer TestGrid TestGrid = EGW_CreateGrid( Main, 24, 24, 480, 316, 1 )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_ACTIVE_HEADERS, False )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_ALLOW_COL_SORT, False )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_CELL_BORDER, False )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_ROW_HEADER_DATACOL,EGW_ROWNUM )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_ROW_SELECT,EGW_NONE )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_ROW_HEADER_WIDTH,0 )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_COL_HEADER_HEIGHT,20 )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_BACKGROUND_COLOR,16777215 )
gridvoid = EGW_SetGridProperty( TestGrid, EGW_BACKGROUND_COLOR,16777215 )
integer Col1 Col1 = EGW_AddColumn( TestGrid, "Column 1", 100, EGW_LAST,
EGW_STATIC, 1 )
gridvoid = EGW_SetColumnProperty( TestGrid, Col1, EGW_COL_WIDTH, 148 )
gridvoid = EGW_SetColumnProperty( TestGrid, Col1, EGW_COL_BACKGROUND_COLOR,
16777215)
integer Col2 Col2 = EGW_AddColumn( TestGrid, "Column 2", 100, EGW_LAST,
EGW_STATIC, 2 )
gridvoid = EGW_SetColumnProperty( TestGrid, Col2, EGW_COL_WIDTH, 148 )
gridvoid = EGW_SetColumnProperty( TestGrid, Col2, EGW_COL_BACKGROUND_COLOR,
16777215)
integer Col3 Col3 = EGW_AddColumn( TestGrid, "Column 3", 100, EGW_LAST,
EGW_STATIC, 3 )
gridvoid = EGW_SetColumnProperty( TestGrid, Col3, EGW_COL_WIDTH, 148 )
gridvoid = EGW_SetColumnProperty( TestGrid, Col3, EGW_COL_BACKGROUND_COLOR,
16777215)
constant OkayPB = createEx( DefPushButton, "Okay", Main, 28, 360, 88, 28, 0, 0 )
---------------------------------------------------------
--------------------------------------------------------------------------------
procedure Main_onOpen (integer self, integer event, sequence params)--params is
()
	sequence grid_data
	atom void
	-- Put some data in the grid
	grid_data = {
		{"Row 1 Col 1","Row 1 Col 2","Row 1 Col 3"},
		{"Row 2 Col 1","Row 2 Col 2","Row 2 Col 3"},
		{"Row 3 Col 1","Row 3 Col 2","Row 3 Col 3"}}
	void = EGW_LoadData(TestGrid,grid_data,EGW_REPLACE)
end procedure
setHandler( Main, w32HOpen, routine_id("Main_onOpen"))
--------------------------------------------------------------------------------
procedure OkayPB_onClick (integer self, integer event, sequence params)--params
is ()
	closeWindow(Main)
end procedure
setHandler( OkayPB, w32HClick, routine_id("OkayPB_onClick"))


WinMain( Main,Normal )