Draw(0,0, Image1.Picture.BitMap);
StretchDraw(Rect(250,0,350,50),Image1.Picture.BitMap)
end;
События Canvas:
OnChange - Событие после изменения изображения
OnChanging - Событие перед изменением изображения
Объект TPaint
На странице System Палитры Компонент есть объект TPaintBox, который можно использовать для построения приложений типа графического редактора или, например, в качестве места построения графиков (если, конечно, у Вас нет для этого специальных компонент третьих фирм). Никаких ключевых свойств, кроме Canvas, TPaintBox не имеет, собственно, этот объект является просто канвой для рисования. Важно, что координаты указателя мыши, передаваемые в обработчики соответствующих событий (OnMouseMove и др.), являются относительными, т.е. это смещение мыши относительно левого верхнего угла объекта TPaintBox, а не относительно левого верхнего угла формы.
Задания на разработку
- Создайте приложение, демонстрирующее компонент TShape (см. рисунок 1).
- Создайте приложение – графический редактор, позволяющее рисовать на канве с помощью мыши.
- Создайте приложение, позволяющее изменять один из цветов загружаемой с диска картинки на любой другой.
Индивидуальные задания
Создать графический редактор (карандаш, ластик, линия, эллипс, прямоугольник, заливка и др.)
Контрольные вопросы
- Приведите примеры вывода графической информации на форму или ее компоненты.
- Для чего может быть использован компонент TShape, какие свойства и события для этого используются?
- Достоинства и недостатки вывода графической информации с помощью TImage по сравнению с выводом на канву формы.
- Для каких целей используется компонент TPaintBox?
- Какие средства вывода на канву Вы знаете?
- Какие методы используются для вывода на канву примитивов?