Da TImage.Picture.Graphic keinen Canvas hat könntest du die geladene Graphic (Jpg, Gif, Png, etc.)
in ein Bitmap wandeln und dann nach Lust und Laune darauf zeichnen. Nachteil ist das du dann beim
speichen wieder in das Ausgangsformat umwandeln musst.
Delphi-Quellcode:
procedure TForm1.ConvertToBitmapImg(Image: TImage);
var TmpPic: TPicture;
begin
TmpPic := TPicture.Create;
try
TmpPic.Bitmap.Assign(Image.Picture.Graphic);
Image.Picture.Bitmap.Assign(TmpPic.Bitmap);
finally
TmpPic.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ConvertToBitmapImg(Image1);
end;