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

Попробуйте для тренировки различные значения параметров.Пример с компонентом PainBox

 

Итог: мы изучили компонент PaintBox его предназначение в приложениях.

 

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>