Einzelnen Beitrag anzeigen

Benutzerbild von Jazzman_Marburg
Jazzman_Marburg

Registriert seit: 2. Aug 2004
359 Beiträge
 
#5

AW: Auf Canvas zeichnen, wenn PNG

  Alt 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 ---
  Mit Zitat antworten Zitat