begin
if OpenDlg.Execute then Img.Picture.LoadFromFile(OpenDlg.FileName);
end;
Как после этого рисовать на загруженной картинке? TImage
загружать в tbitmap/tjpegimage
?
begin
if OpenDlg.Execute then Img.Picture.LoadFromFile(OpenDlg.FileName);
end;
Как после этого рисовать на загруженной картинке? TImage
загружать в tbitmap/tjpegimage
?
Рисовать можно, например, с помощью TPaintBox (вкладка System).
Например, нужно нарисовать в PaintBox1 изображение Image1 и линию, идущую из левого верхнего угла (так как каретка изначально будет там) в точку с координатами (100;100).
Необходимо обрабатывать событие OnPaint объекта PaintBox1:
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
//рисуем картинку Image1
PaintBox1.Canvas.Draw(0,0,Image1.Picture.Graphic);
//рисуем линию, после этого каретка будет находиться
//в точке с координатами (100, 100)
Paintbox1.Canvas.LineTo(100,100);
end;