Компонент Delphi PaintBox находиться на странице System Палитры компонентов. Он представляет из себя простое окно с канвой, где можно рисовать произвольные изображения. Графические инструменты содержаться в свойствах Font, Brush и Pen. Канва (холст) содержится в свойстве Canvas компонента. Само рисование программируется в обработчике события onPaint.
Для примера, расположим компонент PaintBox на форму. Ширину (Width) я задал 353 пиксела, а высоту (Height) - 337. Обработчик onPaint:
procedure TForm1.PaintBox1Paint(Sender: TObject); begin with PaintBox1, canvas do begin Brush.Color := clRed; Pie(12,100,140,280,12,100,140,280); Pen.Width := 4; Pen.Color := clGreen; Pen.Style := psDash; Rectangle(120,60,Width,Height); Pen.Width := 1; Pen.Color := clRed; Polyline([Point(40, 10), Point(20, 60), Point(70, 30), Point(10, 30), Point(60, 60), Point(40, 10)]); TextOut(75,20,'Здесь может быть Ваш текст!'); end; end;
Первая строка задает цвет заполнения:
Brush.Color := clRed;
Вторая рисует часть эллипса:
Pie(12,100,140,280,12,100,140,280);
Следующие строки задают параметры пера (какая будет окантовка у фигур), ширину, цвет и стиль линии:
Pen.Width := 4; Pen.Color := clGreen; Pen.Style := psDash;
Но в данном случае мы будем видеть одну сплошную линию, так как при толщине более одного пиксела стиль линий будет psSolid (сплошной).
За прорисовку квадрата отвечает следующая строка:
Rectangle(120,60,Width,Height);
Красную звездочку рисует нижеследующая команда:
Polyline([Point(40, 10), Point(20, 60), Point(70, 30), Point(10, 30), Point(60, 60), Point(40, 10)]);
За вывод текста отвечает последняя строка:
TextOut(75,20,'Здесь может быть Ваш текст!');
Попробуйте для тренировки различные значения параметров.
Итог: мы изучили компонент PaintBox его предназначение в приложениях.