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

• #2137 Tomi_78 aktív tag vz12 #2135

  Új Válasz 2023-07-24 15:43:50 #2137

  Ú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

  válasz vz12 #2135 üzenetére

  Jó lett, csak átlátszóság nincs, hanem fekete keretben van a képecske. Akkor lehet, hogy azt nem is tudja kezelni? Ez a kódom:
  procedure TForm1.Button2Click(Sender: TObject);
var tarolokep,kiskep: TBitmap;
  ujkep: TPortableNetworkGraphic;
begin
  if ListBox1.ItemIndex<>-1 then
  begin
     kiskep:=TBitmap.Create;
     ujkep:=TPortableNetworkGraphic.Create;
     tarolokep:=TBitmap.Create;
     ujkep.transparent:=true;
     kiskep.transparent:=true;
     tarolokep.transparent:=true;
     kiskep.Width:=strtoint(Edit1.Text);
     kiskep.Height:=strtoint(Edit2.Text);
     ujkep.LoadFromFile(mappa+ListBox1.Items.Strings[0]);
     tarolokep.assign(ujkep);
     kiskep.canvas.StretchDraw(rect(0,0,kiskep.width,kiskep.height),tarolokep);
     ujkep.assign(kiskep);
     ujkep.savetofile(mappa+'PROBA.png');
     kiskep.free;
     ujkep.free;
     tarolokep.free;
  end;
end;

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