forked from Galleondragon/qb64
-
Notifications
You must be signed in to change notification settings - Fork 23
_RESIZEWIDTH
Cory Smith edited this page Sep 1, 2022
·
5 revisions
The _RESIZEWIDTH function returns the user resized screen pixel width if $RESIZE:ON allows it and _RESIZE (function) returns -1
newWidth& = _RESIZEWIDTH
- _RESIZE (function) function must return true (-1) before the requested screen dimensions can be returned by the function.
- The program should decide if the request is allowable for proper program interaction.
- Version 1.000 and up.
Resize the current screen image according to user's request.
$RESIZE:ON
s& = _NEWIMAGE(300, 300, 32)
SCREEN s&
bee& = _LOADIMAGE("qb64_trans.png") 'replace with your own image
DO
IF _RESIZE THEN
oldimage& = s&
s& = _NEWIMAGE(_RESIZEWIDTH, _RESIZEHEIGHT, 32)
SCREEN s&
_FREEIMAGE oldimage&
END IF
CLS
'Center the QB64 bee image:
x = _WIDTH / 2 - _WIDTH(bee&) / 2
y = _HEIGHT / 2 - _HEIGHT(bee&) / 2
_PUTIMAGE (x, y), bee&
_DISPLAY
_LIMIT 30
LOOP