Сравнительная характеристика графических форматов

Свойство -- Center, которое установленно в true, делает по центру изображение на площади Image, если параметры размера компонента больше параметра размеров рисунка.

Свойство -- Transparent -- прозрачность. Если значение Transparent равно true, то изображение в Image будет прозрачным. Это используется при наложения изображений друг на друга. Следует помнить, что свойство Transparent распространяется только на битовые матрицы. При этом прозрачным (т.е. заменяемым на цвет расположенного под ним изображения) делается по умолчанию цвет левого нижнего пиксела битовой матрицы.

Свойство Picture позволяет легко организовать обмен с графическими файлами любых типов в процессе выполнения приложения. Это свойство -- объект, который имеет в свою очередь подсвойства, которые указывают на хранящийся графический объект. Если в Picture хранится битовая матрица, на нее указывает свойство Picture.Bitmap. Если хранится пиктограмма, на нее указывает свойство Picture.Icon. На хранящийся метафайл указывает свойство Picture.Metafile. Наконец, на графический объект произвольного типа указывает свойство Picture.Graphic.

Объект Picture и его свойства Bitmap, Icon, Metafile и Graphic имеют методы файлового чтения и записи LoadFromFile и SaveToFile. Для свойств Picture.Bitmap, Picture.Icon и Picture.Metafile формат файла должен соответствовать классу объекта: битовой матрице, пиктограмме, метафайлу. При чтении файла в свойство Picture.Graphic файл должен иметь формат метафайла. А для самого объекта Picture методы чтения и записи автоматически подстраиваются под тип файла.

2.3 Компоненты страницы SAMPLES

Компоненты этой страницы включены в Delphi как образцы (samples) разработки нестандартных компонентов, однако многие из них имеют вполне самостоятельное значение (рис. 11).

Рис. 11. Компоненты вкладки SAMPLES

TGauge - индикатор величины. Компонент TGauge предназначен для отображения некоторой изменяющейся числовой величины. Он отличается от TProgress разнообразием форм (рис. 12).

Рис. 12. Различные формы компонента Tgauge

Таблица 4. Свойства компонента Tgauge

property BackColor: TColor; property ForeColor: TColor; TGaugeKind = (gkText, gkHorizon-talBar, gkVerticalBar, gkPie, gkNeedle);	Цвет незакрашенной части индикатора Цвет закрашенной части индикатора Определяет форму индикатора
property Kind: TGaugeKind; property MaxValue: Longint;	Определяет максимальное значение диапазона изменения свойства progress
property MinValue: Longint;	Определяет минимальное значение диапазона изменения свойства progress
property PercentDone: Longint;	Содержит текущее значение progress в процентах от его диапазона изменения
property Progress: Longing;	Содержит текущее значение изменяющейся числовой величины
property ShowText: Boolean;	Если содержит True, в центре компонента выводится строковое представление значения PercentDone

С помощью метода procedure AddProgress(Value: Longint) к текущему значению progress можно добавить величину value.

TColorGrid - выбор или отображение цвета. Компонент предназначен для выбора и/или отображения цветов из 16-цветной палитры. Выбирать/отображать можно два цвета: основной и фоновый. Основной выбирается щелчком левой кнопки мыши и отображается символами fg, фоновый выбирается правой кнопкой и отображается символами bg (если оба цвета совпадают, соответствующая клетка таблицы помечается символами fb).

Таблица 5. Свойства компонента TColorGrid

property BackgroundColor: TColor;	Содержит выбранный фоновый цвет
property BackgroundEnabled: Boolean;	Разрешает/запрещает выбор фонового цвета. Игнорируется, если clickEnablesColor имеет значение True
property Backgroundlndex: Integer;	Содержит индекс выбранного фонового цвета
property ClickEnablesColor: Boolean;	Разрешает/запрещает выбор цветов
type TGridOrdering = (gol6xl,go8x2, go4x4, go2x8, golxl6); property GridOrdering: TGridOrdering;	Определяет конфигурацию таблицы: первая цифра - количество столбцов, вторая - количество рядов
property ForegroundColor: TColor;	Содержит выбранный основной цвет
property ForegroundEnabled: Boolean;	Разрешает/запрещает выбор основного цвета. Игнорируется, если ClickEnablesColor имеет значение True
property Foregroundlndex: Integer;	Содержит индекс выбранного основного цвета
property Selection: Integer;	Содержит индекс последнего выбранного цвета

Индекс цвета - это число в диапазоне О... 15, указывающее номер соответствующей ячейки в порядке перехода от самых темных цветов к самым светлым: 0 - ячейка с черным цветом, 1 - с коричневым, ..., 15 - с белым цветом.

