OpenEuphoria

Re: Focus rectangle problem after switching to eu4

• Posted by euphoric (admin) Sep 19, 2011
• 1499 views

I'm running Windows 7 and get the same behavior. However, this tiny change makes it behave as expected:

 
include Win32lib.ew  
  
object Tmp  
  
constant Main_Window = createEx(Window, "Main", 0, Center, Center, 200, 200, {WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX}, {WS_EX_DLGMODALFRAME})  
	constant Button_One = createEx(PushButton, "Button One", Main_Window, 8, 4, 80, 40, 0, 0)  
	constant List_One = createEx(ListView, "Name", Main_Window, 8, 60, 100, 100, w32or_all({LVS_REPORT, LVS_SHOWSELALWAYS}), 0)  
		Tmp = addLVItem({List_One, -1}, 0, "Item one")  
		Tmp = addLVItem({List_One, -1}, 0, "Item Two")  
		  
procedure Button_One_onClick (integer self, integer event, sequence params)  
	-- Do nothing  
end procedure  
setHandler(Button_One, w32HClick, routine_id("Button_One_onClick"))  
  
openWindow(Main_Window, Modal) 
setIndex(List_One, 1)  
setFocus(List_One) -- INSERT THIS LINE HERE 
setFocus(Button_One) 
  
WinMain(Main_Window,Normal) 

I can't explain that behavior.