[SOLVED] OpenWindow() with dimensions greater than screen size
Posted: Fri Nov 15, 2024 4:39 pm
I found with some testing, that if a PureBasic Windows application has been designed with larger monitor size requirements in mind, but is executed on a system with a smaller monitor, say for instance on a 1280 x 1024, it automatically reduces the window size to the monitor's dimensions. This can mean that any gadgets drawn outside that resized area, do not appear.
Is there a way to ensure that a window retains its pre-set size and therefore be moved around to reveal its full extent, instead of being reduced in size? This requirement is for software demonstration purposes, where the user's system has a small monitor 1280 x 1024. Therefore it isn't important to us if the window does not fit entirely into the monitor's dimensions, because we can grab the title bar and move it around, to reveal the section we want to view.
What I remember happening in the past, when monitors were of smaller dimensions, is that Windows O/S only showed a portion of the window on the monitor. That was not PureBasic, but certain applications I recall, in the days of the VGA monitors. Can that behaviour be reproduced?
Is there a way to ensure that a window retains its pre-set size and therefore be moved around to reveal its full extent, instead of being reduced in size? This requirement is for software demonstration purposes, where the user's system has a small monitor 1280 x 1024. Therefore it isn't important to us if the window does not fit entirely into the monitor's dimensions, because we can grab the title bar and move it around, to reveal the section we want to view.
What I remember happening in the past, when monitors were of smaller dimensions, is that Windows O/S only showed a portion of the window on the monitor. That was not PureBasic, but certain applications I recall, in the days of the VGA monitors. Can that behaviour be reproduced?
Code: Select all
win.i = OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, 1920, 1080, "Test", #PB_Window_MinimizeGadget | #PB_Window_SystemMenu)
TextGadget(#PB_Any, 30, 30, 160, 25, "Item ref.")
pcode.i = StringGadget(#PB_Any, 140, 25, 140, 25, "")
exitbutton.i = ButtonGadget(#PB_Any, 30, 160, 100, 25, "Exit")
SetActiveGadget(pcode.i)
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
; **
; ** Exit button
; **
Case exitbutton.i
Break
EndSelect
EndSelect
ForEver
CloseWindow(win.i)
End
