Ein Bild scalieren?

[Lion]

Weiß jemand wie es geht? Nicht nur JPGs sondern auch transparente PNGs?

[theo]

Kommt auf die Mittel an, die du verwenden willst.
Ich mache das mit meinem OpBitmap.
http://www.theo.ch/lazarus/opbitmap64.zip
viewtopic.php?t=434

Der Code dazu wäre so:

Code: Alles auswählen

uses opbitmapformats;
..
procedure TForm1.Button1Click(Sender: TObject);
var Pic:TOPPicture;
begin
  Pic:=TOPPicture.Create;
  Pic.LoadFromFile('butterfly1.png');
  Pic.Bitmap.Canvas.Resample(200,200);
  Pic.SaveToFile('butterfly1k.png');
  Pic.free;
end;  

Raus kommt z.B. das im Anhang.
Es gibt sicher auch andere Möglichkeiten mit BGRABitmap. Die kenne ich aber nicht.