- alias pic {
- var %file = $iif(!$1,$sfile(C:,Choisis l'image que tu veut mater :),$1-)
- ;Ici on crée une variable qui stockera la chemin de l'image définie
-
- if %file {
- var %a $pic(%file).width $pic(%file).height
- ;On récupere la taille de l'image
-
- $iif($window(@PictureViewer),clear @PictureViewer,window -aBCdhop +d @PictureViewer -1 -1 %a)
- drawpic @PictureViewer 0 0 $shortfn(%file)
- ;On ouvre la picwin et charge l'image dedans
- }
- }
-
- menu @PictureViewer {
- Fermer:window -c @PictureViewer
- }
alias pic {
var %file = $iif(!$1,$sfile(C:,Choisis l'image que tu veut mater :),$1-)
;Ici on crée une variable qui stockera la chemin de l'image définie
if %file {
var %a $pic(%file).width $pic(%file).height
;On récupere la taille de l'image
$iif($window(@PictureViewer),clear @PictureViewer,window -aBCdhop +d @PictureViewer -1 -1 %a)
drawpic @PictureViewer 0 0 $shortfn(%file)
;On ouvre la picwin et charge l'image dedans
}
}
menu @PictureViewer {
Fermer:window -c @PictureViewer
}