OpenEuphoria

1. Win32Lib - Updating Interface with Click on TV

• Posted by euphoric (admin) Apr 12, 2010
• 1366 views

When clicking on the TreeView in the following program, the label text should be updated with the currently selected TV item. However, it always lags behind one. I'm sure I'm doing something stupid... but what? :/

--  code generated by Win32Lib IDE v0.19.1 
 
  
include Win32lib.ew 
without warning 
 
-------------------------------------------------------------------------------- 
--  Window Window1 
constant Window1 = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 ) 
constant TreeView2 = createEx( TreeView, "TreeView2", Window1, 8, 12, 208, 200, w32or_all({TVS_HASLINES,TVS_LINESATROOT,TVS_HASBUTTONS,TVS_SHOWSELALWAYS}), 0 ) 
constant closefolder = addIcon( extractIcon("clsdfold.ico") ) 
constant openfolder  = addIcon( extractIcon("openfold.ico") ) 
constant LText3 = createEx( LText, "LText3", Window1, 228, 80, 148, 20, 0, 0 ) 
--------------------------------------------------------- 
-------------------------------------------------------------------------------- 
procedure Window1_onActivate (integer self, integer event, sequence params)--params is () 
atom rent 
	rent = addTVItem( TreeView2, 0, 0, "Momma", 0 ) 
	for t=1 to 10 do 
		VOID = addTVItem( TreeView2, 0, 0, "Item #" & sprint(t),rent) 
	end for 
end procedure 
setHandler( Window1, w32HActivate, routine_id("Window1_onActivate")) 
-------------------------------------------------------------------------------- 
procedure TreeView2_onClick (integer self, integer event, sequence params)--params is () 
	setText( LText3, getTVSelectedText( self ) ) 
end procedure 
setHandler( TreeView2, w32HClick, routine_id("TreeView2_onClick")) 
 
 
WinMain( Window1,Normal ) 

3. Re: Win32Lib - Updating Interface with Click on TV

• Posted by DerekParnell (admin) Apr 13, 2010
• 1349 views

Here is some code that seems to work for me.

   
include Win32lib.ew  
without warning  
  
--------------------------------------------------------------------------------  
--  Window Window1  
constant Window1 = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 )  
constant TreeView2 = createEx( TreeView, "TreeView2", Window1, 8, 12, 208, 200, w32or_all({TVS_HASLINES,TVS_LINESATROOT,TVS_HASBUTTONS,TVS_SHOWSELALWAYS}), 0 )  
constant closefolder = addIcon( extractIcon("clsdfold.ico") )  
constant openfolder  = addIcon( extractIcon("openfold.ico") )  
constant LText3 = createEx( LText, "LText3", Window1, 228, 80, 148, 20, 0, 0 )  
---------------------------------------------------------  
--------------------------------------------------------------------------------  
procedure Window1_onActivate (integer self, integer event, sequence params)--params is ()  
atom rent  
	rent = addTVItem( TreeView2, 0, 0, "Momma", 0 )  
	for t=1 to 10 do  
		VOID = addTVItem( TreeView2, 0, 0, "Item #" & sprint(t),rent)  
	end for  
end procedure  
setHandler( Window1, w32HActivate, routine_id("Window1_onActivate"))  
--------------------------------------------------------------------------------  
integer pendclick = 0 
procedure TreeView2_onClick (integer self, integer event, sequence params)--params is ()  
	setText( LText3, getTVSelectedText( self ) )  
	pendclick = 1 
end procedure  
setHandler( TreeView2, w32HClick, routine_id("TreeView2_onClick"))  
 
 
procedure TreeView2_onChange (integer self, integer event, sequence params)--params is () 
	if pendclick = 1 then 
		setText( LText3, getTVSelectedText( self ) )  
		pendclick = 0 
	end if 
end procedure  
setHandler( TreeView2, w32HChange, routine_id("TreeView2_onChange"))  
  
  
WinMain( Window1,Normal )  

The trick is to show the text on every click event AND on every Change event if a click has also just occurred.

5. Re: Win32Lib - Updating Interface with Click on TV

• Posted by euphoric (admin) Apr 13, 2010
• 1402 views

For now, I'm putting it in the onChange event handler. Seems to work out just fine for my purposes.

Thank you!