|
|
nomainwin WindowWidth = 550 WindowHeight = 410 listbox #resizer.lbox1, array$(), [lbox1DClick], 1, 0, 256, 186 listbox #resizer.lbox2, array$(), [lbox2DClick], 257, 0, 284, 164 combobox #resizer.cbox3, array$(), [cbox3DoubleClick], 257, 164, 283, 150 texteditor #resizer.tedit4, 1, 186, 540, 195 open "Resizing example" for window as #resizer #resizer "trapclose [quit]" #resizer "resizehandler [resized]" ' Rod would like to replace this block of code with #resizer "refresh": hw = hwnd(#resizer) struct rect, left as long, top as long, right as long, bottom as long calldll #user32, "GetClientRect", hw as ulong, rect as struct, r as void WindowWidth = rect.right.struct WindowHeight = rect.bottom.struct [resized] wWid = WindowWidth wHig = WindowHeight upperVert = int(256/550*wWid) 'upper middle vertical edge midHoriz = int(186/410*wHig) 'middle horizontal edge urWid = upperVert - wWid #resizer.lbox1 "locate 0 0 "; upperVert; " "; int(186/410*wHig) #resizer.lbox2 "locate "; upperVert; " 0 "; wWid-upperVert; " "; int(186/410*wHig)-23 #resizer.cbox3 "locate "; upperVert; " "; midHoriz-23; " "; wWid - upperVert; " "; 100 #resizer.tedit4 "!locate 0 "; midHoriz; " "; wWid; " "; wHig-midHoriz; #resizer "refresh" wait [quit] 'quit the program close #resizer end
|