как сделать аэрограф в Delphi

[Kulik Lilia]

помогите пожалуйста...как сделать аэрограф в делфи?? чтобы был аэрозоль, типа как в Paint и в нем можно было регулировать размер распыления...

[phomm]

Правый клик выбрать цвет аэрографа
Клик колесом - очистить форму от нарисованного.
Левый клик и двигание мышкой (с зажатой левой кнопкой) - рисование текущим аэрографом.

Регулируемые параметры - ширина и высота области аэрографа, плотность аэрографа, цвет.
Комментов почти нет, не хвастаюсь, но пишу понятный код. Ну коли будут сложности в понимании - могу прокомментить.

[Kulik Lilia]

там его мне не открывает...какую-то ошибку выкидывает(((

[type_Oleg]

Я распаковал, да при открытие проекта в Delphi говорит об ошибке, вроде в файле ресурсов. Но все же открывает. По крайней мере исходник и форму видно.
И что интересно, в самой Delphi не компилируется, находит ошибки, а приложенный exe-файл - запускается и работает.

[Аватар]

Допустим д7 и не съест, это исходник более поздней версии, 2009(?). xe2 открыл, откомпилировал и работает

PS съел и Д7

// Application.MainFormOnTaskbar := True;
и
dlgColor1.Execute;
вместо
dlgColor1.Execute(Handle);
При открытии IGNORE ALL

Рисует, но кончилось ошибкой деления но ноль когда один из сколбаров вверх до упора установил. Видимо ignore all повлиял или ошибки при чтении ресурса

[phomm]

Я работаю под д2007 практически всегда, изредка д7 , дхе2, fpc
Cобираю под д7. Пофиксю соотв проблемы.
да и деление на 0 не предусмотрел.. минимальный размер сделаю 5 (в настройках скролбаров через Object Inspector можно поменять)
Исправление colordialog'a сделал через проверку версии компилятора, если вдруг кто будет запускать не на д7.
Ну а если Вам, Kulik Lilia надо "попроще, то просто удалите всё что в скобках тут dlgColor1.Execute(.....)

[blackstrip]

Пиксельный аэрограф аля паинт:
пусть есть точка (X,Y), куда тыкнули мышкой
и есть радиус распыления R
и есть функция random(A), выдающая числа от 0 до A-1

тогда при каждом клике в (X,Y) надо выводить точку по координатам (XP,YP), где
XP = X-R+random(2*R+1)
YP = Y-R+random(2*R+1)
и точка будет выводиться в пределах квадрата (по X в пределах от X-R до X+R, по Y в пределах от Y-R до Y+R)

если хотим круг, то можно еще проверку сделать на расстояние от точки (X,Y) до (XP,YP), что оно меньше радиуса
do
XP = X-R+random(2*R+1)
YP = Y-R+random(2*R+1)
until (sqrt((XP-X)*(XP-X)+(YP-Y)*(YP-Y))<=R)

для увеличения плотности можно по каждому клику (или по движению мышки с нажатой кнопкой) выводить не 1 точку, а N точек.