Canvas TImage???

[turboPASCAL]

Oder:

Delphi-Quellcode:

procedure ConvertImageToBitmap(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 FormXYZ.Bla;
begin
  Image1.LoadFromFile(Pfad.jpg);
  ConvertImageToBitmap(Image1);

  Image1.Picture.Bitmap.Canvas.MoveTo(x,y);
  Image1.Picture.Bitmap.Canvas.LineTo(x,y); 

  { Besser Schaut's so aus:

  if Assigned(Image1.Picture.Bitmap) then
    with Image1.Picture.Bitmap do
    begin
      Canvas.MoveTo(x,y);
      Canvas.LineTo(x,y); 
    end;

  }
  
  Image1.Invalidate;
end;