Компонент delphi PaintBox это область рисования. Компонент визуальный и используется для создания на форме некоторой области, для рисовать т.е. назначение этого компонента дать простое окно с канвой для рисования изображений. Основных свойств, кроме Canvas, объект не имеет. В этом компоненте имеются следующие свойства для рисования:
| Canvas | канва для рисования; |
| Font | для выбора шрифта на поверхности рисования; |
| Pen | для установки параметров пера; |
| Brush | для установки параметров кисти; |
| Picture | для выбора готового изображения. |
А само рисование осуществляется в обработчике события OnPaint.
Свойство Canvas доступно при выполнении приложения, поэтому рисунки являются динамическими. Созданный рисунок можно сохранить в графическом файле или вывести на принтер. Рисунки, создаваемые при выполнении приложения, могут быть как неподвижными, так и анимационными, т.е. изменяющими размеры, форму, расположение.
Для рисования на Canvas геометрических фигур используются методы, приведенные в таблице.
| Наименование | Рисование | Наименование | Рисование |
| Arc | дуги | LineTo | Линии |
| Chord | Хорды эллипса | Polygon | Заполненного прямоугольника |
| Elipse | эллипса | PolyLine | Незаполненного многоугольника |
| FillRect | Заполненного прямоугольника | Rectangle | Заполненного прямоугольника |
| FrameRect | Незаполненного прямоугольника | RoundRect | Заполненного прямоугольника со скругленными углами |
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; |