Auf Canvas bei TImage zeichnen

[turboPASCAL]

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;