PaintBox

Компонент 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,'Здесь может быть Ваш текст!');