PaintBox

  

Компонент delphi PaintBox это область рисования. Компонент визуальный и используется для создания на форме некоторой области, для рисовать т.е. назначение этого компонента дать простое окно с канвой для рисования изображений. Основных свойств, кроме Canvas, объект не имеет. В этом компоненте имеются следующие свойства для рисования:

Canvas канва для рисования;
Font для выбора шрифта на поверхности рисования;
Pen для установки параметров пера;
Brush для установки параметров кисти;
Picture для выбора готового изображения.

А само рисование осуществляется в обработчике события OnPaint.

Свойство Canvas доступно при выполнении приложения, поэтому рисунки являются динамическими. Созданный рисунок можно сохранить в графическом файле или вывести на принтер. Рисунки, создаваемые при выполнении приложения, могут быть как неподвижными, так и анимационными, т.е. изменяющими размеры, форму, расположение.

Для рисования на Canvas геометрических фигур используются методы, приведенные в таблице.

Наименование Рисование Наименование Рисование
Arc дуги LineTo Линии
Chord Хорды эллипса Polygon Заполненного прямоугольника
Elipse эллипса PolyLine Незаполненного многоугольника
FillRect Заполненного прямоугольника Rectangle Заполненного прямоугольника
FrameRect Незаполненного прямоугольника RoundRect Заполненного прямоугольника со скругленными углами

Пример работы компонента PaintBox

Рис.1
Например, следующий обработчик создаст окно, показанное на рис.1.:
1
2
3
4
5
6
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.Pen.Color:=clRed;
PaintBox1.Canvas.Pen.Width:=5;
PaintBox1.Canvas.Ellipse (5,5,PaintBox1.Width-5,PaintBox1.Height-5);
end;