picture che non si ridimensiona

[panfra]

con il pc in cui gira win 10 64 bit ho installato Lazarus.
qui mi accade questo:
dopo aver fatto della picture box il canvas su cui disegnare tento di variarne le dimensioni, ma non succede nulla...
Grazie.

[DragoRosso]

Se ti riferisci al codice che ai postato in un altro topic, quando chiami la procedura ResizeImage, passi un parametro non ancor istanziato:

Codice: [Seleziona]

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ì:

Codice: [Seleziona]

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);

[panfra]

grazie per la risposta provero' immediatamente.
In questo caso pero mi riferivo ad un altro software in cui ho scritto:

Codice: [Seleziona]

picturegen.canvas
picturegen.whith := 500
......

quello che non mi fà e' di ridimensionare la picture
grazie.

[SB]

Ricorda che la picture è un contenitore
Va ridimensionata anche la bitmap interna

  oImg.Picture.Bitmap.Width := oImg.Width;
  oImg.Picture.Bitmap.Height := oImg.Height;