Új hozzászólás Aktív témák

• #2134 Tomi_78 aktív tag

  Új Válasz 2023-07-23 10:57:42 #2134

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tomi_78

  aktív tag

  És az miért van, hogy ebben a kis képméretező programomban mindig eredeti, nagy méretben mentődik el a betöltött kép, holott ha más értékeket adok meg neki az Edit1 és Edit2-ben, akkor abban mutatja a Form-on, de elmenteni mindig az eredetiben menti el?
  procedure TForm1.Button2Click(Sender: TObject);
var ujkep: TImage;
begin
  if ListBox1.ItemIndex<>-1 then
  begin
     ujkep:=TImage.Create(Self);
     ujkep.parent:=Form1;
   ujkep.autosize:=false;
     ujkep.Proportional:=true;
     ujkep.Stretch:=true;
     ujkep.picture.bitmap.setsize(strtoint(Edit1.Text),strtoint(Edit2.Text));
     ujkep.Picture.LoadFromFile(mappa+ListBox1.Items.Strings[0]);
    ujkep.picture.SaveToFile(mappa+'PROBA.png');
     //ujkep.free; //Mutatja a Form-on a kisképet, ha kommentelt.
  end;
end;  

Új hozzászólás Aktív témák