 |
Разработка простой программы
|
|
|
|
Решим простую задачу – вычерчивание на экране отрезков. Для этого разместите на форме экземпляр объекта TРaintBox, обладающий доступным свойством Сanvas. В обработчик события onMouseDown данного объекта поместите код, запоминающий координаты курсора в момент нажатия кнопки мыши. Эти координаты будут определять начальную точку отрезка. В обработчик события onMouseUp поместите код, производящий построение отрезка, соединяющего запомненную точку с точкой, в которой произошло отпускание кнопки мыши. Для этого можно использовать методы MoveTo и LineTo объекта Сanvas. Поставленная задача решена, однако наша программа имеет ряд существенных недостатков. Мы будем рассматривать и устранять их поочередно.
При сворачивании окна или изменении его размеров нарисованные отрезки будут исчезать. Причина ясна. При наступлении этих событий (и ряда других) происходит перерисовка окна, в процессе которой все его содержимое стирается. Преодолеть данное затруднение можно, заменив визуальный компонент TPaintBox на компонент TImage. Этот компонент хранит в себе образ создаваемого растрового изображения и, при необходимости, обеспечивает его перерисовку. Однако такой подход не очень удачен, так как мы не сможем редактировать созданное изображение (сможем, но только попиксельно). Более удачным решением будет хранение координат конечных точек всех созданных отрезков и перерисовывание созданного изображения или его фрагментов при необходимости. Структуру, хранящую координаты точек, в грубом приближении, можно рассматривать как модель.
В реальной системе выделение памяти под такую структуру должно быть динамическим, так как объем хранимой информации заранее неизвестен. В нашем примере для простоты мы воспользуемся массивом.
|
|
|
Создайте такой массив и измените написанный ранее код, так чтобы координаты конечных точек отрезков заносились в массив (массив можно сделать двумерным, а его базовым типом выбрать запись, хранящую координаты x и y).
Напишите процедуру, рисующую отрезки по координатам точек, хранящимся в массиве. Разместите вызов этой процедуры в обработчике события onPaint компонента TPaintBox. Таким образом мы обеспечиваем восстановление изображения.
Не размещайте вызов в обработчике события onPaint формы. Для формы это событие порождается при изменении любого объекта формы. В результате возникает избыточное перечерчивание.
Создание «резиновой нити»
Пользоваться созданной нами программой не удобно, так как мы видим положение отрезка только после того как указали определяющие его точки. В такой ситуации сложно создать даже произвольный горизонтальный отрезок. Однако, помочь пользователю достаточно просто. После ввода первой точки отрезка можно показать позицию создаваемого отрезка, соединив линией введенную точку и текущую позицию курсора мыши. При перемещении мыши линия должна соответственно изменять свое положение. С подобным приемом вы, наверное, сталкивались, работая с графическими программами. Данный тип курсора (ответа системы на действия пользователя) носит название «резиновой нити». Далее мы разберем принципы ее реализации.
Прежде чем переходить к изучению методов создания изменяющихся во времени изображений, рассмотрим подробнее режимы вывода, задаваемые свойством Canvas.Pen.Мode. С полным списком разрешенных значений этого свойства можно познакомится в справочной системе Delphi. Мы рассмотрим только наиболее важные для нашей темы режимы:
· pmCopy Цвет линии определяется свойством Canvas.Pen.Color. При выводе в этом режиме рисуемая линия уничтожает попавшие под нее пиксели фона и заносит на их места пиксели своего цвета. Данный режим используется по умолчанию;
|
|
|
· pmXor Цвет линии определяется результатом операции Xor (исключающее ИЛИ) над цветом фона и цветом, заданным свойством Canvas.Pen.Color;
· pmNotXor Цвет линии определяется отрицанием результата, полученного по схеме предыдущего режима.
В отличие от режима pmCopy, при выводе в режимах, определяющих результирующий цвет на основе логической операции Xor, информация о фоне учитывается при определении цвета, выводимого пикселя, и ее при необходимости можно восстановить.
Предположим, цвет пикселя фона задан битовой комбинацией 1111, а цвет линии- 0101, тогда цвет выводимого пикселя определиться как
Восстановить цвет фона достаточно просто. Еще раз выполним логическую операцию Xor между полученным цветом и цветом линии
Как видим, битовый код цвета пикселя идентичен исходному цвету. Таким образом, если в режиме Xor начертить линию любого цвета, а затем повторно прорисовать ее по тем же координатам тем же цветом, то линия исчезнет с экрана, оставив фон не поврежденным.
Цвет выводимого пикселя сильно отличается от желаемого цвета линии (заданного свойством Canvas.Pen.Color). Чтобы этого не происходило, вместо логической операции Xor используют операцию NotXor. Результирующий цвет получается близким или совпадающим с цветом линии. Рассмотрим тот же пример.
как видим, результирующий цвет совпадает с цветом линии
так же как и в предыдущем случае получаем исходный цвет фона.
На рассмотренной выше идее и основывается один из методов создания «резиновой нити». При каждом движении мыши необходимо:
1. Стереть с экрана существующий на данный момент отрезок. Для этого необходимо начертить еще раз этот отрезок в режиме NotXor.
2. Начертить в режиме NotXor отрезок, связанный с новым положением мыши. Запомнить координаты концов отрезка для повторного вычерчивания, обеспечивающего стирание отрезка (так как первая точка отрезка фиксирована, можно запоминать только одну точку).
Реализуйте «резиновую нить». Для этого поместите в обработчик события onMouseMove требуемый код. Не забудьте вставить проверку на нажатие левой кнопки мыши, нить должна появляться только при нажатой кнопке.
|
|
|
Созданная вами программа может оставлять на экране «мусор» в виде отдельных точек. Это вызвано тем, что при первом перемещении курсора мыши образа нити на экране не существует, и попытка стирания приводит к появлению «мусора». Чтобы этого не происходило, нужно добавить в обработчик события onMouseDown функцию рисования нити (создаваемый отрезок будет единичной длины).
|
|
|
