Re: Focus rectangle problem after switching to eu4
- Posted by euphoric (admin) Sep 19, 2011
- 1501 views
wynco said...
When I run my program, the dotted line focus rectangles that are suppose to appear on objects with focus no longer appear...
I'm running Vista Home Premium SP2, AMD Athlon XS 64, on a Toshiba Satellite
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.