[resolu]Probleme à la con sur Resize image
Publié : lun. 05/nov./2007 16:08
Salut,
ça fait plus d'une demi heure que je coince sur un truc tout con. J'ai honte..
J'ai une interface avec 2 Strings et un bouton.
#hauteur et #largeur, les 2 avec l'option #PB_String_Numeric
les 2 valeurs sont à 100 et 100 par defaut.
Je fais une procédure Resize qui me permettrait de redimensionner une image chargée après avoir cliqué sur un bouton.
Comment récupéré en valeur numérique ce que l'utilisateur entre dans #hauteur et #largeur
car L=getgadgettext(#largeur) et H=getgadgettext(#hauteur) ne marchent pas.
D'avance merci
ça fait plus d'une demi heure que je coince sur un truc tout con. J'ai honte..
J'ai une interface avec 2 Strings et un bouton.
#hauteur et #largeur, les 2 avec l'option #PB_String_Numeric
les 2 valeurs sont à 100 et 100 par defaut.
Je fais une procédure Resize qui me permettrait de redimensionner une image chargée après avoir cliqué sur un bouton.
Code : Tout sélectionner
Procedure ResiZe()
L=getgadgettext(#largeur) ; là ça créé pas une valeur donc ça chie
H=getgadgettext(#hauteur) ; là ça créé pas une valeur donc ça chie
If L<5 Or L>5000 And H<5 Or H>5000
MessageRequester("Erreur","Attention, les dimensions ne doivent pas être inférieur à 5x5 ni supérieur à 5000x5000",#MB_OK)
Else
FichierParDefaut$="c:\"
Filtre$ = "Image (*.jpg - *.png)|*.jpg;*.png"
Filtre = 0
FichierImage$=OpenFileRequester("Selectionner l'image",FichierParDefaut$, Filtre$, Filtre)
NomFichier$=GetFilePart(FichierImage$)
NomNew$="_"+NomFichier$
ext$=GetFileType(NomFichier$)
If ext$="jpg" Or ext$="JPG"
Type$="#PB_ImagePlugin_JPEG"
Else
Type$="#PB_ImagePlugin_PNG"
EndIf
If FichierImage$
LoadImage(#Image, FichierImage$)
ResizeImage(#Image,L,H,#PB_Image_Smooth)
; SaveImage(#Image,NomNew$,Type$)
EndIf
EndIf
EndProcedure
car L=getgadgettext(#largeur) et H=getgadgettext(#hauteur) ne marchent pas.
D'avance merci
