Registriert seit: 2. Aug 2004
359 Beiträge
|
AW: Auf Canvas zeichnen, wenn PNG
8. Mai 2011, 15:57
Du musst das PNG erst auf ein Bitmap kopieren, zum Speichern umgekehrt:
Delphi-Quellcode:
var
Bmp: TBitmap;
Png: TPNGObject;
begin
Bmp := nil;
Png := nil;
try
Bmp := TBitmap.Create;
Bmp.Assign(myImage.Picture.Graphic);
Bmp.Canvas.…(…);
Png := TPNGImage.Create;
Png.Assign(Bmp);
Png.SaveToFile(…);
finally
Bmp.Free;
Png.Free;
end;
end;
Super - vielen Dank!
Jazzman
--- Delphi XE Starter, Windows 8 ---
|