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