Компонент 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; |