ООП на Delphi – 13: Графика на Delphi

DELPHI - 13

Вопросы:
1. Введение в графику
2. Создаем свой графический редактор

Для рисования в Delphi есть два основных инструмента:
Pen (карандаш) – для рисования линий
Brush (кисть) – для раскраски объектов
У каждого из этих инструментов есть дополнительные свойства ( например цвет карандаша, толщина линии, тип линии )

Устанавливаем цвет карандаша - красный

Устанавливаем толщину карандаша в 5 пикселей

Устанавливаем карандаш в точку с координатами 10,20

Проводим линию до точки с координатами 200,20

Проводим синюю линию

В результате мы получаем на форме следующую картинку:

В результате мы получаем на форме следующую картинку:

Выбираем произвольный цвет и рисуем эллипс

Посмотреть ->

Сформируем следующее меню программы:

Компонент SavePictureDialog для сохранения рисунков

Манифест XP для стильности

Компонент ColorDialog для выбора цвета рисования

7 кнопок (SpeedButton) для выбора инструмента рисования. Нанесем на кнопки картинки

SpinEdit для выбора толщины линии
В свойствах установим min толщину линии – 1 (пикс), а max - 20

Сделаем так, чтобы из всех кнопок нажатой могла быть только одна (при нажатии любой кнопки остальные становились отжатыми). Для этого выделяем все кнопки. Установим свойство выделенных элементов AllowAllUp в значение True.Свойство GroupIndex поставим равным 1. Свойство Down для всех кнопок должно быть равно False, только для отжатой кнопки инструмента карандаш свойство Down должно быть равно True.

Рисование карандашом

При нажатии на кнопку (OnMouseDown) карандаш должен встать на точку с координатами курсора , при перемещении мыши с нажатой клавишей (On MouseMove ) должна рисоваться линия, при отпускании кнопки мыши (OnMouseUp) должно прекратиться рисование.
Поэтому для рисования карандашом необходим код в каждом из событий для мыши OnMouseDown, On MouseMove, OnMouseUp.

При нажатии кнопки мыши даем добро на рисование

Если нажата кнопка рисования карандашом, то на Image переходим к точке с координатами курсора

(Нажатие кнопки мыши - MouseDown)

Если рисовать можно и нажата кнопка рисования карандашом, то устанавливаем цвет карандаша, соответствующий выбранному в ColorDialoge и проводим линию

(Перемещение мыши - MouseMove)

(Отпускание мыши - MouseUp)

ШАГ 4

Не будем вдаваться в подробности рисования прямоугольника, эллипса и заливки фигур – здесь используются соответствующие методы Canvas: Rectangle, Ellipse, FloodFill – посмотрите внимательно код, соответствующий этим операциям в примере, приложенном к презентации

Рисование прямоугольника, эллипса, заливка фигур

Устанавливаем толщину линии = 1, цвет линии = белый и рисуем прямоугольник с размерами на 5 пикселей больше размеров поля для рисования (Image)

ШАГ 8

Диалоги рассмотрены нами ранее довольно подробно, поэтому комментарии излишни

Меню Файл -> Открыть

Меню Файл -> Выход – метод Close

ШАГ 11

Меню Помощь -> О программе

Здесь мы должны создать форму «О программе», познакомить с ней форму редактора и открыть методом ShowModal

Порисовать ->

Итак, мы создали свой графический редактор, где использовали графические возможности Delphi, и не только графические – нам пригодились знания из всех прошлых уроков Конечно это очень простой редактор с элементарными функциями. Однако его разработка позволила нам понять суть работы с графикой в Delphi. Ну а дальше можно наращивать его возможности, добавлять новые функции – для этого надо читать литературу по Delphi, разбираться и пробовать.
Мы же на этом закончим наш урок

ИТОГИ УРОКА:

На этом цикл презентаций о программировании в среде Delphi закончен