mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 17:00:26 +00:00
Minor tweak so that QB64 Window will allow for resizing.
This commit is contained in:
parent
75cbe7a55e
commit
ecca0621b3
25
qb64.bas
25
qb64.bas
|
@ -1,7 +1,9 @@
|
||||||
$CONSOLE
|
$CONSOLE
|
||||||
$SCREENHIDE
|
$SCREENHIDE
|
||||||
|
|
||||||
|
'### STEVE WAS HERE 10/11/2013 ###
|
||||||
|
$RESIZE:ON
|
||||||
|
'### END OF STEVE EDIT
|
||||||
|
|
||||||
|
|
||||||
'$DYNAMIC
|
'$DYNAMIC
|
||||||
|
@ -26931,6 +26933,27 @@ DO
|
||||||
|
|
||||||
idedeltxt 'removes temporary strings (typically created by guibox commands) by setting an index to 0
|
idedeltxt 'removes temporary strings (typically created by guibox commands) by setting an index to 0
|
||||||
|
|
||||||
|
'### STEVE WAS HERE 10/11/2013 ###
|
||||||
|
|
||||||
|
IF _RESIZE THEN
|
||||||
|
f# = FREEFILE
|
||||||
|
OPEN ".\internal\temp\options.bin" FOR BINARY AS f#
|
||||||
|
SEEK f#, 7
|
||||||
|
v% = _RESIZEWIDTH / 8: IF v% < 80 OR v% > 1000 THEN v% = 80
|
||||||
|
PUT f#, , v%
|
||||||
|
idewx = v%
|
||||||
|
v% = _RESIZEHEIGHT / 16: IF v% < 25 OR v% > 1000 THEN v% = 25
|
||||||
|
PUT f#, , v%
|
||||||
|
idewy = v%
|
||||||
|
CLOSE f#
|
||||||
|
WIDTH idewx, idewy
|
||||||
|
retval = 1
|
||||||
|
GOTO redraweverything
|
||||||
|
END IF
|
||||||
|
'### END OF STEVE EDIT
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
IF skipdisplay = 0 THEN
|
IF skipdisplay = 0 THEN
|
||||||
|
|
||||||
LOCATE , , 0
|
LOCATE , , 0
|
||||||
|
|
Loading…
Reference in a new issue