Расширение возможностей растрового графического редактора для обработки точечных изображений текстильных материалов

К искусственному освещению предъявляют следующие требования:

освещенность рабочего места должна соответствовать отраслевым нормам искусственного освещения;

освещенность должна быть равномерной по времени и по площади;

на рабочем месте должно быть обеспечено равномерное распределение яркости;

в поле зрения должны отсутствовать прямая и отраженная блесткость, а также резкие тени. Ослабление отраженной блесткости может быть достигнуто правильным выбором направления светового потока на рабочую поверхность.

там, где это возможно, следует заменять блестящие поверхности матовыми;

при организации необходимо учитывать спектральный состав света;

осветительная установка не должна быть источником опасности и вредности.

Рассчитаем необходимое количество люминесцентных ламп для организации искусственного освещения описанного выше рабочего помещения Размеры помещения: Длина — 6,25 м, ширина — 4 м, высота — 3 м.

Расчет количества ламп осуществляется по формуле:

Е — Нормируемая номинальная освещенность, лк;

К — Коэффициент запаса, учитывающий износ и загрязнение светильников;

S — Площадь помещения, Кв. м.;

Z — Коэффициент неравномерности освещения;

(- коэффициент использования светового потока, выбирается зависимости от показателя помещения i.

A — длина помещения, м.;

В — ширина помещения, м.;

Hc — высота подвески светильника над рабочей поверхностью, м; (36)

H — общая высота помещения, м;

hc — высота от потолка до нижней части светильника;

hp — высота от пола до освещаемой поверхности.

Определим показатель помещения: Hc = 3 — 0 — 0,85 = 2,15 м

Определим остальные величины:

E — нормативная освещенность, Е=300 лк.;

K — 1,5;

S — 25 кв. м.;

Z — 1,15;

(- согласно таблице пересчета от показателя помещения — 0,4 (коэффициент отражения от стен и потолка одинаков и равен 0,7)

(- световой поток для ламп ЛДЦ-80 — 3560 лм.

Найдем необходимое количество ламп Для освещения помещения необходимо 9 ламп типа ЛДЦ-80

Схема освещения Рис. 46

6.

2.4 Шум и вибрация

На человека воздействуют различные акустические факторы (шум, ультразвук и инфразвук) и вибрация. Шумы беспорядочно изменяются во времени и вызывают неприятные субъективные ощущения. Они бывают широкополосные, тональные, постоянные, непостоянные. Шум вредно действует на здоровье и труд людей. Он является общебиологическим раздражителем. В результате воздействия шума снижается производительность труда, растет число ошибок при работе, повышается опасность травмирования. С шумом борются ослаблением в источнике, по пути распространения.

В помещении источниками шума являются:

компьютер;

встроенные вентиляторы;

преобразователи напряжений и т. д.

Согласно ГОСТ 12.

1.003−88(«Шум. Общие требования безопасности») характеристикой постоянного шума на рабочих местах являются среднеквадратичные уровни давлений в октавных полосах частот со среднегеометрическими стандартными частотами: 63, 125, 250, 500, 1000, 2000, 4000 и 8000

Гц. Согласно ГОСТ 12.

1.003−88, шум не должен превышать предельно-допустимых значений уровней звукового давления, дБ в октавных полосах частот с указанными частотами: 71, 61, 54, 49, 45. В помещении фирмы, где используется техническое оборудование (компьютер, принтер, факс, вентиляционное оборудование), выделяющее шум, значения уровней звукового давления которого соответственно составляют 61, 55, 40, 35, 40, 30, 20 дБ.

Типичный шум одного современного системного блока персонального компьютера, типа Pentium III, составляет 35−45 дБ. В компьютере можно считать основным источником звука: вентилятор блока питания. В вычислительном центре используют вентилятор — ElanVital. Его уровень шума не превышает 31 дБ, скорость вращения равна 4550 оборотов/мин. ±10%.

В комнате находятся 4 компьютера и на основе данных, их общий уровень шума будет до 10 дБ выше, чем от одного.

Таким образом, уровень шума в рассматриваемом помещении не превышает допустимых значений для помещений, в которых работают программисты и операторы компьютер. Компьютер и оргтехника производят определённый шум, но предпринимать специальные меры по борьбе с ним излишне.

Для защиты от шума используются, в первую очередь, средства и методы коллективной защиты работающих (облицовка стен, потолков шумопоглащающими покрытиями), а затем средства индивидуальной защиты: внутренние (вкладыши) и внешние (заглушки) противошумы, наиболее удобны гигиенические противошумные наушники.

Вибрация вызывает изменения в нервной и костно-суставной системах. В помещениях вибрации возникают от встроенных вентиляторов, подвижных механических узлов компьютер, преобразователей напряжения и т. п. Одновременно вибрации могут передаваться и от внешних источников (автотранспорт, поезда, трамваи). Для снижения вибрации используют виброизоляцию (резиновая, пробковая, металлорезиновая, пружинная и т. п.).

В исследуемом помещении уровень вибрации незначителен.

6.

3. Безопасность производственной деятельности

6.

3.1 Источники опасных факторов механического воздействия

В настоящее время растет число чрезвычайных происшествий и несчастных случаев, связанных с техногенными факторами, действующими на людей в процессе работы с механизмами, машинами и оборудованием. Рассматриваемое помещение характеризуется отсутствием различного рода движущихся механизмов, деталей машин, перемещающихся изделий. Звуковые раздражения, вызываемые посторонними шумами (работа кондиционеров, принтеров, печатных машинок) сведены к минимуму. Так же помещение характеризуется отсутствием источников инфразвука и ультразвука. Общая и локальная вибрации не проявляют себя. Оператор ПК не подвергается никаким физическим перегрузкам, связанным с различного рода перенесением тяжестей.

6.

3.2 Электробезопасность

Электрические установки, к которым относится практически все оборудование компьютер, представляют для человека большую потенциальную опасность, так как в процессе эксплуатации или проведении профилактических работ человек может коснуться частей, находящихся под напряжением. Специфическая опасность электроустановок: токоведущие проводники, корпуса стоек компьютер и прочего оборудования, оказавшегося под напряжением в результате повреждения (пробоя) изоляции, не подают каких-либо сигналов, которые предупреждают человека об опасности. Реакция человека на электрический ток возникает лишь при протекании последнего через тело человека. Исключительно важное значение для предотвращения электротравмотизма имеет правильная организация обслуживания действующих электроустановок, проведения ремонтных, монтажных и профилактических работ. При этом под правильной организацией понимается строгое выполнение ряда организационных и технических мероприятий и средств, установленных действующими «Правилами технической эксплуатации электроустановок потребителей и правила техники безопасности при эксплуатации электроустановок потребителей» (ПТЭ и ПТБ потребителей) и «Правила установки электроустановок» (ПУЭ). В зависимости от категории помещения необходимо принять определенные меры, обеспечивающие достаточную электробезопасность при эксплуатации и ремонте электрооборудования. В особо опасных помещениях напряжение питания переносных светильников не должно превышать 12 В, а работа с электротранспортирыемым напряжением не выше 42 В разрешается только с применением СИЗ (диэлектрических перчаток, ковриков и т. п.).

Помещение по степени электроопасности относятся к помещениям без повышенной опасности — помещения сухие, с нормальной температурой, изолированными полами, беспыльные, имеющие малое количество заземлённых предметов. Компьютер питается от однофазной сети переменного тока промышленной частоты с глухозаземленной нейтралью, напряжением 380/220 В.

Системный блок компьютера имеет напряжения сигналов ТТЛ уровней (-1, +4 В), цифровые и аналоговые микросхемы запитываются постоянными напряжениями (12 В, которые получаются путем преобразования переменного напряжения 220 В в блоке питания. Блок питания содержит в себе схемы преобразования напряжения, схемы стабилизации и схему защитного отключения при коротком замыкании. Так как корпус компьютера выполнен из металла, то существует опасность пробоя фазы на корпус. Мониторы компьютеров изготовлены из пластика, поэтому, несмотря на большое напряжение, присутствующее в мониторе, поражение током человека практически исключено.

Поскольку попадание человека под воздействие высокого напряжения в данном устройстве возможно только по причине аварии (пробой изоляции), то рассчитаем возможный ток через тело человека (Ih) при касании частей схемы, находящихся под напряжением 220В:

; где U-напряжение токоведущих элементов, В,

Rh=1000

Омсопротивление тела человека.

Полученное значение выше смертельного порога (0.1А для переменного тока). Поэтому предусмотрены меры по защите человека от поражения электрическим током при оборудовании рабочего места:

Поскольку сетевое напряжение преобразуется в отдельном блоке (блоке питания), то он выполнен в закрытом металлическом корпусе и электрически соединён с корпусом всего устройства в целом;

Заземлён корпус всего компьютера, посредством заземляющего вывода в сетевом шнуре или отдельным заземляющим проводом;

Применён сетевой шнур с двойной изоляцией.

Корпус ПК присоединен к системе зануления с помощью «нулевого» контакта в розетке.

6.

3.3 Предупреждение накопления электростатических зарядов

При работе с компьютер разрядные токи статического электричества чаще всего возникают при прикосновении к любому из его элементов. Такие разряды опасности для человека не представляют, но кроме неприятных ощущений они могут привести к выходу из строя сам компьютер. Для снижения величины возникающих зарядов статического электричества в помещении покрытие технологических полов следует выполнять из однослойного поливинилхлоридного антистатического линолеума. Другим методом защиты является нейтрализация заряда статического электричества ионизированным газом. В промышленности широко применяются радиоактивные нейтрализаторы. К общим мерам защиты от статического электричества можно отнести общее и местное увлажнение воздуха.

В нашем случае проблема статического электричества решена с помощью применения однослойного антистатического линолеума, в помещении также регулярно проводится влажная уборка.

6.

4.Экологические проблемы производства

Стандарты требуют, чтобы оборудование в процессе эксплуатации не загрязняло среду обитания ни физическими, ни химическими и ни биологическими факторами выше нормативов безопасности и экологичности.

Современная вычислительная техника конструируется и производится с соблюдением строжайших санитарно-гигиенических требований. Компоненты ПК сами по себе не являются источниками каких-либо отравляющих или вредных веществ. Однако в процессе эксплуатации вычислительной техники и при планировании мероприятий по охране окружающей среды следует учитывать следующие обстоятельства:

компьютер является источником избытков явного тепла конструкция стандартного ПК способствует накоплению в нем частичек пыли, что в определенных ситуациях может служить источником запыленности помещения;

спирт и другие вещества, применяемые для протирки компонентов и комплектующих деталей ПК, могут явиться источником вредных или ядовитых паров.

Основное влияние вычислительная техника оказывает на воздушную среду помещения. В помещениях с Пкомпьютер рекомендуется применять кондиционеры, и именно они являются основным средством охраны окружающей среды от вышеперечисленных факторов. Входящие в состав кондиционеров средства охлаждения воздуха, компенсируют выделение избытков тепла, а средства очистки воздуха и фильтры очистят воздух от пыли и паров. Для предотвращения запыленности помещения рекомендуется регулярно проводить процедуру удаления пыли из системного блока с помощью пылесоса и ветоши смоченной в техническом, медицинском или пищевом спирте. Помещение, в котором устанавливается множительный аппарат или компьютер, должно хорошо проветриваться (желательно с кондиционированием) объемом воздуха не менее на один аппарат.

Влияние на гидросферу и уровень отходов производства мало отличается от общего бытового. Утилизация отходов осуществляется муниципальными коммунальными службами.

6.

5. Пожарная безопасность

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

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

Для предупреждения пожаров, возникающих от неправильной эксплуатации электроустановок, необходимо правильно выбирать и применять кабели, электропровода, двигатели, светильники и другое электрооборудование в соответствии с классом пожаровзрывоопасности помещений и условий окружающей среды.

Все электроустановки должны иметь аппараты защиты от токов короткого замыкания и других нарушений режимов, могущих привести к пожарам и загораниям. Электрическую сеть необходимо монтировать так, чтобы электрические светильники не соприкасались со сгораемыми конструкциями зданий и горючими материалами; светильники должны быть закрытыми или защищёнными от пыли.

Большое значение для пожарной профилактики имеет система мер по предотвращению распространения огня: противопожарные разрывы между зданиями и сооружениями, противопожарные внутренние и внешние преграды, наличие противопожарного водоснабжения и первичных средств для тушения очагов возгораний, пожарной сигнализации и связи и др.

Помещения, в которых установлены персональные компьютер, по пожарной опасности относятся к категории Д, и должны удовлетворять требованиям по предотвращению и тушению пожара по ГОСТ 12.

1.004−91. Обязательно наличие телефонной связи и пожарной сигнализации.

Материалы, применяемые для ограждающих конструкций и отделке рабочих помещений должны быть огнестойкими. Для предотвращения возгорания в зоне расположения компьютер обычных горючих материалов (бумага) и электрооборудования, необходимо принять следующие меры:

в машинном зале должны быть размещены углекислотные огнетушители типов ОУ-2, ОУ-5, ОУ-8. Согласно типовым правилам пожарной безопасности на каждые 100кв. метров площади помещения ВЦ должен приходиться один огнетушитель.

в качестве вспомогательного средства тушения пожара могут использоваться гидрант или устройства с гибкими шлангами.

для непрерывного контроля машинного зала и зоны хранения носителей информации необходимо установить систему обнаружения пожаров, для этого можно использовать комбинированные извещатели типа КИ-1 из расчета один извещатель на 100 м²

Меры пожарной безопасности определены в ГОСТ 12.

1.004−91.

Пользователи допускаются к работе на персональных компьютер только после прохождения инструктажа по безопасности труда и пожарной безопасности в лаборатории в целом и на каждом рабочем месте.

Расчет эвакуации при пожаре

Лаборатория имеет один эвакуационный выход. Количество человек работающих в ней равно 4. Число людей, которые могут оказаться в лаборатории по служебной необходимости, принимается равным 50% .

Определяем общее количество людей в лаборатории:

SN = Nт + 0,5 · Nт (38)

SN = 4 + 0,5 · 4 = 6 человек Определяем равномерное перераспределение людей по потокам эвакуации:

SN / n = 6 / 1 = 6 человек (39)

Минимальную скорость движения людских потоков принимаем равной 20 м / мин.

Определяем время перемещения (эвакуации):

t = l / v, (40)

где t — максимальная продолжительность эвакуации людей от рабочих мест

до ближайшего выхода, мин.;

l — наибольшее расстояние от рабочего места до ближайшего

эвакуационного выхода, м.;

v — скорость перемещения людей при эвакуации, м / мин.

t = 6/ 20 = 0,3 минуты Суммарную ширину проходов (В) для эвакуации всех находящихся в лаборатории людей определяем по формуле:

В = (N * C) / (t *j), (41)

где N — общее число людей в лаборатории, человек;

С — минимальная ширина одного потока, С = 0,8 м;

t — время эвакуации, мин.;

j — средняя пропускная способность одного потока; j = 20 чел/мин.

В = (6 * 0,8) / (0,3 * 20) = 0,8 метра

Полученная ширина соответствует нормам противопожарной безопасности, установленными для лаборатории.

План эвакуации Рис.47

6.

6. Устройство молниезащиты промышленных зданий

По статистике на земном шаре за сутки происходит свыше 40 тыс. гроз, сопровождающихся мощными электрическими разрядами, называемыми молнией.

Носителями статического атмосферного электричества являются грозовые облака, представляющие собой движущиеся воздушные потоки, насыщенные водяными парами. Электрические разряды образуются между разноимённо заряженными облаками и землёй.

Поражение человека электрическими разрядами может привести к ожогам разной степени, ослепление, паралич дыхания, фибрилляцию сердца, металлизацию кожи, а так же к смерти.

Для приёма электрического разряда молнии и отвода её тока в землю применяют стержневые (мачтовые), тросовые (антенные) и сетчатые молниеотводы.

Выбор способа молниезащиты зависит от конструктивных и технологических особенностей объекта, его назначения, грозовой интенсивности в данной местности.

Выводы В данном разделе был проведен анализ помещения, предназначенного для работы на компьютере, на соответствие санитарным нормам и правилам организации рабочего места.

Результатом анализа являются следующие рекомендации по организации рабочего места:

1. При работе с промышленным оборудованием, для предотвращения несчастных случаев, строго соблюдать инструкцию безопасности и использовать защитные средства.

2. Рабочее место оператора относится к третьей группе электробезопасности без повышенной опасности. Там используется сеть с фазным напряжением 220 V. Рекомендуется следить за выключателями и исправностью электропроводки.

3. Для повышения степени комфортности, в жаркий период времени, в помещении следует установить кондиционер; в холодный период времени, при понижении температуры до 15ºС и ниже, рекомендуется установить в помещении обогреватель, для повышения температуры до требуемой нормы.

4. В помещение применять общеобменную вентиляцию, производить влажную уборку раз в сутки.

5. В помещение желательно установить шумоизолирующие окна.

6. В помещении следует организовать расположение искусственного освещение, согласно произведенному расчету (см. пункт 5.5).

7. При пожаре следует пользоваться планом эвакуации приведенном в пункте

8. Для приёма электрического разряда молнии и отвода её тока в землю применять тросовые (антенные) молниеотводы.

7. ОБЩИЕ ВЫВОДЫ

В результате проделанной работы была спроектирована компьютерная база данных, а так же разработано программное обеспечение которое позволило расширить возможности растрового графического редактора для обработки точечных изображений текстильных материалов.

Разработан графический интерфейс, отвечающий требованиям современного пользователя. Все изображения могут сохраняться в базе данных, которая находится в папке с программой. Также в результате работы выведен алгоритм подготовки графических изображений для использования в качестве текстуры при визуализации текстур для текстильного производства.

Созданный программный продукт успешно прошел испытания и используется на производстве в процессе разработки проектной документации. В результате спроектированной базы образцов тканей появилась возможность создания большого количества эскизов, основанных на различных эффектах. Вследствие этого был достигнут существенный экономический эффект за счет сокращения времени выпуска проектной документации.

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

8. ЛИТЕРАТУРА

[1] www. runa-disign.ruarticles11

[2]www.Vashdom.ruarticlesодежда%20для%20интерьера%20должна%20меняться

[3]

http://www.dizainkvartiri.ru/tag/programmy-dizajna-kvartir/

[4]

http://ru.wikipedia.org

[5] www.IDH.ru

[6] «Иллюстрированная энциклопедия моды.» Л. Кибалова, О. Гербенова, М.Ламарова. Из-во Артия, Прага, 1987.

[7] www.manufakturas.ruarticlesfrance

[8] www. kremlin_museum.ru

[9] www.Ramblermassmedia.ruhousearticlessalon

[10] www.stroiteli.nn.ruarticles

[11] www.Vashdom.ruarticlesвскрытие%20показало%20

[12] Журнал «Современный интерьер Сибирь», октябрь 2007г

[13] Журнал «Обустройство и ремонт» № 19, 15 мая 2006 г.

[14] «Благоустройство квартиры» А. Я Костенко О. С. Зимина, М.1986г.

[15] www.Ramblermassmedia.ruhousearticlessalonshirma

[16] www. vse_pro_mebel.ruiskusstvo%20drapirovky%20

[17]

http://www.textile-press.ru/

[18]

http://tekstyl.ru/index.php

[19] www.3DNews.ruarticles

[20] www.Render.ruarticles

[21] Санитарные правила и нормы Сан

Пин 2.

2.4. 548−96 «Гигиенические требования к микроклимату производственных помещений»

Материал для обработки предоставлен архивами музея МГТУ им. А. Н. Косыгина, московского музея мебели, кафедры ткачества и кафедры текстильного материаловедения МГТУ им. А. Н. Косыгина.

9. ПРИЛОЖЕНИЕ 1

Текст программы.

Unit uMain

unit DemoUnit1;

interface

uses

OrImage,

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtDlgs, Buttons, ExtCtrls,

jpeg, DB, ADODB, DBCtrls, Grids, DBGrids; //иначе будут доступны только стандартные: *.bmp, *.wmf, *.ico

//type additional grafic format units

type

TForm1 = class (TForm)

OpenPictureDialog1: TOpenPictureDialog;

Panel1: TPanel;

ButtonLoad: TButton;

ButtonSave: TButton;

ButtonEffects: TButton;

SavePictureDialog1: TSavePictureDialog;

Button1: TButton;

OpenDialog1: TOpenDialog;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ScrollBox1: TScrollBox;

OrImage1: TOrImage;

GroupBox1: TGroupBox;

Button2: TButton;

Edit2: TEdit;

Label2: TLabel;

Label1: TLabel;

Edit1: TEdit;

Label3: TLabel;

Edit3: TEdit;

Button4: TButton;

procedure ButtonLoadClick (Sender: TObject);

procedure ButtonSaveClick (Sender: TObject);

procedure ButtonEffectsClick (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure DataSource1DataChange (Sender: TObject; Field: TField);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

procedure SetFormSize;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

uses OrImageEditor, Unit1 ;

procedure TForm1. SetFormSize;

begin

Form1.Width:=OrImage1.Width+4;

Form1.Height:=OrImage1.Height+Panel1.Height+30;

OrImage1.Left:=(Form1.Width-OrImage1.Width-4)div 2;

end;

procedure TForm1. ButtonLoadClick (Sender: TObject);

begin

if OpenPictureDialog1. Execute then

begin // Не изменяемый рисунок — оригинал //Original bitmap

OrImage1.PictureOriginal.LoadFromFile (OpenPictureDialog1.FileName);

// SetFormSize;

end;

end;

procedure TForm1. ButtonSaveClick (Sender: TObject);

begin

if OrImage1.Picture.Graphic<>nil then //Result bitmap

if SavePictureDialog1. Execute then

OrImage1.Picture.SaveToFile (SavePictureDialog1.FileName);

end;

procedure TForm1. ButtonEffectsClick (Sender: TObject);

var

FormOrImageEditor: TFormOrImageEditor;

FBrightness: Integer;

FContrast: Integer;

FGrayScale: Boolean;

FLightness: Integer;

FDarkness: Integer;

FSaturation: Integer;

FSplitlight: Integer;

FInvert: Boolean;

FColorNoise: Integer;

FMonoNoise: Integer;

FPosterize: Integer;

FSolorize: Integer;

FEmboss: Boolean;

FMosaic: Integer;

FSplitBlur: Integer;

FGaussianBlur: Integer;

FAntiAlias: Integer;

FTrace: Integer;

FTile: Integer;

begin

with OrImage1 do

begin

FBrightness:=PicBrightness;

FContrast:=PicContrast;

FGrayScale:=PicGrayScale;

FLightness:=PicLightness;

FDarkness:=PicDarkness;

FSaturation:=PicSaturation;

FSplitlight:=PicSplitlight;

FInvert:=PicInvert;

FColorNoise:=PicColorNoise;

FMonoNoise:=PicMonoNoise;

FPosterize:=PicPosterize;

FSolorize:=PicSolorize;

FEmboss:=PicEmboss;

FMosaic:=PicMosaic;

FSplitBlur:=PicSplitBlur;

FGaussianBlur:=PicGaussianBlur;

FAntiAlias:=PicAntiAlias;

FTrace:=PicTrace;

FTile:=PicTile;

end;

FormOrImageEditor:=TFormOrImageEditor.Create (nil);

try

FormOrImageEditor.OrImage:=OrImage1;

if FormOrImageEditor. ShowModal<>mrOk then

with OrImage1 do

begin

PicBrightness:=FBrightness;

PicContrast:=FContrast;

PicGrayScale:=FGrayScale;

PicLightness:=FLightness;

PicDarkness:=FDarkness;

PicSaturation:=FSaturation;

PicSplitlight:=FSplitlight;

PicInvert:=FInvert;

PicColorNoise:=FColorNoise;

PicMonoNoise:=FMonoNoise;

PicPosterize:=FPosterize;

PicSolorize:=FSolorize;

PicEmboss:=FEmboss;

PicMosaic:=FMosaic;

PicSplitBlur:=FSplitBlur;

PicGaussianBlur:=FGaussianBlur;

PicAntiAlias:=FAntiAlias;

PicTrace:=FTrace;

PicTile:=FTile;

end;

finally

FormOrImageEditor.Free;

end;

end;

procedure TForm1. FormCreate (Sender: TObject);

// SetFormSize;

var NewConnection: Widestring;

begin

NewConnection := PromptDataSource (Handle, Form1. ADOConnection1.Connectionstring);

Form1.ADOConnection1.Connectionstring:=NewConnection;

Form1.ADOConnection1.Connected:=true;

Form1.ADOTable1.Active:=true;

form1.DBGrid1.Fields[0]. DisplayLabel:='ИД';

form1.DBGrid1.Fields[0].DisplayWidth:=4;

form1.DBGrid1.Fields[1].DisplayLabel:='Описание';

form1.DBGrid1.Fields[1].DisplayWidth:=20;

form1.DBGrid1.Fields[2].DisplayLabel:='Имя файла';

form1.DBGrid1.Fields[2]. DisplayWidth:=20;

form1.DBGrid1.Fields[3].DisplayLabel:='Характеристики';

form1.DBGrid1.Fields[3].DisplayWidth:=20;

end;

procedure TForm1. Button1Click (Sender: TObject);

//form2.show;

var

r:TPSDGraphic;

begin

if OpenDialog1. Execute then

begin

r:=TPSDGraphic.Create;

r.LoadFromFile (OpenDialog1.FileName);

OrImage1.PictureOriginal.Bitmap.Assign®;

r.Free;

end;

end;

procedure TForm1. Button2Click (Sender: TObject);

var ss, sf, sk: string;

begin

ss:=form1.Edit2.Text;

sf:=form1.Edit1.Text;

sk:=form1.Edit3.Text;

form1.ADOTable1.Insert;

//TBlobField (Table1.FieldByName ('my_pic1')).LoadFile (OpenDialog1.FileName);

TBlobField (AdoTable1.FieldbyName ('kart')).Assign (ORImage1.Picture);

form1.ADOTable1.FieldByName ('desript').AsString:=ss;

form1.ADOTable1.FieldByName ('FileName').AsString:=sf;

form1.ADOTable1.FieldByName ('Kharaterize').AsString:=sk;

ADOTable1.Post;

//ADOTable1.Refresh;

end;

procedure TForm1. DataSource1DataChange (Sender: TObject; Field: TField);

var ss, sf, sk: string;

begin

form1.Edit2.Text:='';

form1.Edit1.Text:='';

form1.Edit3.Text:='';

ss:=DataSource1.DataSet.FieldByName ('desript').AsString;

sf:=DataSource1.DataSet.FieldByName ('FileName').AsString;

sk:=DataSource1.DataSet.FieldByName ('Kharaterize').AsString;

//form1.DBImage1.Picture.Assign (TBlobField (DataSource1.DataSet.FieldByName ('kart')));

form1.OrImage1.PictureOriginal.Assign (TBlobField (form1.ADOTable1.FieldByName ('kart')));

// OrImage1. Repaint;

form1.Edit2.Text:=ss;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

form1.Close;

end;

end.

Unit 1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Math, StdCtrls, ExtCtrls, OrImage;

type

PRGB = ^TRGB;

TRGB = packed record

R, G, B: Byte;

end;

PCMYK = ^TCMYK;

TCMYK = packed record

C, M, Y, K: Byte;

end;

PCMYK16 = ^TCMYK16;

TCMYK16 = packed record

C, M, Y, K: Word;

end;

PBGR = ^TBGR;

TBGR = packed record

B, G, R: Byte;

end;

PRGBWord = ^TRGBWord;

TRGBWord = record

R, G, B: Word;

end;

TPSDHeader = packed record

Signature: array[0.3] of Char;

Version: Word;

Reserved: array[0.5] of Byte;

Channels: Word;

Rows,

Columns: Cardinal;

Depth: Word;

Mode: Word;

end;

TPSDGraphic = class (TBitmap)

private

FPalette: array[0.767] of Byte;

procedure MakePalette (BPS: Byte; Mode: Integer);

public

procedure LoadFromStream (Stream: TStream); override;

end;

TPackbitsRLE = class

public

procedure Decode (var Source: Pointer; Dest: Pointer; PackedSize, UnpackedSize: Integer);

end;

TForm2 = class (TForm)

Button1: TButton;

OpenDialog1: TOpenDialog;

OrImage1: TOrImage;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

const

PSD_BITMAP = 0;

PSD_GRAYSCALE = 1;

PSD_INDEXED = 2;

PSD_RGB = 3;

PSD_CMYK = 4;

PSD_MULTICHANNEL = 7;

PSD_DUOTONE = 8;

PSD_LAB = 9;

PSD_COMPRESSION_NONE = 0;

PSD_COMPRESSION_RLE = 1;

implementation

{$R *.DFM}

procedure CIELAB2BGR (LSource, aSource, bSource: PByte; Target: Pointer; BitsPerSample: Byte; Count: Cardinal); overload;

var

FinalR, FinalG, FinalB: Integer;

l, a, b, X, Y, Z, T, YYn3: Double;

TargetPtr: PByte;

PixelCount: Cardinal;

begin

TargetPtr := Target;

PixelCount := Count div 3;

while PixelCount > 0 do

begin

L := LSource^ / 2.55;

Inc (LSource);

a := ShortInt (aSource^);

Inc (aSource);

b := ShortInt (bSource^);

Inc (bSource);

YYn3 := (L + 16) / 116;

if L < 7.9996 then

begin

Y := L / 903.

3;

X := a / 3893.

5 + Y;

Z := Y — b / 1557.

4;

end

else

begin

T := YYn3 + a / 500;

X := T * T * T;

Y := YYn3 * YYn3 * YYn3;

T := YYn3 — b / 200;

Z := T * T * T;

end;

FinalR := Round (255 * (2.998 * X — 1.458 * Y — 0.541 * Z));

FinalG := Round (255 * (-0.952 * X + 1.893 * Y + 0.059 * Z));

FinalB := Round (255 * (0.099 * X — 0.198 * Y + 1.099 * Z));

TargetPtr^ := Max (0, Min (255, FinalB));

Inc (TargetPtr);

TargetPtr^ := Max (0, Min (255, FinalG));

Inc (TargetPtr);

TargetPtr^ := Max (0, Min (255, FinalR));

Inc (TargetPtr);

Dec (PixelCount);

end;

end;

procedure CMYK2BGR (C, M, Y, K, Target: Pointer; BitsPerSample: Byte; Count: Cardinal); overload;

var

R, G, B: Integer;

C8, M8, Y8, K8: PByte;

C16, M16, Y16, K16: PWord;

I: Integer;

TargetPtr: PByte;

begin

case BitsPerSample of

8:

begin

C8 := C;

M8 := M;

Y8 := Y;

K8 := K;

TargetPtr := Target;

Count := Count div 4;

for I := 0 to Count — 1 do

begin

R := 255 — (C8^ - MulDiv (C8^, K8^, 255) + K8^);

G := 255 — (M8^ - MulDiv (M8^, K8^, 255) + K8^);

B := 255 — (Y8^ - MulDiv (Y8^, K8^, 255) + K8^);

TargetPtr^ := Max (0, Min (255, B));

Inc (TargetPtr);

TargetPtr^ := Max (0, Min (255, G));

Inc (TargetPtr);

TargetPtr^ := Max (0, Min (255, R));

Inc (TargetPtr);

Inc (C8);

Inc (M8);

Inc (Y8);

Inc (K8);

end;

end;

16:

begin

C16 := C;

M16 := M;

Y16 := Y;

K16 := K;

TargetPtr := Target;

Count := Count div 4;

for I := 0 to Count — 1 do

begin

R := 255 — (C16^ - MulDiv (C16^, K16^, 65 535) + K16^) shr 8;

G := 255 — (M16^ - MulDiv (M16^, K16^, 65 535) + K16^) shr 8;

B := 255 — (Y16^ - MulDiv (Y16^, K16^, 65 535) + K16^) shr 8;

TargetPtr^ := Max (0, Min (255, B));

Inc (TargetPtr);

TargetPtr^ := Max (0, Min (255, G));

Inc (TargetPtr);

TargetPtr^ := Max (0, Min (255, R));

Inc (TargetPtr);

Inc (C16);

Inc (M16);

Inc (Y16);

Inc (K16);

end;

end;

end;

end;

procedure RGB2BGR (R, G, B, Target: Pointer; BitsPerSample: Byte; Count: Cardinal); overload;

var

R8, G8, B8: PByte;

R16, G16, B16: PWord;

TargetRun: PByte;

begin

Count := Count div 3;

case BitsPerSample of

8:

begin

R8 := R;

G8 := G;

B8 := B;

TargetRun := Target;

while Count > 0 do

begin

TargetRun^ := B8^;

Inc (B8);

Inc (TargetRun);

TargetRun^ := G8^;

Inc (G8);

Inc (TargetRun);

TargetRun^ := R8^;

Inc (R8);

Inc (TargetRun);

Dec (Count);

end;

end;

16:

begin

R16 := R;

G16 := G;

B16 := B;

TargetRun := Target;

while Count > 0 do

begin

TargetRun^ := B16^ shr 8;

Inc (B16);

Inc (TargetRun);

TargetRun^ := G16^ shr 8;

Inc (G16);

Inc (TargetRun);

TargetRun^ := R16^ shr 8;

Inc (R16);

Inc (TargetRun);

Dec (Count);

end;

end;

end;

end;

procedure SwapShort (P: PWord; Count: Cardinal);

asm

@@Loop:

MOV CX, [EAX]

XCHG CH, CL

MOV [EAX], CX

ADD EAX, 2

DEC EDX

JNZ @@Loop

end;

procedure SwapLong (P: PInteger; Count: Cardinal); overload;

asm

@@Loop:

MOV ECX, [EAX]

BSWAP ECX

MOV [EAX], ECX

ADD EAX, 4

DEC EDX

JNZ @@Loop

end;

function SwapLong (Value: Cardinal): Cardinal; overload;

asm

BSWAP EAX

end;

procedure TPackbitsRLE. Decode (var Source: Pointer; Dest: Pointer; PackedSize, UnpackedSize: Integer);

var

SourcePtr, TargetPtr: PByte;

N: SmallInt;

begin

TargetPtr := Dest;

SourcePtr := Source;

while PackedSize > 0 do

begin

N := ShortInt (SourcePtr^);

Inc (SourcePtr);

Dec (PackedSize);

if N < 0 then

begin

if N = -128 then Continue;

N := -N + 1;

FillChar (TargetPtr^, N, SourcePtr^);

Inc (SourcePtr);

Inc (TargetPtr, N);

Dec (PackedSize);

end

else

begin

Move (SourcePtr^, TargetPtr^, N + 1);

Inc (TargetPtr, N + 1);

Inc (SourcePtr, N + 1);

Dec (PackedSize, N + 1);

end;

end;

end;

procedure TPSDGraphic. MakePalette (BPS: Byte; Mode: Integer);

var

Pal: TMaxLogPalette;

hpal: HPALETTE;

I: Integer;

EntryCount: Word;

begin

case BPS of

1:

EntryCount := 1;

4:

EntryCount := 15;

else

EntryCount := 255;

end;

Pal.palVersion := $ 300;

Pal.palNumEntries := 1 + EntryCount;

case BPS of

1:

begin

Pal.palPalEntry[0]. peRed := 255;

Pal.palPalEntry[0]. peGreen := 255;

Pal.palPalEntry[0]. peBlue := 255;

Pal.palPalEntry[0]. peFlags := 0;

Pal.palPalEntry[1]. peRed := 0;

Pal.palPalEntry[1]. peGreen := 0;

Pal.palPalEntry[1]. peBlue := 0;

Pal.palPalEntry[1]. peFlags := 0;

end;

else

case Mode of

PSD_DUOTONE,

PSD_GRAYSCALE:

for I := 0 to EntryCount do

begin

Pal.palPalEntry[I]. peRed := I;

Pal.palPalEntry[I]. peGreen := I;

Pal.palPalEntry[I]. peBlue := I;

Pal.palPalEntry[I]. peFlags := 0;

end;

else

for I := 0 to EntryCount do

begin

Pal.palPalEntry[I]. peRed := FPalette[0 * 256 + I];

Pal.palPalEntry[I]. peGreen := FPalette[1 * 256 + I];

Pal.palPalEntry[I]. peBlue := FPalette[2 * 256 + I];

Pal.palPalEntry[I]. peFlags := 0;

end;

end;

end;

hpal := CreatePalette (PLogPalette (@Pal)^);

if hpal <> 0 then Palette := hpal;

end;

procedure TPSDGraphic. LoadFromStream (Stream: TStream);

var

Header: TPSDHeader;

Count: Integer;

Compression: Word;

Decoder: TPackbitsRLE;

RLELength: array of Word;

Y: Integer;

BPS: Integer;

ChannelSize: Integer;

RawBuffer, Buffer: Pointer;

Run1, Run2, Run3, Run4: PByte;

begin

with Stream do

begin

ReadBuffer (Header, SizeOf (Header));

if Header. Signature <> '8BPS' then raise Exception. Create ('Неверный файл');

with Header do

begin

Channels := Swap (Channels);

Rows := SwapLong (Rows);

Columns := SwapLong (Columns);

Depth := Swap (Depth);

Mode := Swap (Mode);

end;

case Header. Mode of

PSD_BITMAP: PixelFormat := pf1Bit;

PSD_DUOTONE, PSD_GRAYSCALE, PSD_INDEXED: PixelFormat := pf8Bit;

PSD_RGB: PixelFormat := pf24Bit;

PSD_CMYK: PixelFormat := pf24Bit;

PSD_MULTICHANNEL: ;

PSD_LAB: PixelFormat := pf24Bit;

end;

ReadBuffer (Count, SizeOf (Count));

Count := SwapLong (Count);

if Header. Mode in [PSD_BITMAP, PSD_GRAYSCALE, PSD_INDEXED] then

begin

if Header. Mode = PSD_INDEXED then ReadBuffer (FPalette, Count);

MakePalette (Header.Depth, Header. Mode);

end;

Width := Header. Columns;

Height := Header. Rows;

ReadBuffer (Count, SizeOf (Count));

Count := SwapLong (Count);

Seek (Count, soFromCurrent);

ReadBuffer (Count, SizeOf (Count));

Count := SwapLong (Count);

Seek (Count, soFromCurrent);

RawBuffer := nil;

ReadBuffer (Compression, SizeOf (Compression));

Compression := Swap (Compression);

if Compression = 1 then

begin

Decoder := TPackbitsRLE. Create;

SetLength (RLELength, Header. Rows * Header. Channels);

ReadBuffer (RLELength[0], 2 * Length (RLELength));

SwapShort (@RLELength[0], Header. Rows * Header. Channels);

end

else

Decoder := nil;

try

case Header. Mode of

PSD_BITMAP, PSD_DUOTONE, PSD_GRAYSCALE, PSD_INDEXED:

begin

if Assigned (Decoder) then

begin

Count := 0;

for Y := 0 to Height — 1 do Inc (Count, RLELength[Y]);

GetMem (RawBuffer, Count);

ReadBuffer (RawBuffer^, Count);

Run1 := RawBuffer;

for Y := 0 to Height — 1 do

begin

Count := RLELength[Y];

Decoder.Decode (Pointer (Run1), ScanLine[Y], Count, Width);

Inc (Run1, Count);

end;

FreeMem (RawBuffer);

end

else // Незапакованные данные

for Y := 0 to Height — 1 do

ReadBuffer (ScanLine[Y]^, Width);

end;

PSD_RGB, PSD_CMYK, PSD_LAB:

begin

BPS := Header. Depth div 8;

ChannelSize := BPS * Width * Height;

GetMem (Buffer, Header. Channels * ChannelSize);

if Assigned (Decoder) then

begin

Count := 0;

for Y := 0 to High (RLELength) do

Inc (Count, RLELength[Y]);

Count := Count * BPS;

GetMem (RawBuffer, Count);

Run1 := RawBuffer;

ReadBuffer (RawBuffer^, Count);

Decoder.Decode (RawBuffer, Buffer, Count, Header. Channels * ChannelSize);

FreeMem (RawBuffer);

end

else

begin

ReadBuffer (Buffer^, Header. Channels * ChannelSize);

if BPS = 2 then

SwapShort (Buffer, Header. Channels * ChannelSize div 2);

end;

case Header. Mode of

PSD_RGB:

begin

Run1 := Buffer;

Run2 := Run1; Inc (Run2, ChannelSize);

Run3 := Run2; Inc (Run3, ChannelSize);

for Y := 0 to Height — 1 do

begin

RGB2BGR (Run1, Run2, Run3, Scanline[Y], Header. Depth, 3 * Width);

Inc (Run1, BPS * Width);

Inc (Run2, BPS * Width);

Inc (Run3, BPS * Width);

end;

end;

PSD_CMYK:

begin

Run1 := Buffer;

for Y := 1 to 4 * ChannelSize do

begin

Run1^ := 255 — Run1^;

Inc (Run1);

end;

Run1 := Buffer;

Run2 := Run1; Inc (Run2, ChannelSize);

Run3 := Run2; Inc (Run3, ChannelSize);

Run4 := Run3; Inc (Run4, ChannelSize);

for Y := 0 to Height — 1 do

begin

CMYK2BGR (Run1, Run2, Run3, Run4, ScanLine[Y], Header. Depth, 4 * Width);

Inc (Run1, BPS * Width);

Inc (Run2, BPS * Width);

Inc (Run3, BPS * Width);

Inc (Run4, BPS * Width);

end;

end;

PSD_LAB:

begin

Run1 := Buffer; Inc (Run1, ChannelSize);

for Y := 1 to 2 * ChannelSize do

begin

Run1^ := Run1^ - 128;

Inc (Run1);

end;

Run1 := Buffer;

Run2 := Run1; Inc (Run2, ChannelSize);

Run3 := Run2; Inc (Run3, ChannelSize);

for Y := 0 to Height — 1 do

begin

CIELAB2BGR (Run1, Run2, Run3, ScanLine[Y], Header. Depth, 3 * Width);

Inc (Run1, BPS * Width);

Inc (Run2, BPS * Width);

Inc (Run3, BPS * Width);

end;

end;

end;

end;

end;

finally

Decoder.Free;

end;

end;

end;

procedure TForm2. Button1Click (Sender: TObject);

{r:TPSDGraphic;}

begin

{ if OpenDialog1. Execute then

begin

r:=TPSDGraphic.Create;

r.LoadFromFile (OpenDialog1.FileName);

OrImage1.Picture.Bitmap.Assign®;

r.Free;

end;}

end;

end.

Unit OrImageEditor

unit OrImageEditor;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ComCtrls, ExtCtrls, OrImage;

type

TFormOrImageEditor = class (TForm)

ButtonReset: TButton;

ButtonOK: TButton;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

TrackBarContrast: TTrackBar;

TrackBarBrightness: TTrackBar;

TrackBarDarkness: TTrackBar;

TrackBarLightness: TTrackBar;

TrackBarSplitlight: TTrackBar;

CheckBoxGrayscale: TCheckBox;

CheckBoxInvert: TCheckBox;

TrackBarSaturation: TTrackBar;

GroupBox1: TGroupBox;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

TrackBarColorNoise: TTrackBar;

TrackBarMonoNoise: TTrackBar;

GroupBox2: TGroupBox;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

TrackBarPosterize: TTrackBar;

TrackBarSolorize: TTrackBar;

GroupBox3: TGroupBox;

Label41: TLabel;

Label42: TLabel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

Label57: TLabel;

Label58: TLabel;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

Label64: TLabel;

TrackBarMosaic: TTrackBar;

TrackBarSplitBlur: TTrackBar;

TrackBarGaussianBlur: TTrackBar;

TrackBarAntiAlias: TTrackBar;

Panel1: TPanel;

TrackBarTrace: TTrackBar;

TrackBarTile: TTrackBar;

CheckBoxEmboss: TCheckBox;

PanelHint: TPanel;

ButtonCancel: TButton;

procedure ButtonOKClick (Sender: TObject);

procedure ButtonResetClick (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure TrackBarBrightnessChange (Sender: TObject);

procedure TrackBarContrastChange (Sender: TObject);

procedure TrackBarSaturationChange (Sender: TObject);

procedure TrackBarDarknessChange (Sender: TObject);

procedure TrackBarLightnessChange (Sender: TObject);

procedure TrackBarSplitlightChange (Sender: TObject);

procedure CheckBoxGrayscaleClick (Sender: TObject);

procedure CheckBoxInvertClick (Sender: TObject);

procedure TrackBarColorNoiseChange (Sender: TObject);

procedure TrackBarMonoNoiseChange (Sender: TObject);

procedure TrackBarPosterizeChange (Sender: TObject);

procedure TrackBarSolorizeChange (Sender: TObject);

procedure TrackBarMosaicChange (Sender: TObject);

procedure TrackBarSplitBlurChange (Sender: TObject);

procedure TrackBarGaussianBlurChange (Sender: TObject);

procedure TrackBarAntiAliasChange (Sender: TObject);

procedure TrackBarTraceChange (Sender: TObject);

procedure TrackBarTileChange (Sender: TObject);

procedure CheckBoxEmbossClick (Sender: TObject);

procedure PageControl1Change (Sender: TObject);

procedure ButtonCancelClick (Sender: TObject);

private

{ Private declarations }

procedure UpdateAddEffects_2Controls;

public

{ Public declarations }

OrImage: TOrImage; // Point to editing TOrImage component

procedure UpdateAllEffectsControls;

end;

implementation

{$R *.DFM}

const strTrueORFalse: array[Boolean]of string = ('false','true');

procedure TFormOrImageEditor. UpdateAddEffects_2Controls;

begin

if OrImage<> nil then with OrImage do

begin

TrackBarMosaic.Position:=PicMosaic;

TrackBarSplitBlur.Position:=PicSplitBlur;

TrackBarGaussianBlur.Position:=PicGaussianBlur;

TrackBarAntiAlias.Position:=PicAntiAlias;

TrackBarTrace.Position:=PicTrace;

TrackBarTile.Position:=PicTile;

CheckBoxEmboss.Checked:=PicEmboss;

PanelHint.Caption:='';

end;

end;

procedure TFormOrImageEditor. UpdateAllEffectsControls;

begin

if OrImage<> nil then with OrImage do

begin

TrackBarBrightness.Position:=PicBrightness;

TrackBarContrast.Position:=PicContrast;

TrackBarDarkness.Position:=PicDarkness;

TrackBarLightness.Position:=PicLightness;

TrackBarSplitlight.Position:=PicSplitlight;

CheckBoxGrayscale.Checked:=PicGrayscale;

CheckBoxInvert.Checked:=PicInvert;

TrackBarColorNoise.Position:=PicColorNoise;

TrackBarMonoNoise.Position:=PicMonoNoise;

TrackBarPosterize.Position:=PicPosterize;

TrackBarSolorize.Position:=PicSolorize;

TrackBarMosaic.Position:=PicMosaic;

TrackBarSplitBlur.Position:=PicSplitBlur;

TrackBarGaussianBlur.Position:=PicGaussianBlur;

TrackBarAntiAlias.Position:=PicAntiAlias;

TrackBarTrace.Position:=PicTrace;

TrackBarTile.Position:=PicTile;

TrackBarSaturation.Position:=PicSaturation;

CheckBoxEmboss.Checked:=PicEmboss;

PanelHint.Caption:='';

end;

end;

procedure TFormOrImageEditor. ButtonOKClick (Sender: TObject);

begin

ModalResult:=mrOK;

end;

procedure TFormOrImageEditor. ButtonResetClick (Sender: TObject);

begin

if OrImage<> nil then

begin

OrImage.ResetEffects; // Return to default values and original picture

UpdateAllEffectsControls;

end;

end;

procedure TFormOrImageEditor. FormActivate (Sender: TObject);

begin

if OrImage<>nil then UpdateAllEffectsControls;

end;

procedure TFormOrImageEditor. FormCreate (Sender: TObject);

begin

OrImage:=nil;

end;

procedure TFormOrImageEditor. TrackBarBrightnessChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicBrightness:=TrackBarBrightness.Position;

PanelHint.Caption:='PicBrightness='+IntToStr (OrImage.PicBrightness)+' ';

end;

procedure TFormOrImageEditor. TrackBarContrastChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicContrast:=TrackBarContrast.Position;

PanelHint.Caption:='PicContrast='+IntToStr (OrImage.PicContrast)+' ';

end;

procedure TFormOrImageEditor. TrackBarSaturationChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicSaturation:=TrackBarSaturation.Position;

PanelHint.Caption:='PicSaturation='+IntToStr (OrImage.PicSaturation)+' ';

end;

procedure TFormOrImageEditor. TrackBarDarknessChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicDarkness:=TrackBarDarkness.Position;

PanelHint.Caption:='PicDarkness='+IntToStr (OrImage.PicDarkness)+' ';

end;

procedure TFormOrImageEditor. TrackBarLightnessChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicLightness:=TrackBarLightness.Position;

PanelHint.Caption:='PicLightness='+IntToStr (OrImage.PicLightness)+' ';

end;

procedure TFormOrImageEditor. TrackBarSplitlightChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicSplitlight:=TrackBarSplitlight.Position;

PanelHint.Caption:='PicSplitlight='+IntToStr (OrImage.PicSplitlight)+' ';

end;

procedure TFormOrImageEditor. CheckBoxGrayscaleClick (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicGrayscale:=CheckBoxGrayscale.Checked;

PanelHint.Caption:='PicGrayscale='+strTrueORFalse[OrImage.PicGrayscale]+' ';

end;

procedure TFormOrImageEditor. CheckBoxInvertClick (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicInvert:=CheckBoxInvert.Checked;

PanelHint.Caption:='PicInvert='+strTrueORFalse[OrImage.PicInvert]+' ';

end;

procedure TFormOrImageEditor. TrackBarColorNoiseChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicColorNoise:=TrackBarColorNoise.Position;

TrackBarMonoNoise.Position:=OrImage.PicMonoNoise;

PanelHint.Caption:='PicColorNoise='+IntToStr (OrImage.PicColorNoise)+' ';

end;

procedure TFormOrImageEditor. TrackBarMonoNoiseChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicMonoNoise:=TrackBarMonoNoise.Position;

TrackBarColorNoise.Position:=OrImage.PicColorNoise;

PanelHint.Caption:='PicMonoNoise='+IntToStr (OrImage.PicMonoNoise)+' ';

end;

procedure TFormOrImageEditor. TrackBarPosterizeChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicPosterize:=TrackBarPosterize.Position;

TrackBarSolorize.Position:=OrImage.PicSolorize;

PanelHint.Caption:='PicPosterize='+IntToStr (OrImage.PicPosterize)+' ';

end;

procedure TFormOrImageEditor. TrackBarSolorizeChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicSolorize:=TrackBarSolorize.Position;

TrackBarPosterize.Position:=OrImage.PicPosterize;

PanelHint.Caption:='PicSolorize='+IntToStr (OrImage.PicSolorize)+' ';

end;

procedure TFormOrImageEditor. TrackBarMosaicChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicMosaic:=TrackBarMosaic.Position;

UpdateAddEffects_2Controls;

PanelHint.Caption:='PicMosaic='+IntToStr (OrImage.PicMosaic)+' ';

end;

procedure TFormOrImageEditor. TrackBarSplitBlurChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicSplitBlur:=TrackBarSplitBlur.Position;

UpdateAddEffects_2Controls;

PanelHint.Caption:='PicSplitBlur='+IntToStr (OrImage.PicSplitBlur)+' ';

end;

procedure TFormOrImageEditor. TrackBarGaussianBlurChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicGaussianBlur:=TrackBarGaussianBlur.Position;

UpdateAddEffects_2Controls;

PanelHint.Caption:='PicGaussianBlur='+IntToStr (OrImage.PicGaussianBlur)+' ';

end;

procedure TFormOrImageEditor. TrackBarAntiAliasChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicAntiAlias:=TrackBarAntiAlias.Position;

UpdateAddEffects_2Controls;

PanelHint.Caption:='PicAntiAlias='+IntToStr (OrImage.PicAntiAlias)+' ';

end;

procedure TFormOrImageEditor. TrackBarTraceChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicTrace:=TrackBarTrace.Position;

UpdateAddEffects_2Controls;

PanelHint.Caption:='PicTrace='+IntToStr (OrImage.PicTrace)+' ';

end;

procedure TFormOrImageEditor. TrackBarTileChange (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicTile:=TrackBarTile.Position;

UpdateAddEffects_2Controls;

PanelHint.Caption:='PicTile='+IntToStr (OrImage.PicTile)+' ';

end;

procedure TFormOrImageEditor. CheckBoxEmbossClick (Sender: TObject);

begin

if OrImage=nil then Exit;

OrImage.PicEmboss:=CheckBoxEmboss.Checked;

UpdateAddEffects_2Controls;

PanelHint.Caption:='PicEmboss='+strTrueORFalse[OrImage.PicEmboss]+' ';

end;

procedure TFormOrImageEditor. PageControl1Change (Sender: TObject);

begin

PanelHint.Caption:='';

end;

procedure TFormOrImageEditor. ButtonCancelClick (Sender: TObject);

begin

ModalResult:=mrCancel;

end;

end.