1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| dans le code init de la fenetre
GLOBAL
VG_BoutonEnfonce est un booléen
VG_memoX, VG_memoY sont des entier
dans le code de l'image
// init du champs image
dDébutDessin(Image7)
dStylo(iNoir,0,2)
// bouton gauche enfonce
VG_BoutonEnfonce = Vrai
VG_memoX = SourisPosX()
VG_memoY = SourisPosY()
// bouton gauche relaché
VG_BoutonEnfonce = Faux
// survol souris (WM_MOVE)
SI VG_BoutonEnfonce ALORS
dLigne(VG_memoX,VG_memoY,SourisPosX(),SourisPosY())
VG_memoX = SourisPosX()
VG_memoY = SourisPosY()
FIN
MultitâcheRepeint()
// bouton enregistré
fichier est une chaîne
SI OUINON(0,"Sauver l'image ") = Oui ALORS
fichier = fSélecteur(fRepExe(),"","Sélection image","JPEG
(*.jpg)",".JPG",fselCrée)
SI fichier <> "" ALORS
dSauveImageJPEG(Image7,fichier)
SI ErreurDétectée ALORS ERREUR("Erreur durant la sauvegarde de l'image au
format JPEG",ErreurInfo())
FIN
FIN
Image7 = ""
dFinDessin(Image7)
dDébutDessin(Image7)
dStylo(iNoir,0,2) |
Partager