1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
SI HTrouve() =Vrai ALORS
//info("Fiche PR Trouvée")
FichierVersEcran(EXPRESS_FEN_DetailPR,EXPRESS_PrescriptionsRéglages)
// Affiche la photo
IMG_PhotoPR = EXPRESS_PrescriptionsRéglages.PhotoPR
//On attribut un chemin de sauvegarde
sImageEnregistre= gsRépertoire + ["/"] + HeureSys() + "-PRPNG" + ".jpg"
dCopieImage(screenWithoutTaskbar,IMG_cible,copieImage)
//dCopieImage(IMG_source,IMG_cible)
//On fait la sauvegarde selon le chemin précédent
dSauveImageJPEG(IMG_cible,sImageEnregistre,100)
FIN |
Partager