Пары свойств BackgroundEnabled - ClickEnablesColor И ForegroundEnabled - ClickEnablesColor запрещают выбор и отображение соответствующего цвета только в том случае, когда каждое из них имеет значение False. Однако даже в этом случае свойство selection хранит номер ячейки таблицы, по которой последний раз был произведен щелчок левой или правой кнопкой мыши. Это свойство изменяется до возникновения события от мыши и при необходимости может использоваться для выбора цвета без его отображения. С помощью метода function ColorToIndex(AColor: TColor): Integer программа может получить индекс табличного цвета, наиболее близкого к цвету AColor.

Событие property OnChange: TNotifyEvent возникает только при разрешенном выборе/отображении соответствующего цвета.

TSpinButton - спаренная кнопка. В отличие от компонента TUpDown компонент TSpinButton не связан с регулированием числовой величины и может использоваться просто как пара кнопок: верхняя (up) и нижняя (Down). Для компонента следует написать обработчики его событий onup-click и onDownclick, в которых реализуется реакция программы на щелчок по той или иной кнопке.

Рисунки на кнопках определяются свойствами upGlyph и DownGiyph. Каждый рисунок может содержать 1, 2 или 3 изображения: 1-е - для нормальной кнопки, 2-е - для запрещенной, 3-е - для нажатой.

TSpinEdit - редактор для ввода целого числа. Компонент TSpinEdit предназначен для ввода/отображения числа. Он представляет собой комбинацию специализированного потомка однострочного редактора rcustomEdit и кнопок TSpinButton. Редактор способен вводить только числа (в этом и заключается его специализация), а кнопки используются для изменения числа на некоторую фиксированную величину (таблица 6).

Таблица 6. Свойства компонента TSpinEdit

property Button: TSpinButton;	Содержит ссылку на встроенный объект TSpinButton
property EditorEnabled: Boolean;	Разрешает/запрещает использовать редактор для ручного ввода числа
property Increment: Longint;	Содержит число, на которое будет изменяться свойство value при нажатии кнопок TSpinButton
property MaxValue: Longint;	Содержит верхнюю границу диапазона возможных значений value
property MinValue: Longint;	Содержит нижнюю границу диапазона возможных значений value
property Value: Longint;	Содержит текущее значение числовой величины

TDirectoryOutLine - отображение структуры каталогов. Компонент предназначен для отображения древовидной структуры каталогов. В отличие от TDirectoryListBox компонент отображает полную структуру каталогов, а не маршрут доступа к одному из них (рис. 13).



Рис. 13. Окно компонента TDirectoryOutLine

Компонент является наследником класса TCustomOutLine, и поэтому многие его свойства (itemHeight, Optins, PictureXXX, ShowBars и Style) совпадают с аналогичными свойствами другого наследника этого класса - компонента TOutLine. Свойство TTextCase = (tcLowerCase, tcUpperCase, tcAsIs);

property TextCase: TTextCase;

определяет высоту букв в именах каталогов: tcLowerCase - строчные буквы; tcUpperCase - заглавные буквы; tcAsis - строчные и заглавные буквы.

Следующие два свойства доступны только на этапе прогона программы:

property Drive: Char;

property Directory: TFileName;

Первое определяет выбранный диск, второе - выбранный каталог.

TCalendar - ввод и отображение даты

Компонент TCalendar отображает календарь на выбранный месяц и год. Его свойства Day, Month и Year могут содержать любую дату от 1 до 9999 года.

Таблица 7. Свойства компонента TCalendar

property CalendarDate: ~DateTime; property CellText[ACol, ARow: Integer]: String; property Day: Integer; property GridLineWidth: Integer;	Содержит выбранную дату Содержит текст в ячейке календаря на пересечении столбца ACol с рядом ARow (только для чтения) Определяет выбранный день месяца
property Month: Integer; property Readonly: Boolean;	Устанавливает толщину линий таблицы календаря Определяет выбранный месяц Если содержит True, пользователь не может выбрать другую дату
type TDayOfWeek = 0..6;property StartOfWeek: TSayOfWeek;	Определяет день недели, который будет отображаться в самом левом столбце таблицы
property UseCurrentDate: Boolean;	Если содержит True, компонент будет показывать текущую системную дату
property Year: Integer;	Определяет выбранный год
Методы компонента:
procedure NextMonth; procedure NextYear; procedure PrevMonth;	Показывает календарь на следующий месяц Показывает календарь на следующий год Показывает календарь на предыдущий месяц
procedure PrevYear;	Показывает календарь на предыдущий год

