|
|
|
nomainwin WindowWidth = 416 WindowHeight = 215 UpperLeftX=int((DisplayWidth-WindowWidth)/2) UpperLeftY=int((DisplayHeight-WindowHeight)/2) textbox #main.textbox1, 260, 66, 150, 25 textbox #main.textbox1, 260-10, 66-10, 150, 25 'last one moved to up-left texteditor #main.texteditor1, 26, 16, 216, 120 'texteditor #main.texteditor1, 26, 16, 216, 120 'uncomment this line - and see texteditor stops working 'last one moved to up-left texteditor #main.texteditor1, 26-10, 16-10, 216, 120 'Now I moved it up - and I see text prints in this control 'which for some reasom ends up UNDER (Z-order) first one button #main.button2, "Button Caption", [button2Click], UL, 270, 16, 122, 25 menu #main, "Edit" '<--- Texteditor Menu can be moved but not removed. open "Overlaid texteditor (by doubling)" for window as #main print #main, "trapclose [quit.main]" wait [quit.main] Close #main END [button2Click] #main.texteditor1 time$() #main.textbox1 time$() wait
|
|
|
|
|