Недавно добавленные исходники

•  3D Designer  372

•  Sik Screen Capture  268

•  Patch Maker  236

•  Айболит (remote control)  295

•  ListBox Drag & Drop  213

•  Доска для игры Реверси  4 176

•  Графические эффекты  247

•  Рисование по маске  197

•  Перетаскивание изображений  215

•  Canvas Drawing  229

•  Рисование Луны  224

•  Поворот изображения  124

•  Рисование стержней  121

•  Paint on Shape  95

•  Генератор кроссвордов  125

•  Головоломка Paletto  124

•  Теорема Монжа об окружностях  158

•  Пазл Numbrix  86

•  Заборы и коммивояжеры  168

•  Игра HIP  111

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Canvas Drawing : .

 

Delphi - Пример рисования на холсте, сохранения рисунка в растровое изображение или файл

Исходник программы, показывающей пример рисования на холсте, сохранения рисунка в растровое изображение или файл, очистки холста изображения и повторного отображения ранее сохраненного изображения (аналог слоев в Photoshop).

Кнопка Сохранить холст в список создает изображение TBitmap, копирует в него холст с помощью Copyrect и сохраняет растровое изображение как объект в списке изображений.

Также в примере доступна функция рисования каракулей, чтобы пользователь мог рисовать на холсте. Для рисования используется событие OnMouseDown. Событие OnMouseUp завершает рисование (сбрасывает флаг рисования на false).

Примечание: обновление курсора во время рисования иногда стирает часть нарисованной линии. Решение данной проблемы состоит в том, чтобы установить Cursor в CrNone до рисования линии и CrDefault после ее рисования.

Просмотры: 229
Дата: 13.07.2021, Автор: Gary Darby
Написать сообщение:
 

 

 

Скачать (4 Кб)   ↓ 3   Регистрация >>


 

Похожие исходники


Canvas

Thread Bitmap (pencil drawings)

Drawing Board

 

© 2004-2021 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software