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

•  DeLiKaTeS Tetris (Тетрис)  3 444

•  TDictionary Custom Sort  5 647

•  Fast Watermark Sources  5 412

•  3D Designer  7 864

•  Sik Screen Capture  5 705

•  Patch Maker  6 199

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

•  ListBox Drag & Drop  5 077

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

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

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

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

•  Canvas Drawing  4 969

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

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

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

•  Paint on Shape  2 222

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

•  Головоломка Paletto  2 418

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

 

 

Каталог исходников

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

HabLance - биржа фриланса

 

 

Delphi Sources

Delphi Sources

 




 

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

 

. : Canvas Drawing : .

 

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

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

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

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

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

Просмотры: 4 969
Дата: 13.07.2021, Автор: Gary Darby
Скачивания: 62
Написать сообщение:

 

 

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


 

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


Canvas

Thread Bitmap (pencil drawings)

Drawing Board

 

© 2004-2025 "DS"

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