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

•  3D Designer  829

•  Sik Screen Capture  571

•  Patch Maker  513

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

•  ListBox Drag & Drop  464

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

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

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

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

•  Canvas Drawing  487

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

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

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

•  Paint on Shape  189

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

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

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

•  Пазл Numbrix  185

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

•  Игра HIP  204

 

 

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

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

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

 

Delphi Sources

Delphi Sources

 




 

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

 

. : Canvas Drawing : .

 

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

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

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

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

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

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

 

 

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


 

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


Canvas

Thread Bitmap (pencil drawings)

Drawing Board

 

© 2004-2021 "DS"

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