Таким образом, среда прогрммирования Delphi предоставляет разработчикам большие возможности при разработке программ, которые обрабатывают изобржения. Для этого имеются встроенные объектные средства, а также разработанные дополнительные графические библиотеки.

Глава 3. Методика преобразования BMP изображений в EPS формат в визуальной среде программирования Borland Delphi

3.1 Логическая схема

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

Рис. 14. Логическая схема

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

На причинно-следственные связи между компонентами логической модели программы могут влиять (позитивно или негативно) основные факторы внешней среды программы, которые нельзя контролировать (например, макроэкономическая ситуация, политическое влияние, погодные условия).

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

3.2 Разработка интерфейса приложения

Для автоматизации процесса конвертации BMP изображений нам необходимо создать приложение «Converter BitMap in EPS». Начнем с создания интерфейса будущего приложения. Для этого нам на формй необходимо разместить следующие компоненты (рис. 15):

ImageBox- необходимо использовать для отображения загружаемого рисунка.

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

OpenDialog- данный объект позволяет загружать Проводник в готовое приложение

SaveDialog -устанавливаем чтобыимпеть возможность сохранения готового, конвертированного объекта.

StatusBar - используем для отображения статуса.

ToolPanel- используем для наглядности интерфейса.



Рис. 15. Дерево объектов

Также устанавливаем компонент TSpinButton - спаренная кнопка. В отличие от компонента TUpDown компонент TSpinButton не связан с регулированием числовой величины и может использоваться просто как пара кнопок: верхняя (up) и нижняя (Down). Для компонента следует написать обработчики его событий onup-click и onDownclick, в которых реализуется реакция программы на щелчок по той или иной кнопке.

После расположения всех компонентов на форму приложение будет иметь следующий вид (рис. 16).

Далее необходимо настроить компонент MainMenu. С помощью свойства Items определим два всплывающих окна:

Меню File

Справка

В меню File добавим три операции: открытия файла, сохранения файла и выхода из программы (рис. 17).



Рис. 16. Рабочее окно программы

Рис. 17. Настройка меню «Файл»

Далее устанавливаем возможность выбора одного из трех цветовых решений таких как:

Grayscale;

RGB;

CMYK.

Для этого выделяем компонент и добавляем эти три поля в выбор (рис. 18, рис. 19).

Рис. 18. Меню Lines

Алгоритм работы готового приложения следующий:

Открываем ранее созданное изображение;

Выбираем модель преобразования;

Определяем качество готового изображения (рис. 20);

Сохраняем его в необходимом формате (рис. 21).

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



Рис. 19. Настройка компонента ComboBox

Рис. 20. Загрузка изображения

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

File> New Form.

Ввести новую форму в программу проще всего нажатием на кнопочку на главном окне Delphi. Также есть и соответствующая команда меню File -» New -> Form (рис. 21)

Рис. 21. Создание новой формы

Форма создаётся вместе с новым модулем, описывающим её работу. Размещаем на форме компоненты позволяющие отражать сведения:

Text, Label, Button.

Свойство Caption компонентов Text и Label меняем на данные автора, название программы на название, и адрес Вуза.

Кнопку Button программируем на закрытие данного окна (рис. 22).

Рис. 22.Форма сохранения приложения



Рис. 23. Окно «Сведения о разработчике»

Автоматизация работы приложения

Основная процедура программы - TMainForm.SaveAsItemClick. Она позволяет атоматизировать процесс сохранения готового изображения в необходимом формате *.EPS.

procedure TMainForm.SaveAsItemClick(Sender: TObject);

var ColorMode:ImgMode;

begin

if SaveDialog.Execute then

begin

case ComboBox.ItemIndex of

0:ColorMode:=cmGray;

1:ColorMode:=cmRGB;

2:ColorMode:=cmCMYK;

end;

Screen.Cursor:=crHourGlass;

SaveAsEps(ImageBox.Picture.Bitmap,SaveDialog.FileName,SpinEdit.Value,ColorMode);

Screen.Cursor:=crDefault;

end;

end;

В зависимости от выбранной строки компонента ComboBox: 0,1,2: определяется способ преобразования загруженного изображения. А процедура SaveAsEps позволяет его сохранить в формате *.Eps.

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

Для оптимизации приложения можно выделить два основных направления: оптимизация алгоритма вычислений и снижение расходов процессорного времени на выполнение побочных задач.

Заключение

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

В процессе написания дипломной работы были сделаны следующие выводы:

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

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

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

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

