In Image zeichnen

[Sharky]

Hai Caesar

ich habe das jetzt mal mit diesem Code gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  jpeg : TJPEGImage;
begin
  if (OpenPictureDialog1.Execute) then
  begin
    jpeg := TJPEGImage.Create;
    try
     jpeg.LoadFromFile(OpenPictureDialog1.FileName);
     Image1.Canvas.Draw(0,0,jpeg);
    finally
      jpeg.Free;
    end;
    Image1.Canvas.MoveTo(10,10);
    Image1.Canvas.Pen.Width := 10;
    Image1.Canvas.LineTo(100,100);
  end;
end;

Oder meintest Du etwas ganz anderes?