There was an error while loading. Please reload this page.
The _RESIZE function returns true (-1) when a user has attempted to resize the program window and $RESIZE:ON has allowed it.
IF _RESIZE THEN rx& = _RESIZEWIDTH: ry& = _RESIZEHEIGHT
Resize the current screen image according to user's request.
$RESIZE:ON s& = _NEWIMAGE(300, 300, 32) SCREEN s& bee& = _LOADIMAGE("qb64_trans.png") 'any 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
Navigation