Бибилиотека GDI+ - предназначена для замены морально устаревшего программного интерфейса GDI. Ее использование позволит облегчить переход на 64-битные платформы и максимально полно использовать изобразительные способности и вычислительные мощности современных компьютеров.

SDL - бесплатный кроссплатформенный мультимедийный программный интерфейс приложения. Он используется для создания игр, библиотек для игр, демонстрационных программ, эмуляторов, MPEG плэйеров и других программ.

Список использованной литературы

1. Александровский А.Д. Delphi: Разработка приложений / А.Д. Александровский. - М.: ДМК, 2010. - 512 с.

2. Акулич, М.В. Проектирование информационных систем: Краткий курс [Текст] / М.В. Акулич. - СПб.: Питер, 2013. - 208 с.

3. Алборов Р.А. Проектирование автоматизированных систем / Р.А. Алборов. - М.: КНОРУС, 2014. - 344 с.

4. Арабян, К.К. Анализ программного обеспечения: учебное пособие / К.К. Арабян. - М.: КНОРУС, 2012. - 304 с.

5. Будущее 3D в Интернете: Flash или WebGL? 2011 г. // [Электронный ресурс] -- Режим доступа. -- URL: http://w3pro.ru/news/budushchee-3d-v-internete-flash-ili-webgl (дата обращения: 20.04.2015).

6. Конопка Р. Разработка в среде DELPHI / Р. Конопка. - Киев: НИПФ - ДиаСофтЛтд, 2011. - 512 с.

7. Кэшу М. Delphi 7 для профессионалов / М. Кэшу. - СПб.: Питер, 2014. -1101 с.

8. Машнин Т.С. Современные JAVA технологий на практике. 2010. -- 203 с.

9. Подлесный А.О. WebGl - хнология совместимой графики // [Электронный ресурс] -- Режим доступа. -- URL: http://conf.sfu-kras.ru/sites/mn2012/thesis/s012/s012-144.pdf (дата обращения: 12.02.2015).

10. Гвоздева В.А., Лаврентьева И.Ю. «Основы построения АИС» - М.: ИД «ФОРУМ»: ИНФРА-М, 2011. - 320 с.

11. Симонович С.В., Евсеев Г.А., Алексеев А.Г. ,«Специальная информатика», АСТ пресс, М.,2012 г. -241 с.

12. Фаронов В. «Программирование БД в Delphi » - СПб.: «Питер», 2009. - 459 с.

13. Шапошников И.Р. “Web-страница своими руками”. СПб.: БХВ-Петербург, 2010 г. -342 с.

14. Холл П. Вычислительные структуры. Введение в нечисловое программирование. М.: Мир, 2009.

15. Культин Н.Б. Программирование в Turbo Pascal и Delphi. СПб.:БХВ - Санкт-Петербург, 2009.

16. Прайс Д. Программирование на языке Паскаль: Практическое руководство. Пер. с англ. - М.:Мир, 2011.

17. Рюттен Т., Франкен Г. Турбо-Паскаль. - К.: Торгово-издательское бюро BNV, 2010.

18. Фаронов В.В. Турбо-Паскаль 7.0. Начальный курс. М.: "Нолидж", 2013.

19. Абрамов С.А., Гнездилова Г.Г., Капустина Е.Н., Селюн М.И. Задачи по программированию. М.: “Наука”, 2010.

20. Вальвачев А.Н. Графическое программирование на языке Паскаль: Справочное пособие.- Мн.: Выш. шк., 2011.

21. Мизрохи С.В. TURBO-PASCAL и объектно-ориентированное программирование. - М.: Финансы и статистика, 2010.

22. Базыма Б.Ю. Психология цвета. Теория и практика.// М.: Речь, 2012. c. 23-29.

23. Ит и мультимедиа сайт: URL: http://www.biblion.ru/producer/64935/ (Дата обращения 05.03.2015).

24. Софт сайт: URL: http://soft.mydiv.net/win/collections/show-Programmy-chtoby-slushat-muzyku.html (Дата обращения 05.03.2015).

25. Сравнение SDL и GDI+ // [Электронный ресурс] -- Режим доступа. -- URL: http://habrahabr.ru/post/145525/ (дата обращения: 03.02.2015).

26. Тейксейра С. Delphi . Руководство разработчика / С. Тейксейра, К. Пачеко. - М.: Вильяме, 2010. - Т. 2: Разработка компонентов и программирование баз данных. - 992 с.

27. Технология виртуальной реальности VRML. // [Электронный ресурс] -- Режим доступа. -- URL: http://bourabai.kz/graphics/vrml.htm (дата обращения: 10.06.2015).

