Canvas TImage???

[bitsetter]

Delphi-Quellcode:

var
  jpg:  TJPEGImage;
begin
  jpg:= TJPEGImage.Create;
  try
    jpg.LoadFromFile(op.FileName);
    image1.Picture.Bitmap.Assign(jpg);
  finally
    jpg.Free;
  end;

  Image1.Canvas.MoveTo(0,0);
  Image1.Canvas.LineTo(80,80);