Forum > Presentazioni nuovi utenti

picture che non si ridimensiona

(1/1)

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: ---
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);
--- Termina codice ---

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: ---
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);
--- Termina codice ---

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


--- Codice: ---
picturegen.canvas
picturegen.whith := 500
......

--- Termina codice ---
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;

Navigazione

[0] Indice dei post