28. Тюкачев Н.А. «Визуальное программирование в Delphi». Объектно-ориентированное программирование. // сост.: Н.А. Тюкачев, В.Г. Рудалев, М.В. Бакланов. - Воронеж: ЛОП ВГУ, 2014. - 34 с.

29. Ходаковский К. Работа над спецификациями WebGL. 2011 г // [Электронный ресурс] -- Режим доступа. -- URL: http://www.3dnews.ru/news/spetsifikatsii-webgl-10-zaversheni-gde-microsoft/ (дата обращения: 25.06.2015).

30. Пронин Т.Д. Уроки 3DStudio Max./ Т.Д. Пронин.- М.: Воронеж, 2011.-230 с.

31. Чумаченко И.Т. 3DS MAX 6/ И.Т. Чумаченко.- М.: Наука, 2009.-156 с.

32. Шаммс М. Autodesk 3ds Max 9 для «чайников». 3d Studio Max 9/М. Шаммс. Пер. с англ.- М.: Издательский дом «Диалектика», 2010.-254 с.

33. Швембергер С.О., Щербаков И.М., Горончаровский В.В. 3ds Max: художественное моделирование и специальные эффекты/С.О. Швембергер, И.М. Щербаков, В.В. Горончаровский. - C.: «БХВ-Петербург», 2011. - 362 с.

34. Югов А.А. Курс 3ds Max 5+CD/ А.А. Югов.-М.: Наука, 2010.-201 с.

35. Яцюк О.Г. 3ds Max в дизайне среды, 1-е издание./О.Г. Яцюк.- C.: «БХВ-Петербург», 2011.- 277 с.

36. Ямский М.Р. 3DS MAX 6.0 Windows/М.Р. Ямский. - М.: ДМК Пресс 2009.- 156 с.

Приложение

unit Unit1Z;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

TZ = class(TForm)

Timer1: TTimer;

Panel1: TPanel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label1: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

procedure Timer1Timer(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

procedure ExitItemClick(Sender: TObject);

procedure AboutItemClick(Sender: TObject);

procedure OpenItemClick(Sender: TObject);

procedure SaveAsItemClick(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure ModeLabelClick(Sender: TObject);

procedure ResolutionLabelClick(Sender: TObject);

private

public

end;

var

MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.ExitItemClick(Sender: TObject);

begin

Close;

end;

procedure TMainForm.AboutItemClick(Sender: TObject);

begin

ShowMessage('Преобразование графических файлов из формата BMP в формат EPS'#13#10#13#10+

'Автор: Абдуразаков Магомед E-mail: magas@mail.ru'#13#10+

'Dginh, Machachkala, Russia, 2015 http://dginh.ru');

end;

procedure TMainForm.OpenItemClick(Sender: TObject);

begin

if OpenDialog.Execute then

begin

ImageBox.Picture.Bitmap.LoadFromFile(OpenDialog.FileName);

StatusBar.Panels[0].Text:=ExtractFileName(OpenDialog.FileName);

StatusBar.Panels[1].Text:=IntToStr(ImageBox.Picture.Bitmap.Width)+'x'+

IntToStr(ImageBox.Picture.Bitmap.Height);

SaveAsItem.Enabled:=true;

SaveDialog.FileName:=ChangeFileExt(OpenDialog.FileName,'.eps');

end;

end;

procedure TMainForm.SaveAsItemClick(Sender: TObject);

var ColorMode:ImgMode;

begin

if SaveDialog.Execute then

begin

case ComboBox.ItemIndex of

0:ColorMode:=cmGray;

1:ColorMode:=cmRGB;

2:ColorMode:=cmCMYK;

end;

Screen.Cursor:=crHourGlass;

SaveAsEps(ImageBox.Picture.Bitmap,SaveDialog.FileName,SpinEdit.Value,ColorMode);

Screen.Cursor:=crDefault;

end;

end;

procedure TMainForm.FormResize(Sender: TObject);

begin

if Width<720 then Width:=720;

if Height<480 then Height:=480;

end;

procedure TMainForm.ModeLabelClick(Sender: TObject);

begin

ComboBox.SetFocus;

end;

procedure TDoc.ChMCloseClick(Sender: TObject);

begin

Close;

end;

procedure TDoc.ChMVihodClick(Sender: TObject);

begin

Close;

MenuBuh.Close;

end;

procedure TDoc.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure TMainForm.ResolutionLabelClick(Sender: TObject);

begin

SpinEdit.SetFocus;

end;

end.

Размещено на Allbest.ru

...