Рисование средствами Delphi

[Ericnex]

Как с помощью компонента PaintBox или другим способом можно самостоятельно то есть вручную нарисовать крестик в Delphi. Если возможно пример кода.

[phomm]

Крестик рисовать примерно так, пишу прямо тут (возможны мелкие помарки), думаю, довольно универсальный способ

procedure DrawCross(Canv: TCanvas; Offs, Size: TPoint; LineWd: Byte; Color: TColor);
begin
  // можно добавить сохранение параметров толщины, места и цвета линии, добавив локальные переменные 
  Canv.Pen.Width := LineWd; 
  Canv.Pen.Color := Color;
  Canv.MoveTo(Offs.X, Offs.Y);
  Canv.LineTo(Offs.X + Size.X, Offs.Y + Size.Y);
  Canv.MoveTo(Offs.X + Size.X, Offs.Y);
  Canv.LineTo(Offs.X, Offs.Y + Size.y);
  // а тут возврат параметров по окончанию отрисовки  
end;
//Вызов отрисовки крестика на пейнтбоксе начиная в координате 0/0 и размером 100*100, красным цветом и линией толщиной 5 пикселей
DrawCross(PaintBox1.Canvas, Point(0, 0), Point(100, 100), 5, clRed);

[Ericnex]

На какое событие лучше повесить программный код?

Программа не понимает вот это

DrawCross(PaintBox1.Canvas, Point(0, 0), Point(100, 100), 5, clRed);

[phomm]

Это вызов данного кода, его, например, можно поместить в обработчик клика кнопки, на форме, соответственно, надо просто разместить пейнтбокс и кнопку, в обработчик клика кнопки вписать вызов, а саму процедуру просто поместить в модуль с формой (или в отдельный модуль и подключить модуль к модулю формы, чтобы соблюдать модульность работы кода).
Его можно также положить в обработчик события FormCreate - тогда сразу при запуске программы крест уже будет.