OpenEuphoria

vxEuphoria - step by step II

• Posted by sergelli May 19, 2012
• 1464 views

How do I change the size of the space between the lines of a "List Controll" wxEuphoria?

In the example below, the lines are too far apart.

#!/home/matt/euphoria/bin/exu 
-- example6-a.exw 
-- This opens a window with a list in it.   
without warning 
include wxeu/wxeud.e 
constant 
	 WINFRAME = create(  wxFrame,{       0,-1,   "List", -1, -1,300,220} ) 
	,WINPANEL = create(  wxPanel,{WINFRAME                             } ) 
	,LIST1    = create(wxListBox,{WINPANEL,-1,           10,010,300,140} ) 
	,BUTTON1  = create( wxButton,{WINPANEL,-1,"Info...", 10,150,060,032} ) 
----------------------------------------------------------------------------------------------- 
procedure Click_BUTTON1(atom this, atom event_type, atom id, atom event) 
	sequence index 
	index = get_selection( LIST1 )+1                 	-- get index 
	if length(index)=0 then	return	end if 
	event_type = message_box( 
 	    sprintf( "List Count = %d \n", {list_count( LIST1 ) } )  
	   &sprintf( "Selected Item Index = %d \n", { index[1] } )  
	   &sprintf( "Selected Item Text = %s ",{get_string_selection( LIST1 )} ),"List Information", 0 )  
end procedure 
----------------------------------------------------------------------------------------------- 
set_event_handler(BUTTON1, get_id(BUTTON1), wxEVT_COMMAND_BUTTON_CLICKED, routine_id( "Click_BUTTON1" )) 
----------------------------------------------------------------------------------------------- 
procedure Drop_LIST1() 
 sequence files  
	files={"aaa a aaa","bbb bb bbbb","ccc c cccccccccc","ddd dd ddddd dddd","eeee ee eeeeee"} 
	for i = 1 to length(files) do 
 	add_item( LIST1, files[i] ) 
	end for 
end procedure 
----------------------------------------------------------------------------------------------- 
Drop_LIST1() 
wxMain( WINFRAME ) 

Any idea ?

thanks in advance