10-20-2024, 01:15 PM
Code: (Select All)
$Resize:On
'_Resize Off
MenuScreen& = _NewImage(1000, 500, 32)
MainScreen& = _NewImage(1400, 965, 32)
start:
Screen MenuScreen&
_ScreenMove 200, 50
_ScreenMove 175, 10
Cls
Print "smaller screen"
wfk
'_Resize On , _Stretch ' causes screen to be shrunken down in size
'_Resize On , _Smooth ' causes screen to be shrunken down in size
'_Resize On ' works correctly
Screen MainScreen&
w# = _Width
h# = _Height
Cls
Print "larger screen as "; w#; " x "; h#
wfk
GoTo start
Sub wfk ' wfk=wait for key
i$ = ""
While i$ = ""
i$ = InKey$
Wend
If i$ = Chr$(27) Then System
End Sub
When you run this program as is, everything works fine. The screen sizes are correct and they go back and forth as expected.
BUT...
un-REM '_Resize On
>everything still works correctly.
un-REM '_Resize On , _Stretch -or- '_Resize On , _Smooth
>the second screen size has shrunk - the resolution is still correct, just the default size has been shrunk down. Why? How can I avoid this?
It does not matter if the $Resize is On or Smooth or Stretch, you get the same behavior.
>>>>> ALSO <<<<<
In this program if you try to Ctrl-Break to break out of this program (in the wfk Sub), it seems to lock up and you can never exit and you have to kill it with Task Manager. BUT if you take the wfk subroutine and use it with a program that does not do anything with the screens (basically only printing...try it!), it will exit with Ctrl-Break every time. Why? Is this a bug?