DEF DRAWIMAGEFILE Statement
DEF DRAWIMAGEFILE
Statement
✔ Appearance ✔ Standard ✔ Console
Syntax
DEF DRAWIMAGEFILE ( fName$ , vRef% )
Revised
May 2001 (Release 5)
Description
You may use this statement to display a picture directly from disk. The picture can actually be too large to load into memory. You may determine the size of the picture in advance using DEF GETIMAGEFILERECT. The following example shows how to open a file and display it in a window.
Note
In order to use this routine, you must include the file named "Subs Image Files.Incl" as shown in the example below.
INCLUDE "Subs Image Files.Incl"
DIM fName$
DIM @vRef%
DIM r as rect
gFBUseNavServices = _ztrue
fName$ = FILES$(_fOpenPreview,,"Select a file to open", vRef%)
LONG IF fName$[0]
DEF GETIMAGEFILERECT(fName$,vRef%,r)
OFFSETRECT(r,-r.left,-r.top)
WINDOW 1,fName$,@r,_docNoGrow
DEF DRAWIMAGEFILE(fName$,vRef%)
END IF
PRINT @(1,1)"Click to exit"
DO
UNTIL FN BUTTON
See Also
DEF GETIMAGEFILERECT