Одно из заданий в лабораторной работе

@Кирилл777 · Регистрация: 20.09.2015

Author24 — интернет-сервис помощи студентам

Задание 8 (для самостоятельного выполнения; в новом проекте!). Модифицировать программу из задания 5 (включая 5.1) так, чтобы рисование происходило не на самой форме, а на компоненте TPaintBox (вкладка Additional палитры визуальных компонентов).

Для этого нужно:
1) добавить на форму компонент TPaintBox (по умолчанию он будет назван PaintBox1 – можно переименовать по своему усмотрению, но словосочетание PaintBox в имени компонента лучше сохранить, чтобы можно было его идентифицировать);
2) перенести команды рисования из обработчиков событий формы в обработчики событий компонента TPaintBox;
3) вместо области рисования формы (Canvas без пояснений) обращаться к области рисования, связанной именно с добавленным компонентом PaintBox1, то есть PaintBox1.Canvas.

Задание 8.1. Добавить на форму кнопку для очистки области рисования.
Решение.
Очистку области рисования можно выполнять следующими действиями:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var
  OldPenColor: TColor;
begin
  OldPenColor := PaintBox1.Canvas.Pen.Color;
//чтобы не потерять при очистке экрана предыдущий цвет отрисовки,
//сохраним его в отдельную переменную
  PaintBox1.Canvas.Pen.Color := clWhite;
//далее будет нарисован прямоугольник с белой границей
//(цвет пера – Pen.Color),
  PaintBox1.Canvas.Brush.Color := clWhite;
//закрашенный белым цветом (цвет кисти – Brush.Color)
  PaintBox1.Canvas.Rectangle(PaintBox1.Canvas.ClipRect);
//рисование белого прямоугольника;
//ClipRect – прямоугольник, заполняющий всю область рисования
  PaintBox1.Canvas.Pen.Color := OldPenColor;
//возвращаем старый цвет отрисовки
end;

Задание 8.2 (для самостоятельного выполнения).
Добавить на форму текстовое поле для задания толщины линии отрисовки и кнопку OK. После нажатия OK отрисовка линий должна выполняться с заданной толщиной (т.е. устанавливается заданное значение свойства Pen.Width). Если в текстовое поле введено некорректное значение, нужно выводить на экран сообщение об ошибке.

@Кирилл777 · 19.12.2016, 20:53 **[ТС]**

Вот добавляю данные, для решения!

	19.12.2016, 20:53