Einzelnen Beitrag anzeigen

Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Auf Canvas zeichnen, wenn PNG

  Alt 8. Mai 2011, 14:48
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 := TPNGObject.Create;
    Png.Assign(Bmp);
    Png.SaveToFile(…);
  finally
    Bmp.Free;
    Png.Free;
  end;
end;

Geändert von Namenloser ( 8. Mai 2011 um 16:00 Uhr)
  Mit Zitat antworten Zitat