
FB II Compiler
PG PRO
Debugging
Memory
System
Mathematics
Resources
Disk I/O
Windows
Controls
Menus
Mouse
Keyboard
Text
Fonts
Drawing
Sound
Clipboard
Printing
Communication
ASM
|
WINDOWS
Write at the bottom of a window doc
COMPILE 0,_caseinsensitive
END GLOBALS
LOCAL FN buildwind
WINDOW 1,"Simpletween",(0,38)-(300,200),_doczoom_noAutoClip
WINDOW FILL ' <-- add this statement and it works fine...
Height =WINDOW(_height)
Wideness =WINDOW(_width)
wd$=STR$(Wideness)
he$=STR$(Height)
msg$ =wd$+" x"+he$
PRINT%(0,WINDOW(_height)+12)msg$
END FN
FN buildwind
DO
HANDLEEVENTS
UNTIL 0
END
|