OpenEuphoria

Re: Win32Lib: Disable Focusability

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

cklester wrote:
> Well, I don't want my user thinking, "Okay, I've selected it. What can
> I do with it?" Just a nice, plain, black text on white background list
> that can be scrolled.
> 

CK,

There is another option...you can use Phil Russel's EuGrid to accomplish 
the task. It involves creating a Grid with static controls, disabling row
selection and disabling cell border highlighting.  It looks kinda like a 
list view and the user can't select a row.  Here's a small example that I
"whipped" up, hope it helps (note that I created the whole thing with the
IDE).

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 )