Syntaxe :
DEF DRAWIMAGEFILE( nomFichier$ , volumeRef% )
Révision :
Mai 2001 (Release 5)
Description :
Vous pouvez utiliser cette commande pour afficher une image directement depuis le disque. L’image peut être plus volumineuse que la mémoire disponible. Vous pouvez déterminer la taille de l’image à l’avance en utilisant DEF GETIMAGEFILERECT. L’exemple qui suit montre comment ouvrir un fichier image et l’afficher dans une fenêtre.
Note :
Pour utiliser cette routine, vous devez inclure le fichier “Subs Image Files.Incl” comme montré dans l’exemple ci-dessous :
INCLUDE "Subs Image Files.Incl"
DIM nomFichier$
DIM volumeRef%
DIM r AS RECT
gFBUseNavServices = _zTrue
nomFichier$ = FILES$(_fOpenPreview,,"Choisissez un fichier", volumeRef%)
LONG IF nomFichier$[0]
DEF GETIMAGEFILERECT(nomFichier$, volumeRef%,r)
OffsetRect(r,-r.left,-r.top)
WINDOW 1,nomFichier$,@r,_docNoGrow
DEF DRAWIMAGEFILE(nomFichier$,volumeRef%)
END IF
PRINT @(1,1)"Cliquez le bouton de la souris pour sortir"
DO
UNTIL FN Button
DIM nomFichier$
DIM volumeRef%
DIM r AS RECT
gFBUseNavServices = _zTrue
nomFichier$ = FILES$(_fOpenPreview,,"Choisissez un fichier", volumeRef%)
LONG IF nomFichier$[0]
DEF GETIMAGEFILERECT(nomFichier$, volumeRef%,r)
OffsetRect(r,-r.left,-r.top)
WINDOW 1,nomFichier$,@r,_docNoGrow
DEF DRAWIMAGEFILE(nomFichier$,volumeRef%)
END IF
PRINT @(1,1)"Cliquez le bouton de la souris pour sortir"
DO
UNTIL FN Button