Se ti riferisci al codice che ai postato in un altro topic, quando chiami la procedura ResizeImage, passi un parametro non ancor istanziato:
var
A, L : integer;
Imgout: Tpicture ;
begin
showmessage('A');
A := round((Altezza/100)*Percentuale);
L := round((Larghezza/100)*Percentuale);
ResizeImage(form1.Image1.picture,ImgOut, L, A);
ImgOut non è stato "creato", e quando lo elabori nella ResizeImage ancora non viene instanziato.
Prova ad inserire un "Create" prima della chiamata a ResizeImage così:
var
A, L : integer;
Imgout: Tpicture ;
begin
showmessage('A');
A := round((Altezza/100)*Percentuale);
L := round((Larghezza/100)*Percentuale);
Imgout := TPicture.Create;
Imgout.Bitmap.SetSize(L, A);
ResizeImage(form1.Image1.picture,ImgOut, L, A);
grazie per la risposta provero' immediatamente. ;D ;D
In questo caso pero mi riferivo ad un altro software in cui ho scritto:
picturegen.canvas
picturegen.whith := 500
......
quello che non mi fà e' di ridimensionare la picture
grazie.