Как рисовать на загруженной картинке?

Рейтинг: -1Ответов: 1Опубликовано: 09.09.2014
begin
 if OpenDlg.Execute then Img.Picture.LoadFromFile(OpenDlg.FileName);
end;

Как после этого рисовать на загруженной картинке? TImage загружать в tbitmap/tjpegimage?

delphi изображения
Источник: Stack Overflow на русском

Ответы

▲ 1Принят

Рисовать можно, например, с помощью 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;