Transparentes PNG in TImage drehen...Wie?

[MaBuSE]

Zitat von MaBuSE:

Dazu musst Du das TPNGObject verwenden.

Hier steht wie Du z.B. das TPngObject ohne TImage verwendest:

http://pngdelphi.sourceforge.net/met...view.php?ID=15

Bzw. leicht abgewandelt:

Delphi-Quellcode:

procedure TForm1.DrawOverForm(filename: String; X, Y: Integer);
var
  PNG: TPNGObject;
begin
  PNG := TPNGObject.Create;
  try
    PNG.LoadFromFile(filename);
    PNG.Draw(Canvas, Rect(X, Y, X + PNG.Width, Y + PNG.Height));
  finally
    PNG.Free;
  end;
end;