Книга
← К списку книгЗагрузка разделов…
активнаАктивные записи участвуют в каталоге и синках. Неактивная книга скрыта, но не удалена из базы.
Книга
ЧАСТЬПРОГРАММИРОВАНИЕ В DELPHI16
Глава 1. Структура программы18
Основные элементы программы и алфавит языка18
Основная часть программы 19
Модули21
Проект.23
Глава 2. Структуры данных в Delphi 24
Стандартные типы данных,24
Числовые типы24
Строковые типы данных26
Другие стандартные типы данных 27
Описание структур данных 27
Описаниеи использованиепеременных27
Описаниепеременных27
Оператор присваивания 28
Описаниеконстант.28
Описаниенестандартныхтиповданных29
Сложные типы данных.30
Интервальные типы данных.'30
Перечислимыетипы данных31
Множества32
Записи34
Массивы35
Динамические структурыданных39
Нетипизированныеуказатели.39
Типизированные указатели39
Динамическиемассивы.41
Вариантные структуры данных;..43
Общие понятия43
Обращение к вариантным переменным44
Определение типа вариантных переменных.45
Автоматическое приведение типов48
Вариантные массивы50
Разрушение вариантных переменных52
Выражения в Object Pascal53
Глава 3. Структурные операторы56
Организация ветвления'56
Условный оператор If. Then. Else56
Условный оператор множественного выбора Case57
Составной оператор.60
Зацикливание.60
Оператор зацикливания For.60
Стандартный вариант.60
Цикл с обратным отсчетом62
Условные операторы зацикливания62
Оператор зацикливания с предусловием Wl i 62
Условный оператор зацикливания с постусловием Пере : Un 64
Прерывание зацикленногофрагмента65
Глава 4.Описание подпрограмм66
Виды подпрограмм: процедурыифункции66
Подпрограммы с параметрами68
Описание параметров68
Механизмы передачи параметров в подпрограммы69
Передача параметров по значению69
Передача параметров по ссылке. Параметры-переменные.70
Частные случаи передачи параметров подпрограммам.71
Параметры по умолчанию71
Передача по значению параметров ссылочных типовданных73
Параметры-константы74
Параметры для заполнения.75
Параметры без указания типа76
Перегружаемые подпрограммы78
Досрочный выход из подпрограммы79
Процедурные типы данных79
Вопросы с шнегами для и . p i ' i по части 181
ЧАСТЬ II.ОБЪЕКТНО-ОРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ В DELPHI89
Глава 5. Основные механизмы и положения объектно-ориентированного программирования.90
Инкапсуляция.90
Понятие класса и объекта90
Структура класса.91
Описание класса. Свойства и методы,.91
Методы класса.93
Перегружаемые методы.94
Области видимости элементов класса95
Property-свойства100
Наследование104
Основы наследования104
Переопределение методов105
Механизм переопределения105
Переопределение методов с сохранением функциональности107
Жизненный цикл экземпляра класса108
3 1 Создание экземпляра класса. Конструктор108
Описание и вызов конструктора108
Переопределение конструктора109
Использование экземпляра класса111
Разрушение объекта: Деструктор112
Полиморфизм:114
Совместимость объектов114
Определение принадлежности к классу и приведениетиповобъектов116
Оператор is116
Оператор as117
Абстрактные методы118
Полиморфизм и р роПу-свойсгва120
Ключевое слово Self ..... 122
Глава 6. Особенности архитектуры программы в ОС Windows.123
Архитектура программы в ОС DOS123
Архитектура программы в ОС Windows124
Многозадачность124
Многооконность.125
Программа, управляемая событиями126
Взаимодействие программы с операционнойсистемой128
Глава 7.Объектно-ориентированный подход к обработке ошибокI 1
Понятие исключительной ситуации129
Принудительное создание исключительной ситуации130
«Тихие» исключения130
Эмуляция ошибок130
Обработка исключений131
Блок обработки исключений Try. Except'131
Блок обработки исключений Try.Finally.133
Различия в работе блоков обработки исключений133
Традиционный подход к обработке ошибок135
Глава 8. Объектно-ориентированный подход к хранениюинформации138
Общие положения138
Списки140
Основы использования списков140
Класс TLiSt:140
Добавление элементов в список140
Удаление элементов из списка141
Доступ к элементам списка141
Управление размером списка:142
Пример использования списков указателей142
Списки объектов../144
Списки компонентов-145
Списки с заданным порядком элементов. Стеки и очереди146
Понятие стека и очереди146
Возможности использованияклассаTOrderedList147
Стек и очередь как наследникиклассаTOrderedList147
Коллекции148
Основы использования коллекций'148
Создание и разрушение коллекций149
Управление хранимыми данными150
Добавление элементов в коллекцию150
Удаление элементов из коллекции150
Доступ к элементам коллекции150
Практическое использование коллекций150
Массивы текстовой информации152
Общие возможности строковых массивов в Delphi152
Манипуляции со строковыми массивами153
Добавление элементов153
Удаление элементов154
Доступ к элементам154
Сохраняемость строковых массивов155
Практическое использование строковых массивов156
Хранение сложныхдвоичных данных157
Глава 9. Объектно-ориентированный подход к вводу/выводу информации158
Общие сведения опотоках158
Базовый класс дляработы с потоками161
Информация о состоянии устройства ввода в;да161
Создание и разрушение потока161
Чтение и запись информации в поток162
Особенности реализацииразныхпотоков163
Файловые потоки163
Потоки на основеоперативнойпамяти164
Строковые потоки165
Глава 10. Использование графической информации в Delphi166
Общие принципы вывода информации166
Параметры вывода информации168
Параметры графической информации168
Общие положения168
Цветовые характеристики169
Характеристики обводки170
Характеристики заливки,172
Характеристики текстовой информации173
Области отображения и вывод на них174
Класс TCanvas 174
Координатная плоскость174
Установка характеристик графических объектов175
Вывод текстовой информации176
Методы вывода графических примитивов178
Копирование областей отображения179
Методы вывода изображений180
Прямой доступ к растровому представлению181
Синхронизация области отображения181
Разновидности областей отображения. Метафайлозие области отображения182
Использование графических изображений183
Представление изображений вDelphi. Базовый класс TGraphic183
Общее описание183
Представление растровых изображений. Класс TBitmap185
Представление сжатых растровых изображений. Класс TJPEGImage.186
Представление Windows-иконои Класс Псоп187
Метафайлы. Класс TMetafile187
Метафайлы и их особенности187
Области отображения метафайлов. Класс TMetafileCanvas188
Представление изображений вне зависимости от формата. Класс TPicture189
Пример использования графических изображений191
Вопросы с ответами для повторения по части II199
ЧАСТЬ III. МЕТОДИКА СОЗДАНИЯ ПРОГРАММ В DELPHI212
Глава 11. Использование ИСР Delphi в разработке213
' Интегрированная среда разработчика Delphi213
1.2 Главное меню215
Подменю File215
Подменю Edit216
Подменю Search217
Подменю View.218
Понятие проекта и группы проектов. Подменю Project218
Подменю Run220
। ' 3 Компоненты. Палитра компонентов и формы221
1 1 Свойства и события компонентов. Инспектор объектов223
Основы использования компонентов223
Понятие активного компонента224
Инспектор объектов224
115Окно исходного текста программы227
Окно навигации по коду.227
Автодополнение кода228
Глава 12. Общие принципы программирования в Delphi230
Визуальное построение приложения230
.Автоматическое создание программного кода233
Функциональность приложения235
Обработка исключительных ситуаций238
Вопросы с ответами для повторения по части III242
ЧАСТЬ IV. КОМПОНЕНТЫ ИИХИСПОЛЬЗОВАНИЕ245
Глава 13. Архитектура системы компонентовDelphi246
Класс TObject246
'Поддержкажизнедеятельности объектов247
Создание объекта247
Разрушение объекта249
Реакция на создание и разрушение объектов251
Информация об объектах и классах252
Обработка событий объектов253
Объектные интерфейсы253
Понятие интерфейса в Delphi253
Базовый интерфейс Нг: fa< 1257
Глобальный уникальный идентификатор QUID257
Поддержка интерфейсов классом TObject258
Класс TPersistent258
Переносимость информации между объектами 25В
Сохраняемость свойств259
Класс TComponent260
Именование компонентов и доступ к ним из программного кода260
Именование компонентов во время разработки260
Именование компонентов во время выполнения программы262
Принадлежность компонентов264
Взаимосвязи между компонентами266
Механизм взаимосвязей266
Механизмы уведомлений266
Визуальные и невизуальные компоненты268
Визуальные компоненты268
Базовый класс визуальных компонентов268
Компоненты-оболочки. Класс rWmContro..........................................:269
Легковесные компоненты. Класс TGraphicControl270
Свойство визуальной принадлежности271
Невизуальные компоненты271
Диалоговые компоненты272
Вопросы с ответами для повторения по главе 13272
Глава 14. Визуальные компоненты277
I ■! । Общие свойства визуальных компонентов:277
Положение и размеры элемента управления на экране278
Автоматическое управление положением279
Привязка визуального компонента к одной из сторон контейнера279
Настройка автоматического изменения положения стороны компонента в соответствии с такой же стороной его контейнера281
Задание минимально и максимально возможных размеров компонентов283
Управление видимостью и доступом пользователя к управлению283
Дружественное поведение элементов управления284
Изменение вида курсора мыши при наведении на компонент.284
Использование : ! »вак щи» подсказок285
Компоненты-контейнеры285
2.1 Общее описание285
Контейнеры-панели287
Виды панелей и общее описание287
Панель ScrollBox — панель с полосами прокрутки288
Панель Ra 1 oGr ■— панель зависимых переключателей289
Контейнеры-панели инструментов291
Страничное представление групп компонентов292
Пример использования контейнеров295
Компоненты для отображения информации.300
Виды компонентов для отображения информации.300
Текстовые метки.300
Компоненты индикатора.303
Компонент ProgressBar.304
Компонент Chart — построение диаграмм и графиков.305
Изображения геометрических фигур306
Отображение разделительных рамок. Компонент Bevel.306
Изображение графических примитивов. Компонент Shape.307
Вывод сложной графической информации308
Вывод изображений из графических файлов308
Вывод видеоклипов.310
Отображение созданных программно изображений312
Использование виртуального экрана-314
Компоненты-кнопки.317
Виды кнопок.317
Кнопки Button и BitBtnЬ317
Простые кнопки Button.317
Кнопки BitBtn — кнопки с изображениями318
Использование стилей для кнопок BitBtn321
Кнопки SpeedButton321
Компоненты для редактирования простых данных326
5.1 Ввод строк и чисел327
Редактирование логических значений.Переключатели335
Изменение числового значения в заданном диапазоне338
Компонент ScrollBar (полоса скроллинга).338
Компонент TrackBar — выбора числового значения из интервала ... 339
Выбор даты341
14 6 Выбор значения с помощью списков.345
Виды компонентов выбора из списка.345
Компонент ListBox.347
Компонент CheckbstBox.348
6 4 Компонент ComboBox349
Компонент ColorBox.350
Компоненты для редактирования многострочных данных352
Многострочные редакторы Мето и RichEdit352
Особенности компонента RichEdit. RTF-формат..356
Использование форматирования358
Компоненты для редактирования данных в табличной форме360
8 I Вид и возможности компонент редактирования данных в табличной форме360
,14.8.2. Структура классов табличных компонентов362
Особенности компонентов StringGrid и DrawGrid.364
Компонент ValueListEditor и его особенности366
Пример использования визуальных компонентов. Пишем ►ный еда* и >.369
Создание заготовки панели инструментов370
Наполнение подпанели управленияшрифтом.373
Наполнение подпанелей Numberingи Undo/Redo.375
Наполнение подпанели управленияотступами.375
Создание области редактирования и панели управления файлом ... 376
Дружественный интерфейс.377
Наполнение функциональностью.378
Вопросы с ответами для повторения по главе 14..390
Глава15.Невизуальные компоненты.394
Глава16.Создание компонентов во время выполнения программы396
Основные действия, выполняемые при создании компонентов.396
Создание визуальных компонентов.398
Назначение обработчиков событий.402
Использование массивов компонентов403
Вопросы с ответами для повторения по главе 16..404
Глава 17. Использование диалоговых компонентов.405
I Общие методы и события диалоговых компонентов.405
Общие свойства диалоговых компонентов.406
Стандартные диалоговые компоненты.406
Диалоги для работы с файлами407
I Свойства файловых диалогов409
Свойство InitialDir..409
Свойство Filter.409
Настройка функциональности диалогов410
Результаты работы файловых диалогов.412
События файловых диалогов.413
Пример использования файловых диалогов.414
Диалоги выбора шрифта и цвета.416
Работа с компонентом ColorDialog 416
Работа с компонентом FontDialog.419
Свойства FontDialog.419
События FontDialog.421
Пример использования диалогов выбора цвета и шрифта421
Диалоги текстового поиска и замены423
Работа с компонентами поиска и замены.424
Настройка функциональности диалогов FindDialog и ReplaceDialog...................................................425
Анализ данных компонента FindDialog.426
Анализ данных компонента ReplaceDialog.426
Пример использования диалога замены.427
Диалоги настройки параметров печати.430
17 7 1 Компонент PrintDialog.431
События PrintDialog431
Свойства PrintDialog .432
Настройка функциональности433
Компонент PrinterSetupDialog434
Компонент PageSetupDialog434
Свойства PageSetupDialog'.435
Настройка функциональности PageSetupDialog.436
События PageSetupDialog.436
Вопросы с ответами для повторения по главе 17.438
Глава 18 Формы441
18 1Понятие формы. Форма как часть проекта441
Форма как Delphi-компонент.441
Представление формы в проекте.442
18.2Использование форм.445
Жизненный цикл формы.445
Добавление формы в проект..445
Организация структуры форм в приложении.445
Автоматическое создание формы во время выполнения программы446
Прямое создание формы во времявыполнения программы.448
Отображение формы.450
Немодальные формы451
Модальные формы451
Управление доступомкформе453
Скрытие формы с экрана:..453
Разрушение формы.454
Закрытие формы.455
Организация многооконных приложений.457
Виды приложений с точкизрения организации окон457
SDI-приложения458
MDI-приложения459
Приоритетные окна460
Организация форм вмногооконных приложениях.461
Свойства и события класса TForm.463
События форм.463
Создание, разрушение и активность..463
Перемещение и изменение размеров464
Манипуляции с мышью в области формы466
Клавиатурные события.467
Свойства форм469
Расположение и размеры.469
Управление атрибутами окна.471
Прозрачность окна.471
Особенности визуального проектирования форм.474
Расположение компонентовнаформе.474
Организация контейнеров переменного размера. Компонент Splitter.474
Открепление элементов управления.477
Использование фреймов478
Понятие фрейма.479
Создание фрейма.480
Добавление фрейманаформу.480
Связи экземпляров фреймов.480
Депозитарий форм.481
Добавление форме в депозитарий.481
Построение формы на основе хранимой в депозитарии.482
Вопросы с ответами для повторения поглаве18483
ЧАСТЬ V. ВЗАИМОДЕЙСТВИЕ ПРИЛОЖЕНИЯ С ОПЕРАЦИОННОЙ СИСТЕМОЙ. ... .486
Глава 19. Гибкое управление окружением.487
1Введение487
Глобальная переменная Application488
Управление быстрыми подсказками.488
Взаимодействие с пользователем через простейшие диалоги.489
Идентификация приложения в системе490
Информация об исполняемом файле491
Управление состоянием приложения492
Особенности обработки событий в Wrni >ws и Delphi.492
Распределение вычислительной нагрузкина приложение.495
Событие необработанного исключения.498
Глобальная переменная Screen.499
Глобальная переменная Mouse500
Положение указателя мыши на экране500
Захват мыши окном приложения500
. Настройки колеса мыши501
Глава 20.Вывод информации за пределы программы. Технология СОМ502
Вывод информации на печать.502
Управление структурой документа503
Вывод информации504
Контроль за процессом формирования документа505
Пример вывода информации на принтер505
Функции печати стандартных компонентов506
Вывод информации в другие приложения. Основы технологии СОМ507
Общие положения507
Основы СОМ технологии.508
Основные понятия СОМ. COM-об! ею 508
Вызов методов COM-объектов. Интерфейс IDispatch509
Создание и использование экземпляров серверов автоматизации511
Экспорт информации в приложения Microsoft Office512
Экспорт информации в Microsoft Word514
Запуск сервера514
Взаимодействие с сервером на уровне документа516
Непосредственный вывод информации. Объект Selection517
Форматирование текстовой информации 518
Использование закладок520
Управление приложением Microsoft Word521
Экспорт текстовой информации из компонента RichEdit522
Экспорт информации в Microsoft Excel526
Управление сервером автоматизации Excel527
Управление документами Excel527
Адресация элементов документа на рабочем листе527
Вывод информации в ячейки рабочего листа528
Пример вывода информации в приложение Excel528
Глава 21. Управление выполнением приложения531
21"Создание и использование DLL-библиотек531
Понятие и назначение DLL-библиотек531
Создание DLL-библиотеки532
Особенности передачи строковых параметров в подпрограммы DLL-библиотек534
Наполнение библиотек подпрограммами535
Использование DLL-библиотек._
Виды динамической компоновки536
Неявная компоновка537
Явное связывание538
Соглашения о вызовах подпрограмм539
21.2. Многопоточность.540
Понятие и назначение потоков540
Описание потока541
Создание потока и управление его выполнением543
Разрушение потока544
Получение результата работы потока546
Использование VCL546
Использование обработчика OnTerminate548
И ин -। дополнительных событий548
Использование глобальных переменных549
Приоритеты потоков550
Вопросы с ответами для повторения по части V.550
ЧАСТЬ VI. СОЗДАНИЕ КОМПОНЕНТОВ554
Глава 22. Основы использования компонентов555
22 . 1 Понятие компонента 555
Назначение компонентов555
1 Повторная используемость.555
Функциональность.556
Унификация программных продуктов556
Описание компонента556
Реализация модуля компонента556
Использование пакетов компонентов 558
Глава 23. Жизненный цикл компонента в среде разработки560
Создание компонентов560
Создание компонентов вручную561
Создание компонентов средствами среды >азработчи» i 561
Управление компонентами562
Удаление компонентов из Палитры компонентов563
Использование диалога управления проектом563
Удаление компонентов с помощью диалога управления пакетами компонентов565
Глава 24. Разработка компонентов566
24 1 Соглашение об именовании компонентов и их элементов566
Именование компонентов566
Именование свойств567
Жизненный цикл компонента в >о раммс.567
Компоненты, созданные в визуальном построителе568
Компоненты, созданные программно.568
Структура компонента568
Конструктор и деструктор.569
Простые свойства572
Property-свойства572
Модификаторы Read и Write573
Модификатор Index574
Property-массивы575
Модификаторы stored и default578
Переопределение property-свойств. Модификатор nodefault580
Сообщения и событиявкомпонентах581
Модель сообщений в компонентах581
Сообщения Windows.582
События компонентов582
Делегирование событий584
Основы отладки компонентов585
Пример разработки компонента587
Постановка задачи587
Создание группы проекта587
Реализация компонента590
Отладка компонента593
Инсталляция компонента594
Использование компонента в визуальной разработке595
Вопросы с ответами для повторения по части VI595
Введение
Общая характеристика Delphi
В настоящее время программирование бурно развивается, как с точки зрения расширения круга решаемых им задач, так и с точки зрения существенного усложнения шща/ьцсл/ыл в программировании технологий. Причем особо необходимо отметить немалые размеры разрабатываемых программных продуктов. Все это требует максимального упрощения и ускорения процесса разработки приложений и использования ранее реализованных программных фрагментов.
Такие требования к современному программированию привели к созданию многочисленных RAD спечем (от англ. RAD — Rapid Application Development — быстрая разработка приложений), представляющих собой интегрированные среды разработчика, включающие в себя:
♦ средства быстрого и удобного построения программ, в том числе визуального;
» встроенные компиляторы и отладчики;
* системы коллективной разработки проектов и т.д.
Одной из таких RAD-систем является Delphi. Итак, Delphi — это объектно-ориентированная среда для визуального проектирования Windows- приложений с развитыми механизмами повторного использования программного кода. Основным конкурентом Delphi является среда разработки Microsoft Visual C++, имеющая свои преимущества и недостатки, однако являющаяся более популярной, в основном, в силу того, что разработана именно фирмой Microsoft1
Но, по нашему мнению, никак не в силу более широких возможностей.
Существенной чертой Delphi является компонентная модель разработки программных продуктов. Суть модели заключается в поддержке системой постоянно расширяемого набора объектных компонентов, из которых и строится программа. Компоненты в Delphi просты для использования и развития, как результат сокрытия значительной части той структуры программы, которая близка к взаимодействию с операционной системой.
Таким образом, для создания в Delphi несложных программных продуктов совершенно не обязательно понимать внутреннюю структуру Windows - приложения, получаемого после разработки в Delphi. Достаточно просто уметь работать с некоторыми компонентами, поставляемыми вместе со средой разработчика. При этом начать работу со средой можно практически без предварительного ознакомления, а написание первого приложения не потребует углубления в особенности системы. Этому о части способствует удобный интерфейс среды разработчика, не перегруженный излишними вопросами к разработчику.
Однако такой подход совершенно неприемлем для серьезного программирования, и, рано или поздно, придется освоить и основы программирования под ОС Windows, и серьезно изучить саму среду разработки Delphi, а также возможности, которые она предоставляет. Кроме того, конечно же, для создания качественных программных продуктов необходимо глубокое понимание компонентной модели.
Место Delphi в современном программировании
Наиболее существенный отрыв Delphi от ближайших аналогов состоит в действительно быстрой разработке приложений, обладающих сложным пользовательским интерфейсом, особенно имеющим сильные взаимосвязи между элементами управления, расположенными в окнах программы.
Также Delphi предлагает довольно мощный набор компонентов для работы с базами данных. Причем иерархия компонентов для работы с БД организована таким образом, что практически неважно, какой именно базой данных пользуется приложение — это может быть и локальная БД и промышленный сервер, типа Oracle или MS SQL Server. Существенным преимуществом Delphi в этой области является возможность управления базами данных на логическом уровне, соответствующем понятиям самих баз данных, без использования низкоуровневых запросов к драйверам.
Такие возможности Delphi обусловили ее широкую применяемость при разработке Л< УII — автоматизированных систем управления предприятиями. Однако это не единственная область применения, так как возможности Delphi не ограничиваются вышеперечисленными. Delphi является языком программирования широкого назначения и позволяет разработать программный продукт любой сложности для любой области.
Даже если какие-либо возможности и не поддерживаются напрямую, то этот недостаток может быть исправлен добавлением соответствующих компонентов в систему. Такой подход касается, например, технологии DirectX, не поддерживаемой Delphi в ее исходной комплектации, но существуют компоненты для использования DirectX, которые легко интегрируются в среду разработки.
В любом случае, подпрограммы, реализованные в других Windows-языках программирования, могут быть использованы в Delphi через механизм динамически компонуемых библиотек (от англ. Dynamic Link Library — DLL — Динамически компонуемая библиотека). Заметим, что многие системные библиотеки Windows изначально подключены к Delphi, а вызов функций из них ничем не отличается от использования обычных библиотек Pascal.
С появлением среды разработки Kylix под операционную систему Linux, полностью соответствующую Delphi за исключением некоторых аспектов, связанных с различиями в технологиях, используемых в этих операционных системах, часть приложений, написанных в Delphi, стала переносимой под Linux, что открывает еще более широкие возможности этой среды разработки.
Задачи издания
Задачей нашей книги является максимально полное описание основ тех возможностей, которые определяют облик Delphi, чтобы дать читателю ясное представление об устройстве приложения, разработанного в этой среде. Основной упор сделан на изучение компонентной модели Delphi и ее строения, а также возможностей стандартных компонентов, поставляемых вместе со средой разработки.
Книга предназначена для читателей, знакомых с языком программирования Turbo Pascal или с каким-либо другим структурным языком программирования, например, С. Также предполагается наличие некоторых знаний по объектно-ориентированному подходу к программированию.
Мы не ставим перед собой задачу описания всех возможностей среды программирования Delphi, так как это практически невозможно сделать в рамках одной книги. Наша задача — помочь программистам, начинающим работать с Delphi, сделать первый шаг в ее изучении таким образом, чтобы не возвращаться к пройденному материалу в дальнейшем для углубления знаний. Основная часть материала описывает такие фундаментальные основы Delphi, как структура компонентов и правила их использования. Также подробно рассмотрено объектно-ориентированное программирование в Delphi вообще.
СТРУКТУРНОЕ ПРОГРАММИРОВАНИЕ В DELPHI
СТРУКТУРА ПРОГРАММЫ
СТРУКТУРЫ ДАННЫХ В DELPHI
СТРУКТУРНЫЕ ОПЕРАТОРЫ
ОПИСАНИЕ ПОДПРОГРАММ
Delphi — это объектно-ориентированная среда для визуального построения программных продуктов, основанная на языке Object Pascal, который является переработанной и существенно дополненной версией Turbo Pascal фирмы Borland.
Программирование в Delphi состоит из двух основных этапов:
Визуальное построение программы на основе объектных компонентов и настройка их свойств, в результате чего можно быстро сформировать пользовательский интерфейс и обеспечить значительную долю функциональности приложения.
Написание программного кода на языке Object Pascal для обеспечения особой функциональности приложения, которую невозможно достичь использованием визуального построения.
С момента первой реализации языка Pascal технологии программирования сделали огромный шаг вперед. И, несмотря на то, что Pascal тоже развивался, его последней версии, выпущенной фирмой Borland в 1990 году, существенно недостает возможностей, присущих другим современным языкам программирования. В среде Delphi используется обновленный вариант этого популярного языка. Изменения коснулись, прежде всего, объектно-ориентированной части Pascal, однако, казалось бы, вполне законченные инструменты структурного и модульного программирования также приобрели некоторые новые особенности.
Попробуем кратко рассмотреть основные элементы языка программирования Pascal, обращая внимание на изменения, произошедшие с ним в Delphi.
Структура программы
Основные элементы программыи алфавит языка
Основными элементами программы на языке Object Pascal являются:
операторы - - команды, определяющие структуру программы (например, операторы ветвления и зацикливания) или выполняющие какие-либо действия (например, арифметические операции или операции сравнения);
ключевые слова — команды, используемые обычно для отделения одних частей программы от других. Ключевые слова предназначаются для компилятора, теряются в процессе построения исполняемой программы, и не выполняются в прямом смысле этого слова;
« директивы компилятору — аналогичны ключевым словам, но воздействуют не на программу и ее структуру, а на процесс компиляции и построения программы. Часть директив компилятору можно установить с помощью главного меню интегрированной среды, однако использование директив в тексте программы помогает использовать их избирательно — не для всей программы, а для отдельных ее частей.
Все вышеперечисленные элементы программы имеют свои уникальные имена, называемые идентификаторами, по которым и используются при написании программы. Для формирования идентификаторов используются следующие символы:
» латинские алфавитные строчные и прописные: от «а» до «z» и от «А» до <■/>. а также символ подчеркивания « и цифры от «О» до «9»;
знаки арифметических операций: + - (сложение), - » (вычитание), ' (умножение), (деление);
* операторы сравнения•>, —. и
символы логической и арифметической группировки: •■(■> и ■ >»;
» все команды в Object Pascal заканчиваются точкой с запятой.
В Object Pascal используются следующие правила именования идентификаторов:
» Идентификаторы должны представлять собой одно слово, состоящее из строчных или прописных латинских символов, причем строчные и прописные символы не различаются между собой. Также допустимо использование символа «подчеркивание» (« ■>) и цифр в любом месте имени, за исключением его начала.
» Два разных элемента программы не могут иметь одинаковые имена, то есть идентификатор должен быть уникальным в пределах программы. В случае попытки описания, например, двух переменных с одинаковыми именами, компилятором будет выдана ошибка Duplicate Identifier (повторяющийся идентификатор). В скобках будет указано имя переменной, которая описывается повторно.
В исходный текст программы может быть добавлена текстовая информация, игнорируемая при компиляции. Такая информация называется комментариями и заключается в пары фигурных скобок { и }. Вместо фигурных скобок могут также использоваться пары символов (* и *):
{ Комментарий }
(* Комментарий *)
В Delphi введена возможность использования однострочных комментариев, характерных для множества языков программирования. Такие комментарии начинаются двумя символами «слеш» и занимают всю оставшуюся строку:
Ц До конца строки — комментарий
Основная часть программы
Программа на Object Pascal, как и в более ранних версиях Pascal, состоит из основной части, собственно и называемой программой (англ. Program — Программа), и нескольких модулей (англ. Unit — Модуль), подключаемых на этапе компиляции к основной части программы, наличие которых не обязательно. Рассмотрим структуру основной части программы.
Program
Заголовок программы
Uses
Раздел
подключения модулей (библиотек)
Label
Раздел
описания меток безусловного перехода
Const
Разделу
описания констант
Type
Раздел
описания нестандартных типов данных
Var
Раздел
описания переменных
Begin
Начало
раздела описания логики программы
Раздел
описания логики программы
End.
Конец
раздела описания логики программы
Основная часть программы содержится в отдельном файле и состоит из одного или нескольких разделов, каждый из которых начинается с определенного ключевого слова (Program, Uses, Label и т.д.). Если в суше- ствовании раздела нет необходимости, то ключевое слово, открывающее его, не указывается. Основная часть программы в Delphi имеет расширение dpr (от англ. DPr — Delphi Project -- Проект Delphi) и, в большинстве случаев,* не требует вмешательства программиста. Создание и обновление основной части программы берет на себя среда разработки.
Из всех представленных разделов обязательным в Pascal является только раздел описания логики программы (начинается ключевым словом Begin, заканчивается ключевым словом End с точкой). В программе на Delphi обязательным является также заголовок программы, имеющий вид:
Program < I 1 I 11 1 с >;
Требование к наличию заголовка программы связано со ссылками на файлы ресурсов, подключаемых к программе, и имеющих такие же названия, что и файл, в котором хранится основная часть программы. Данные ссылки добавляются средой автоматически, а исправление их вручную не рекомендуется, так как это может вызвать нарушение структуры проекта.
Название программы выбирается по обычным правилам именования идентификаторов в Turbo Pascal, описанным выше. Исполняемый ехе- файл, получаемый в результате компиляции программы, имеет имя, соответствующее названию файла с программой.
Разделы описания констант (начинается ключевым словом Const), нестандартных типов данных (ключевое слово Туре) и переменных (ключевое слово Var) могут следовать друг за другом в любом порядке, однако приведенный порядок является наиболее предпочтительным. Это связано с тем, что константы могут использоваться при описании типов данных и переменных, а типы данных обычно используются при описании переменных. При этом идентификаторы, описанные в разделе описания переменных, ни при каких условиях не могут использоваться в
разделах описания типов и констант. Напомним, что область действия идентификатора начинается с момента его описания, то есть использование идентификатора возможно только ниже по тексту программы
Модули
Модуль (библиотека), так же как и основная часть программы, содержится в отдельном файле и состоит из нескольких разделов, аналогичных разделам основной части программы. Рассмотрим структуру модуля.
UnitI Заголовок модуля
, -Interface, .^азу^ие^дд- ничзмьз ^ЬтерфейсЖ1Е секции
Шаа» ,
■ИЬздегЯВ^^клвэт^ииЛ модулей^ (б^блиоата»)
Const
Раздел описания констант
Туре
. ,* .‘■'Раздел Яиданив^тигЯв данЖвх
Var
.*. Л . Т *. . чРаздел описания переменней
е” пцД т.<ж? УказЭлие на наКало ошнМельЖ:1Й секции
Uses
.ВРЯдел подклЖения модулей
Label
Раздетмописани . мвок. без ус ловпе р> ■ЗрОКЦа
Const
РазДйй .ЕЩИЬания- ранй,Тану
Typ>jF*
a s « * .» я ^ 'ЛМВ^здел оевсанве^тивив данЙЙ
Var
_Д^ЯЯмЯДРаэдДиг о» завЦЖ пЖемевЯВк
initialization Начало секции инициализации
.Д’ .1.** . * ,Жз дания лоЭДкв вямализации
finalization Начало секции деинициализации' Раздел описания логики деинициализации
End.Окончание модуля
Исходный текст модуля может содержать четыре секции:
♦ Интерфейсная секция (начинается ключевым словом interface), в которой располагаются заголовки процедур и функций, а также описания констант (раздел описания констант начинается с ключевого слова Const), нестандартных типов данных (ключевое слово Туре) и переменных (ключевое слово Var). Все идентификаторы, описанные в интерфейсной секции, доступны для использования вызывающим (подключающим модуль) частям программы, наряду с их собственными описаниями.
♦ Описательная секция (начинается ключевым словом Implementation), в которой располагаются описания процедур и функций, заголовки которых указаны в интерфейсной секции, а также другие процедуры и фун- кцни, используемые подпрограммами данного модуля, но не доступные фрагментам программ, подключающим модуль. Также в описательной части модуля могут располагаться описания меток безусловного перехода, констант, нестандартных типов данных и переменных (начинаются, соответственно, с ключевых слов Label, Const, Туре и Var). Все эти описания также не доступны фрагментам программы, подключившим модуль, и используются только для внутренних целей библиотеки.
« Секция инициализации (начинается ключевым словом initialization), содержащая команды, которые необходимо выполнить при подключении модуля к программе. Таким образом, перед выполнением какой-либо программы, к которой подключаются внешние модули, сначала выполняются инициализациоипые части модулей (в порядке подключения). Данная секция не является обязательной.
» Секция деинициализации, используемая только при наличии секции инициализации, содержащая команды, которые необходимо выполнить при завершении приложения. Данная секция не является обязательной и может использоваться для освобождения ресурсов, занятых в секции инициализации.
Наличие к почевого слова End с точкой является обязательным и означает окончание модуля.
Наличие интерфейсной и описательных секций в библиотеке является обязательным, даже, если в этих секциях ничего не содержится' Таким образом, ключевые слова Interface и Implementation должны присутствовать в тексте модуля всегда.
Название модуля — идентификатор, указываемый после ключевого слова unit в заголовке модуля. Название модуля строится по обычным правилам именования идентификаторов и должно соответствовать имени
Заметим, ,что отсутствие интерфейсной секции исключает какое-либо полезное использование библиотеки, так как подключающий модуль не может обратиться к элементам такой библиотеки.'*
файла, в котором находится описания модуля. Именно по названию осуществляется подключение модулей к основной части программы или к другим модулям. Как уже упоминалось ранее, подключение производится в разделе подключения модулей Uses по названию.
Приведем пример простейшего модуля и программы, которая подключает к себе этот модуль. Код модуля приведен в листинге 1.1, а код подключающей его программы — в листинге 1.2.
Листинг 1.1. Простейший модуль
Unit Unitl;Interface ImplementationEnd.Unit Unitl;Interface ImplementationEnd.{Заголовок модуля, название модуля — Unitl) (Указание на начало интерфейсной ■ - > на начало описательной ■
Unit Unitl;
Interface Implementation
End.
Unit Unitl;
Interface Implementation
End.
{Окончание модуля)
Листинг 1.2. Простейшая программа, подключающая модуль
Program Programi;
{Заголовок программы,
назван}® 4 прУ^р^^В — Рг^^^ЗД!^^
Uses
Unitl;
{Раздел подключения модулей)
{Подключение модуля Unitl)
Begin
End.
( Начг . раздела 1еАЫ»Ния |М1гики / >грамм1
{Коне:■ "™|R: W te’l Я(ф|рРрМ8Ве) |
Проект
Важным нововведением в Delphi является понятие проекта — описания частей, на которые разбит исходный текст программного продукта. Кроме файлов с исходными текстами, в проект могут входить файлы ресурсов, подключаемых к программе (например, изображения или тексты).
Проект предназначен для повышения удобства разработки программных продуктов, особенно крупных, так как среда разработчика имеет возможность контролировать элементы проекта, например, для поддержания актуальности откомпилированных частей программы.
Описание проекта находится в основной части программы, генерируется средой автоматически, и, в большинстве случаев, не требует вмешательства программиста. Основная часть программы находится в файле с расширением dpr и содержит перечисление всех модулей, входящих в проект, а также инициализационную часть программы и некоторую вспомогательную информацию для более тонкой настройки среды под конкретный проект.
Структуры данных в Delphi
Стандартные типы данных
Числовые типы
Некоторые типы данных, стандартные для языка Pascal, немного изменились в сторону расширения диапазона возможных значений и, соответственно, увеличения занимаемого места. Это связано с тем, что создаваемые в Delphi приложения ориентированы на работу в операционной системе Windows, а не DOS, что накладывает на них некоторые требования. Программы, выполняемые в Windows, широко используют системные функции операционной системы, передавая им множество параметров. Таким образом, представление информации в Delphi должно соответствовать представлению аналогичной информации в Windows.
Рассмотрим сравнительные таблицы типов данных в Pascal и Delphi (см. табл. 2.1 и 2.2), в которых указаны сведения о типах данных в Pascal и Delphi. В нижних частях таблиц приводятся сведения о новых типах данных, которых не было в языке Pascal.
Из сравнительных таблиц видно, что среди целочисленных типов данных не произошло существенных изменений, за исключением увеличения диапазона типа Integer. Это связано с частым использованием данного типа при передаче параметров системным функциям Windows. Также добавлены новые типы Cardinal, Int64 и Ьопдмогддля более удобной организации структур данных в программе.
Новый целочисленный тип данных Smallint соответствует типу Integer языка Pascal и добавлен в Delphi для упрощения переноса фрагментов текста из старых программ, работающих в операционной системе DOS, которые используют переменные типа integer и чувствительны к возможному изменению размеров этих переменных. При переносе таких фрагментов ссылки на тип integer следует заменять на Smallint.
Среди вен ei гиен нс типов данных изменены возможности типов Real, Extended и Comp, а ак*е. для совместимости с программами, написанными на Turbo Pascal, добавлен новый тип Real48 совпадающий с типом Real языка Pascal.
Особого внимания заслуживает новый вещественный тип данных Currency, предназначенный для использования в финансовых вычислениях и призванный исключить ошибки искажения значений, присущие переменным с плавающей точкой. Переменные типа Currency на самом деле хранятся не как вещественные переменные, а как целочисленные переменные типа Int64, а при использовании их в выражениях автоматически делятся на 10000. Таким образом, значения переменных типа Currency являются числами не с плавающей точкой, а с фиксированной.
Сравнительная таблица целочисленных типов данных в Pascal и DelphiТаблица 2.1
Название типа
Pascal
Delphi
Диапазон
Память, байт
Диапазон
Память, байт
Shortini
-128.127
1
так же
Integer
-32768..32767
2 .
-2147483648..2147483647
4
Longinl
-2147483648.. 2147483647
4
так же
Byte
0..255
1
так же
Word
0..65535
2
так же
Cardinal
0..4294967295
4
SmalKnt
-32768..32767
2
Int64
•2" 2"-1
8
Longword
0..4294967295
4
Название типа
Pascal
Delphi
Диапазон
»x
VO
a
a
5 1
Диапазон
6 ГО VO
£
а
а if ।
9 о
$8
Н ш
Real
±2.9x10 " ±1.7x10”
6
11-12
±5.0x10"”‘..±1.7x10I™
8
15-16
Single
±1.5x10 “ ±3.4x10”
4
7-8
так же
Double
•5.3x1011 7x'O '
8
15-16
так же
Extended
±3.4x10‘“..±1.1x10*“
1019-20
±3 6x10*"'. .±1.1x10*™
10
19-20
Comp
-9.2x10ie..9.2x10”
8
19-20
-2n±1 . . 2”-1
8
19-20
Real48
2 9x10-39 .1.7x1038
6
11-12
Currency
-922337203685477.5808 ..
922337203685477.5807
8
19-20
Сравнительная таблица вещественных типов данных в Pascal и Delphi
Таблица 2.2
Строковые типы данных
В языке программирования Pascal для работы со строками был предусмотрен тип string, представляющий собой последовательность (массив) символов, размером до 255-ти байт, в начале которой находилось однобайтовое число, содержащее длину строки. С другой стороны, в языке С, на который, в основном, ориентируется среда Windows, строки хранятся в так называемом ASCIIZ-формате.
Каждая строка в формате ASCIIZ представляет собой указатель на массив символов, который заканчивается нулевым символом. Такое представление строки имеет свои преимущества — например, практически неограниченная длина ASC IIZ-строк, и свои недостатки — связанные с неудобством использования указателей (ссылочных переменных).
В Delphi предлагается компромисс между двумя подходами к хранению строк. Внутреннее представление строки реализовано динамически, в ASCIIZ-формате, тогда как с точки зрения программиста строка является массивом символов известной длины (символы в массиве пронумерованы от единицы). В связи с этим отменена возможность доступа к нулевому элементу строки с целью получения ее длины. Длину строки в Delphi можно определить с помощью функции Length:
Length(< [ >) : Integer;
Установить длину строки можно с помощью процедуры SetLength:
SetLength(<Строка>, <Новая длина>);
Еще одной особенностью работы в среде Windows является возможность использования кодировки символов Unicode, в которой каждый символ представляется не одним, а двумя байтами. Кодировка Unicode предназначена для индексации символов нескольких алфавитов одновременно. Строковые типы данных, доступные в Delphi, описаны в табл. 2.3.
Тип Short String введен для обратной совместимости с Pascal под DOS и не рекомендуется для использования. Переменной, описанной с использованием устаревшего типа string, назначается тип ShortString, если при компиляции директива Н находится в выключенном состоянии: ( $н }. или Ansistring, если при компиляции директива н находится во включенном состоянии: {$Н+}.
Название типа
Максимальная длина, символов
Занимаемая память
Размер символа,
ShortString
255
От 2 до 256 байт
1
AnsiString
-2”
От 4 байт до 2 Гб
1
WideString
-2“
От 4 байт до 2 Гб
2
Таблица 2.3
Строковые типы данных в Delphi
Для большинства случаев (не связанных с использованием кодировки Unicode) для описания строковых переменных рекомендуется использовать тип AnsiString.
Другие стандартные типы данных
Работа с другими типами данных, предусмотренными в Delphi, не отличается от использования аналогичных типов данных в Pascal.
Например, вместо одного логического типа данных в Pascal, в Delphi существует целых четыре: Boolean, ByteBool, wordBool и LongBool. Такое разнообразие типов предусмотрено для обеспечения совместимости с другими языками программирования и средами выполнения. Как видно из. их названий, они отличаются друг от друга только размером, и без особой необходимости нет смысла в использовании для описания логических переменных какого-либо другого типа вместо обычного Boolean.
Описание структур данных
Описание и использование переменных
Описание переменных
Описание переменных производится в разделе описания переменных (после ключевого слова г) основной части программы, интерфейсных или описательных частях модулей в следующем виде:
ВагВаг!ачал ^зд®^.
Ваг
Ваг
описания переменных}
незнание ®рем«ной : ^^№;\данных>»
(Описание переменной)
(Описание переменной)(Описание переменной)нНазвание переменной N>: <Тип данных>;
(Описание переменной)
(Описание переменной)
При необходимости допускается описание нескольких переменных одного типа в одной строке. В этом случае названия переменных указываются через запятую:
■(Название переменной 1>, . .. , <Название переменной М>: <Гип данных>;
Оператор присваивания
Для присвоения значения переменной используется оператор присваи
вания:
<Название переменной> := <>;
Пример использования оператора присваивания приведен в листинге 1 I
Листинг 2.1. Использование оператора присваивания
Program UsingVartables;
Var:о раздела описания
Int: Integer; :.: переменной типа Integer
с именем ■
BeginIntBeginInt{Пр*сШ#ение' пeрЦчe н нn ’P знмения 3-S}{Пр*сШ#ение' пeрЦчe н нn ’P знмения 3-S}
Begin
Int
Begin
Int
{Пр*сШ#ение' пeрЦчe н нn ’P знмения 3-S}
{Пр*сШ#ение' пeрЦчe н нn ’P знмения 3-S}
Описание констант
Константами называются идентификаторы, вместо которых на этапе компиляции программы подставляются заданные при описании этих констант значения. Соответственно, использование констант не сказывается на непосредственной работе приложения, зато существенно упрощает процесс программирования, делая текст программы более наглядным. Раздел описания констант начинается ключевым словом Const, а сами описания выглядят следующим образом:
Const
<Назйание константы> = Оначение константы»;
Приведем пример описания констант разных типов:
Const
DeveloperName = 'Michael Suharev';
. строковойI
DelphiVersion = 7; (Описание целочисленной константы!
IncludeOOF = True;■■ логической константы
(типа Boolean)!
Как и в Pascal под DOS, в Delphi существует возможность описания типизированной константы, которая на самом деле будет являться переменной, причем ее значение будет установлено уже на старте программы. Описание типизированных констант выглядит следующим образом:
Const
Значение константы>;Значение константы>;<Название константы»: <Тип>
Значение константы>;
Значение константы>;
Приведем пример описания типизированных констант:
Const
DelphiVersion: Byte = 7 ;
^( Описание 3|елочисленнв типиз ир константы, значение которой может быть изменено в процессе выполнения программы. Начальное значение константы 7}
IncludeOOP: Boolean = True;
(Описание логической константы (тгша Boolean), значение которой может быть изменено
♦*^®^Н^$се Иссинена® пДгЖммы.
Начальное значение константы True)
Описание нестандартных типов данных
Delphi, как и Pascal, позволяет описывать дополнительные типы данных («нестандартные»), отличные от встроенных (стандартных). При описании могут использоваться как стандартные типы данных, так и нестандартные, то есть описанные ранее в основной части программы или в модуле. После создания нестандартные типы данных могут использоваться для описания переменных на их основе. Само создание нестандартных типов производится в разделах описания типов (после ключевого слова Туре) основной части программы, интерфейсных или описательных частях модулей в следующем виде:
Туре1 раздела описания типов ,
<Название типа 1> = <0писание типа жы <>; {Описание типа)
<Название типа N> = <0писание типа - >.
(Описание типа)
В качестве примера можно привести описание нестандартного типа данных Mylnteger эквивалентного стандартному типу Integer.
Program UsingCustomTypesl;
Type.раздела описания типов -
Mylnteger = Integer;■ типа
Begin
End.
Аналогичным образом можно описать тип данных г • , эквивалентный нестандартному типу Mylnteger. Более сложные примеры мы рассмотрим при обсуждении сложных типов данных.
Program UsingCustomTypes2;TypeMylnteger = Integer;Otherlnteger = Mylnteger;BeginEnd.Program UsingCustomTypes2;TypeMylnteger = Integer;Otherlnteger = Mylnteger;BeginEnd.(Начало-Даз дела сИиеа'Мв» типов данных)|Описание типа Mylnteger) (Описание типа Otherlntc(Начало-Даз дела сИиеа'Мв» типов данных)|Описание типа Mylnteger) (Описание типа Otherlntc
Program UsingCustomTypes2;
Type
Mylnteger = Integer;
Otherlnteger = Mylnteger;
Begin
End.
Program UsingCustomTypes2;
Type
Mylnteger = Integer;
Otherlnteger = Mylnteger;
Begin
End.
(Начало-Даз дела сИиеа'Мв» типов данных)
|Описание типа Mylnteger) (Описание типа Otherlntc
(Начало-Даз дела сИиеа'Мв» типов данных)
|Описание типа Mylnteger) (Описание типа Otherlntc
Сложные типы данных
Сложные типы данных в Delphi представлены массивами (в том числе многомерными), записями, интервальными и перечислимыми типами, а также множествами. Средства работы с переменными этих типов не отличаются от аналогичных, используемых в Pascal под DOS, поэтому мы не будем подробно останавливаться на и ли вопросе.
Интервальные типы данных
Интервальные типы данных (типы-диапазоны) представляют собой подмножества возможных значений стандартных типов данных integer и Char и применяются для более удобного представления информации в программе. Описание интервального типа данных выглядит следующим образом:
<Название переменной.- = <начальное знач.>. .сконечное знач.>
Использование интервального типа данных аналогично использованию любого другого типа данных. Рассмотрим пример, в котором описывается переменная интервального типа, значениями которой могут быть строчные латинские символы от с' до ‘у’ (см. листинг 2.2).
Листинг 2.2. Использование интервального типа
Program UsingSubranges;
Type
TInterval = 'с'..'у',
(Описание интервального типа — подмножества типа Char; допустимые значения переменных данного типа находятся в диапазоне от символа до символа 'у'}
Маг
Interval: TInterval;
(Описание переменной интервального типа TInterval)
Begin
Interval := 'е' ;
■переменной Interval значения ’ '
End.
Если переменной интервального типа данных присваивается значение, не соответствующее диапазону данного типа, то программа прерывается и выдается ошибка времени выполнения программы (ошибка проверки диапазона возможных значений). Данное свойство интервального типа используется для ограничения возможных значений переменной, так как в некоторых случаях удобнее прекратить программу с ошибкой, чем продолжать ее выполнение с некорректным значением некоторой переменной.
Перечислимые типы данных
Перечислимый тип данных представляет собой некоторый набор констант. Сответственно переменная данного типа может принимать в качестве своего значения только одну из них. Константы задаются именами, их значения неизвестны и определяются компилятором во время построения программы. Описание перечислимых типов имеет следующий вид:
<Тип> = (<Имя константы 1>| . . . , <Имя константы п>) ;
Перечислимые типы используются для описания множества значений какого-либо свойства, например, цвета некоторого объекта. Описание и использование такого свойства может выглядеть так, как показано в листинге 2.3.
Листинг 2.3. Использование перечислимого типа Program UsingEnumerateds;
Type , TColor
= (Black, White, Red) ;
л . перечислимого типа I.
Диапазоном значений переменных “того типа являются три константы — Black, White, Red; значения этих констант не известны, но их можно использовать по 1
Var
Color:
Begin
Color
TColor;петечислим^м] типа
:= White;врединой Color
значение White)
Перечислимые типы данных используются, в основном, для повышения читабельности программы и привлечения внимания к возможным значениям какого-либо параметра программы. Обратим внимание на то, что в стандартных компонентах и подпрограммах Delphi крайне широко используются перечислимые типы.
Множества
Типы данных «множества» аналогичны перечислимым и интервальным типам данных, однако переменные множественных типов могут иметь несколько значений из описанного перечисления в каждый момент времени работы программы, причем каждое значение не может присутствовать в множестве дважды в одно и то же время. Описание переменной множественного типа выглядит следующим образом:
<11еременная>: Set Of «Перечислимый тип>;
Аналогично можно описать множество на основе интервального типа:
<Переменная>: Set Of «Интервальный тип>;
Для присвоения значения переменной множественного типа используется специальный оператор — конструктор множества [ ] :
<: м ?нная> := [Оначение 1>, . .., Оначение п>] ;
В качестве Значений может быть использовано любое значение из множества, на основе которого создан данный тип.
Рассмотрим пример описания и использования переменной-множества, основанной на перечислимом типе данных (см. листинг 2.4).
Листинг 2.4. Пример описания и использования переменной-множества
Program Usingsets ;
Type
TColors = Set Of (Black, White, Red)
: iни множественного типа данных TColors. В качестве значений переменных данного типа в любой момент времени выполнения программы может быть любое сочетание констант Black, White и ■
Var
Colors: TColors; .। переменной множественного
типа данных
Begin
Colors := [Black, Red] ;
.переменной Colors
множества, состоящего из двух -элементов — Black и
Colors := [] ;;переменной Colors пустого
множества|
Colors : = [White];переменной Colors
множества, состоящего из одного элемента — .
End.
При работе с множествами используются следующие понятия:
» Объединением двух множеств называется множество, содержащее элементы, как первого, так и второго множеств. Для объединения множеств используется оператор «+ Например, после выполнения команды Colors := [Black] + [Pj 1]. в переменной Colors будет содержаться множество [Black, ]
♦ Пересечением двух множеств называется множество, содержащее элементы, включенные в оба множества. Для пересечения множеств используется оператор * Например, после выполнения команды Colors := [Black, Red] * [Black, White], в переменной Colors будет содержаться множество из одного элемента Black.
» Разностью двух множеств называется множество, содержащее элементы первого множества (уменьшаемого), не содержащиеся во втором множестве. Для определения разности множеств используется оператор - Например, после выполнения команды Colors : = [Black, Red] - [Black, 1 в переменной Colors будет содержаться множество из одного элемента Red.
» Пустым множеством называется множество, не содержащее элементов. Для присвоения переменной множественного типа пустого множества может использоваться обычный конструктор множества. Например, после выполнения команды Colors := [] в переменной Colors не будет содержаться ни одного элемента. Множество станет пустым, если вычесть из него множество, содержащее все возможные элементы. Например, после выполнения команды Colors := Colors - [Blacky White, Red] множество Colors будет пустым вне зависимости от своего начального состояния.
33332 Зы 867
33
33
Записи
Запись я ; шется типом (анных и описывается в разделе описания типов данных Туре. После описания типа данных его можно использовать для создания переменных этого типа в обычном порядке. Описание записей как типов данных имеет следующий вид:
Туре: о раздела описания типов - -
<Имя типа> = Record 1 1описания зап
<Имя переменной 1>: <Тип>;
5! "поля» запи .
<Имя переменной п>: <Тип>;
(описание "поля» записи)end; •■ • , 1 ш описания типа
Таким образом, запись, как переменная, состоит из набора разнородных переменных, называемых полями записи, каждая из которых имеет свое уникальное имя в пределах записи. В качестве Типе в переменных, описываемых внутри записи, могут использоваться любые типы данных, встроенные в Delphi или описанные в программе до описания данной записи, в том числе массивы и другие записи.
Описание переменных-записей, или, как их принято называть, экземпляров записей, осуществляется по обычным правилам в разделе описания переменных
Обращаться к экземплярам записей в программе можно двумя способами — как к совокупностям полей, то есть к записям в целом, так и к отдельным полям конкретной записи. Для работы с записями в целом определена всего одна операция — присвоение. При этом поля одной записи присваиваются полям другой записи, то есть копируются в них.
Для обращения к какому-либо конкретному полю записи используется имя этой записи и имя поля в его составе, разделенные точкой:
<Имя переменной-экземпляра «аписи: Имя поля>
С полями экземпляров записей можно производить любые операции, допустимые для типа данных этого поля, то есть указывать в качестве параметров процедур и функций, использовать как операнды для арифметических и логических операторов, и так далее. Приведем небольшой пример (листинг 2.5).
' В языке С такие типы данных называют структурами.
Листинг 2.5. Работа с записями
Program UsingRecords;
Туре(начало раздела описания типов данных)
Thuman = Record■ опи-Жн$®Ж записи)
FirstName: String; исаниеР*зг записи с ^*lFirStName) ।
Lastame: String; тполН запИри
с именем LastName)
Age: Integer;(описание ЬлИ з®ис#е
© ^Именем ; ■
end;; дВЬанив типа)П|
Var
Humanl: Thuman; (Описание переменной -- записи типа THuman с именем Humanl)
Human2: Thuman; (Описание переменной — записи типа THuman с именем Human?}
Begin Humanl. FirstName := 'Michael'; I Изменение поля FirstName
ХДеременноЕ Humanl)
Human2 := Humanl; ■1 л значений^ bob полей кпиСЖ
Humanl в поля записи Human?. Таким поле wpfrtNamejt зЕтиси уйй:т*2
■Етане .Жлеть ц.ЛЙаЩМш^^?Michael * )i
End.
Массивы
Массив — это поименованная область памяти, доступ к отдельным частям которой осуществляется по общему имени и индексу соответствующей части. Все части (элементы) массива имеют один и тот же тип, в качестве которого может выступать любой из стандартных или нестандартных типов, описанных к моменту объявления массива. В частности, элементы массива также могут являться массивами. Такие структуры называются многомерными.
Описание массива производится в разделе описания типов данных (после ключевого слова Туре) и выглядит следующим образом:
<Название массива> = Array [<Нижний индекО.. <Верхний индекс>]
Of <Тип
Например:
Program De с1агеАггауTypes1 ;
TypeI НачалЛвоазА^^ №:)#« типов данных)
MyArray = Array [ 5 . 150] Of Integer;
(Описание типа данных — массива с именем MyArray, состоящего из 146-ти элементов, пронумерованных от 5-ти до 150-ти, каждый из которых имеет тип Integer)
Begin
End.
С момента такого описания тип MyArray может использоваться наравне с остальньми типами данных, известньми кожилятору, например, для описания двухмерного массива:
Program DeclareArrayTypes2;
TypeI . i разВНИ оМсания типЯв д ihi ых
MyArray = Array [5..150] Of Integer;
'♦{ОПИСаНИеГТИпа дЭнйЗх — масив!М1 именем Ж^уАщ?ау, со<доЯе№ 5з Т®МпД элементов , Чдпрон^Вр^Инных 'Вт 5-тЯ до МОти, кажё^^^Г виз которжЯ имеетInteger )
MyArray2D = Array [1. 10] Of MyArray;
i i типа Янных -мссивге КЙиИрм МуАггау20ЛКистоящЯо и/ И-тц^НемЖтов , пронумерованных от 1 до 10-ти, каждый из которых представляет собой массив типа MyArray)
Begin
End.
Многомерный массив можно также описать без использования вспомогательных типов, просто указав в квадратных скобках через запятую пределы изменения индексов для каждого измерения массива:
Туре
MyArray2D = Array [110, 5. .150] Of Integer;
(Описание двухмерного массива)
Описание переменной, представляющей собой массив, происходит по обычным правилам описания переменных:
Туре
MyArray2D = Array [1. .10, 5. .150] Of Integer; ' дв^жмедВЬ® массива!
Var
Array2D: MyArray2D; (Описание переменной-массива)
Для обращения к элементу массива-переменной, ее индекс (индексы в случае многомерных массивов) указываются в квадратных скобках после имени переменной:
Program Us г пдА г г а у s .
Туре
MyArray2D = Array [1..10, 5.. 150] Of Integer;
и двухмерного :
Var
Array2D: MyArray2D; (Описание переменной-массива]
Begin
Array2D [1, 6] := 18;- i значение элементу
массива с индексами 1, 6}
End.
Обратите внимание, что максимально возможный размер массивов в Delphi увеличен по сравнению с Pascal, и может достигать 2 гигабайт вместо 64 килобайт.
Заметим, что для массивов одного и гого же типа, как и для записей, определена операция присвоения, выполняемая копированием значений элементов одного массива в другой. Также доступна операция присвоения для отдельных элементов массивов. Сравнение массивов в целом невозможно и вызывает ошибку компиляции. Однако это доступно динамическим массивам, описанным ниже.
Переменную-массив можно описать и без предварительного создания соответствующего типа данных, прямо в разделе описания переменных:
Var
MyArray2D: Array [1 .10, 5..150] Of Integer;
;. переменной — двухмерного
массива целочисленных
Необходимо отметить, что при внешне эквивалентном описании два массива не будут считаться принадлежащими к одному типу данных, если это не указано явно:
Туре
ArrType = Array (1. .10) Of Integer;
■ тдД Данных — массив»^ целочисленных элементов)
Var
Al = Array [1..10] Of Integer;
(Описание переменной-массива целочисленных элементов)
А2
= Array [1. .10] Of Integer;
(. ни переменной-массива
целочисленных элементов, полностью идентичной 1
АЗ:
АггТуре;переменной-массива
целочисленных ■ •' он.
А4 :
АггТуре;
Begin
АЗ : =
А4 ;■ ! : допустима, так как обе
переменные имеют один и тот же тип —■
А1 : =
А2;:.. не допустима, так как
обе переменные имеют не один и дот
же тип данных, а топпь похожие по структуре ы}
В рассмотренном примере все четыре используемые переменные являются одномерными массивами целочисленных элементов, проиндексированных от 1 до 10, однако переменные АЗ и А4 совместимы между собой, так как при их описании явно указан один и тот же тип, а переменные А1 и А2 не совместимы ни между собой, ни с переменными АЗ и Соответственно при попытке компиляции такого фрагмента программы будет выдана ошибка "Incompatible types» - "Несовместимость И I- »
Однако если бы переменные д: и 2 были описаны в одной строке, то их типы считались бы идентичными:
Var
Al, А2 = Array (1..10) Of Integer;
"/(.Описание ^вух ^Вмешпа-маживов целочислЯны^эЛеменТрв}
Begin
Al := А2;(Операция допустима)
Динамические структуры данных
Для работы с динамическими структурами данных Turbo Pascal предлагал два вида ссылочных типов — типизированные указатели и нетипизированные.
Нетипизированный указатель представляет собой переменную, в которой хранится адрес некоторой области памяти некоторого размера, и предназначен для хранения произвольных данных. Типизированные ссылки указывают на место в памяти, где хранятся данные определенного типа.
В Delphi сохранены все возможности работы с указателями, а также добавлены новые структуры данных на их основе.
Нетипизированные указатели
Переменные -- нетипизированные указатели описываются с указанием типа Pointer, а выделение и освобождение памяти под них осуществляется, соответсвенно, командами ’ и п (см. листинг 2.6).
Листинг 2.6. ИспользованиеProgram UsingPointers , VarPoint: Pointer;BeginGetMem(Point, 1024);FreeMem(Point, 1024);End.Листинг 2.6. ИспользованиеProgram UsingPointers , VarPoint: Pointer;BeginGetMem(Point, 1024);FreeMem(Point, 1024);End.нетипизированных переменных-указателей
Листинг 2.6. Использование
Program UsingPointers , Var
Point: Pointer;
Begin
GetMem(Point, 1024);
FreeMem(Point, 1024);
End.
Листинг 2.6. Использование
Program UsingPointers , Var
Point: Pointer;
Begin
GetMem(Point, 1024);
FreeMem(Point, 1024);
End.
. ■: тонеме нной-ук?дМ:ат^4й», указан тип Pointer, то есть описывДт^Р^Мгипи^^^ИвяМая ссылка^
(Выделение памяти под переменную- указатель размером 1024 байт)
(Освобождение памяти, занятой под переменную-указатель)
Типизированные указатели
Использование нетипизированных указателей ограничено стандартными функциями, принимающими такие переменные в качестве параметров, а также низкоуровневым программированием. Более интересными для рассмотрения являются типизированные указатели.
Для описания типизированной ссылки не предусмотрен какой-либо специальный тип данных, в отличие от нетипизированных указателей, имеющих тип Pointer. Поскольку ссылочная переменная такого рода всегда указывает на данные конкретного типа, то ее описание и строится на основе этого типа. Для указания на ссылочную природу переменных используется оператор и описание выглядит следующим образом:
Var
<Переменная>: А<Название типа»;
Или в разделе описания типов данных:
Туре
<. тип данных> = А<Т; :: ых>;
После описания переменной-указателя под нее выделяется память только для хранения адреса, а под сами данные, на которые переменная указывает, память не выделяется. Для инициализации переменной используется процедура New, отличием которой от аналогичной процедуры i . используемой для работы с нетипизированными указателями, является отсутствие второго параметра, определяющего размер выделяемой памяти. Это связано с тем, что типизированная ссылка указывает на данные известного типа, соответственно, размер этих данных также известен компилятору.
Итак, инициализация переменной выглядит следующим образом:
New(< - :указатель») ;
Соответственно, при освобождении памяти, занятой под типизированный указатель, используется процедура Dispose — аналог процедуры FreeMem без второго параметра:
Dispose(<Типизированный указатель»);
Обращение к переменной-указателю происходит обычным образом — по ее имени, а для обращения к данным, на которые переменная указывает, после имени переменной указывается оператор разыменовывания < ..
< Названией>А
Рассмотрим пример работы с типизированной ссылкой, указывающей на переменную типа Double (см. листинг 2.7).
Листинг 2.7. Пример работы с типизированной ссылкой
Program UsingTypedPointers;
Type
pDouble = ADouble; {Описание типа данных — указателя на переменную типа !>
Var
МуPDouble: pDouble;.. и переменной —
типизированного указателя на переменную типа Hout ■
Begin
New(MyPDouble);
{Выделение места в динамической памяти под одну патакенную TgiawDoubla размер нао&хажймйй намети определяется автоматически) , адрес выделенной
-^&1М»ти аажсшгся в nepaSenwi?
MyPDouble* = 12.8;
{Присвоение переменной, на которую
ссыя|етея перемЛЯН-указатель значения 12 . |?^ f
Dispose(MyPDouble) ;
свобожш . памяти, з а ня$ой|^тт^пар^№ННУЮ|11 которую указывает переменная MyPDouble. Адрес освобожденной памяти остается в переменной MyPDouble, но его использование недопустимо)
End.
Динамические массивы
В Delphi добавлена интересная возможность описания массивов без указания размерностей и, соответственно, пределов изменения индексов:
Var
IntArray: Array Of in ;
Такие массивы являются динамическими1' и изначально имеют нулевую длину. Установка размера массива и определение его во время выполнения программы производится так же как и для строк, с помощью функций SetLength и Length, соответственно. Элементы в данном случае нумеруются от нуля.
Program UsingDynamicArraysl;
Var
А, В: Array of Integer;
.:двух переменных — динамических
массивов целочисленных • । ■<
Begin
SetLength(A, 5);- ■ размера массива A
(5:
A[0]:= 1;Прис • значения 1 элементу
массива А с номером
End.
Заметим, что в Turbo Pascal также существовала возможность использования динамических массивов через типизированные указатели, под которые п о ять выделяется процедурой FreeMem, а не New. Однако о безопасности использования таких структур должен был заботиться программист. Также неудобства доставляла необходимость указания размерностей таких массивов и ограничение максимального числа элементов. В Object Pascal реализована более удобная схема работы с динамическими массивами.
Переменные-динамические массивы являются указателями и операции с ними производятся как с указателями. Например' при присвоении одного массива другому элементы одного массива не копируются во второй, а копируется адрес массива. Соответственно, сравнение двух массивов в логических выражениях типа «равно — не равно» производится сравнением адресов. Пример присвоения одного массива другому приведен в листинге 2.8.
Листинг 2.8. Пример присвоения одного массива другому Program UsingDynamicArrays2;
Var
А, В: Array
of Integer;
.■ ".двух переменных —
динамических массивов целочисленных элементов}
Begin
SetLength(А,
5); (Установка размера массива А
(5'
А[0] := 14;
П и в е ■ значения 14 нулевому элементу массива
В := А;
.:- : . • массива А массиву В, теперь
переменные А и В указывают на один и тот же 1
В[0] := 2;
. нулевому элементу массива В
•значения 2, теперь нулевой элемент массива А также имеет значение 2}
End.
Отметим существенное отличие в работе со строками и динамическими массивами, имеющими одинаковое внутреннее представление на основе указателей, но разные методы работы. Две разные строки, состоящие из одинакового набора символов, считаются равными, а два разных массива, содержащие одинаковые элементы, не равны. Приведем пример:
Var
SI, S2 : AnsiString;
1 двух cpggo®® переменных типа AnsiString}
Al А2: Array Of Integer;
(Описание двух переменных —
ДкМЙ^Дескжх ги^ссиво целочислен”
элементов)
Begin
SI := 'ABCDEF' ; (Присвоение строковой переменной S значения}
М; i *’МСО№; АШрисвоен® ^роквой Ц|еремВно^Я зУВнаШнМ^ аналогичного значению переменной S1 . Теперв переменные S1 и S2 равны)
SetLength(АД, 2); (Установка размера массиву А1)
SetLength (А2, 2); (Установка массиву А2 размера, равмвго размеру масеква ^1
А1[0]:= 0;
Al [1]: = 1;
А2[0]:= 0;
А2(Заполнении. массивов и°#ЙЙЙй°в№(Й^ш
элементами. Теперв массивы имеют одинаковые
А2 := А1;А2 := А1;длины и состоя® из ДВЯДаковц, Зл@еЩа, однако не равны между собой, так как находятся в разных местах памяти) {tllWCWUMiMe Мсылки ц|й8!*<мг®вив. Ml
А2 := А1;
А2 := А1;
в переменную А2. Теперв массивы А1 и А2 равны, так как переменные А1 и А2 Цсгщлвают на 9Д№ и то же «св-.в 1мяти
Вариантные структуры данных
Общие понятия
Структура данных программы на языке Pascal (то есть переменные) описывается в одном месте каждого модуля — в разделе описания переменных. Данный раздел начинается ключевым словом Var и специально предназначен для этого. Таким образом, переменные не могут быть введены во время выполнения программы. Еще одна существенная особенность представления информации в Pascal — это назначение типа переменной на этапе компиляции.
Однако при программировании под Windows довольно часто встречаются задачи, в которых переменные должны изменять свой тип во время выполнения программы, соответственно, нельзя на этапе написания программы указать, какого именно типа должна быть та или иная переменная. В основном такие возможности требуются от программы, работающей с базами данных и использующей технологию СОМ.
В Delphi введена поддержка переменных, которые не имеют конкретного типа данных на этапе компиляции, а в процессе выполнения программы могут хранить данные разных типов. Такие переменные называются вариантными (ан i i Variant — вариантный, различный) и описываются по обычным правилам с указанием в качестве типа данных ключевого слова Variant:
Var
<Название переменной>: Variant;
Во время выполнения программы в вариантных переменных могут храниться данные любого типа, за исключением структурных (записей и статических массивов) и ссылочных (типизированные и нетипизирован- ные указатели, метаклассы и указатели на экземпляры классов ) Также в вариантных переменных не могут находиться значения множественных типов данных. Неинициализированной переменной автоматически присваивается специальная константа Unassigned, описанная в модуле
Заметим, что для хранения одних и тех же данных вариантным переменным потребуется больше места в памяти, чем типизированным переменным. Кроме того, операции над вариантными переменными выполняются несколько дольше. Поэтому применение вариантов оправдано только в тех случаях, когда невозможно обойтись обычными переменными.
Обращение к вариантным переменным
Обращение к переменным типа Variant ничем не отличается от работы с переменными других типов данных^-за исключением того, что во время компиляции не выполняется проверка на совместимое! - типов.
Кстати говоря, это может вызывать ошибки времени выполнения программы. Причем такие ошибки носят динамический характер, могут проявляться редко и при трудно определяемых условиях, что еще больше усугубляется оптимизатором компиляции Delphi и автоматическим приведением типов вариантных данных. Рассмотрим пример описания вариантной переменной и ее использования в программе (см. листинг 2.9).
Интересно, что значением вариантной переменной может являться указатель на объектный интерфейс. Интерфейсы подробно рассмотрены ниже при обсуждении структуры компонентов Delphi.
В Delphi предусмотрено аналогичное значение для вариантных переменных, возвращаемое функцией Null, и показывающее* что в переменной нет данных. Однако некоторые операции с переменными, в которых находятся такие значения, будут приводить к ошибкам времени выполнения.
Листинг 2.9. Пример описания и использования вариантной переменной
Program UsingVariantsl;
Var
V: Variant; । пи . вариантной переменной, тип переменной не•
S: String; (Описание переменной типа i ;
Begin
V := 250; Присвоение1 Означения вариантной переменной V, переменной назначается целочисленный тип . ।-
V := 'It is a STRING' ;
... во* . и значения вариантной переменной V, переменной назначается строковый тип .■
S := V;. 'В . переменной присваивается строковое
значение вариантной ■>
End.
Определение типа вариантных переменных
Переменная типа Variant занимает в памяти шестнадцать байт, в которых находится информация о типе данных (код типа), хранящихся в данный момент в данной переменной и сами данные, либо указатель на них. Возможные коды типов данных для вариантных переменных, описанные в модуле System, представлены в табл. 2.4.
Для определения типа данных, хранимых в вариантной переменной, используется функция VarType, описанная в модуле Variants в следующем виде:
Function г (const V: Variant);,
Возвращаемое функцией VarType значение имеет тип аналогичный типу Word и содержит информацию о типе данных, а также о том, является ли значение, хранимое в переменной, массивом или указателем. Младшие двенадцать бит (три последние шестнадцатеричные цифры) этого значения содержат код типа, соответствующий константам, приведенным в табл. 2.4, а в старших четырех битах могут находиться следующие значения:
* нулевое значение $0000 — указывает на то, что данные заявленного типа хранятся непосредственно в вариантной переменной;
♦ значение ; )С0 (константа varArray модуля System) — указывает на то, что хранимые данные являются массивом элементов, имеющих тип, определяемый кодом типа данных;
* значение $4000 (константа varByRef модуля System) — указывает на то, что хранимые данные являются ссылкой на соответствующий тип данных, определяемый кодом типа данных.
Константа
Тип хранимых данных
Значение
varEmpty
Значение не определено
$000
varNull
Пустое значение
$001
varSmallint
Smallint
$002
varlnteger
Integer
$003
varSmgle
Single
$004
varDoubie
Double
$005
varCurrency
Currency
$006
varDate
TDateTime
$007
varQleStr
Ссылка на AnsiString
$008
varDispatch
Ссылка на интерфейс IDispatch
$009
varBootean
Wo rd Bool
$оов
varVanant
Variant
$оос
varUnknown
Ссылка на интерфейс l Interface или IUnknown
SOOD
varShortlnt
Shortint
$010
varByte
Byte
$011
varWord
Word
$012
vartongWord
LongWord
$013
varlnt64
Int64^
$014
varStrArg
Ссылка на строку, совместимую с СОМ
$048
varString
Ссылка на строку, не совместимую с СОМ
$100
Таблица 2.4
Коды типов пари mwi V переменных
Для выделения части значения, содержащей код типа данных, предусмотрена константа varTypeMask (значение . i, с помощью которой можно отделить код типа данных от дополнительных признаков:
<Переменная типа Variant> and varTypeMask
В качестве примера использования описанных выше методов приведем фрагмент программы, формирующий строку S, содержащую подробную информацию о типе вариантной переменной
S := ч element type: ';
Case VarType(V) and varTypeMask of varEmpty:S := S + ' variant is Unassigned'
varNull:S := S + i variant is .
посвященном структурным опеоатомм ветвления.посвященном структурным опеоатомм ветвления.Использование оператора множественного выбора Case Of l н описано ниже, в разделе,
посвященном структурным опеоатомм ветвления.
посвященном структурным опеоатомм ветвления.
varSmallint:
Лйе|
t^C®
+'~1 sMpned ini^jtjBr' 4
(type 1t ' ;
varlnteger:
S
• 32-t:* si®ied integer (type Integer)';
varSingle:
= s
+ Single-precision floating-point vaBe grape '; -O';
vpwio®!le :
s
= s
+ 'Double-precision floating-point value g Я D|iiuЫey,
v §ца^ u r r e rqp»
_,|,|
= s
+ 'Currency floating-point value (type Currency)';
varDate:
5
= s
+date 4.1^1 "Д' TTVIitva 1 дЩ.<(Гуре
TDateTime) ' ;
varOleStr:
= s
+ 'Reference to a dynamically allocated UNICODE string';
varDispatch:
= s
♦y 'Referen to an Амф-ЙВаt1 °n object';
varBoolean:
$
+' 1 -l ' boB eSa ^tvpe .v:'
varVariant:
= s
+ 'A variant' ;
varUnknown:
S
= s
+' Re f erence 8o an 'un-kT^own OLE
object';
varShortlnt:
H*^
+ '8-bit^ignedeg
Shortlnt)';
varByte:
us .
^ 8
+ 'A Byte';
WarWord:
s
= s
+ ' -■ j 16-bHJ>®.u^WI (WordF’;(
varLongWord:
s
= s
+ 'unsigned 32-bit value (LongWord)';
varlnt64:
s
= s
+ iu signed integer
varStrArg:
s
= s
+ 'COM-compatible string';
varString:
s
= s
+to a dynamically .
allocated •. Ln '
end;
if (VgrTyf^vH Ind varArray) = varArray then S : S И- *f
it is ^Batrayr3
if (VdrType (Ш and varByRef) = varByRef then. S := S + '; it is a reference';
Таким образом, если в переменной v находится значение , то после выполнения данного фрагмента программы значением переменной s будет строка ' . - 1 element type: А Зу: . если переменной V задать значение . : > . то в переменной S будет строка Ч и element type: Currency floating-point value (type Currency)'. Если же значение переменной V будет строковым, например, ' 1 : . то значением переменной s будет такая строка: 'Data element type: Reference to a dynamically allocated ' t '
Автоматическое приведение типов
Интересной особенностью вариантных переменных является то, что во время выполнения программы их тип автоматически приводится для соответствия смыслу выражения. Естественно, это правило верно не для всех типов вариантных переменных, а только для тех, в которых хранятся числовые (целочисленные и вещественные), строковые, символьные и логические значения.
Допустим, например, что в программе имеется вариантная переменная vi, которой присвоено значение 200. После присвоения переменная будет целочисленной (иметь тип с кодом varByte):
Vi := 200;
Допустим также, что имеется переменная S типа string. Тогда в результате выполнения оператора присваивания S :. значением переменной S будет строка ’.' Таким образом, во время выполнения опера
тора значение целочисленной переменной будет автоматически переведено в строковый вид.
Более юго, возможна и обратная ситуация, когда вариантная переменная строкового типа и оматически переводится в численную форму. Однако именно в таких ситуациях могут возникать ошибки времени выполнения. Рассмотрим пример безошибочного использования вариантной переменной (листинг 2.10).
Листинг 2.10. Пример безошибочного использования вариантной переменной
Program UsingVariants2;
Var
V:
I:
Variant;
Integer;
. . вариантной переменной, тип переменной не. .
переменной типа ;
Begin
V : =
'280' ;
значения вариантной переменной
I : =
V;
V, переменной назначается строковый тип данных)
и переменной I присваивается
End.
значение вариантной переменной V. Значение переменной Iстановится равным 280}
Но значением переменной V могла бы быть не строка '. - ', а, например, строка *' — см. листинг 2.11.
Листинг 2 11 Пример возникновения ошибочной ситуации
Program UsingVariants3;
Var
V:
Variant;
вариантной переменной, тип переменной не о j_ । 1
I:
Integer;
переменной типа t. ;
Begin
V :=
'a280' ;
значения вариантной
переменной V, переменной назначается строковый тип■
I :=
V;
1 -времени выполнения — несоответствие
типов, так как из строковой вариантной переменной невозможно выделить целочисленное
End.
Выполнение такой программы невозможно и будет прервано с сообщением об ошибке: "Could not convert variant of type (String) into type ; i " — "Невозможно привести тип String к типу •" Эта ошибка появляется не из-за невозможности преобразо
вать строку в числовое значение вообще, а из-за невозможности выделить целое число именно из этой строки.
Правила трансформации вариантных значений при использовании их в выражениях приведены в табл. 2.5.
Тип переменной источника
Тип переменной-приемника
Целочисленные
Вещественные
Строковые
Логические
Целочисленные
без изменения
без изменения
Перевод в строку
0 -> False, иначе True
Вещественные
округление
без изменения
Перевод в строку
0 -> False, иначе True
Строковые
выделение числа с округлением
выделение «исла
без изменения
"false" -> False
"true" -> True
если можно вьщелитъ число:
0 -> False
иначе True
Логические
False -> ’О’
True -> ’-Г
False -> 0
True -
False -> 1
True -> 1
без изменения
Значение
Unassigned
0
0
Пустая строка
False
Значение Null
Сообщение об ошибке
Правила изменения вариантных значений
Таблица 2.5
Вариантные массивы
Как было отмечено выше, значением вариантной переменной не может являться массив, описанный по обычным правилам. Однако Delphi предлагает специальный вариантный массив, который можно создать с помощью функции VarArrayCreate, описанной в модуле Variants:
Function VarArrayCreate(const Bounds: array of Integer;
VarType: TVarType): Variant;
Параметр Bounds является массивом целочисленных значений, каждая пара которых определяет пределы изменения индексов. Количество измерений массива, соответственно, определяется количеством пар значений в этом массиве. Вместо массива, заданного переменной, можно использовать конструкцию следующего вида:
[<А1, В1>, <А2, В2>, ..., <Ап, Вп>]
Вторым параметром задается тип элементов массива. При этом могут использоваться любые константы, приведенные в табл. 2.4, за исключением varString, однако для формирования массива строковых элементов допустимо использование константы varOleStr.
->►"Г65| 12\ 4 |50800 14\ 3 |5511->►"Г65| 12\ 4 |50800 14\ 3 |5511Intel PentiumTrue \-16800 \Intel PentiumTrue \-16800 \
->►
"Г
65| 12\ 4 |
50
80
0 14\ 3 |
55
11
->►
"Г
65| 12\ 4 |
50
80
0 14\ 3 |
55
11
Intel Pentium
True \
-
16800 \
Intel Pentium
True \
-
16800 \
Рис. 2.1. Непрямоугольный однородный массив (слева)и неоднородный массив (справа)
Заметим, что вне зависимости от количества измерений массива все его элементы имеют один и тот же тип, указываемый при вызове функции VarArrayCreate,_но если в качестве типа элементов задать константу varVariant, то элементом вариантного массива будет также являться вариант.
Следовательно, такому элементу можно присвоить вариантный массив, причем тип его элементов также может быть произвольным. Таким образом, в Delphi появилась возможность создания неоднородных (состоящих из элементов разного типа) массивов, или, например, однородных массивов непрямоугольной формы.
Для получения информации о размерностях и индексации вариантных массивов в модуле Variants предусмотрены следующие функции:
» VarArrayLowBound — возвращает нижнюю границу индексов заданного вариантного массива для заданного измерения.
» VarArrayHighBound — возвращает верхнюю границу индексов заданного вариантного массива для заданного измерения.
Описание этих функций выглядит следующим образом:
Function VarArrayDimCount(const A: Variant): Integer;
Function VarArrayLowBound(const A: Variant; Dim: Integer): Integer;
Function VarArrayHighBound (const A: Variant; Dim: Integer): Integer;
Пример использования и тех, и других приведен в листинге 2.12.
Листинг 2.12. Работа с вариантными массивами
Var
V: Variant;LI, Hl, L2,V: Variant;LI, Hl, L2,Н2: Integer;Н2: Integer;(Описание вариантной переменной)
V: Variant;
LI, Hl, L2,
V: Variant;
LI, Hl, L2,
Н2: Integer;
Н2: Integer;
(Описание четырех целочисленных переменных)
Begin
v := VarArrayCreate([0, 5, 3, 8], varlnteger);
(Создание двухмерного вариантного массива целочисленных элементов, аналогичного по оттсанию массиву Array[0..5, 3..8] of Integer)
LI := VarArrayLowBound(V, 1) ;
(Определение минимально возможного индекса элементаунебения вариантного
массива V и занесение его в переменную ТЛ
(значение 0)}
Hl := VarArrayHighBound(V, 1) ;
(Определение максимально возможного индекса элемента для первого измерения вариантного массива V и занесение его в переменную Н1
(значение 5) )
L2 := VarArrayLowBound(V, 2);
(Определение минимально возможного индекса элемента для второго измерения вариантного массива V и занесение его в переменную L2
Н2 := VarArrayHighBound(V, 2) ;
.: :лени максимально возможного индекса
элемента для второго измерения вариантного массива V и занесение его в переменную Н2 (значение 8) }
Разрушение вариантных переменных
При описании вариантной переменной, а также при создании вариантного массива выделяется некоторое количество оперативной памяти. В случае использования локальных вариантных переменных память возвращается системе при достижении программой конца области видимости переменной.
В случае глобальных переменных разрушение структур данных происхо дит при присвоении новых значений вариантным переменным или при завершении программы. Это не всегда правильно, так как неиспользуемые глобальные переменные могут неоправданно занимать большой объем памяти, замедляя работу системы в целом. Для немедленного разрушения вариантной переменной предназначена процедура VarClear, по своему действию эквивалентная присвоению переменной значения Unas si ned:
Procedure VarClear(V: Variant);
Например:
Var
V: Variant; (Описание вариантной переменной)
Begin
V := VarArrayCreate([0, 5, 3, 8], varlnteger); (Создание двухмерного вариантного массива)
VarClear(V); (Разрушение вариантного массива V)
2.6. Выражения в Object Pascal
Выражения в Object Pascal можно разделить на арифметические, логические и строковые.
VarX, Rd: Double;I, Ri : Integer;VarX, Rd: Double;I, Ri : Integer;К арифметическим выражениям относятся операции сложения (используется оператор +), вычитания (используется оператор -), умножения (испо ьзуетсй оператор *) и деления (используется оператор /), производимые над вещественными и целочисленными значениями. При использовании в одном выражении значений разных типов, например при умножении целого числа типа integer на вещественное значение типа Double, тип результата выражения устанавливается по типу одного из операндов, имеющего самую широкую область значений.
Var
X, Rd: Double;
I, Ri : Integer;
Var
X, Rd: Double;
I, Ri : Integer;
(Описание вещестИЕЖных 1ЖЯИВвЯ*Х 1^кЯу
(Описание целочисленных "еременных УМ Ri 1
Begin
Rd := X * I;присвоения переменной Rd jo шя
арифметического выражения — произведения целочисленной и вещественной переменных I и X. Операция корректна, так как выражение име, - тип Double, как наиболее широкий из типов
■Следовательно, результат может быть
занесен в переменную Rd, имеющую тип I о.
Ri := X * 1Ж(Попыт присвоения переменной Ri значения арифметического выражения — произведения целочисленной и вещественной переменных I и X. Операция является ошибочной, так как выражение имеет тип Double, как наиболее широкий из
- '- Следовательно, результат не
может быть занесен в переменную Ri, имеющую тип Integer 1
В выражениях, использующих строковые значения, поддерживается только операция конкатенации — сложения строк, в результате которой получается строка, состоящая из символов каждой строки-операнда в последовательности, указанной в выражении:
Var
N, F: Double;двух строковых передни™ — 8таи
Begin
N := 'Ольга'; (Присвоение переменной N значения 'Ольга'} F := 'Тихонова'; [Присвоение переменной F значения 'Тихонова' }
N := N + ' ' + Г; {Присвоение переменной N результата *5бВ®#йте®.циКеёВе] сщЙрД — знаМ®вДЬ| переменной N, строки, состоящей ив ^Агимвола tjSBQgpJl, и Значения гЕг^менной F .
В переменной N, таким образом, будет содержаЯс" стр’ОДЫ* ТЙХоЙОВаУ
Логические операции представляют собой набор логических операндов (переменных или констант типа Boolean), соединенных логическими операторами And, Or и Not. Оператор And возвращает значение True, если оба операнда имеют значение True. Оператор Ог возвращает значение True, если хотя бы один из операторов имеет такое значение. Оператор Not предназначен для работы с одним операндом и инвертирует его значение.
VarА, В, С: Boolean;VarА, В, С: Boolean;(Описание переменных А, В и С типа Boolean
Var
А, В, С: Boolean;
Var
А, В, С: Boolean;
Begin
А :■ True;В := True;А := Not А;С := A Or В;А :■ True;В := True;А := Not А;С := A Or В;€ : = A Aria В;€ : = A Aria В;В выражениях любогоВ выражениях любогоТо -■п™йм1п^^^Я| значени$ЯТгив)
А :■ True;
В := True;
А := Not А;
С := A Or В;
А :■ True;
В := True;
А := Not А;
С := A Or В;
€ : = A Aria В;
€ : = A Aria В;
В выражениях любого
В выражениях любого
{Црмсвоение ВеременгЯй ебЛСТгие}
П^рМИнН^ю А ^^ЦоситсяЙн®8Р#1Р°ван^№ э#®ем|э&>й жепеременной (False) )
(В переменную С заносится результат #эгиче<жто выражение A or • Я Так Kag . один из операндов (В) имеет значение True, то результатом выражения также .является значение True}
R 1врв4енцу® С заносится р^ульДт логичеддрго ЙЬ^жедирзША1! and #|!ф№а;к ка$1 одЗ^й^.из дЙ1®уандЯп( (А) ^ме^| зК&ЧегНМ Ри(Д;4'Шго рдзудюйтомь, вддажуния *®кже является значение False}
вида могут использоваться более сложные кон
струкции, например:
Var
А, В, С: Double;- ис вещественных па^аамаДВрк. В и
Begin
С : = А + В * А + В; {В переменную С заносится значение выражения А + В * А + В, вычисляемого с использованием обычных математических правил: А + (В * А) + В)
Во всех видах выражений могут применяться не только переменные и константы, но также и функции, возвращающие значения, подходящие по типу для данного выражения, например, можно стандартную функцию Sin, возвращающую синус заданного значения, использовать следующим образом:
Var
X, Y: Double; ■ г . а : j ваес№ешы&1крфе8йь1х X й Y}1
Begin
У := Sin (X) ;. рис ..: переменной Y значения,
возвращаемого функцией Sint
Структурные операторы
Организация ветвления
Условный оператор If..Then..Else
Условный оператор предназначен для ветвления программы в зависимости от некоторого условия (логического выражения или логической переменной) и выглядит следующим образом:
If <Условие> Then <Команда> (Else <Команда>};
Вторая часть условного оператора, начинающаяся с ключевого слова । необязательна, и ее можно не использовать, например:
If X > 0 Then X := 10;
В качестве примера использования условного оператора приведем фрагмент программы, определяющий сигнатуру некоторой целочисленной переменной х. Сигнатурой числового значения является:
, если значение равно нулю;
-1, если значение отрицательно;
если значение положительно.
Код примера приведен в листинге ' I. Обратите внимание, что используются два условных оператора, один из которых вложен в другой. В обоих операторах присутствует секция Else.
Листинг 3.1. Использование условного оператора
Var
X: Integer;' ОписаНИС-вЯМзЖ^^в^й п ц я: иней!
Sign: Integer; • zca; е п^йменнЯЙ! для <(Уы1бн5ИМ результата анализа (сигнатуры)}
Begin
If X > 0 then Sign := 1
(ЕСЛИ значение переменной X полож^ел^о, 0 ^еЕ^щЖцЖй Sign будешь присвоено значение 1}
else If X < 0 then Sign := -1
■ я значение жремяв: X отрицательно, переменной Sign будет присвоено значение -1}
else Sign : = 0; •/ не геыЗжЯшнИЖАЙВ. предЙ^Них
условия (значение переменной X нулевое), следовательно, переменной Sign также следует присвоить значение 0}
Вместо Условия в операторе : : . .л . .Else допускается применение переменной типа ВоМеап:
Var
В: Boolean;
Begin
If В Then . . . Else
Условный оператормножественного выбора Case
Для повышения читабельности исходных текстов программ предусмотрен условный оператор множественного выбора Case:
Case <Переменная> Of
Оначение 1>: <Команда 1>;
•N>: <Команда '■■>■
else •>;
end;
В качестве возможных Значений анализируемой переменной могут использоваться подходящие по типу константы, а также непрерывные интервалы значений, задаваемые парами констант, разделенными двоеточием. В качестве примера приведем фрагмент программы, определяющий сигнатуру переменной, реализованный с помощью оператора множественного выбора (листинг 3.2). Такой подход поможет избежать большой вложенности условных операторов.
Листинг 3.2. Использование оператора множественного выбора
Var
X: Integer; (Описание анализируемой переменной)
Sign: Integer; ' . :а: ..о пе^Дмегдой t^SS хранения результата анализа (сигнатуры) }
Begin
Case X Ofin i шзи; у м параметр X
-2147483648. -1 Sign := -1;
(Если значение переменной X отрицательно (от минимально допустимого значения
переменной типа Integer дото переменной
Sign будет присвоено значение 1}
.2147483647: Sign := 1;
значение переменной X положительно (от 1 до максимально допустимого значения переменной типа 1:>. то переменной Sign
будет присвоено значение ■
0: Sign := 0; (Если значение переменной X нулевое, то переменной Sign будет присвоено значение 0}
end;
Заметим, что первый вариант определения сигнатуры с помощью вложенных операторов и. .Т1н . .Else является более корректным, так как при любом значении переменной х переменная sign также получит какое-либо значение в данном фрагменте программы.
Логика же второго примера подразумевает ограничение возможных значений анализируемой переменной интервалом -214748364 . . '-
В таких случаях целесообразно использовать секцию Else оператора мно-
жественного выбора для отработки неподдерживаемого значения параметра х. В этой секции могут выполняться различные действия, такие, как установка переменной sign значения, отличного от О, 1 и -1, или, например, во збуждение исключительной си гуаини И1.
Изменим предыдущий пример таким образом, чтобы в случае обнаружения значения переменной х, выходящего за пределы допустимого интервала, переменной Sign устанавливалось значение -2. Измененный код приведен в листинге 3.3.
Листинг 3.3. Модифицированный код
Var
X: Integer;^ ана.™зйруемой п { ?м .
Sign: Integer;переменной для хранения
результата анализа (сигнатуры)}
Begin
Case X Of(Анализируем параметр X}
-2147483648 .-1: Sign := -1;
- значение леем "нб^^ бййццаij Ль»
(от минимально допустимого значения
переменной типа Integer до -1), переменной Sign будет присвоено значение 1}
.2147483647: Sign := 1;
(Если значение переменной X положительно
(от 1 до максимально допустимого значения переменной типа Integer), переменной Sign будет присвоено значение -1}
0: Sign := 0; (Если значение переменной X нулевое, значение переменной Sign также нулевое}
Else: Sign := -2;
(Если значение переменной X не удовлетворяет МйЯ1оДному иЯКф^х условижуК 1у|ременноД|^81дп ^■■эисваивау?сЙвЯн*|е1^^ -2}
end;
Понятие исключительной ситуации рассмотрено ниже в соответствующем разделе.
Составной оператор
Так как одной команды, выполняемой в зависимости от некоторого условия, может быть недостаточно, в Delphi, как и в Pascal, предусмотрена возможность использования составных операторов — нескольких команд, заключенных в так называемые программные скобки — ключевые слова begin и end:
begin
<Команда 1>;
<Команда N>;
end;
Пример составного оператора приведен ниже при обсуждении условных операторов цикла.
Зацикливание
Операторы зацикливания предназначены для многократного выполнения (повторения) некоторого фрагмента программы и представлены в Delphi в трех вариантах:
оператором For;
оператором wl ■ .do;
оператором।
Оператор зацикливания For
Стандартный вариант
Оператор For изменяет некоторую переменную (счетчик цикла) в заданных пределах (от минимального значения до максимального) с единичным шагом и при этом на каждый шаг может выполнять какую-либо команду или набор команд. В качестве счетчика цикла может использоваться любая целочисленная переменная.
For ссчетчи? цикла> := <м ■ .: . о. значение> То
< г :значение> Do ■>,
В качестве Команды может использоваться любая конструкция языка, в том числе условные операторы или операторы зацикливания, а также составной оператор. В качестве Минимального значения и Максималь-
но 1чз значения могут быть использованы целочисленные переменные или константы.
Обратите внимание, что использование переменной-счетчика цикла после оператора зацикливания не рекомендуется, так как значение этой переменной может быть не определено. Это связано с работой оптимизатора компиляции в Delphi, подставляющего вместо некоторых счетчиков цикла регистры процессора для ускорения выполнения программы.
При компиляции программы, в которой переменная-счетчик цикла используется после оператора цикла, выдается предупреждение " [Warning] FOR-LOOP variable 'Имя переменной' may be undefined after loop» — " [Предупреждение] Значение переменной-счетчика цикла '/Щя перемени й* может быть не определено после завершения оператора цикла».
Приведем пример использования оператора зацикливания For при вычислении факториала некоторого числа (см. листинг 3.4).
Листинг 3.4. Вычисление факториала с использованием оператора зацикливания For
Var
Integer; (Описание целочисленной переменной — счетчика цикла)
Integer; (Описание целочисленной переменной —результата вычислений)
Intmer; (Описание цЕ ж —
Значения,-^Ж кото вычисляется факт< риал)
Begin
X := 10;(Будем вычислять факториал числа 10}
F := 1;(Значение факт^уа-ла во двлчанив? }
For i : = 2 То X (Сче т мк цикти юследов^Йльно измевит^ от 2 до X (10)}
Do F :■ F * 1; (На каждом шаге цикла предыдущий результат умножается на значение счетчика цикла)
Заметим, что, если значение переменной х, установленное перед вычислением, меньше 2, то оператор зацикливания не выполнится ни разу, и результирующее значение факториала (значение переменной F) будет равно 1.
Цикл с обратным отсчетом
Для уменьшения счетчика цикла от Максимального значения до Минимального гния (также с единичным шагом) предусмотрена разновидность оператора зацикливания — так называемый оператор зацикливания с обратным отсчетом. В этом операторе используюется ключевое слово DownTo вместо То:
For <Счетчик г. - i> := <ма ; . ^ ■ с значение> DownTo
< ._/':значение> Do <Команда>;
Приведем фрагмент программы вычисления факториала на основе цикла с обратным отсчетом (листинг 3.5).
Листинг 3.5. Вычисление факториала с использованием
оператора зацикливания For с обрантым отсчетом
Уаг
I: Integer; : зиш целочисленной переменной — счетчика цикла)
Integer; 1 писание целочисленной переменной — результата вы - ений
Integer; |Описание целочисленной переменной — значения, от которого вычисляется
Begin
X := 10;(Будем вычислять факториал числа 10}
F ;= 1;Зна • ние ф^Ьориал^ЯтсКумол^нЯе 1R
For i := X DownTo 2
(Счетчик цикла последовательно изменяется
от X (10) до 2 в сторону уменьшения}
Do F : = F * 1;,«
На каждом шаге цикла предыдущий результат умножает® на значений ситчика . - п •
Условные операторы зацикливания
Оператор зацикливания с предусловием While..do
В случаях, когда на этапе написания программы неизвестно количество шагов в цикле, используются условные операторы зацикливания, выполняющие фрагмент программы, в зависимости от истинности или ложно-
сти некоторого условия. Таких операторов в Delphi, как и в Pascal, два - условный оператор цикла с предусловием и с постусловием. Отличие этих операторов друг от друга состоит в том, что первый проверяет необходимость продолжения работы перед выполнением зацикливаемого фрагмента программы, а второй — после. Таким образом, в операторе цикла с постусловием ыдикфрагментвыполняется как ми
нимум один раз, а при использовании цикла с предусловием он может не выполняться ни разу.
Условный оператор зацикливания с предусловием While, .do выглядит следующим образом:
While <• Do <>
Команда, представленная Любой структурой языка, выполняется до тех пор, пока Условие истинно. В качестве примера использования оператор зацикливания While, .do рассмотрим вычисление факториала (листинг 3.6).
Листинг 3.6. Вычисление факториала на основе
VarF: Integer;X: Integer;VarF: Integer;X: Integer;условного оператора цикла While..do
Var
F: Integer;
X: Integer;
Var
F: Integer;
X: Integer;
. - целочисленной переменной — результата . . id
:■ целочисленной переменной —
значения, от которого вычисляется , ■
Begin
X := 10?F :- 11While X > 1 dobeginF :- F * X;X = X - 1; end;X := 10?F :- 11While X > 1 dobeginF :- F * X;X = X - 1; end;Булем вычислять факториал числа 10}
X := 10?
F :- 11
While X > 1 do
begin
F :- F * X;
X = X - 1; end;
X := 10?
F :- 11
While X > 1 do
begin
F :- F * X;
X = X - 1; end;
.. факториала по умолчанию 1}
(Зацикленный фрагмент будет выполняться, пока истинно выражение X >
1чалс составного оператора — зацикленного фрагмента)
:. . ■ текущее значение факториала на
■X на
составного оператора — зацикленного :।aimi
Условный оператор зацикливанияс постусловием Repeat..Until
Условный оператор зацикливания с постусловием Repeat, .until является заодно еще и составным оператором, и выглядит следующим образом:
Repeat
<Команда 1>;
<1 ма) a N>;
Until <У повие>;
Зацикленный фрагмент программы выполняется оператором ।. .;
до тех пор, пока не станет истинным Условие.
Закончим обсуждение условных операторов цикла описанием двух фрагментов программы, содержащих бесконечные циклы. Первый вариант бесконечного цикла реализуем с помощью оператора while:
While 2=2 Do;H . ■ как условие 2=2 истинно и не изменится
в процессе выполнения программы, то зацикленный фрагмент программы (пустой оператор будет
ВЫПОЛНЯТЬСЯ ''
И аналогичный пример с использованием оператора Repeat. .1
Repeat
Until 2<>2; I как условие 2<>2 ложно и не изменится
в процессе выполнения программы, то зацикленный : . а -мент программы (команды в этом фрагменте отсутствуют) будет выполняться -,
Заметим, что использование бесконечных циклов при программировании под операционную систему Windows крайне не рекомендуется, так как приводит к »подвисанию» системы (снижению ее производительности), и обычно приостанавливает выполнение других приложений. Особенно это касается Windows 98 и более ранних версий.
Прерывание зацикленного фрагмента
Для досрочного завершения какого-либо оператора зацикливания (For, While или Repeat. .Until) предусмотрена команда Break. Наиболее часто применение такой команды требуется в подпрограммах поиска с помощью перебора в ситуациях, когда искомый элемент найден, и в дальнейшем переборе остальных элементов нет необходимости.
Проиллюстрируем использование команды Break на примере выхода из бесконечного цикла на основе анализа значения, возвращаемого генератором случайных чисел (функция Random возвращает случайное число в интервале от нуля включительно до единицы).
Repeatоператора
if Random < 0.01 then break;
:- .■ . , в зависимости от значения функции
Until False; (Так как условие завершения цикла ложно, то зацикленный фрагмент может повторяться бесконечно)
Условие Random < . 1, используемое в условном операторе, представляющем собой фрагмент программы, зацикленный с помощью оператора Repeat. til. изменяется в процессе выполнения программы, так как при каждом вызове функция Random возвращает разные значения. Таким образом, программа завершится с высокой вероятностью, но сколько раз будет выполнена проверка условия, заранее неизвестно. В тот момент, когда условие в операторе if станет истинным, будет выполнен оператор break, и выполнение оператора зацикливания прервется. Соответственно, завершится и программа.
65653 lai 867
65
65
Описание подпрограмм
Виды подпрограмм:процедуры и функции
Подпрограммы в Delphi, как и в Pascal, представлены процедурами и функциями.
Процедура — это логически законченная часть программы, описываемая отдельно от раздела описания логики программы и вызываемая по ее уникальному имени. Процедуры, так же как и программа, имеют сложную структуру, включающую в себя разделы описания переменных, констант, типов, и так далее (все они называются локальными, так как их область видимости ограничена процедурой). Единственное, чем отличается по структуре процедура от программы — в ней нет раздела подключения модулей.
Procedure <Имя>;LabelConstTypeVarProcedure -Function . .Procedure <Имя>;LabelConstTypeVarProcedure -Function . .Заголовок процедуры
Procedure <Имя>;
Label
Const
Type
Var
Procedure -
Function . .
Procedure <Имя>;
Label
Const
Type
Var
Procedure -
Function . .
Раздев Яп^йндЛ локяьвЬто^ *1 безусДвного перехода
Раздел описания локалвных констант
Раздел описания локалвных типов данных
Яаздел аДибаДия лВсалЯхЦ перемег^^Н
Раздел описания локалвных подпрограмм — процедур и функций, содержащих некоторые элементы логики процедуры
begin end;begin end;Начало раздела описания логики процедуры
begin end;
begin end;
Раздел описания логики процедуры
Конец раздела описания логики процедуры
Функции — это процедуры, которые возвращают значения. Благодаря этому их можно использовать в арифметических или логических выражениях, наряду с переменными или константами. Структура функции аналогична структуре процедуры, за исключением заголовка, в котором указывается, значение какого типа возвращает функция. Вместо ключевого слова Procedure в описании функций используется ключевое слово Function:
Function <Имя: <Тип возвращаемого <,
Для указания компилятору, какое именно значение должна возвращать функция, в разделе описания логики функции должно использоваться присвоение следующего вида:
< ' функции> := <31.■ >;
В Delphi предусмотрен еще один механизм возврата значения функции в вызывающую подпрограмму — ключевое слово Result:
Result :=>
Приведем пример модуля, в котором описана одна процедура и одна функция (листинг -I I г а также программу, которая подключает этот модуль и вызывает подпрограммы, описанные в нем (листинг Л.2).
Листинг 4,1. Модуль
с описанием подпрограмм
Unit SubPrograms ;
За:модуля содержит название,
по которому модуль подключается к программе)
Interface
1 .интерфейсной: <
Procedure RunMe;
(Заголовок процедуры RunMe, которая должна быть реализована в описательной секции и будет доступна в подключающем
модуле)
Function GetValue:
Integer;
- функции GetValue, которая должна быть реализована в описательной секции и будет доступна в подключающем модуле]
Implementation Procedure RunMe ;
1описательной:
begin end;
(Реализация процедуры RunMe)
Function GetValue:
Integer;
begin Result := 158, end;
1■ WHKrftt iGeMlae, фуьгкдия
ЛзврЙЯЙт «жакние V158}
nd.
Листинг 4.2. Программа, подключающая модуль и вызывающая его подпрограммы
Uses Subprograms;
(Подключение модуля SubPrograms)
Var
V: Integer;
(Описание целочисленной переменной)
Begin
RunMe;GetValue;V := GetValue;RunMe;GetValue;V := GetValue;1 "ПР°^^3№>Ь^ЯЦМ№} t
RunMe;
GetValue;
V := GetValue;
RunMe;
GetValue;
V := GetValue;
(ВЫЗОВ функция GetValue |>ез мальма
&’ЗвращВеможР значения) ^
1 - 1 фунэд^т ^еЯН^Н с здьесенидсвозвращаемого жа^нип^ЙЙЖььШвэ V)
Подпрограммы с параметрами
Для повышения гибкости подпрограмм и изменения их функциональности в некоторых пределах можно использовать параметры — некоторые значения, передаваемые в процедуры и функции для внутреннего использования. С помощью параметров вызывающая программа имеет возможность изменять ход выполнения подпрограмм тем или иным образом, заложенным в них разработчиком, что существенно расширяет круг их применения.
Object Pascal поддерживает множество видов параметров. Далее рассмотрены основы использования некоторых из них, а также механизмы их передачи в подпрограммы.
Описание параметров
Описание параметров подпрограмм происходит в их заголовках после имени и имеет следующий вид:
Procedure <Имя> (<1>: <Тип параметра 1>; . ..;
<Параметр 2>: <Тип параметра . >) ;
или для функций:
Function <ИмЯ> (<Список параметров>) : <Тип .чения>;
Параметры, переданные в подпрограмму, могут использоваться в ней аналогично локальным переменным, а значение, заданное в качестве параметра при вызове подпрограммы, является, соответственно, начальным значением такой переменной.
Механизмы передачи параметровв подпрограммы
Delphi поддерживает два механизма передачи параметров в подпрограммы:
I По значению (от англ. Value parameter — параметр, передаваемый по значению);
2. По ссылке.
Передача параметров по значению
При передаче по значению параметр рассматривается как шкальная переменная, значение которой устанавливается при вы юве подпрограммы, может быть использовано и изменено подпрограммой, но не может повлиять на вызывающий фрагмент. В качестве параметра может указываться переменная или константа, подходящая параметру по типу.
При передаче параметра по значению значение параметра, заданное при вызове подпрограммы, заносится в стек (см. рис. 4.1). Затем подпрограмма выделяет собственную память для локальной переменной, переносит в нее значение параметра, переданное через стек, и обеспечивает доступ к этой локальной переменной через имя параметра. После завершения подпрограммы измененное значение параметра теряется и никак не влияет на данные вызывающего фрагмента. Рассмотрим пример, в котором подпрограмма изменяет значение параметра, переданного ей по значению (см. листинг 4.3).
Значение
Рис. 4.1. Механизм передачи параметров по значению
Листинг 4.3. Передача параметров по значению
Program ChangingParamsl;
Var
I: Integer;Procedure ProcBeginA := 154;end;BeginI := 200;Proc (I);I: Integer;Procedure ProcBeginA := 154;end;BeginI := 200;Proc (I);Proc(80);End.Proc(80);End.-. :a it ■ цеМислеякЙ |ДврШМШ|ОЙ1и|
I: Integer;
Procedure Proc
Begin
A := 154;
end;
Begin
I := 200;
Proc (I);
I: Integer;
Procedure Proc
Begin
A := 154;
end;
Begin
I := 200;
Proc (I);
Proc(80);
End.
Proc(80);
End.
(A: Integer) ;
■.■ ; . процедуры X£qc с 5ЙвИ параметре™,
паведавйщым мп .значению) у
М{ИЯМенеДМе Ынаенения пацаметаа»,- j®® еданн^цр
Те приеду®. Никаких 11 зменещш данных;вызывающеЩ фрагмента не* ПРОИСХОДИТ};
,(Начало рашгама описащщ логики у ; амм (Изменение значение переменной I)
4(ВЫЗО8 ИрДузды• ,№°@< в ка4й@ий парамяМк. Крефавтся значении перемен™!® I, : окончания работы процедуры значение переменной сохраняется)
:э в пеДцедурИ ЖоСТ в качестве Ндзмиетра Кре^етслмцелсЯаслеЯаИ кондМантаВ^О, что допустимо при передаче параметров по значению)
Передача параметров по ссылке. Параметры-переменные
АдресАдресРис. 4.2. Механизм передачи параметров по ссылкеРис. 4.2. Механизм передачи параметров по ссылкеВторой механизм передачи параметров — по ссылке — подразумевает возможность изменения подпрограммой данных вызывающего фрагмента программы. Для этого в качестве параметра вызывающий фрагмент должен использовать переменную, адрес которой будет передан в подпрограмму через стек (см. рис. 4.2). Далее подпрограмма обеспечивает доступ к переданному адресу по имени параметра. Соответственно, изменения, производимые с параметром в подпрограмме, влияют на ту переменную, которая указана в качестве параметра.
Адрес
Адрес
Рис. 4.2. Механизм передачи параметров по ссылке
Рис. 4.2. Механизм передачи параметров по ссылке
Для указания компилятору на необходимость передачи параметра по ссылке перед описанием соответствующего параметра указывается специальный модификатор параметра — ключевое слово Var (от англ. Variable — переменный):
Procedure ( . . . , Var <Параметр>. СТип параметра>, . . .) ;
Так как при использовании параметров-переменных в подпрограмму должен быть передан некоторый адрес, ю в качестве параметра, передаваемого по ссылке, должны использоваться только переменные. Изменим предыдущий пример таким образом, чтобы параметр передавался в процедуру по ссылке (см. листинг 4.4).
Листинг 4.4. Передача параметров по ссылке
Program ChangingParams2;
Var
Integer; (Описав целочисленной
Procedure Proc (Var A: Integer) ;
• процедуры Proc с одним параметром, передаваемым по
Begin
А := 154;■ Изменение- значения параметра, переданного в про
end;BeginI :=Proc (I) ;end;BeginI :=Proc (I) ;цедуру. Одновременно с этим изменяется значение переменной, переданной в качестве .■■
end;
Begin
I :=
Proc (I) ;
end;
Begin
I :=
Proc (I) ;
{Начало раздела описания логики программы} {Изменение значение переменной 1}
{Вызов процедуры Proc, в качестве параметра передается адрес переменной I, после окончания работы процедуры, значение переменной изменится и станет равным 154}
End.
Параметры, передаваемые по ссылке, называют параметрами-переменными (от англ. Variable parameter — параметр-переменная).
4.2.3. Частные случаи передачипараметров подпрограммам
Параметры по умолчанию
Особенностью Delphi относительно Pascal является возможность использования параметров по умолчанию. Такие параметры находятся в конце списка параметров и их описания имеют следующий вид:
<Параметр>: <Тип параметра> = <по умолчанию>
Подпрограммы, для которых указаны параметры по умолчанию, вызываются либо с указанием полного набора параметров, либо с указанием набора обязательных параметров и одним или несколькими параметрами, имеющими значения по умолчанию. При этом для того, чтобы передать некоторый параметр, задаваемый умолчанием, следует передать все параметры, находящиеся в списке параметров перед ним. Пример использования параметров по умолчанию приведен в листинге 4.5.
Листинг 4.5. Использование параметров по умолчанию
Program UsingFunctions; Var
S: String;i ни строковой переменной
Function GetFullName
(SurName: String;
FirstName: String = 'имя не введено ;
SecondName: String = 'отчество не введено'): String;
функции • "с одним
обязательным параметром и двумя параметрами, заданными поi in
Begin
Result := SurName + ' ' +
FirstName + ' ' +
SecondName;
качестве результата функция возвращает сумму ц амет; в. Если при вызове не задан последний параметр, то вместо него подставляется строка 'о не деноПр если не задан еще и предпоследний параметр, то вместо него подставляется ' не ?'
end;
BeginНачал раздела описания логики п: , г[ ям
S := GetFullName( ’Иванов' ) ;
■ переменной S будет значение У : : имя не введено отчество не ■ ■
S := GetFullName('Иванов' , 'Иван');
! переменной S будет значение 1 Ibshoi Иван отчество не' }
S := GetFullName('Иванов' , 'Иван', 'Иванович');
переменной S будет значение а > Иван У ।'
End.
Передача по значению параметровссылочных типов данных
При передаче параметров по значению все содержимое заданной структуры данных копируется в локальную память подпрограммы. Однако для ссылочных типов данных их значением, фактически, является адрес памяти. Таким образом, при передаче в подпрограмму ссылки, ее значение нельзя изменить, но можно изменить информацию в памяти, на которую эта ссылка указывает.
Для начала продемонстрируем невозможность изменения самой ссылки:
Procedure ChangeParam (Р:;
Begin
New(Р);
End;
В такой реализации процедуры в качестве параметра передается не адрес переменной, использованной в качестве параметра, а ее содержимое, то есть адрес, который является значением. Этот адрес заносится в локальную копию переменной, и в подпрограмме используется копия, начальное значение которой содержит переданный в качестве параметра адрес. Поэтому подпрограмма, выделяя память под параметр р и занося адрес выделенной памяти в этот параметр, не влияет на переменную, которая была задана в качестве параметра.
Теперь продемонстрируем возможность изменения информации, на которую ссылается переданный параметр:
Procedure ChangeParam (Р: 'Double) ,
Begin
РА := 150; I Изменение «формации в памяти, на которуВд.
New(P);New(P);320;320;Dispose(Р);Dispose(Р);указывает тмрамеав, влияе^^на данндн вызывающего фрагмента)■। памяти под пшиаметия^НЯне приводит к изменению адреса в памяти, который является значением переменной, переданной в качестве параметра. Память выделяется под локальную копию параметра). - ■ • ■■■■.■■ ин^рм”ии в памятН, кИ?орук| указывает параметр, не влияНиЯна МшаМие Лызыжющего ■ г®нта; тЯЙ^к^ЧТма^ение параметра .уже 1 ■б -■ ШМЯЩ1,| вййнлезвоЕ. пактлокальную копию параметра)указывает тмрамеав, влияе^^на данндн вызывающего фрагмента)■। памяти под пшиаметия^НЯне приводит к изменению адреса в памяти, который является значением переменной, переданной в качестве параметра. Память выделяется под локальную копию параметра). - ■ • ■■■■.■■ ин^рм”ии в памятН, кИ?орук| указывает параметр, не влияНиЯна МшаМие Лызыжющего ■ г®нта; тЯЙ^к^ЧТма^ение параметра .уже 1 ■б -■ ШМЯЩ1,| вййнлезвоЕ. пактлокальную копию параметра)
New(P);
New(P);
320;
320;
Dispose(Р);
Dispose(Р);
указывает тмрамеав, влияе^^на данндн вызывающего фрагмента)
■। памяти под пшиаметия^НЯ
не приводит к изменению адреса в памяти, который является значением переменной, переданной в качестве параметра. Память выделяется под локальную копию параметра)
. - ■ • ■■■■.■■ ин^рм”ии в памятН, кИ?орук| указывает параметр, не влияНиЯна МшаМие Лызыжющего ■ г®нта; тЯЙ^к^ЧТма^ение параметра .уже 1 ■
б -■ ШМЯЩ1,| вййнлезвоЕ. пакт
локальную копию параметра)
указывает тмрамеав, влияе^^на данндн вызывающего фрагмента)
■। памяти под пшиаметия^НЯ
не приводит к изменению адреса в памяти, который является значением переменной, переданной в качестве параметра. Память выделяется под локальную копию параметра)
. - ■ • ■■■■.■■ ин^рм”ии в памятН, кИ?орук| указывает параметр, не влияНиЯна МшаМие Лызыжющего ■ г®нта; тЯЙ^к^ЧТма^ение параметра .уже 1 ■
б -■ ШМЯЩ1,| вййнлезвоЕ. пакт
локальную копию параметра)
End;
Изменим тфоцеф^ру, сделав параметр передаваем™ по ссылке (жстиж 4.6).
Листинг 4.6. Передача по значению параметров ссылочных типов данных
Procedure ChangeParam (Var Р: ADouble);
Begin
pA := 150;; информации в памяти, на которую
указывает параметр, влияет на данные вызывающего ::■
New(P) ;। памяти под параметр Р приводит
к потере ссылки на область памяти, находящейся в параметре при его передаче. Память выделяется под переменную, заданную в качестве ::
РА := 320; {Изменен информации в памяти, на которую указывает параметр., ' влияет на данные вызывающего :;-.
Dispose(Р); I гвосюждение памяти, выделенной под переменную, заданную в качестве па амет^
End;
Аналогична ситуация с параметрами — динамическими массивами, значения элементов которых также может изменить подпрограмма, так как ей передается не копия массива, а ссылка на него", даже если параметр не помечен в описании подпрограммы модификатором V
Параметры-константы
Для параметров, передаваемых по значению, предусмотрен модификатор Const, запрещающий изменять значение даже локальной копии данного параметра и передавать его как параметр-переменную в другие подпрограммы. Модификатор предназначен для указания компилятору Delphi на неизменяемый характер параметра и позволяет ему создавать более оптимальный программный код при использовании строковых параметров и параметров сложных типов данных.
Procedure ( . . , Const <Параметр>: <Тип параметра>, . . .) ;
Таким образом, указание в процедуре • из предыдущего примера модификатора Const вместо модификатора Var приведет к ошибке компиляции с сообщением "Left side cannot be assigned to" -- "Левая часть выражения не может быть сна".
Параметры, описанные с модификатором Const, называются параметрами-константами. Пример использования таких параметров приведен в листинге 4.7.
Листинг4.7. Использование параметров-констант
Procedure OpenFile (Const: FileName: AnsiString);
I Загол bi . процедуры OpenFile, строковый параметр FileName передается как^
Var
sLocal: AnsiStringj
■ «ни локальной net 1' j
Begin
FileName := 'TheFile.txt';
(Операция недопустима, так как параметр FileName помечен модификатором Const)
sLocal := FileName; Операция возможна? end;
Параметры для заполнения
Параметры, предаваемые по значению (в том числе и параметры-константы), используются для настройки подпрограммы, тогда как в параметрах-переменных информация может возвращаться обратно в вызывающий фрагмент программы, в измененном или первоначальном (установленном при вызове подпрограммы) виде.
Существует еще один вид параметров — параметры для заполнения, которые предусмотрены только для обратной передачи данных из подпрограммы в вызывающий фрагмент программы. Такие параметры аналогичны параметрам-переменным, однако использование начальных значений этих параметров в подпрограмме недопустимо. Delphi автоматически освобождает память, занятую под переменные, передаваемые в качестве параметров для заполнения, и доступ к ним может вызвать ошибку времени выполнения.
Заметим, что обращение к параметрам для заполнения до присвоения им значений в подпрограмме является классическим примером динамической ошибки. Delphi, освобождая память, занятую под ссылочную переменную, задаваемую в качестве параметра, не обнуляет ее адрес. В результате чего параметр указывает на некоторую область памяти, в которой находятся некоторые данные, причем доступ к ним возможен. Однако при интенсивном использовании системы эта память уже может использоваться другой подпрограммой, и доступ к ней вызове! ее сбой.
Для описания параметров для заполнения используется модификатор Out:
Procedure (. . . , Out <Параметр>: <Тип параметра>, - - -) ;
Пример использования параметров для заполнения приведен в листинге 4.8.
Листинг 4.8. Использование параметров для заполнения
Procedure ReadFile(Const FileName: AnsiString;
Out Buffer: Pointer) ;
процедурыСтроковый параметр
FileName передается как константа, параметр- указатель Buffer предназначен для заполнения в подпрограмме)
Var
sLocal: AnsiString; (Описание локальной переменной)
Begin
GetMem(Buffer, 1024); (Выделение памяти под параметр I I .в память, на которую указывает переменная : ■ - end;
Параметры без указания типа
Передача параметров ссылочного типа в подпрограммы является распространенным явлением, причем типы данных, на которые указывают передаваемые ссылки, могут быть самые разнообразные. В качестве примера можно привести процедуру, записывающую информацию в файл Для такой процедуры не имеет значения, что именно хранится в памяти, на которую указывает параметр-ссылка, а необходимо знать только адрес, находится информация и ее объем.
Допустим, в программе описана процедура SaveToFile, принимающая в качестве параметров указатель на данные и целочисленное значение, содержащее размер данных:
Procedure: Pointer; Size:
Для использования такой процедуры, фрагменты программы, которые сохраняют информацию в файл, должны получить адрес сохраняемой структуры и передать его в качестве параметра । : : Для этого может быть применен оператор @, возвращающий адрес заданной переменной, и функция sizeOf, возвращающая размер заданной структуры:
Туре
TRec = Record
S String;
т Integer;
end;. "-писание Яипа КангНх, Т1оХсль‘5’$емЗ|го
дле хранена® информации
Var
Rec: Tree;(Описание переменной, в которой будет храниться структура, предназначенная для сохранения)
Begin
SaveToFile(@Rec, SizeOf(Rec));
процедуры SaveToFile с передачей ей адреса, возвращаемого оператором @, и размера экземпляра записи, возвращаемого функцией 1 о
Однако в Delphi предусмотрен специальный тип параметров, который не требует дополнительной операции получения адреса. Это так называемые параметры без указания типа. Они передаются по значению1', не требуют указания типа при описании, и рассматриваются в подпрограмме как нетипизированные указатели. В качестве таких параметров могут использоваться переменные любого типа.
Перед описанием нетипизированного параметра должно быть указано ключевое слово или const. Так, описание рассматриваемой нами процедуры SaveToFile может быть сделано таким образом:
: SaveToFile (Var Buffer; : In ।
Использование нетипизированных параметров может выглядеть следующим образом:
Туре
TRec = Record
S: String;
Integer;
end; (Описание типа данных, используемого для хранения информации)
Var
Rec: Tree; .. пер®иннсж, в которой будет хран^и^Ц
структура, предназначенная для сохранения)
Begin
SaveToFile(Rec, SizeOf(Rec));
1 Вызов процедуры SaveToFile с автоматической neptoanBi ей адресЯ, без и снНа -Итератора @, К размера экземпляра записи^, * вс^МзащаемоЖ функцией;SizeOf) I
12 На самом деле передается адрес переменной, заданной в качестве параметра.
Перегружаемые подпрограммы
В Delphi предусмотрена возможность описания нескольких подпрограмм с одинаковыми именами в одной и той же области видимости. Такие подпрограммы называются перегружаемыми. Аналогичные механизмы присутствуют в большинстве современных языков программирования.
Наличие механизма перегружаемых подпрограмм позволяет реализовывать подпрограммы, выполняющие одинаковые действия на основе параметров разных типов, что упрощает их вызов, так как отпадает необходимость приведения параметров к конкретным типам данных. Кроме того, перегружаемые подпрограммы могут создаваться не только с параметрами разных типов, но и вообще с разным количеством параметров.
Для того, чтобы компилятор мог выбрать правильную подпрограмму из нескольких перегруженных, они должны отличаться так называемой сигнатурой — последовательностью типов данных в списке параметров. Также перегружаемые подпрограммы должны быть помечены ключевым словом overload. Пример описания и использования перегружаемой подпрограммы приведен в листинге 4.9.
Листинг4.9. Использование перегружаемой подпрограммы
Unit DeclaringOverloads;(Заголовок модуля
Interface
--на начало интерфейсной
секции)
Function GetName(S:
string) . String; overload;
..функции GetName с одним
строковым‘
Function GetName(A:
Integer) : String; overload;
iфункции GetName с одним
числовым ;■ ■ : '
Implementation
^на начало описательной
секции)
Uses
SysUtils;
1 Подключение модуля SysUtils для доступа к функции IntToStr)
Function GetNamelS: String) : String; overload; begin
Result := S;
end;
Описание функции GetName с одним строковым параметром, в качестве резулвтата возвращается параметр}
Function GetName(A: Integer): String; overload;
begin
Result := IntToStr(A) ;■ i фуйЦЯии g ^ с одЯВВ
числ»№ параметром, ■■качестве результата возвращается строковое представление параметра)
end;
End.:■
При использовании идентификатора с et Nan с в какой-либо подпрограмме на этапе компиляции будет подставлен такой вариант функции, который соответствует типу задаваемого параметра.
Досрочный выход из подпрограммы
Подпрограммы являются довольно крупными логическими единицами программы и выполняют обычно довольно сложные действия. Необходимый результат, ожидаемый от процедуры или функции — выполнение каких-либо действий или расчет возвращаемого значения — может быть получен при выполнении не всего кода подпрограммы, а только его части. Поэтому подпрограммы снабжены механизмом досрочного завершения, реализуемым процедурой Exit:
Procedure - i ;
Результатом выполнения процедуры Exit будет передача управления от подпрограммы к фрагменту программы, вызвавшему ее. Если Exit вызывается в основной части программы, а не в процедуре или функции, то завершится программа.
Необходимо отметить, что при использовании процедуры Exit в функциях следует внимательно следить за инициализацией возвращаемого значения, то есть выход из функции должен быть произведен только после его расчета, иначе вызывающий фрагмент может получить некорректные данные..
Процедурные типы данных
И, в заключение, мы вернемся к информационной структуре программы и разберем такое важное для программирования на Delphi понятие, как процедурные типы данных.
Переменные процедурного типа представляют собой ссылки на подпрограммы — процедуры и функции. Описание типа строится на основе сигнатуры подпрограммы без указания имени:
<Название типа> = Procedure(<Список параметров»);
Или для функций:
Туре
<Название типа> = Function(<Список параметров>):
<Возврашаемое значение>;
Допускается описание переменной в разделе Var без введения в программу нового процедурного типа, например:
Var
fSin = Function I) : Double;
Как и переменные любого другого типа, процедурные переменные после описания не определены. Для инициализации процедурной переменной необходимо присвоить ей адрес подпрограммы, доступной текущему фрагменту программы, в котором выполняется присвоение. Для получения адреса подпрограммы используется ее имя:
<Название• = <Название; ,>;
После инициализации переменная процедурного типа используется так же, как и вызов обычной подпрограммы, то есть вместо названия подпрограммы указывается название процедурной переменной:
<Название переменной>(<Список параметров>) ;
Рассмотрим пример описания процедурного типа данных, переменной на его основе, ее инициализации и использования (листинг 4 10)
Листинг 4.10. Пример использования процедурного типа данных
Unit Procedural
Interface
Type
fMathFunct = Function (Arg: Double): Double;
процедурного типа fMathFunct — указателя на функцию с одним вещественным аргументом, возвращающую вещественное .
Implementation
Function Sin2(X: Double) : Double;
begin
Result := Sin(X) * Sin(X) ;
end;функции Sin2, совместимой
с процедурным типом fMathFunct ^, и построенной на основе стандартной функции
Procedure UseProcedural.
процедуры, использующей процедурные
Var
F: fMathFunct;процедурной переменной 1
Res: Double;
begin
F := Sin2;процедурной переменной ссылки
на функцию .
F(l) ;■ функции Sin2 через процедурную
переменную
Res := F(3);
end;
End.
Для описания процедурного типа, который указывает не просто на подпрограмму, а на метод экземпляра класса, после описания процедурного типа используется конструкция Of Object, например:
Var
ProcTypel =:: AnsiString) Of Object;
На использовании ссылок на методы объектов построена система сообщений компонентов Delphi.
Вопросы с ответами для повторения по части I
О
Опишите структуру исходных текстов программы на языке Object Pascal в Delphi
Ответ: программа на Object Pascal состоит из основной части и нескольких модулей (библиотек), подключаемых на этапе компиляции к основной части программы. Наличие этих модулей не обязательно.
Основная часть программы состоит из одного или нескольких разделов, каждый из которых начинается с определенного ключевого слова (Program, uses, const, Label, Type и Var). Если в существовании раздела нет необходимости, то ключевое слово, открывающее его, не указывается. Основная часть программы содержится в отдельном файле и имеет расширение dpt и ее содержание, в большинстве случаев, не требует вмешательства программиста. Создание и обновление основной части программы берет на себя среда разработки. Исполняемый ехе-файл, получаемый в результате компиляции программы, имеет имя, указанное в заголовке основной части программы.
Модуль (библиотека), так же, как и основная часть программы, содержится в отдельном файле и состоит из двух основных секций — интерфейсной (начинается ключевым словом i в которой описываются типы данных, константы и переменные, доступные внешним частям программы, и описательной (начинается ключевым словом implementation), в которой описываются идентификаторы, доступные только этому модулю. Еще две секции необязательны,
и включаются в модуль для выполнения и ициализ щионных (initialization) и деинициш изационных i inalization) действий.
Подключение модулей к основной части программы или к другим модулям производится в разделе подключения модулей (Uses) по имени, указанном в заголовке модуля после ключевого слова Unit.
Приведите пример описания констант в программе на Object Pascal
Ответ: Константы — это идентификаторы, вместо которых на этапе компиляции программы подставляются реальные значения. Для описания констант предназначена секция, которая начинается ключевым словом Const.
Const
MyName = I;
строковой1
'.= 25;числовой г . :
Допустимо описание константы с указанием ее типа. В этом случае константа рассматривается компилятором как переменная, то есть возможно изменение ее значения в процессе выполнения программы. Типизированные константы могут использоваться вместо переменных в случаях, когда в программе необходима инициализация переменной в момент ее описания.
Const
: Integer =.
целочисленной константы с начальным значением 4}
Приведите пример описания переменных
Ответ: Переменные — это идентификаторы, вместо которых на этапе компиляции подставляются адреса хранимой в памяти информации, доступной для чтения или записи. Важным свойством переменной является ее тип, указывающий на то, каким образом следует работать с данной переменной. Для описания переменных предназначена секция, которая начинается ключевым словом Var.
Var
К Jame: AnsiString; 1 пи . . строковой переменной типа;
МуАде: Shortlnt; (Описание числовой целочисленной переменной типа h
Приведите пример описания пользовательских типов данных
Ответ: Для повышения читабельности программ и упрощения изменений, вносимых в исходные тексты, предусмотрено использование нестандартных типов данных (их еще называют пользовательскими). Описание пользо-
вательских типов данных производится в секции, которая начинается ключевым словом Туре. Также в этой секции описываются записи, как типы данных, и классы.
Туре .
|J Mylnteger:' :.;। ЭписаниеМ^Яа да»х,
<квива ■ ин г типу Integer!
THuman = Record(Описание типа данных Thuman,
т /Етлс:ЗИЬож запись),
I MyName: AnsiString? {Поле 5тиД. 'feislBfa^iwl :
MyAge :^ Shortlnt;(Поле записи типа Shortlnt)
end;
Приведите пример описания переменных интервального типа, перечислимого типа и множеств
Ответ: Интервальные типы данных (типы-диапазоны) представляют собой подмножества возможных значений стандартных типов данных integer и Char. Применяются они для более удобного представления информации в программе.
Var
:'1 . .!. ни переменной, значениями
которой могут являться латинские символы от а до z}
Перечислимый тип данных представляет собой некоторый набор констант, одна из которых является значением переменной данного типа. Константы задаются именами, их значения неизвестны и определяются компилятором во время построения программы.
Var
.: (Black, White, .
:. переменной, Значениями
которой могут являться значения, скрытые под идентификаторами Black, White и Red
Множества аналогичны перечислимым и интервальным типам данных, однако переменные множественных типов могут иметь несколько значений из описанного перечисления. Причем каждое значение не может присутствовать в множестве дважды в одно и то же время.
Var
ColorSet : Set Of (Black, White, Red);
(Описание переменной, значениями которой могут являться значения, скрытые под идентификаторами Black, White и Red в любом сочетании}
. , Расскажите о массивах в Object Pascal
j I Ответ: Массив — поименованная область памяти, доступ к отдельным частям которой осуществляется по общему имени и индексу соответствующей части. Все части (элементы) массива имеют один и тот же тип, причем любой из стандартных или нестандартных, описанных к моменту объявления массива. В частности, элементы массива также могут являться массивами. В этом случае мы имеем дело с многомерными массивами.
Описание массива производится в разделе описания типов данных (после ключевого слова Туре) или непосредственно при описании переменной такого типа.
Туре
IntArray = -.100] Of Char;
(Описание, типа данных — массива из 100 элементов символьного
Var
Numbers::. . 1 Of Integer;
. . ни переменной-массива из 20-ти целочисленных - । м
Допускается описание массивов без указания размерностей и, соответственно, пределов изменения индексов:
Var
IntArray: Array Of Integer;
1 массива целочисленных ^Т^гементов без указания ;^-.- : л
Такие массивы являются динамическими и изначально имеют нулевую длину. Установка размерности и определения ее во время выполнения программы производится так же, как и для строк, с помощью функций SetLength и Length соответственно. Элементы в данном случае нумеруются от нуля. Для определения возможных значений индексов в динамических массивах используются функции Low (возвращает минимальный индекс заданного массива) и High (наибольший индекс).
В
Расскажите об использовании вариантных переменных в Delphi
Ответ: Вариантные переменные не имеют конкретного типа данных на
этапе компиляции, а в процессе выполнения программы могут хранить данные разных типов. Описываются такие переменные в обычном порядке с типом данных Variant.
Во время выполнения программы в вариантных переменных могут храниться данные любого типа, за исключением:
» структурных: записей и статических массивов, однако поддерживаются специальные вариантные массивы;
» ссылочных: типизированных и нетипизированных указателей, а также указателей на экземпляры классов;
» множественных типов данных.
Опишите преимущества и недостатки вариантных переменных по сравнению с обычными типами данных
Ответ: Преимуществом использования вариантных переменных является удобство работы, которое проявляется в случаях, когда на этапе разработки программы неизвестны типы некоторых переменных. Еще одним плюсом является множество вспомогательных операций, выполняемых системой с вариантными переменными, например, автоматическое приведение типов.
Недостатками вариантов являются больший объем к занимаемой памяти и медленное выполнение операций с участием таких переменных.
В качестве еще одного недостатка можно назвать отсутствие во время компиляции проверки на совместимость типов, что может вызывать ошибки времени выполнения программы. Причем такие ошибки носят динамический характер — они могут проявляться редко и при трудно определяемых условиях, что еще больше усугубляется оптимизатором компиляции Delphi.
Расскажите об использовании вариантных массивов
Ответ: Вариантный массив — это один из видов вариантной переменной, информация в которой представляется в виде набора элементов и имеет индексный механизм доступа. Для создания вариантного массива используется функция-конструктор VarArrayCreate, в которой задается размер
ность массива, интервалы индексации и тип элементов.
Элементы массива могут иметь любой вариантный тип, в том числе и являться вариантными массивами. Таким образом, в Delphi возможно построение многомерных массивов непрямоугольной формы и даже, неоднородных массивов, элементы которых имеют разные типы данных.
Расскажите об использовании процедурных переменных
Ответ: Процедурные переменные — это переменные, являющиеся ссылками на подпрограммы.
Описание процедурного типа определяет:
* процедурой или функцией является подпрограмма, на которую указывает переменная;
» является ли подпрограмма, на которую указывает ссылка, методом объекта;
» сколько параметров должно быть указано при вызове подпрограммы из процедурной переменной, и какого они типа;
» какое значение возвращает подпрограмма, если она является функцией.
Соответственно, процедурной переменной можно присвоить ссылку только на ту подпрограмму, которая соответствует типу переменной по всем этим параметрам.
Назовите структурные операторы, применяемые в Object Pascal, и их особенности
Ответ. В Object Pascal применяются следующие структурные операторы (операторы, управляющие структурой программы):
* условный оператор If . .Then. .Else (возможно использование сокращенной формы if .: .'।, предназначенный для выполнения фрагмен
та программы при истинности условия, или другого фрагмента программы в противном случае;
« условный оператор множественного выбора ...:..-. (с сокращенной формой без секции Else), предназначенный для выполнения фрагмента программы из заданного набора при истинности одного из условий из заданного набора условий, или какого-либо фрагмента программы в случае ложности всех условий набора. Условиями в данном случае совпадение значения заданной в заголовке переменной с одним из значений заданного списка;
• оператор зацикливания со счетчиком циклов г. .. Do (с
тной модификацией 7. DownTo. г ) предназначенный для много
кратного повторения фрагмента программы, расположенного после ключевого слова DO;
» условный оператор зацикливания с предусловием V . _. Do, предназ
наченный для многократного повторения фрагмента программы, указанного после ключевого слова DO, пока является истинным условие, указанное в заголовке оператора;
» условный оператор зацикливания с постусловием. .! пред
назначенный для многократного повторения фрагмента программы, пока не станет истинным условие, указанное после ключевого слова until;
В качестве фрагментов программы, зацикливаемых при использовании операторов зацикливания, или выполняемых при истинности условий в условных операторах и условных операторах зацикливания, может применяться одна команда языка или вызов одной подпрограммы. Для выполнения нескольких команд применяются составные операторы — набор команд, заключенных в ключевые слова :
Для досрочного прерывания зацикленного фрагмента программы используется оператор break. В этом случае управление передается команде, следующей за прерванным оператором зацикливания.
Расскажите об использовании подпрограмм в Object Pascal и их разновидностях
Ответ: Подпрограмма — это логически законченная часть программы, описываемая отдельно от раздела описания логики программы и вызываемая по имени, уникальному в некоторой области видимости. Подпрограммы, так же как и программы, имеют сложную структуру, включающую в себя разде-
лы описания переменных, констант, типов и так далее (все они называются локальными, так как их область видимости ограничена процедурой).
Подпрограммы в Object Pascal, представлены процедурами и функциями. Процедура является обычной подпрограммой, то есть фрагментом программы, имеющим параметры и выполняющим некоторый набор команд языка. Функция, в отличие от процедуры, может возвращать значение (результат работы) в подпрограмму, вызвавшую ее.
Опишите правила (синтаксис) описания параметров в подпрограммах
Ответ: Описание параметров подпрограмм происходит в их заголовках после имени и имеет следующий вид:
Procedure <Имя> (СПараметр 1>: <Тип параметра >; . . . ;
• < -: 2>: <Тип параметра >) ;
или для функций:
Function <Имя> (<Список параметров:») : <Тип значения*;
Расскажите об использовании параметров по умолчанию
Ответ: В Object Pascal предусмотрена возможность использования параметров по умолчанию. Такие параметры находятся в конце списка параметров и их описания имеют следующий вид:
<Параметр>: <Тип параметра* = Оначение по умолчанию*
Подпрограммы, использующие параметры по умолчанию вызываются либо с полным набором параметров, либо набором обязательных параметров и одним или несколькими параметрами, имеющими значения по умолчанию. Для того, чтобы передать некоторый параметр, задаваемый умолчанием, следует передать все параметры, находящиеся в списке параметров заголовка подпрограммы перед ним.
Расскажите о различных механизмах передачи параметров в подпрограммы Delphi
Ответ: Параметры в подпрограммы могут передаваться по значению и по ссылке.
В первом случае, с точки зрения подпрограммы, параметр является ее локальной переменной, и его значение может изменяться, не влияя на переменную, заданную в качестве параметра при вызове этой подпрограммы. В качестве таких параметров могут также передаваться не переменные, а константы. Если изменение параметра внутри подпрограммы не требуется, то можно указать перед параметром модификатор Const. Таким образом может быть выполнена оптимизация вызова подпрограммы при использовании строковых параметров и параметров, имеющих сложные типы данных.
Второй механизм передачи параметров в подпрограммы — передача по ссылке, когда в подпрограмму передается не значение параметра, а ад-
pec переменной, заданной в качестве параметра. В данном случае, с точки зрения подпрограммы, параметр является глобальной переменной, и изменение значения параметра приводит к изменению значения переменной, заданной в качестве параметра. Для описания параметров, передаваемых по ссылке, указывается:
» модификатор var, если значение параметра может использоваться в подпрограмме и для чтения, и для изменения;
* модификатор Out, если параметр предназначен только для изменения.
Если модификатор параметра не использован, то параметр передается по значению, и называется параметр-значение. При указании модификатора Const параметр называют параметром-константой, при использовании модификатора Var — параметром-переменной, при использовании модификатора out — параметром для заполнения.
| Объясните, что такое перегружаемые подпрограммы
■ Ответ: В Delphi существует возможность описания нескольких подпрограмм с одинаковыми именами в одной и той же области видимости. Такие подпрограммы называются персгру»аемыми.
Для того, чтобы компилятор мог выбрать правильную подпрограмму из нескольких перегруженных, они должны отличаться так называемой сигнатурой — последовательностью типов данных в списке параметров. Перегружаемые подпрограммы должны быть помечены ключевым словом overload.
ЧАСТЬ I!
ОБЪЕКТНООРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ В DELPHI
t иа^ 5
ОСНОВНЫЕ МЕХАНИЗМЫ И ПОЛОЖЕНИЯ ОБЪЕКТНООРИЕНТИРОВАННОГО ПРОГРАММИРОВАНИЯ
* лаба 6
I ОСОБЕННОСТИ АРХИТЕКТУРЫ I ПРОГРАММЫ В ОС WINDOWS
7\а6а 7
ОБЪЕКТНО-ОРИЕНТИРОВАННЫЙ ПОДХОД К ОБРАБОТКЕ ОШИБОК
< .«аба $
I ОБЪЕКТНО-ОРИЕНТИРОВАННЫЙПОДХОД К ХРАНЕНИЮ ИНФОРМАЦИИ
Г .<4^ / О
ОБЪЕКТНО-ОРИЕНТИРОВАННЫЙ ПОДХОД К ВВОДУ/ВЫВОДУ ИНФОРМАЦИИ
ИСПОЛЬЗОВАНИЕ ГРАФИЧЕСКОЙ ИНФОРМАЦИИ В DELPHI
ОСНОВЫ DELPHI.
Профессиональный подход
Основные механизмы и положения объектноориентированного программирования
Объектно-ориентированное программирование является стандартом в технологии современного программирования и подавляющее большинство новейших средств разработки программных продуктов построены на основе ООП. Delphi не является исключением и обладает всеми необходимыми возможностями современного объектно-ориентированного языка программирования.
Инкапсуляция
Понятие класса и объекта
Классом называется описание некоторой структуры программы, обладающей набором внутренних переменных — свойств, и функций (процедур), имеющих доступ к свойствам — методов. Процесс объединения переменных и методов, в результате которого и получается класс, называется инкапсуляцией.
Итак, класс — это всего лишь описание, аналогичное описанию типа данных и недоступное для прямого использования в программе. Для получения доступа к свойствам и методам класса (за исключением методов класса, описанных ниже) необходимо создать экземпляр класса, называемый также объектом.
Отметим различие в терминологии Turbo Pascal и Delphi. В Pascal объектом называлась структура, получаемая в результате инкапсуляции. В Delphi такие структуры называются классами, а объекты — это экземпляры классов.
Структура класса
Описание класса. Свойства и методы
Описание классов разделено на две части — интерфейсную («заголовочную») и описательную. В интерфейсной части располагается заголовок класса, в котором указываются название класса, идентифицирующее его в программе, а также описания свойств и заголовков методов. В описательной части располагается программный код (реализация) методов, заголовки которых указаны в интерфейсной части описания класса.
Интерфейсная часть описания класса располагается в разделах описания типов данных модулей и основных частей программ. Выглядит она следующим образом:
Туре
<Имя класса> = class
<■' свойства 1>: <Тип свойства >;■. свойства 1}
</ свойства > <Тип свойства »;:, . свойства
Оаголовок метода >. метода 1}
Оаголовок метода >1 ;। метода ::
End;
Описательная часть класса находится в разделе описания локальных подпрограмм. Методы, заявленные в интерфейсной части реализуются по обычным правилам описания процедур и функций. Для связи подпрограмм с классом, методами которого они являются, название класса указывается перед именем самой подпрограммы: -
Procedure <Имя класса>.<Имя метода»(<Список параметров»);
или для методов-функций:
Function <Имя класса».<Имя метода»(<Список параметров»): <Тип 11 юния»;
Отличие методов от обычных процедур и функций состоит в том, что они могут обращаться к свойствам классов по имени без указания объектов. На этапе выполнения программы такие обращения будут перенаправлены к свойствам объектов, из которых вызываются соответствующие методы.
В листинге 5.1 приведен пример описания модуля, содержащего описание класса.
Листинг 5.1. Описания модуля, содержащего описание класса
Unit Us i ngC1 asses.
Interface
Type
Tear = class. класса 'йжДмит егр'У
наЖаниЯ Tcar)|»i
Mark: AnsiString; (Описание ЙекстМЙго |ЙвВст®
Mark для хранения марки автомобиля)
EngineVolune: Doubl^ ' (Описини Лщ-Дтвенноз^ свойсдажМ Для хра»ния объема -двигателя)
Fuel: Double;и в е'В£Ш о гд й^^ЕЗва
Киля Мщения объема; топлива) г
Function StartEngine: Boolean;
(Заголовок функции-метрда
Procedure StopEngine; -■ прюцедяр*метода
"Остановить двигатель")
Procedure AddFuel(NewFuel: Double);
(Заголовок процедуры-метода
"Заправить топливом"]
Implementation
Function TCar.StartEngine: Boolean; begin
Result := (Fuel>0) ;
end;(Описание метода StartEngine.
Б каре ст вобращается
1 значение логического выражения (Fuel>0) г
Function TCar.StopEngine. begin end;(Описание Метода. StopEngine,
Sw вМлняющтвМаких действий) |
Procedure AddFuel(NewFuel: Double); (Описание метода AddFuel) begin
Fuel := Fuel + NewFuel; ■М^^ник квойсте
Fuel на величину, переданную
в качестве параметра NewFuel вызове 1' I
end;
End.:
Обратим внимание на использование свойства Fuel в методе AddFuel. Метод AddFuel, которьй является частью описания класса TCar, обращается к данному свойству по имени, хотя на этапе создания класса и неизвестно, какому именно экземпляру будет принадлежать изменяемое свой-
ство. Однако точно известно, что каждый экземпляр обладает свойством Fuel, причем объект, из которого вызван метод А. - т 1, также может быть определен системой. При вызове метода । L из какого-либо экземпляра класса i । в качестве изменяемого свойства Fuel автоматически будет выбрано то, которое принадлежит этому же экземпляру.
Возможность такого абстрактного подхода к описанию классов без указания их конкретных экземпляров и отличает объектно-ориентированный подход к созданию программы от модульного, несмотря на их некоторое сходство.
Методы класса
Интересным нововведением в Delphi являются так называемые методы класса, особенность которых состоит в том, что для их вызова нет необходимости создавать объект (экземпляр класса), а можно использовать их как обычные подпрограммы. Для описания таких методов используется ключевое слово class перед заголовком метода:
Туре
<Имя класса» = class
class <3аголовок метода»; {Описание метода класса!
End;
При реализации методов класса в описательной части класса ключевое слово 1 । также указывается:
class <Имя класса».<3аголовок метода»;
Методы класса применяются для создания библиотек специализированных методов, не требующих доступа к каким-либо данным, которые могут храниться в пределах объекта. В качестве примера приведем описание класса М i lass, метод Гег которого является методом класса (листинг 5.2).
Листинг 5.2. Пример описания методов класса
unit DeclaringClassMethods;
Interface
Type
MthdClass = class
class Function Get5: Double;
End;
Implementation
class Function
MthdClass.Gets: Integer;
(Описание метода GetS класса MthdCla
Begin
Result := 5;
end; end.
Для вызова метода класса необходимо указать название класса и название метода со списком необходимых параметров. Название класса и его метода разделяются точкой:
<Класс>.<Метод>(<Список и _м ;>) ;
Использование метода класса отражено в следующем листинге 5.3.
Листинг 5.3. Использование метода класса
unit UsingClassMethods;
Uses DeclaringClassMethods;
(Подключаем модуль DeclaringClassMethods, в котором описан класс MthdClass)
Interface
Imp1ementation
Procedure UsingClass; (Описание процедуры JsingClass)
Var
A: Integer;i ан о целочисленной переменной
Begin
A := MthdClass.GetS; (Вызов метода клаТ?8В"ПО имени клрЕСа и метода, з .деремеиЬавч А з^ЬЯВся вначедие Щ *
end;
end.
Отметим, что методы класса иногда называют статическими методами.
Перегружаемые методы
Перегружаемые методы аналогичны перегружаемым процедурам и имеют такой же механизм работы. Пример, возможного описания класса с перегружаемыми методами приведен в листинге 5.4.
Листинг 5.4. Описание класса с перегружаемыми методами
Туре
AClass = class
Function Mult(A, В: Integer) Integer; overload;
метода Mult с двумя целочисленными параметрами, возвращающий целочисленное -•
Function Mult(A, В: Double) : Double; overload;
i os метода Mult с двумя вещественными параметрами, возвращающий вещественное г t - end;
Function AClass Mult(A, B: Integer): Integer;
begin
Result := A * B;
end;. .^ первого варианта метода И
Function AClass . Mult (А, В: Double) : Double;
begin
Result := A * В;
end;и : второго варианта метода X .
Области видимости элементов класса
Для разграничения доступа к свойствам и методамВкземпляров классов между различными частями программы предусмотрены модификаторы доступа («видимости»), приведенные в табл. 5 1
Модификатор доступа в Delphi (как и в Pascal, но в отличие от некоторых других языков программирования) относится не к конкретному свойству или методу класса, а ко всем элементам класса (свойствам и методам), описание которых располагается после указания модификатора. Один и тот же модификатор может указываться в описании класса более одного раза.
Сравнительная таблица модификаторов доступа в Pascal и DelphiТаблица 5 1
Модификатор
Область видимости свойства или метода, помеченного модификатором
Pascal
Delphi
private
описан не класса и модуль, в котором описан класс, в том числе и для других классов
так же
protected
не используется
как у private + в классах, унаследованных от этого класса
public
любая часть программы
так же
published
не используется
как у public + в Инспекторе объектов Delphi для визуального построения программ
Стандартное описание класса содержит свойства и методы, расположенные в порядке возрастания их видимости, но это правило не является обязательным.
Туре
кщссдз- = class private
<Имя ^4^йс*двЬ 1>:иЙойствЦ 1>; К
(Описание свойств класса, имеющих область видимости private)
<Имя свойства N>: <Тип свойства N>;
< i ri метода >;
(Описание методов класса, имеющих область видимости private)
(Заголовок методе| М>;у.
protected
<Имя свойства 1>: <Тип свойства >;
(Описание свойств класса, имеющих область видимКтИ protected),
<1Ш -Двойства вЗКЖкТош ' $воЙ%|Тва',^>; u
<3аг<ймм|к метадяи 1>;л„
■ ни метопов iSycca, имвюшХк область видимое», protected) ■
Оагстлсдрок Кртода" М>,
public
Ж- в ° в а К : <Тип 'твоитва >;
. с”ств ^®iccS' имеНих область видимости public)
<Имя свойства N>: <Тип свойства N>;
оДоловок методА' !>;•
Описание Дааждов класса, имеющих область видимости public)
Л. . ..
Заголовок метода. М>;*
published
..■ {Описание Специальных свойств •
IcnacccW (propertvyдэщих область видимости published)
End;
Различные области видимости свойств и методов объекта предназначены ддя упрощения поддержания целостности информации в объектах. Рассмотрим класс, в котором содержатся три свойства — а, Ь и с, причем с является произведением а и Ь. Если свойства а, Ь и с будут иметь широкую область видимости public, то есть будут доступны из любого фрагмента программы, то объект — экземпляр такого класса может содержать некорректные данные, так как существует возможность изменения свойств а и b без пересчета свойства с. Для выхода из такой ситуации можно предложить два подхода, и оба они связаны с использованием областей видимости свойств объекта.
Первый подход (см. листинг 5.5) состоит в том, чтобы скрыть свойства а и b от вызывающих подпрограмм, назначив им узкие области видимости, например private или protected. Выбор того или иного модификатора определяется необходимостью использования скрываемых свойств в классах-потомках данного класса. Если такой необходимости нет, то назначается область видимости private, если объекты потомки должны иметь прямой доступ к свойствам, то назначается область видимости protected.
В любом случае, внешние подпрограммы не смогут обратиться к свойствам а и . поэтому придется предусмотреть методы» которые их устанавливают. В этих методах, помимо установки значений свойств, должен производиться пересчет свойства с. Это будет гарантировать целостность данных объекта при изменении свойств а и Ь.
4 1аж 8674 1аж 867Заметим, что методы установки должны иметь широкую область видимости, чтобы к ним можно было обратиться из любого места программы.
4 1аж 867
4 1аж 867
Листинг 5.5. Задание областей видимости. Первый подход
Unit UsingPrivatel;
{Заголовок модуля}
Interface
Type
ABC = class private
- чаи интерфейсной ч1
яг класса
I Начале области видимости^
a, b: Double;
=■ - ‘ а и b имеют узкую область
видимости)
public
c: Double;
<области видимости ;
■ -с имеет широкую область
видимости)
Procedure SetA(NewA: Double);
и го; Set А имеет широкую видимости)
Procedure SetB(NewB: Double) ;
видимости)
■ n ’ SetB имеет широкую область
97
Implementation
Procedure ABC.SetA(NewA:
(wbx> описат|фь^^Я еасти) ■ Double);
' . :,: \ On.: MfeTOiXb ЖбА класва A ■ '
Begin
a := NewA;
(Установка значения свойства а)
c : = H * b ;
(Обновление значения свойства с — нВ» еея®:ни<|ЯИл о относим данных!
end;
Procedure ABC.SetB(NewB:
Double);
(Описание метода SetB класса АВС)
Begin
b := NewB;
с : = Д * Ь ;
(Установка кад^чуЕма Ав ойяда^ .
1 ;с ВЛ ::.; ЗНаЯниД Св1м1ТвЖй ^Л и о п д е р>$ме шелоставсти данных)
end; end.
(Окончание модуля)
При такой конструкции класса вызывающая подпрограмма не сможет изменить значения свойств а и I . не повлияв тем самым на значение свойства с, поэтому целостность данных не будет нарушена. Однако свойство с доступно для изменения, даже если его значение пересчитано при установке значений а и b В итоге оно может измениться, вызвав несоответствие данных. Таким образом, лучше было бы скрыть свойство с, реализовав специальный метод доступа к ею значению (листинг 5.6).
Листинг 5.6. Задание областей видимости. Второй подход
Unit UsingPrivate2;
(Заголовок модуля)
Interface
(Начало интерфейсной части)
Type
ABC2 = class
Private
1 . ол31 < в кЖсса - - мВвЕслс- ИаИ видимости, pxlvate)
c: Double;
1 : нмт. : с ®Ц}ет УЗДШ йбла^гь видимости)
Public
'{Начадр. «рбласти в^ЕМЬстЯг public)'
a, b: Double;
■{ Свойства •. а, и Ь «Иавэт «еокувэ облевт^Ввидимости) П
Function GetC:
Double;
ЛИвТОД 8fetC имэд(Я вплвокувэ область видимости)
end;
Implementation
Function ABC2.GetC:
• 1 вс описательно® части) I Double;
(Описание метода GetC класса АВС2}
Beginс : = а * Ь;Result := с;end;end.Beginс : = а * Ь;Result := с;end;end.{Обновляем значение свойства с) {Возвращаем значение с вызывающей
Begin
с : = а * Ь;
Result := с;
end;
end.
Begin
с : = а * Ь;
Result := с;
end;
end.
подпрограмме)
(Окончание модуля}.
При такой конструкции класса целостность данных не может быть нарушена вызывающими подпрограммами, если только они не находятся в одном модуле с описываемым классом, то есть, в данном случае, в модуле UsingPrivate2. Единственным недостатком такого подхода является постоянный пересчет значения с при каждом обращении к методу GetC. Поэтому наиболее оптимальным вариантом решения нашей задачи будет сокрытие всех свойств класса и реализация методов доступа к ним через методы (см. листинг 5.7).
Листинг 5.7. Задание областей видимости.
Третий подход (оптимальный)
unit UsingPrivate3; (Заголовок модуля} Interface Туре АВСЗ = class private
a, b, с: Double;свойства имеют узкую область
видимости)
publicProcedure SetAfNewA: Double);. методы имеют широкую областьвидимости 1
Procedure SetB(NewB: Double) . Function GetC: Double;
end;
Implementation
Procedure ABC3.SetA(NewA: Double);
i и метода SetA класса
Begin
a := NewA;
c := a * b;
end;
Procedure ABC3.SetB(NewB: Double);
■ метода SetB класса . I
Begin
b := NewB;
c := a * b; end;
Function ABC3.GetC: Double;
.• метода GetC класса AI
Begin
Result с;возвращаем ^значение 1 I
end; end.
Property-свойства
Свойства property аналогичны свойствам объекта в смысле их использования. Однако внутренний механизм их работы намного более сложен. Такие свойства не являются простым отображением памяти, доступным для чтения и изменения, а подразумевают вызов методов объекта. Подробнее на свойствах property мы остановимся при рассмотрении создания компонентов, а пока просто приведем сокращенный формат описания таких свойств с краткими пояснениями.
Итак, описание свойств property в простейшем виде выглядит следующим образом:
property <Имя свойства>: <Тип> read < ;я чтения значения> write <Процедура установки ■<>;
Когда вызывающая подпрограмма обращается к свойству property для получения его значения, вместо конкретного значения возвращается результат функции, указанной по имени после модификатора read. Аналогично производится установка значения свойства — вместо прямой записи значения вызывается процедура, указанная после модификатора write. Соответственно, данная процедура должна принимать один параметр, причем его тип должен быть таким же, как тип самого свойства.
Модификаторы read и write могут не присутствовать в описании property- свойства одновременно. Если для свойства задана функция чтения, но не задана процедура записи, то такое свойство может быть использовано только для получения значения. Если задана процедура установки значения, но не задана функция чтения, то property-свойство можно использовать только в левой части оператора присваивания. В рассматриваемом нами примере свойства а и b должны быть доступны вызывающему фрагменту и для чтения и для записи, тогда как свойство с может быть доступно только для чтения.
Пример описания и использования property-свойства для поддержания корректности данных приведен в листинге 5.8.
Листинг 5.8. Пример описания и использования property-свойства
Unit Properties;(Заголовок
Interface
Type
АВС4 = class
private
fa, Bo, fc: Double,свойства имеют узкую
№бла@гв -' 11
protected{Все ®мйды имеют оваств
видимост* patented)
Procedure SetA(NewA: Double) (Процедура устансЕ®
значения свойства fa)
Procedure SetB(NewB: Double);
(Процедура установки
ДЙ1ачЖп® Фп^сАства • 5b}
Function GetA: Double; (Функция получения значения суйстНа ।
Function GetB: Double;I Функцияцдужчения ^ьаз^вжя
свойства fb)
Function GetC: Double; i Функция. S ^ знаяния ■8 CT ■
published : задел опяания property Убийств, достЯпных вызывающему фрагменту программы) property A Double read GetA write SetA;
(Описание property-свойства А, для которого задана функция чтения GetA и процедура установки SetA. Свойство будет доступно вызывающему фрагменту программы для чтения И: 13ЯПИСМ}' । property В: Double read GetB write SetB;
I (Описание №opertM-cg^^wfca В, йтя 1которегДI ЦаЕЙра ш>унми2ЯШВн®1 ^е^Й|идц|^цедур^|усй«овки. укойств® ^Дб^у де^турно
жзваиему фрагц^щ^.^щгограммы чтения и записи)
property С: Double read GetC;
1"р Bperty - своКт^^, В, ,ДД^. К^Увд.о г о
задана функция чтения GetC, но не задана «ЙЙроце^-ура у ||ВЙнвки. СвУ«9во будет доступно вызывающему фрагменту программы толвко для чтения)
end;
Implementation
Procedure АВС4.SetA(NewA: Double); (Описание метода SetA)
Begin
fa := NewA;Зан* ■- нового значения
в private-свойство f а
fc := fa * fb; _\. : произведения и занесение
результата в свойство - :
end;
Procedure АВС4.SetB(NewB: Double); (Описание метода SetB} Begin
fb := NewB; - >нового . значения
в private-свойство I
fc := fa * fb; • 1। т произведения и занесение
результата в свойство i I
end;
Function ABC4.GetA: Double;mncai ic метода GetA}
Begin
Result := fa; Резул rai функции — значение private-свойства ta) end;
Function ABC4.GetB: Double;лиса:метода GetB}
Begin
Result := fb; Pc эх . . функции — значение private-свойства : 1 end;
Function ABC4.6etC: Double;( ание метода GetC}
Begin
Result := fc; < ■ synt тат функции — значение private-свойства : с I end; end.1 .
Таким образом, property-свойства предоставляют возможность переноса информационных свойств в области класса с узкой видимостью, и обеспечивают доступ к их значениям через специальные методы, но в значительно более удобной форме. Для вызывающего фрагмента программы не имеет значения, к обычному свойству он обращается, или к property- свойству, тогда как класс имеет возможность подержания внутренней целостности.
Заметим, что вместо функции чтения и процедуры установки может быть указано одно из обычных свойств, вне зависимости от его области видимости. В рассмотренном примере такую возможность следует применить при описании property-свойств а, Ь и с, указав вместо функций чтения свойства fa, fb и fc, соответственно. Модифицированный текст модуля приведен в листинге 5.9.
Листинг 5.9. Пример описания и использования property-свойства (модифицированный)
Unit Properties;-
Interface
Type ABC4 = class private
fa, fb, fc: Double; {Все йво|№гва Ш|ют у^й^ую областв видимости)
protectedВ методы имеют Й5лаД?в
видимости protected) Procedure SetA(NewA: Double) ;
(Процедура установки значения свойства fa) Procedure SetB(NewB: Double) ;
(Процедура установки значения свойства fb} published { РазделИописания рг'#рЯty-свойетгаЯ!
доступных вызывающему фрагменту программы) property A: Double read fa write SetA;
(Для ■ станов8|^ЯачН1ия prcfSty-твйства исполвзуется метод SetA, а для чтения private-свойство fa)
property В: Double read fb write SetB;
(Для установки значения property-свойства исполвзуется метод SetB, а для чтения
* й|ЙBzate-cвoйcтвoЯ fb) ► property С: Double read fс;
(Для чтения property-свойства исполвзуется значение private-свойства fc)
Implementation
1 Procedure ABC4.SetA(NewA: Double); (Описание метода SetA) Begin
fa := NewA; fc := fa * fb; end;
Procedure ABC4.SetB(NewB: Double); (Описание метода SetB) Begin fb := NewB; fc : = fa * fb;
end;
end.i
Такой подход также не дает возможности нарушить целостность данных вызывающим фрагментом, так как не обеспечивается прямой доступ к установке значений свойств fa, fb и fc.
Наследование
Основы наследования
Один из основных механизмов объектно-ориентированного программирования -- наследование -- построение нового класса на основе ранее описанного класса. Полученные в результате наследования классы называются классами-наследниками (или дочерними классами), а классы, на основе которых они построены — классами-родителями (или родительскими классами). При наследовании дочерний класс приобретает все свойства и методы родительского класса и имеет доступ к любому его элементу, за исключением описанных с областью видимости private.
При описании дочернего класса с использованием наследования имя родительского класса указывается в скобках после ключевого слова в заголовке интерфейсной части описываемого класса:
Туре
<Имя классах = class (<Имн родительского класса>) {Заголовок -описания)t
। собевтныхйвойтв 1ж методов} , End;
Класс-наследник может быть описан на основе любого другого класса, вне зависимости от того, является ли родительский класс в свою очередь дочерним. Более того, все классы в Delphi являются наследниками от класса TObject, даже если это явно не указывается.
Класс I ।1 инкапсулирует основные методы и свойства, связанные
с общим поведением объектов. К ним относятся такие как создание, инициализация и разрушение объектов; поддержка идентификации их принадлежности к классу во время выполнения программы и многие другие, связанные с интеграцией объектов, созданных в Delphi, в среду выполнения программы, то есть операционную систему. Таким образом, экземпляры любого класса в Delphi автоматически приобретают все эти возможности.
Переопределение методов
Часто встречается ситуация, когда один или несколько методов дочернего класса должны работать не так, как в родительском классе. В каче- .стве примера можно привести класс■ . представляющий со
бой абстрактную геометрическую фигуру, и имеющий метод Draw для ее рисования. Наследниками этого класса могли бы быть классы TCircle для работы с окружностями, TLine для работы с линиями, и так далее.
Очевидно, что все дочерние классы в такой ситуации должны изменить метод Draw, чтобы корректно отображать фигуры, которым они соответствуют. Изменение функциональности унаследованных методов в дочерних классах называется переопределением методов.
Механизм переопределения
Для переопределения метода, реализованного в объекте-родителе, следует:
» указать его заголовок в интерфейсной части описания дочернего класса без изменения имени, списка параметров и возвращаемого значения (если метод является функцией);
» указать после заголовка метода ключевое слово override. Если ключевое слово override не указано, то метод не переопределяется.
• реализовать метод (создать программный код) в описательной части объекта по обычным правилам. При этом в заголовке метода ключевое слово override не указывается.
Чтобы метод мог быть переопределен в дочерних классах, он должен быть помечен ключевыми словами virtual или dynamic в интерфейсной части класса-родителя. Ключевое слово virtual указывает на то, что метод должен быть занесен в так называемую таблицу виртуальных методов (ТВМ), а ключевое слово dynamic на то, что метод должен быть найден по имени в дереве родительских объектов.
Разница между использованием virtual и <заключается в на
правлении оптимизации компилятором вызовов переопределяемых методов. Методы, помеченные virtual, оптимизируются по скорости, а dynamic-методы по размеру программного кода. В большинстве случаев рекомендуется использование виртуальных методов, а использование динамических методов целесообразно при высоких степенях вложенности связей родитель-наследник.
Приведем описание класса TwoNums с двумя свойствами а и Ь, и методом н . ; ■ возвращающим сумму свойств. Далее, от этого класса опишем наследника 1,. имеющего уже три свойства — а, Ь и с,
и переопределяющего метод GetResult таким образом, чтобы возвращать сумму не двух, а трех чисел (листинг 5.10).
Листинг 5.10. Использование переопределения
Unit Overriding!;
Interface
Type
TwoNums = class
public- i . HBgra . 1. .
a, b: Integer; । о двух о function GetResult: Integer; virtual;
■ (Описание ВезоловкЫ методам no;c6ie*5
, к>пияКиД| иамм^сттоввацлова а ° ость WgT отЕметолЗожет бьмь переопределен в дочернем классе}
End;
ThreeNunis = class (TwoNums)
public(Заголовок класса Wi^feNumS* в "кобиНс
^■iocl®| ключевого ЮтИв^^^бада указан
класс-родитель}
с: Integer;г . ■ сЯйсЖа СвейнЗтаа й и Ь
насЖдуются сМ^класса-^Япите.'^^ТИОМитз К function GetResult: Integer; override;
{Описание заголовка метода, идентичного 3 атНшжку ’1 оа; Апреле
опМВбния у бсюЖ.яН е в о ” сЯввс# ■ ovewide, указывающее на пер Лпр^р^Ние функциональности родительского метода}
End;
Implementation
function TwoNums.GetResult: Integer;
(Описание метода GetResult класса TwoNums} Begin
Result := ч* + b; ■ - i ■ ri ф>ункции — ip^ma двух - t
end;
function ThreeNums.GetResult: Integer;
(Описание переопределенного метода
(@$^®Lt кл^Жа ~1 1'
Begin
Result := a + b + c;
- га <Щ|*ММММ — ,Мумма трех .,
end;
End.
Переопределение методов с сохранением функциональности
В приведенном примере метод Ос -Result класса Two'Nums полностью переопределен в классе ThreeNums, то есть его изначальная функциональность полностью утеряна, но включена в функциональность замещающего метода с помощью копирования. Это практически всегда возможно, если разработчик класса имеет доступ к исходному тексту класса-родителя, но не всегда удобно, так как программный код, реализующий метод, может иметь немалые размеры.
Для сохранения функциональности переопределенного метода в Delphi имеется возможность его вызова из переопределяющего метода с помощью ключевого слова Inherited, используемого следующим образом:
Inherited СНазвание метода>(<список параметров>);
Аналогично могут вызываться и переопределенные методы, которые являются функциями:
. .. := Inherited СНазвание <■ .-. j>(< исс:; .: грс >) ;
Изменим предыдущий пример таким образом, чтобы сумма свойств в методе Get Result вычислялась с использованием переопределенного варианта этого метода, описанного в классе Тw г ims (листинг 5 11).
листинг 511 Переопределение методов с сохранением функциональности
Unit Overri ding2 ;
Interface
Type
TwoNums = class
public
a, b: Integer;
func№fcn|lGetResult,» Integer; virtual ,
End;
Th^$Nums =' class (TwoNums)
public
•c: *^K;
function Get$esulf: Integer; override; •
End;
Imp1ementЖion
Miunction TwoNums.GetResuit: Intaper;
Begin
Result := a + b;
end;
function ThreeNums.GetResult: Integer;
Begin
Result := Inherited GetResult + c ;
г функции — сумма значения, выдаваемого переопределенным методом (сумма а и Ь) , и свойства : I end;
End.
5.3. Жизненный цикл экземпляра класса
Создание и разрушение экземпляра класса (объекта), а также работа с ним, имеет сложный внутренний механизм. Однако все действия, необходимые для поддержания жизненного цикла объекта, берет на себя компилятор. Рассмотрим последовательно стадии работы с экземпляром класса:
Создание экземпляра класса (объекта).
Использовани.
Разрушени.
Каждый из этапов подробно рассмотрен нами далее
3.1. Создание экземпляра класса. Конструктор
Для создания экземпляра класса необходимо вызвать специализированный статический метод этого к iacca, называемый конструктором. Конструктор наследуется автоматически всеми классами от коренного класса ТObject и выполняет две важных функции:
Выделяет память под структуры данных, необходимые для поддержания жизнедеятельности объекта, то есть инициализирует объект; заполняет порядковые (целочисленные, логические, перечислимые и интервальные) свойства объекта нулевыми значениями; устанавливает нулевые ссылки (значение nil) для свойств-указателей, а также устанавливает нулевые длины динамическим строкам.
Возвращает ссылку на объект, которую можно сохранить в переменной для доступа к свойствам и методам объекта, а также для его последующего разрушения.
Описание и вызов конструктора
Описание конструктора в классе I выглядит следующим образом:
Constructor - ;
Для сохранения ссылки на вновь созданный объект используется переменная соответствующего типа:
Var
<Название :-. <Название,
Такая переменная автоматически рассматривается как ссылка на объект, и дополнительное указание компилятору на динамическую природу переменной не требуется.
Листинг 5.12. Описание и вызов конструктора
unit Geoml ;
Interface
Type
TGeomFigure = class ' (Заголовок класса TGeomFigure,
класс автоматически является наследником класса TObject}
End;
Implementation
Procedure CreateFigure;
Var
Figure: TGeomFigure;
|Ц1У9щисанив •— ссылки i i#a,e
экземпляр класса. Несмотря на то, что не указан модификатор А,переменная Figure яД^гуМпеременной-указателем} •
Begin
Figure := TGeomFigure.Create;
(Вызов конструктора класса TGeomFigure, унаше дованнай о ёц *к л а ао.а> ТЦу<ас t , и сехраввние ссылки новый о633®кт в переменной Figure,
end;
End.
Переопределение конструктора
Конструктор может быть переопределен в описании класса для выполнения дополнительной инициализации, характерной для экземпляров именно этого класса. Например, в конструкторе можно установить начальные значения свойств. Переопределение конструктора выполняется по обычным правилам переопределения методов, за исключением следующих моментов:
Конструктор родительского класса не обязательно должен быть помечен ключевым словом virtual, для того, чтобы его переопределить. Соответственно, если конструктор родительского класса не помечен как виртуальный или динамический, не требуется указание
ключевого слова override в описании дочернего класса. Виртуальные конструкторы необходимы для работы с типами данных, являющимися ссылками на классы (а не на объекты). Такая ссылка используется, например, в конструкторе класса г illпред
назначенного в Delphi для хранения динамических списков.
Существенным отличием в переопределении конструкторов и обычных методов, является возможность изменения параметров конструктора дочернего класса относительно конструктора родительского класса. Однако это возможно только в том случае, если конструктор не является виртуальным.
3
Заметим, что полное переопределение конструктора обычно недопустимо, так как конструктор, определенный в родительском классе, от которого нас юдуется дочерний класс, может выполнять некоторые действия, без которых невозможна корректная работа объекта. Для вызова версии конструктора, замененной в классе-наследнике, используется ключевое слово Inherited:
Inherited;
Таким образом, любой переопределенный конструктор может и (обычно) должен сначала вызвать ту версию конструктора, которую он переопределяет.
Если в классе-наследнике изменен список параметров родительского конструктора (например, список расширен), конструктор родительского класса вызывается с указанием его названия и передачей ему необходимых параметров:
Inherited it (< .i >)
Рассмотрим пример создания объекта с переопределением конструктора (листинг 5.13).
Листинг 5.13. Пример создания объекта с переопределением конструктора
unit Geom2;
Interface
Type
TGeomFigure = class {Заголовок класса TgeomFigure, класс автоматически,-^^пИется н^следййком класса ИйЯНесбЭ^ protected
Color: Integer; I Эпи ■ сЗЙстеа Нк-бласпИЯ видимости protected}
public
Constructor Create(aColor: Integer);
(Заголовок конструктора (область видимости public), список параметров изменен по отношению к родительскому классу TObject, констДетор которое не ^feeT:
End;
Implementation
Constructor TGeomFigure Create;
(Заголовок описательной части конструктора) begin
Inherited Create; (В в конструктора родительского кл Color := aColor; (Ин ■ i свойства, которая не может быть выполнена в родительском классе, так как свойство Color описано в классе .;
end;
End.
Использование экземпляра класса
Использование объекта заключается в вызове его методов и обращении к его свойствам аналогично работе с обычными переменными и подпрограммами, но с указанием переменной-объекта, к которому относятся эти свойства и методы:
<Объект>.<Свойство>
ИЛИ
<Объект>.<Метод>(<Список параметров»);
Пример использования Экземпляра класса показан в листинге 5.14.
Листинг 5.14 Пример использования экземпляра класса
unit4
Interface
TypeW
TGeomFigure = class protected Color: Integer; publeS I
Constructor Create(aColor: Integer);
WgtocedHn(ЗагоЛбШбк MeVraeW1
Encl ;
Implementation (Описание конструктора) . ; f . ***•* ,‘ . , . , (Описание ЦетсеД* jbiaw} Procedure UsingFigure; .'■ пр-Яедур®, мЯэзИзувэщей
объект класса TGeomFigure)
Var
Figure: TGeomFigure; begin
Figure := TGeomFigure.Create(3) ;
(Создание экземпляра класса TGeomFigure}
Figure.Draw;■ ■ - метод» Drav}y|
Figure.Color : = 13; (Изменение значения свойства Color) end;
End.
Разрушение объекта. Деструктор
Объект, естественно, занимает место в памяти, которая необходима для хранения как свойств объекта, так и дополнительной информации, например, таблицы виртуальных методов. Для разрушения объекта и освобождения памяти, которая выделена для него в конструкторе, предназначен деструктор — специализированный метод, изначально определенный в классе TObject:
Destructor Destroy; virtual;
Если в конструкторе объекта производится выделение памяти под какие- либо ресурсы или объект регистрируется в других объектах, передавая им ссылку на себя, то возникает необходимость переопределения деструктора для освобождения памяти и разрушения связей с другими элементами программы.
При переопределении деструктора необходимо указывать ключевое слово override, так как деструктор является виртуальным методом (помечен ключевым словом virtual в описании класса TObject). Последней командой описательной части деструктора должен быть вызов переопределенного деструктора родительского класса с помощью ключевого слова Inherited:
Inherited ;
Прямой вызов деструктора не применяется для уничтожения экземпляра класса. Для этого предназначен метод Free, также описанный в классе Данный метод не может быть переопределен, так как не имеет в своем описании ключевого слова virtual, однако метод Free визы
вает деструктор Destroy, поведение которого может быть специфическим (тжстинг 5.15).
Листинг 5.15. Пример создания и разрушения объекта
unit Geom4;
Interface
Type
TGeomFigure
= class
{Заголово
класса. TGe
iomFigure,
protected
класс автоматически является наследником класса TObject}
Color:
Integer;
1 Описание видимости
свойства с protected)
областью
public
Constructor Create(aColor: Integer);
(Заголовок конструктора (-Дпасть ^№®8о®и f>db$lc)
Destructor Destroy; override;
Заголовок деструкторав^щасть видимости public) }
End;
I nip 1 ement at i on
Constructor TGeomFigure- Create; {Заголовок описательной части конструктора)
begin
Inherited Create;■ ВызовйЫ>нЙ№уктора роди^льДо^
класса)
Color := aColor; • I Инициализация 8Й!|Ё|ства, котфаяЖге может быть выполнена в родительском классе, так как W^E&bo Center описано в классе TGeomFigure)
end;
Destructor TGeomFigure.Destroy; (Заголово- описательной части деструктора)
begin
Inherited Destroy;, Д'^МРУктЯВ- ойщЩЯ с к о г о
класса)
end;
Procedure UsingFigure..- ■ пМммуры, и^^пьзудДай
объект класса TGeomFigure)
Уаг
Figure: TGeomFigure; begin
Figure := TGeomFigure.Create(3);
МКозданиеМ экземпНр8^МассВ®#ТСЭД|МГ1диге) ’
Figure Draw;- метода
Figure.Color := 13; (Изменение значения свойства Color}
Figure.Free;;объекта, автомдцищсдЦЦ
вызов деструктора Destroy} end; End.
Полиморфизм
Совместимость объектов
Очевидно, что при наследовании классов друг от друга количество свойств и методов увеличивается от класса к классу (или, как минимум, не уменьшается). Все объекты некоторого класса могут иметь доступ к методам и свойствам, реализованных в тех классах, от которых он упас юдован 1 В результате такого свойства объектов появляется теоретическая возможность присвоить переменной-ссылке на экземпляр класса реальную ссылку на экземпляр другого класса. Причем присваиваемый объект должен быть экземпляром класса, находящимся ниже по иерархии, чем тот, который был указан при описании переменной.
Рис. 5.1. Совместимость объектовРис. 5.1. Совместимость объектовНа рис. 5.1 представлены классы, образующие иерархию Один из классов — Класс А — является родительским для всех остальных. Соответственно, если некоторая переменная описана как ссылка на экземпляр Класс А, то на самом деле она может указывать еще и на Класс Б, и на Класс в.
Рис. 5.1. Совместимость объектов
Рис. 5.1. Совместимость объектов
|
1
6
14 В данном случае, речь идет об использовании тех свойств и методов, которые доступны фрагментам программы, использующим объск ы. то есть имеющим соответствующие области видимости.**
Как и все объектно-ориентированные языки программирования, Delphi поддерживает свойство полиморфизма объектов при наследовании, которое состоит в правильном выборе виртуального метода, вызываемого из переменной-ссылки на объект. Вне зависимости от того, на экземпляр какого класса указывает переменная-ссылка в соответствии со своим описанием, будет вызван виртуальный метод, описанный в классе, на который реально указывает ссылка, а не его версия, описанная в классе, сопоставленном типу ссылочной переменной.
Рассмотрим (листинг 5.16), например, классы । । и TCircle, являющиеся наследниками класса - , : и переопределяющие виртуальный метод Draw, чтобы придать ему функциональность, необходимую для вывода каждой конкретной геометрической фигуры. Опишем переменную, которая является ссылкой на экземпляр класса ■ ; - и присвоим ей ссылку на экземпляр класса г.е.
Такая операция возможна, так как класс TLine является наследником класса TGeomFigure. При вызове метода Draw данной переменной этот метод будет вызван в том виде, как он описан в классе TLine, а не в классе TGeomFigure. В этом и выражается полиморфизм (многоформ- ность) объектов, находящихся в одной иерархии.
Свойство полиморфизма поддерживается с помощью так называемого позднего связывания (происходящего во время выполнения программы) переменных-экземпляров с методами, в отличие от раннего связывания (на этапе компиляции).
Листинг 5.16. Иллюстрация полиморфизма
unit PolymorphObjects; Interface
Type
TGeomFigure = class
Procedure Draw; virtual;
End;I .,- ание класса ’ - л -' jure
с виртуальным методом Г г - ■ f
TLine = class
Procedure Draw; override;
End;Ог.и :ание класса TLine с переопределенным
методом Dr aw
Implementation
Procedure TGeomFigure.Draw; begin end;(Описание «Мда ^ау» класса TGejjmFigUgQay
метод ничего не делает)
Procedure TLine.Draw;
bSjin
(Вывод линии)
e®f(Опжание Вмгода Draw клжс@ НЕЗ ne ,
меиЬд КывсЖ®' ;;т.-
Procedure вШХяЬ^оВДЯфгрк ;р
' (Описание (МВ^едур” ияЖл^уИМг <*! полиморфизм объектов)
Уаг
GeomFigure: TGeomFigure;
(Описание переменной-ссылки на экземпляр
' класса TGeomFigure)
begin
GeomFigure := TLine.Create,
' зд и ие эK^^йп■pa, йаУв^Р^^Йпе
и ИайсВтае ссылки нав иеремедВувэ-
$дйшй-уу(на экземпляр. класвдЬ TGwejffigure) j
4МННвВМ.ЯШ№ (АЫИОЯ метоЭЙМРгаМ Из переданной ■еотЕУгивЯ реально вызываний метод описав^ в клас<ЩЙ| TLine (рисование линии) }
GeomFigure.Free; (Разрушение объекта, на который указывает
УЗНременжая С5отР1^5Яз”,”слаггсЯ1 класс etine nepepJp^HnMF аддуктор», то рыл быр ввзва'н деструктор, описанный в классе Tline)
Ond;
End.
Определение принадлежностик классу и приведение типов объектов
Оператор is
При использовании полиморфизма нередко требуется определить, ссылка на объект какого именно типа находится в той или иной переменной. Для решения задач такого рода все объекты содержат информацию о классе — так называемую RTTI-информацию (от англ. Run Time Type Information — информация времени выполнения о типе), для доступа к которой во всех классах имеются методы, унаследованные ими от класса TObject. Однако использование этих методов не рекомендуется разработчиками, а вместо них предусмотрен оператор is, проверяющий принадлежность объекта к заданному классу.
Оператор is возвращает логическое значение (True или False) и используется в следующем виде:
<■ на объект > is <Название класса>
Проиллюстрируем использование оператора is на примере модуля (листинг 5.17), подключающего к себе модуль ., разработан
ный в предыдущем примере. Реализуем процедуру, которая получает в качестве параметра ссылку на экземпляр класса TGeomFigure, и определяет, не принадлежит ли объект, на который реально указывает ссылка, к классу TLine. Если объект является экземпляром класса TLine, то вызовем его метод Draw, в противном случае процедура должна завершиться.
Листинг 5.17. Использование оператора is
unit CheckClass;
Uses PolymorphObjects;
Interface
Procedure DrawFigure(Figure: TGeomFigure);
(Заголовок процедуры)
Implementation
Procedure DrawFigure(Figure: TGeomFigure);
(Описание процедуры) begin
If Figure is TLine- соответствия объекта,
на который указывает переменная Figure, классу I .
Then Figure. Draw Е тип объекта -- TLine,1 то вызывается метод :-
Else Exit;противном случае — выход из
end;
End.
Оператор as
В рассмотренном примере (листинг 5.17) допускается вызов метода Draw из объекта, на который указывает параметр Figure, переданный в процедуру, так как заявленный тип параметра позволяет это сделать — в классе TGeomFigure описан метод Draw. Однако иногда требуется вызвать метод, который реализован не в заявленном классе, а в его наследнике, реальный экземпляр которого и передается в качестве параметра. Попытка сделать но вызовет ошибку компиляции.
Для указания компилятору о том, что объект следует рассматривать как экземпляр какого-либо конкретного класса, предусмотрен оператор используемый следующим образом:
<Ссылка на объекта as <Название классаа
В результате такого указания Delphi пытается обращаться к объекту, на который указывает ссылка, как к экземпляру заданного класса. Так, если бы в описании класса TGeomFigure не было метода Draw, а описание его располагалось бы в классе TLine то метод можно было бы вызвать следующим образом:
If Figure is TLine
। sej к - соответствия объекта, на который указывает переменная Figure, классу I .
Then (Figure as TLine) .Draw
. : ш тип объекта — TLine, то вызывается метод 1
Else Exit;противном случае — выход из . . ц ; -
Заметим, что приведение типов может использоваться, в основном, при работе с объектами, изменение иерархии которых невозможно. К таким объектам, например, относятся стандартные объекты Delphi. В остальных случаях наличие подобных конструкций в программе, скорее всего, указывает на неправильно спроектированную иерархию классов.
Абстрактные методы
Использование наследования и связанного с ним свойства полиморфизма очень удобно при проектировании сложных систем, состоящих из групп классов, имеющих смысловое единство. Такие классы обычно имеют одного родителя, в котором прописываются заголовки методов, необходимых для поддержки функциональности ветви иерархии. В рассматриваемых нами примерах таким классом был TGeomFigure, в котором метод Draw описывался, но не выполнял каких-либо конкретных действий.
Для того, чтобы не описывать «пустых» методов, увеличивая бесполезный размер исходного текста программ, в Delphi предусмотрен специальный модификатор методов abstract (англ. Abstract — абстрактный, фиктивный):
Procedure <Класс>.<Метод>(<Список параметров*); virtual; abstract;
Или для методов-функций:
Function <Класс>.ЯетодарСписож параметров*) : ^Ып^значе- ■>; virtual; abstract;
Описание метода, помеченного ключевым словом abstract, в классе, где он описан, не требуется, однако и вызвать его из экземпляра данного класса невозможно. При попытке произвести такой вызов возникнет ошибка вре-
мени выполнения программы "Project Projectl.exe raised exception class EAbstractError with message 'Abstract । ; ' . ” "Исключительная ситуация EAbstractError в проекте Pr rectl.exe".
Абстрактный метод всегда является виртуальным (помечен ключевым словом virtual) или динамическим (помечен ключевым словом dynamic) и может быть переопределен в одном из классов-потомков. Соответственно, из экземпляров классов, переопределивших абстрактный метод, его вызов возможен.
Абстрактные методы называют иногда чисто виртуальными, пример их использования приведен в листинге 5.18.
Листинг 5.Iff. Использование абстрактных методов
unjw AbstractMethods;
InMBf^^t 1
Type
■leomFigure = cl№V (ОПИСМиеИйасса rCeomFigure
с виртуальньм абстрактньм методом Draw)
ProfledurK Draw; virtual; abstract;
Ed;•Заголовок ЗКЯэакВюго метма.
ЯшиЗатеяварВ" часть Еласс^ не содержит реализации данного метода)
TLine = ."В1жз
ProSedur” Draw; override,
End;(Описание класса TLine
с пЗреопрДДеле№5й№метГ381д(аЙ1№№бМК)'в
Imp 1 ement a t i on
Procedure TLine.Draw;
begin
(Вывод линии)
end;mi j < метою grav класса Ж>1й^
который в классе-родителе описан , как абстрактный)
Procedure UsingPolymorph; Var
GeomFigure: TGeomFigure; n : а я — ссылка на экземпляр класса ’ mFigurel
begin
GeomFigure : = TLine.Crea te;
GeomFigure . Draw;(В jaоmS^ Щй,ЩeWЕм в»ова
гЙвнн а ng G e ошММи r e долдуа
указывать не наркземпляр класса TGeomFigure • ■ а на экземпляр класса- наследника, переопределившего абстрактный метод Draw. В данном случае, это экземпляр класса ' .
GeomFigure.Free; end;
End.
Полиморфизм и property-свойства
Рассмотрим пример, приведенный в листинге 5.19. Отметим использование свойства полиморфное™ объектов в рассмотренном примере. При установке значения property-свойству Color автоматически вызывается метод Set Color, которому в качестве параметра передается новое значение цвета. Данное значение заносится в protected-свойство : а затем производится автоматический вызов метода Draw.
Метод Draw является виртуальным и может быть переопределен в классах-наследниках. При установке какого-либо значения property-свойству Color класса-наследника будет вызвана та версия метода Draw, которая описана именно в нем, а не в классе TGeomFigure. Таким образом, при отсутствии информации о виде фигур, выводимых классами наследии ками, в классе TGeomFigure полностью реализована логика изменения цвета этой фиI уры1
Такой подход позволяет локализовать отдельные фрагменты логики сложных классов уже на стадии проектирования вершины иерархии, существенно упрощая тем самым разработку программного продукта в целом.
Листинг 5.19. Полиморфизм и property-свойства
unit Geom5; Interface Type
TGeomFigure = class
Protected
fColor: Integer;.■ ■ ■ свойства с областью
видимости ;‘ ■■ .
Procedure Draw; virtual; - то; прорисовки геометрической фигуры (виртуальный,, предназначен для переопределения в классах-наследниках)!
Аналогичные механизмы широко используются в стандартных компонентах Delphi. Например, при изменении свойств, управ, яюи их положением элементов управления на экране, они автоматически перемещаются в окне программы.
Procedure SetColor(aColor: Integer);
<. ■ устайтки pr^e'Cted-
свойства fColor)
Public
Property Color: Integer read fColor write SetColor;
5 (Описание ^гб||угГу-№ойства Co.oi End;
Imp 1 ementat ion
Procedure TGeomFigure.SetColor(aColor: Integer);
begin
fColor := aColor;
Draw;
end; {Процедура установки protected-свойства fColor заносит новое значение свойства в protected-свойство fColor и вызывает метод Draw для автоматической перерисовки фигуры при смене ее цвета)
1
Procedure TGeomFigure Draw;
begin
end;
Procedure UsingFigure;
Var
Figure: TGeomFigure;
iColor: Integer;
begin
Figure := TGeomFigure.Create(3);
Figure.Color := 13;
-v . 1 з™ачеет.А рпде^-сгеЖтйгшВг, автомаДЧ чески вызывается метод gatCdlor, изменяющий значение свойства fColor, и метод Draw, выводящий изображение фигуры на экран с использованием нового цвета)
iColor := Figure.Color;
■(ФЧраивНМв ^W'operty-сДйству Color. В ЖКчиИ'ве значения, В соответствии с описанием данного property- свойства, возвращается значение свойства fColor)
Figure.Free;
end;
End,
Ключевое слово Self
Для выполнения некоторых задач, методам, реализованным в классе, иногда требуется сослаться на объект (экземпляр класса), из которого вызван метод во время выполнения программы. Поскольку такая ссылка на экземпляр не всегда известна в процессе разработки программы, в Delphi введено ключевое слово Self, вместо которого на этапе выполнения будет подставлен конкретный адрес объекта. Ссылка Self может использоваться как обычная переменная, ссылающаяся на класс.
В качестве примера можно привести метод некоторого класса, который выдает ссылку на экземпляр, из которого вызван данный метод во время выполнения программы:
Туре
Anwlass = class
Function(йИкЦf : fc ect ;
end;
Function AnyClass.GetSelt : TOMs,ct;
Begin
Result := Self; (Возв; ацаем ссылку на, яИимпляр, из котоМ-го .;:- ‘^ММ<ЭД1 * end;
end.
Использование ссылки Self может быть необходимо при создании компонентов, в конструкторе которых следует передать ссылку на компонент- владелец, не известную на этапе разработки программы.
6 1
о
Особенности архитектуры программы в ОС Windows
Объектно-ориентированное программирование — это не просто современная технология создания программных продуктов, а новый общепризнанный способ мышления. Объектно-ориентированный подход существенно снижает сложность программных продуктов, что позволяет разработчикам языков программирования изначально заложить в них возможности решения немалого количества широко распространенных задач. Причем это касается практически всех аспектов реализации программ, в том числе и алгоритмических частей, и фрагментов программ, управляющих данными. Задачей настоящей части книги в дальнейшем является описание некоторых возможностей Delphi, отличающих программирование на этом языке программирования от структурных языков.
Поскольку создание программных продуктов, предназначенных для работы под управлением операционной системы Windows, также имеет су щественные особенности, понимание которых особенно необходимо для более четкой организации работы программы , то в начале рассмотрим именно их.
Архитектура программы в ОС DOS
Программа в операционной системе DOS на уровне подпрограмм представляет собой последовательность взаимных вызовов процедур и функций, обуслов юнную технически структурными операторами и логически алгоритмом программы. Таким образом, программа сама контролирует процесс своего выполнения от начала до конца и операционная система
способна лишь досрочно прекратить выполнение программы, а также приостановить ее выполнение или перенаправить потоки ввода/вывода. Если приложение в DOS интерактивно, то есть ему требуется какая-либо реакция пользователя, то оно может «дожидаться» такой реакции, самостоятельно приостановив свое выполнение.
Например, если программе необходимо в некоторый момент времени получить с клавиатуры значение какого-либо параметра, в Turbo Pascal вызывается процедура . приостанавливающая программу до ввода значения и нажатия клавиши Enter. Структура программы в операционной системе DOS представлена на рис. 6 I
НачалоI
I Подпрограмма! \\ Нодпрогпа.м.маЗ I
IIII
I Коней I
Рис. 6.1. Структура программы в DOS
В процесс работы программы могут вмешиваться так называемые резидентные программы, «отбирающие» у приложения право монопольного использования ресурсов, но обеспечивающие при этом его корректную работу. Например, программы-русификаторы при вводе пользователем символов с клавиатуры первыми получают доступ к этой информации и могут ее преобразовать. Однако некорректная работа таких программ может привести к краху системы и основного приложения.
Архитектура программы в ОС Windows
Многозадачность
Операционная система Windows является многозадачной, что предполагает довольно жесткие требования к поведению программ. Одно из самых существенных требований — невозможность монопольного использования ресурсов, так как приложение не может самостоятельно определить, кто именно в данный момент может использовать ресурс, и в какую именно программу должна попасть информация, например, введенная пользователем с клавиатуры :
На самом деле существуют ресурсы, которые могут использоваться приложением монопольно. Например, COM-порт по своей сути не может быть разделен между приложениями. Однако если одно из приложений получило его в пользование, то другое уже не может этого сделать.
В связи с этим в Windows реализуется схема программ, управляемых событиями. Это значит, что каждая программа представляет собой набор подпрограмм, некоторые из которых вызываются непосредственно ядром операционной системы для реакции на какое-либо событие, произошедшее в системе. При этом ни одно приложение не может ждать совершения события, монополизируя, таким образом, ресурсы и приостанавливая работу других приложений.
Анализом изменений в системе и рассылкой сообщений о событиях занимается непосредственно операционная система. Структура программы в Windows представлена на рис. 6.2.
ЯдроWindowsЯдроWindowsПодпоогоамма
Ядро
Windows
Ядро
Windows
Подпрограмма
Подпрограмма \
Рис. 6.2. Общая структура программы в Windows
Многооконность
Каждой программе в Windows сопоставляется окно — некоторая область на экране, в которую можно выводить информацию. Окно может занимать весь экран, или только его часть, оно может находиться за пределами экрана, быть свернуто (скрыто) по желанию пользователя или перекрыто окнами других приложений.
Программа может определить расположение своего окна на экране, хотя обычно в этом нет необходимости. Вся информация, выводимая программой, будет автоматически расположена в ее окне. Причем центр координат (точка с нулевыми координатами), используемых при выводе, находится в левом верхнем углу окна, то есть не зависит от расположения окна на экране.
Оконное представление программ отвечает условиям, накладываемым на систему многозадачностью, так как несколько приложений одновременно не могут выводить свою информацию в одно и то же место.
Помимо удобного представления информации для пользователя, окно имеет вторую важную функцию с точки зрения программы — в любой момент времени одно из окон «находится в фокусе» (является «активным») и потоки вводимой информации направляются операционной системой в программу, которой принадлежит это окно. Механизм такого перенаправления потоков ввода основан на событиях. Рассмотрим подробнее структуру программы в Windows.
Программа, управляемая событиями
Windows следит за изменениями в состоянии системы (нажатие клавиш, перемещение мыши и нажатие ее кнопок, и т.д.) и генерирует специальные структуры данных, которые содержат следующую информацию:
I Ссылка на окно, которое находилось в фокусе, когда произошло событие.
Идентификатор события Message (значение типа Word).
Дополнительная информация для данного события (два значения — одно типа Word, второе типа 1 сч ■ I г 1 ), например, код нажатой клавиши для сообщения о нажатии клавиши, или координаты мыши для сообщения о перемещении мыши.
Далее, эти пакеты сохраняются в специальной очереди сообщений Windows, а ядро опять переходит в режим слежения за системой. С другой стороны, очередь непрерывно разбирается, анализируется ссылка на окно, которому предназначено событие, и вызывается его оконная функция — специальная подпрограмма, описанная по определенным правилам и зарегистрированная в операционной системе как объект назначения для сообщений. Заголовок оконной функции выглядит следующим образом:
Function Ki idowPro (Window: HWnd; Message, WParam: Word;
LPar lt : Lc nqi :t) : Lc n : i n 1; export;
Жизненный цикл сообщения представлен на рис. 6.3.
Вызванная оконная функция должна проанализировать событие по его идентификатору Message, .используя дополнительные параметры WParam и LParam, выполнить действия, обусловленные логикой программы, и вернуть в качестве результата функции код завершения обработки. Если
Рис. 6.3. Сообщения в Windows
приложение не может проанализировать код события (обработка такого события не предусмотрена в оконной функции), то должен быть вызван обработчик по умолчанию. Таким образом, большую часть оконной функции обычно занимает оператор множественного выбора Case, который на основании информации о сообщении выполняет необходимые действия. В секции Else такого оператора вызывается обработчик по умолчанию (см. рис. 6.4).
Рис. 6.4. Обработка сообщения в оконной функции
Окно, которое создается системой, должно принадлежать некоторому классу, зарегистрированному в ней17. Во время регистрации системе передается информация о многих параметрах окна, например, о наборе его визуальных элементов (наличие меню, цвет и стиль фона, и т.д.), а также ссылка на оконную функцию, экземпляр которой будет создан для каждого окна, принадлежащего данному классу.
Рассмотрим основные этапы работы программы в ОС Windows:
I Создание и регистрация класса окна, передача операционной системе ссылки на оконную функцию.
Создание окна на основе класса.
Организация предварительного анализа очереди сообщений, работа оконной функции, вызываемой ядром Windows.
Уничтожение окна, дерегистрация класса окна.
Таким образом, Windows-программа, которая ничего не делает, занимает порядка семидесяти строк и предоставляет множество возможностей для появления в ней ошибок. При этом подавляющее большинство приложений выполняют одни и те же действия при обработке сообщений, да и набор обрабатываемых сообщений примерно одинаков. В такой ситуации логично решение об инкапсуляции характеристик окна и его поведения в некоторый класс, содержащий методы (обычно пустые), вызываемые при обработке событий.
7 Термин «класс» в данном случае не имеет отношения к объектно-ориентированному программированию.
Данные методы доступны для переопределения и предоставляют возможности для удобной работы с окном, основанной на логическом представлении окна в экземпляре соответствующего класса, а не на вызовах системных функций.
Сокрытие сложных процессов, происходящих с приложением в Windows и объектно-ориентированный подход к программированию — основное направление развития языков программирования в настоящее время. Исключением не стал и Delphi. Все процессы, связанные с поддержанием работоспособности оконной программы, реализованы разработчиками языка. Это позволяет программисту сосредоточиться на разработке логики программы, а не той ее части, которая взаимодействует с сис । смой
Взаимодействие программы с операционной системой
Программирование под DOS связано с частым обращением к ресурсам, например, к видеокарте, напрямую без вызова функций операционной системы, что повышает быстродействие программ за счет отказа от универсальности. Однако такой подход к программированию в Windows невозможен, так как может нарушить целостность других приложений.
Еще один недостаток прямого подхода состоит в необходимости самостоятельной работы с устройствами, которые иногда существенно отличаются друг от друга, особенно в настоящее время '. В Windows эта проблема решена с помощью универсального программного интерфейса операционной системы, обеспечивающей единообразный доступ к устройствам одного типа с помощью набора так называемых API-функций (от англ. API — Application Programming Interface — интерфейс прикладного программирования). Например, вне зависимости от видеокарты, установленной на конкретном компьютере, для вывода изображения используются одни и те же функции.
Несмотря на снижение быстродействия, вызываемое более сложным путем выполнения операции «программа — операционная система — драйвер — устройство», программа становится абсолютно переносимой, то есть может быть запущена на компьютере с любой конфигурацией.
Таким образом, Windows-программы значительно теснее связаны с операционной системой, чем программы, работающие в DOS.
Мы не будем рассматривать структуру Windows-программы более глубоко, так как в большинстве случаев это не требуется для написания программ на Delphi. Заметим, что для создания простейшего приложения, достаточно просто зайти в среду разработки Delphi, создать новый проект, и запустить программу.
Собственно, разнообразие периферийных устройств и обеспечило, в некоторой степени, быстрое продвижение операционных систем, подобных Windows, так как сняло необходимость самостоятельной их поддержки прикладными программами.
Объектноориентированный подход к обработке ошибок
Понятие исключительной ситуации
Исключительная ситуация (исключение) — это некоторая ситуация в программе, которая требует специальной обработки. К таким ситуациям относятся ошибки времени выполнения программы, например, деление на ноль или попытка чтения информации из несуществующего файла.
При возникновении исключительной ситуации Delphi создает экземпляр некоторого класса, в зависимости от характера произошедшей ошибки. Все такие классы являются наследниками класса Exception (англ. Exception -- исключение), что позволяет им быть «узнаваемыми» для Delphi. Механизм исключений состоит в досрочном прерывании подпрограммы или метода объекта, в которых произошла ошибка, и поиск обработчика исключения в этой подпрограмме (реализация обработчиков описана ниже).
Если обработчик не найден, то управление передается подпрограмме, вызвавшей ту подпрограмму, в которой произошла исключительная ситуация. В вызвавшей подпрограмме также производится поиск обработчика, и в случае его отсутствия управление передается следующей подпрограмме по стеку вызова подпрограмм.
Искомый обработчик должен обрабатывать именно те виды исключений, объект которого создан во время возникновения ошибки. Если ни в одной из подпрограмм стека вызова не будет найден обработчик, то исключение передается в стандартный обработчик исключений, автоматически создаваемый в программе. В этом случае на экран будет выдан диалог с сообщением об ошибке (см. рис. 7.1), а программа продолжит свое выполнение в ожидании действий пользователя.
Деление на меть1 Введите другой делите ньДеление на меть1 Введите другой делите ньРис. 7.1. Диалог с сообщением об ошибкеРис. 7.1. Диалог с сообщением об ошибкеProject!Project!■КГ *1
Деление на меть1 Введите другой делите нь
Деление на меть1 Введите другой делите нь
Рис. 7.1. Диалог с сообщением об ошибке
Рис. 7.1. Диалог с сообщением об ошибке
Project!
Project!
Если же в одной из подпрограмм найден обработчик соответствующих исключений, то управление передается ему, а дальнейший путь работы программы определяется обычным образом.
Принудительное созданиеисключительной ситуации
«Тихие» исключения
В Delphi предусмотрен специальный класс исключений eAbort (от англ. Abort Exception — исключительная ситуация прерванного выполнения), информация о которых не выдается пользователю стандартным обработчиком. Это так называемое «тихое» исключение (англ. Silent exception — тихое исключение). Заметим сходство названия этого исключения с процедурой досрочного выхода из подпрограммы Abort, которая, как раз и выбрасывает исключение еAbort.
Для выхода из подпрограммы с передачей управления в вызвавшую подпрограмму без возникновения исключения используется процедура Exit (англ. Exit — Выход).
Эмуляция ошибок
Любая подпрограмма может также сама сгенерировать исключительную ситуацию («выбросить исключение», «возбудить исключение») с помощью оператора Raise (англ. Raise — будить, провоцировать):
Raise <^•;
Например, можно воспользоваться стандартным классом исключения EdivByZero (от англ. Division By Zero Exception — Исключительная ситуация деления на ноль), возникающим автоматически при попытке программы произвести деление на ноль.
Создание объекта исключения может располагаться прямо в вызове оператора 1 Конструктор этого класса должен быть вызван с параметром-строкой, которая будет выдана пользователю:
Raise■■(".< на
Введите другой. ' ) •
После вызова оператора Raise начинается процедура поиска обработчика исключения, описанная выше. Диалог, выдаваемый пользователю, представлен на рис. 7.1.
Обработка исключений
Когда некоторый фрагмент программного кода необходимо защитить от досрочного завершения по ошибке, его следует заключить в блок обработки исключения («защищенный блок»). Таких блоков в Delphi предусмотрено два, а отличаются они характером действий, выполняемых в случае ошибки.
Блок обработки исключений Try..Except
Блок обработки исключений Try. х ■ pt (от англ. Try — Пробовать и Except — кроме) пытается выполнить заданный фрагмент программы, а в случае появления исключения — передает управление специальному обработчику, расположенному в секции Except:
Try
«фрагмент программы>
Except
On <Класс исключения» do <ООраОотчик исключения»;
On <Класс исключения» do <Обработчик исключения»;
Else <>по ■>
End;
Таким образом, если в контролируемом Фрагменте программы, расположенном между ключевыми словами Try и Except, произошло исключение, то управление передается в секцию Except. В секции Except производится поиск Обработчика, который соответствует классу выброшенного исключения. Если такой обработчик не найден, то вызывается Обработчик по умолчанию, находящийся после ключевого слова Else. Если же ключевое слово не используется и при этом не найден обработчик исключения, то исключение передается в подпрограмму, вызвавшую данную, и так далее, в соответствии с механизмом, описанным выше.
Обратим внимание на некоторые особенности работы блока Try.
Если в секции Except не используется ни одной структуры । . . Do, а, соответственно, и ключевого слова Else, то есть секция Except представляет собой простую последовательность каких-либо команд, то содержание этой секции считается обработчиком любого исключения.
При определении обработчика исключения используются правила совместимости типов, поэтому для обработки исключений разных типов, классы которых являются наследниками от одного и того же класса, может быть использован родительский класс. Таким образом, обработчик On Exception Do. . . будет являться обработчиком любого исключения, так как все классы исключений являются наследниками класса Exception.
Если Обработчик исключения в результате своей работы вызовет еще одно исключение, оно будет обрабатываться по общим правилам. Такое исключение может быть обработано и программно, то есть текст Обработчик исключения может быть в свою очередь заключен в блок обработки.
Если для возникшего исключения подобран обработчик, то сообщение пользователю не выдается.
Приведем пример функции, возвращающей частное двух своих параметров (листинг 7 I) Если во время расчета частного происходит ошибка, то в качестве значения функции будет возвращено значение константы NaN (от англ. NaN — Not a Number — Не число), описанной в стандартном модуле Math. Для реакции на исключительные ситуации функции использован простейший вариант блока обработки, не содержащий конструкции On. и ключевого слова Else.
Листинг 7.1. Использование блока обработки исключений Try..Except
Unit UsingTryExceptl;
Interface
Function MyDiv(A, B: Double): Double;
Implementation
Uses Math;
Function MyDiv(A, B: Double): Double;
begin
Try{Начало защищенного фрагмента)
Result A / В
Except{ НачаленЩ^екиии обработки ДйгклвэчитегЙных
ситуаций)
Result := NaN; I случае ошибки рункдМ возвращает резгавтат?НаН)
end;чани "ЬбравОТКИ) I
end;
Блок обработки исключений Try . Finally
Блок обработки исключений Try.может быть использован в си
туациях, когда известно, как именно нужно реагировать на произошедшую ошибку, даже если программа и не пытается установить ее тип (не используются конструкции п. .. .) Например, в предыдущем при
мере совершенно не важно, почему произошло исключение, а важно только то, что результат функции не вычислен, и функция не может возвратить результат своей работы. Соответственно, вне зависимости от типа ошибки, функция должна вернуть значение NaN.
Однако встречаются ситуации, когда реакция программы на ошибку не так важна, как корректное завершение фрагмента программы, вызвавшего эту ошибку. Такие ситуации связаны обычно с необходимостью вернуть операционной системе ресурсы, выделенные ошибочному фрагменту программы. Причем, возвращение ресурсов должно произойти как в случае успешного, так и в случае ошибочного выполнения фрагмента. Для реализации такого поведения программы предусмотрен блок обработки исключений Try. Final 1 у
Try
.программы 1>
Finally
<Фрагмент программы 2>
End;
При таком способе организации обработки исключений сначала производится попытка выполнить Фрагмент программы 1. В случае успешного его выполнения, управление передается Фрагменту программы 2, и блок обработки заканчивается.
Если в Фрагменте программы 1 возникает исключительная ситуация, то его выполнение обрывается, но управление все равно передается Фрагменту программы 2. После выполнения Фрагмента программы 2 исключение выбрасывается заново и происходит его обработка по обычным правилам, например, с помощью блока обработки исключений Try. .;
Различия в работе блоков обработки исключений
На рис. 7.2 представлены три варианта фрагмента программы, в которой происходит ошибка времени выполнения. Каждый из фрагментов состоит из трех процедур, последовательно вызывающих друг друга. Ошибка происходит в третьей. На рисунке показаны три варианта работы в зависимо™ от вида используемого блока обработки или без него.
В первом варианте обработка ошибки не производится (чего в принципе не должно быть в корректно созданной программе). Второй вариант позволяет локализовать исключение, то есть не дать ему выйти за предо
я)6)в)
Рис. 7.2. Механизмы обработки исключительных ситуаций
11! какого-либо фрагмента программы. Благодаря этому остается возможным продолжение нормального выполнения программы. Далее мы остановимся более подробнее на каждом из вариантов.
Программа на схеме «а» не обрабатывает исключительную ситуацию и работает следующим образом. Сначала выполняется Процедура 1 до момента вызова Процедуры 2. Путь корректного (безошибочного) выполнения программы показан сплошной линией. Затем Процедура 2 выполняется до момента вызова Процедуры 3. Процедура 3 выполняется, и в ней происходит ошибка, что влечет автоматическое создание объекта исключения и поиск обработчика, соответствующего данному исключению.
Так как Процедура 3 не обрабатывает исключительную ситуацию, то она завершается, управление передается в вызвавшую ее Процедуру 2, и уже там начинается поиск обработчика исключения (направление потока выполнения при возникновении исключительной ситуации показано пунктирной линией). Однако Процедура 2 также не содержит обработчика исключений, следовательно, она будет прервана, а управление перейдет к Процедуре 1. Процедура 1 не содержит обработчика ошибок, следовательно, также будет прервана. В результате фрагмент программы, вызвавший, но не обработавший ошибку, вообще теряет управление.
Теперь рассмотрим схему «б». Программа, представленная на ней работает аналогично схеме «а» до момента возврата управления в Процедуру 2 при возникновении исключения. Вызов Процедуры 3 в Процедуре 2 был сделан из блока обработки Try. Except, поэтому управление передается
в секцию Except этого блока, после окончания которой фрагмент программы продолжает свое нормальное выполнение.
На схеме «в» представлен фрагмент программы, имеющий блок обработки исключений Try. - у Его работа аналогична предыдущему случаю, за исключением того, что после завершения блока Finally. . I Процедура 2 не будет продолжать свою работу, а завершится, и управление перейдет в Процедуру 1. Далее фрагмент будет работать аналогично представленному на рисунке «а».
Традиционный подходк обработке ошибок
Традиционный подход к обработке динамических ошибок унаследован Delphi от Turbo Pascal и заключается в вызове функций, возвращающих коды завершения подпрограмм, например функции I Обычно подпрограмма, завершенная с нулевым кодом, считается успешно выполненной, а ненулевые коды говорят об каких-либо ошибках. Однако Windows имеют место и функции, возвращающие нулевое значение в случае ошибки.
Возврат кода завершения подпрограммы характерен, например, для системных API-функций Windows. Определение ошибки при работе с такими функциями вызывает существенное затруднение по двум причинам. Во- первых, кодов ошибок для каждой функции множество, а потому немалое время уходит на изучение справочной информации, тем более что каждая функция возвращает свой набор ошибок. Во-вторых, при проверке возвращаемых значений, к каждой строке исходного текста программы добавляется одна или несколько строк с проверками кода завершения, что отрицательно сказывается на читабельности исходных текстов программ.
С помощью исключений стандартные подпрограммы и методы классов Delphi сообщают об ошибках, происходящих внутри них. Преимущество такого подхода состоит в том, что программист не должен анализировать значение, возвращаемое подпрограммами, а может сосредоточиться на логике собственной программы, считая, что каждый фрагмент программы работает корректно, а в случае ошибки управление будет передано в соответствующее место автоматически.
Управление программой с помощью исключений является наиболее прогрессивным в современном программировании и рекомендуется 1 щ использования при написании собственных программ. В качестве примера приведем процедуру, проверяющую корректность двух заданных ей параметров (листинг 7.2). Если параметры имеют положительное значение, то процедура заканчивается, а если хотя бы один параметр отрицателен, то будет выброшено исключение.
Листинг 7.2. Обработка ошибок
Unit Checking;
Interface eKoordNonCorrect = class(Exception) end;{Описания класса-наследника Exception
д"испольшИ]ия в процжуре собсткнного
исключения}
Procedure CheckKoordinates (X, Y: Integer);
(Заголовок процедуры указан в интерфейсной
Integra, слеИКаЕлвно, данЛя ИрДедураИд<^тупна фрагментам программы, подключающим модуль)
Impl ement at ion
Procedure CheckKoordinates(X, Y: Integer);
begin
If (X < 0) OR (Y < 0) Проверка, не является ли один из
параметров отрицательным..
Then
Raise eKoordNonCorrect. Create ('Полсхеение объекта указано неверно');
I . ■ г. один из параметров отрицателен, то создается и выбрасывается объект . -
end; End.
Заметим, что создание и возбуждение исключения произведено в одну строку, при этом в конструктор объекта исключения передается сообщение для пользователя. Использование описанной процедуры может выглядеть следующим образом:
Uses Checking;Uses Checking;(Подключение модуля Checking)
Uses Checking;
Uses Checking;
Begin
CheckKoordinates(180, 0); {Вызов процедуры с передачей ей
неотрицательных параметров.
Процедура выполняется без возникновения исключительной и уации
CheckKoordinates (-30, 10); (Вызов процедуры с передачей ей в
качестве одного параметра отрицательного -г - ■■: : ■ . Процедура возбуждает исключение j
Если фрагмент программы, вызывающий процедуру CheckKoordinates не обрабатывает исключительную ситуацию, то пользователю выдается диалоговое окно, содержащее строку, заданную в качестве параметра конструктору исключительной ситуации в процедуре CheckKoordinates (см. рис. 7.3).
I*m|c<t I
Положение объекта указано неверно.
нн^ДЬЙ
Рис. 7.3. Сообщение об ошибке
Заметим, что класс исключения eKoordNonCorrect, описанный в модуле Checking, ничего не добавляет к классу Exception и предусмотрен исключительно для того, чтобы вызывающая подпрограмма могла обработать именно это исключение в случае его возникновения:
Uses Checking;{Подключение модуля Checking)
Begin
Tryi । защищенного -- -
CheckKoordinates(180, 0) ;
CheckKoordinates(-30, 10);
। подпрограмм, которые могут вызвать исключительную . .. ■
except
On eKoordNonCorrect Do
begin
Li : ' некорректности i ин I
end;
end;। . । ; ■ защищенного л
При выполнении такой программы пользователю не будет выдано сообщение об ошибке, так как исключительная ситуация локализуется с помощью обработчика Try.
Объектноориентированный подход к хранению информации
Общие положения
Хранение данных в программе не имеет смысла без доступа к ним. При этом чем сложнее структура информации, тем сложнее и подпрограммы, которые их используют. Использование классов для создания, хранения и получения в каком-либо виде информации, позволяет существенно упростить реализацию программных продуктов, насыщенных сложными данными.
Основной мотив в использовании объектно ориентированных технологий для хранения информации состоит в том, что класс фактически является интерфейсом к данным, содержащимся в его свойствах, и предлагает набор простых методов для доступа к данным сложной структуры.
В качестве примера можно рассмотреть создание такой распространенной структуры хранения информации, как список — последовательность записей, каждая из которых содержит в качестве значения одного из своих полей ссылку на следующую запись в этом списке (см. рис. 8 La). Хранение информации в списке заключается в заполнении остальных полей какими-либо значениями.
Реализация такой структуры не сложна, однако ее использование сопряжено с некоторыми проблемами. Если список реализован в таком виде, как он представлен на рис. 8 I а, то есть информация хранится прямо в элементах списка (в их «информационных» полях), то для каждой новой структуры данных, на основе которой нужно создать список, придется реализовать свои подпрограммы доступа к списку.
Выходом из этой ситуации может быть хранение нетипизированных указателей на информационные структуры (см. рис. 8 Lb) но это существен-
но усложняет разрушение списка, так как он не может автоматически разрушить структуры данных, которыми владеет.
Но если заявленной хранимой структурой данных будет являться класс (см. рис. 8 1,с), например TObject, то в таком списке существует и возможность хранения экземпляров наследников данного класса, что существенно облегчает разрушение списка, так как любые объекты могут быть корректно разрушены вызовом метода Free, вне зависимости от их сложности.
И, наконец, представление списка в целом в виде экземпляра класса (см. рис. 8.1.d) позволяет освободить программу не только от подробностей представления информации, но и от вызовов каких-либо обслуживающих список подпрограмм. В результате разработчик может сконцентрироваться на реализации программы, использующей списки, без подробного изучения модуля, в котором эти списки реализованы.
Record!: TRec
Информационные поля
Nexl:A7Rec;—
Record!: TRec Информационные паля
Next: А TRec;— ।
1
liecord/: TRecData: Pointer; — Next: ATRec;— । £Record!; TRecDota: Pointer; Next: ATRec:— ।*liecord/: TRecData: Pointer; — Next: ATRec;— । £Record!; TRecDota: Pointer; Next: ATRec:— ।*Record?; TRec Data: Pointer: Ntxt: ' 7 Rec; — ।Record?; TRec Data: Pointer: Ntxt: ' 7 Rec; — ।ListClass; TListProcedure Add(O: TObject);Function Get: TObject;ListClass; TListProcedure Add(O: TObject);Function Get: TObject;Рис. 8 1 Методы реализации списковРис. 8 1 Методы реализации списковRecord?: TRec Информационные поля Next: ATRec;—
liecord/: TRec
Data: Pointer; — Next: ATRec;— । £
Record!; TRec
Dota: Pointer; Next: ATRec:— ।
*
liecord/: TRec
Data: Pointer; — Next: ATRec;— । £
Record!; TRec
Dota: Pointer; Next: ATRec:— ।
*
Record?; TRec Data: Pointer:
Ntxt: ' 7 Rec; — ।
Record?; TRec Data: Pointer:
Ntxt: ' 7 Rec; — ।
ListClass; TList
Procedure Add(O: TObject);
Function Get: TObject;
ListClass; TList
Procedure Add(O: TObject);
Function Get: TObject;
Рис. 8 1 Методы реализации списков
Рис. 8 1 Методы реализации списков
В Delphi реализованы классы для представления самых распространенных структур данных — списков, очередей и стеков, а также массивов строк, которые широко применяются в компонентах. Далее рассматриваются некоторые из таких классов.
СПИСКИ
Основы использования списков
Класс TList
Для ре; шзапи и списков указателей на произвольные структуры данных в Delphi пр.: та шачен класс TList (англ. List — список), имеюший внутреннее строение, аналогичное представленному на рис. S i d. за исключением того, что данные, хранимые в списке, задаются нетипизирован- ными указателями (указателями типа pointer), как на схеме h а не ссылками на экземпляры классов.
Удобство использования списков типа TList и аналогичных им классов состоит в том, что к данным, хранимым в списке, использующая его программа обращается через интерфейс в виде методов. Таким образом, реализация класса TList может изменяться, но, если не изменяются его методы, то программа сохраняет работоспособность при переходе на новую версию Delphi. Основные методы, описанные в TList, решают задачи добавления и удаления элементов списка, а также его сортировку.
Добавление элементов в список
Для добавления элемента в список используется метод Add, получающий в качестве параметра нетипизированный указатель, который помещается в очередной элемент списка.
Function {..■-■) Integer;
К элементам, которые хранятся в списке, реализован индексный механизм доступа, то есть для указания на элемент используется его порядковый номер, возвращаемый методом Add. Номера элементам выдаются по порядку от 0, а при удалении какого-либо элемента из списка все элементы, следующие за ним, перенумеровываются. Если существует необходимость вставить элемент в середину списка, то в программе может использоваться метод insert:
Procedure(: Integer; Item:) ;
Параметр index указывает, какой индекс должен быть у нового элемента, при этом он не должен быть больше, чем номер последнего элемента в
списке. Номер последнего элемента на единицу меньше общего количества элементов списка, которое можно получить с помощью свойства Count:
property । . Integer;
Удаление элементов из списка
Для удаления элементов из списка предусмотрены методы Delete и Remove. Параметр index определяет номер удаляемого элемента, а параметр v — ссылку на удаляемый элемент.
Procedure(::) ,
Function Remove(Item:i nter) : «integer;
Метод Remove возвращает номер удаленного из списка элемента, который он имел до удаления.
Отметим, что при удалении элемента из списка память, в которой хранится информационная структура, не освобождается автоматически, а ссылка на нее теряется. Таким образом, вызов метода Delete является местом потенциальной утечки памяти, если ссылки, хранимые в списке, не дублируются в других фрагментах программы. Аналогичным образом работает метод Clear, удаляющий все элементы списка без разрушения информации, которая в нем хранится:
procedure Clear; virtual;
Доступ к элементам списка
Для доступа к элементам списка предусмотрено несколько методов и свойств. Для получения указателей на данные, хранимые в первом и последнем элементах списка, используются соответственно методы First и Last:
Function First: Pointer;
Function Last: Pointer;
Получить ссылку на любой элемент, хранимый в списке, можно с помощью property-свойства items, доступ к которому аналогичен доступу к массиву:
property ■ ' [। С Pointer; default;
Свойство items может использоваться для получения данных, хранимых в некотором элементе списка, а также для установки таких данных.
Управление размером списка -
Экземпляры классаавтоматически изменяют свой размер в мо
мент вызовов методов добавления и удаления элементов, таких как Add и Delete. Однако существует несколько аргументов в пользу более гибкого управления размером. Список имеет две характеристики, которые определяют его размер:
Количество элементов, находящихся в данный момент в списке.
. Количество элементов, которые могут храниться в списке при его настоящем состоянии.
Первый параметр определяется свойством Count класса TList и содержит реальное количество элементов списка, существующих на момент обращения к свойству:
property .: Integer;
При создании экземпляра класса TList данное свойство имеет нулевое значение, которое затем увеличивается при вызовах методов Add и Insert, либо уменьшается при вызовах Delete, Remove и Clear. Если свойству Count присваивается значение, то в список будет добавлено необходимое количество элементов, что аналогично вызову метода Add множество раз с параметром nil:
<класса>. (nil);
С другой стороны, свойство Capacity управляет потенциально возможным количеством элементов для данного списка:
property Capacity: Integer;
Значение этого свойства не может быть меньше значения Count, и используется для выделения памяти под список. При добавлении множества элементов в список использование свойства Capacity позволяет заранее выделить списку память под хранение элементов, чтобы не увеличивать текущий размер списка при каждом добавлении элемента, так как эта процедура повышает нагрузку на систему и при частом использовании ведет к фрагментации памяти.
Пример использования списков указателей
Последовательность действий, выполняемых над списком, поясним на примере, продемонстрировав использование различных методов добавления и удаления элементов в списке (см. листинг 8.1).
Листинг Работа со списками
Туре
Т I n f о = Record
A: Integer;
S: String;
end;.заптви — ишЬооМММИонномВ
Структур, указ^ИлД на экземпляры 1кЙфг|йКЯг
1 будут? хМЦИться в Ф ^^рСПИСка)
Var
List: TList; [Описание ссылки на экземпляр класса TList} RI , R2, R3 : л TInfo;
писание ссылок на экземпляры записи Tinfo[
R: '"'TInfo; [Описание одной ссылки на экземпляр записи типа ''
New (Ri) ;
New (R2) ;
New(R3);{- ■ 111 иЩДормационнвХ^СТРУКТУР) „
List := TList.Create;
- экзтампляра* класса-списка}^ List Count := 99;■.-- развИра списку череа .y^^Qc
Count, в резулвтате чего список содержит 99 элементов, в каждом из которых хранитвея укаЖтеж ей зна№ни®: i
List. Add (RD;[. новЯ?с> влеввеа, ^дЯЙаЖение его
<Я- кЫ|№1мОлиска и .з^есени^ в уад^о ^ссыл&в» .. В спиваёа тетЬййщ» ^РодеЩкива^^МШ элеме*^,,
тов/ а новый элемент получает номер 99, так как нумерация ведется от 0}
List.Insert(0, R2) ;
■ 11 >' ' элемента, «Дка ^го ^|Я
■рЯИЕяйэзицию еяиска и занесение в jg®ro ссылки R2 . В списке теперв содержится 101 ■'Цэл'емент , а ноНш элемент Удручает “номер Элемент, вйтЗетеннКш " г ■ кеВ^^той, сдвигается вперед и теперв имеет номер 100}
List.Items[3] := R3;
[Занесение в четвертый элемент списка ссылки R3 . Количество элементов в списке не изменяется, Нвренумерация :^УтПрОИМ|6л*1ТСЯ, R := List.Items [100];
[Занесение в переменную R ссылки,хранящейся в элементе списка с номером 100(ссылка ^квив.элентна R1H}
Dispose(R);Dispose(R);List.Delete(0);Dispose (R2) ;List.Clear;List.Delete(0);Dispose (R2) ;List.Clear;Dispose (R3) ;List.Free;Dispose (R3) ;List.Free;{ОСВОООЖДение yg |Д , занятой te^ti ^сыг^уе®.. Соответственно, исполЖов^Н^Р ие^йж®нИди R1 и ссылки, хранящейся в 100-том элементе спискД недопустимо} ■
Dispose(R);
Dispose(R);
List.Delete(0);
Dispose (R2) ;
List.Clear;
List.Delete(0);
Dispose (R2) ;
List.Clear;
Dispose (R3) ;
List.Free;
Dispose (R3) ;
List.Free;
(УДаЛвНИв-waRBo г о ®пемЯУ?а сДдйка бж ocw бождения памяти, на которую указывает ссылка, хранимая в нем (ссылка эквивалентна R2)}
{ ОСВвбОЖДвМЩ ЩаМЯТу ,, В^НЯТОЙ ПОД ССЫр^у (Удаление всех элементоЯиписка без Йсвобождтия памяти, на^кото^дю уеазышвзт ссылки, хранимые в них. В данный момент
в списке ведь одна твка* ссылка, эквивалентов R3 }
{Освобождение памяти, занятой под ссылку R3}
(Разрушение экземпляра класса-списка}
Списки объектов
Рассмотренные выше списки нетипизированных указателей имеют некоторые недостатки, связанные с возможными ошибками утечки памяти и нарушения доступа при обращении к разрушенным структурам данных. Более корректную работу приложения обеспечивает наследник класса (см. рис. 8.2) — класс TObjectList (от. англ. List of Objects — Список объектов), являющийся списком ссылок на экземпляры классов.
Использование списков объектов аналогично работе с экземплярами класса TList, однако в TObjectList методы переопределены таким образом, что вместо нетипизированных указателей в качестве параметров передаются ссылки на экземпляры классов. Например, методы Add и Remove описаны следующим образом:
Function .() Integer;
Functioni ) Integer;
Основным достоинством использования объектов в качестве хранимой в элементах списка информации является возможность их разрушения при удалении элементов списка. Соответственно, с вызывающей программы снимается ответственность за разрушение созданных объектов, занесенных в ш ияы Необходимость такого поведения определяется значением свойства OwnsObjects:
property OwnsObjects: Boolean;
Если данное свойство имеет значение False, то список объектов ведет себя аналогично списку указателей, то есть при удалении элемента списка, ссылка, хранимая в нем, теряется. При значении True объекты, хранимые в списке, разрушаются при выполнении следующих операций:
* Удаление элементов списка с помощью методов Delete и Remove; ♦ Удаление элементов списка с помощью метода Clear;
♦ Разрушение объекта-списка;
» Изменение значения элемента property-свойства items.
Однако автоматическое разрушение хранимых объектов не всегда удобно, и иногда требуется удалить элемент из списка, не прекращая существование хранимого экземпляра класса. Для выполнения такой операции предусмотрен метод Extract (англ. Extract — изымать), унаследованный от класса TList:
Function(। : TObject): TObject;
Действия, выполняемые данным методом, эквивалентны команде Delete, однако в отличие от Delete, не будет вызван метод Free для хранимого класса.
Списки компонентов
Список компонентов TComponentList (от. англ. List of Components — Список компонентов) является наследником класса TObjectList (см. рис. 8.2), имеет такие же свойства и методы, и предназначен для хранения классов, унаследованных от TComponent. Смысл создания именно такого списка заключается в том, что любой класс, имеющий ссьику на экземпляр компонента, имеет возможность получить уведомление о его разрушении20.
При разрушении компонента, произведенного за пределами списка, тот элемент списка, в котором хранится этот компонент, автоматически удаляется. В результате такого поведения список содержит только корректные ссылки, то есть указывающие на реально существующие в данный момент времени работы программы экземпляры классов. ,
Рис. 6.2. Иерархия классов-списков
” Механизм уведомления рассмотрен в разделе данной книги, посвященном описанию структуры компонентов Delphi.
Применение списков компонентов, в отличие от списков объектов, удобно при работе с экземплярами наследников класса : в условиях, когда в списке содержатся объекты, созданные не фрагментом программы, который обращается к списку, а, например, автоматически при инициализации. Использование именно таких списков позволяет не следить за актуальностью ссылок, так как список т ■ ; ;е n t t поддерживает ее автоматически.
Списки с заданным порядком элементов.Стеки и очереди
Понятие стека и очереди
Довольно распространенной задачей является организация в программе однотипных данных в некотором порядке и обеспечение последовательного доступа к ним. Используется две разновидности порядкового доступа:
Очередь, FIFO (от англ. FIFO — First In First Out — Первым вошел, первым вышел), когда элементы вынимаются из хранящей их структуры в порядке, соответствующем добавлению. Пример очереди изображен на рис. 8.3 (элемент, который не будет затронут ближайшей операцией изъятия, выделен серым фоном).
Стек, LIFO (от англ. LIFO — Last In First Out — Последним вошел, первым вышел), когда элементы вынимаются из хранящей их структуры в порядке, обратном добавлению. Пример стека изображен на рис. 8.4 (элементы, которые не будут затронуты ближайшей операцией изъятия, выделены серым фоном).
ЭлементЭлемент
.11- — -
Добавление (Push) I1 1 Получение (Pop)
Рис. 8.4. Стек
Возможности использования класса TOrderedList
Для организации стека и очереди в Delphi описан класс TOrderedList, в котором заявлены свойства и методы, необходимые для работы со структурами последовательного доступа. Данный класс предназначен не для непосредственного использования, а для создания других классов на его основе. Основные методы TOrderedList реализуют добавление элементов в список (Push), извлечение их из списка (Pop) и получение хранимого элемента без удаления из списка (Реек):
Function и; (АТ1 ) Pointer;
Function : Pointer;
Function Peek: Pointer;
Вторая группа методов является функциями, возвращающими количество элементов, содержащихся в списке на момент вызова (Count) и логическое значение, определяющее, содержит ли список заданное количество элементов (AtLeast):
Function о - : Integer: ■
Function AtLeast(ACount: Intege.r) : Boolean;
Класс TOrderedList не является наследником TList, а использует его в качестве внутреннего свойства для хранения информации. Свойство имеет область видимости protected, поэтому недоступно программе, использующей список. Также в классе; . • не предусмотрено
свойство items. Таким образом, фрагменты программы, имеющие ссылку на экземпляр списка с заданным порядком, не могут изменить последовательность элементов в этом списке, что гарантирует целостность и корректность хранимых данных.
Рис. 8.5. Иерархия списков последовательного доступа
Стек и очередь как наследники класса TOrderedList
Стек и очередь реализованы в Delphi как наследники TOrderedList в виде классов TStack (от англ. Stack — Стек) и TQueue (от англ. Queue — Очередь) без добавления каких-либо свойств и методов. Для хранения объектов предусмотрены наследники данных классов TObjectStack (от
англ. Stack of Objects — Стек объектов) и TObjectQueue, (от англ. Queue of Objects — Очередь объектов). В них переопределены методы Push, Pop и Peek таким образом, чтобы в качестве параметров и возвращаемых значений указывались не указатели типа Pointer, а ссылки на классы:
Function i (А ' : TObject): TObject;
Function Pop: TObject;
Function Peek: TObject;
Аналогов стека и очереди для хранения компонентов не предусмотрено.
Иерархия списков с последовательным доступом показана на рис. 8.5.
Коллекции
Основы использования коллекций
Списки указателей и объектов направлены на временное хранение данных, используемых в программе. Создание хранимых структур данных происходит за пределами списков, а их автоматическое разрушение возможно только для списков объектов и компонентов TObjectList и ~ ; ! n- Li г Эти особенности списков существенно снижают удобство работы со списками во время визуального построения программ, так как визуальный построитель не владеет описанием хранимой в элементах списков информации, и, соответственно, .не может создать экземпляр класса даже для списков объектов и компонентов, не говоря уже об указателях, хранимых в TList.
Еще одной особенностью рассмотренных нами списков является то, что они не могут быть автоматически сохранены в файле формы, что окончательно делает их непригодными для использования в визуальной разработке.
в
Примечание.
О формах мы будем говорить отдельно, в одной из последних глав книги.
Более приспособленным вариантом представления данных в виде списка является класс TCollection (англ. Collection — Коллекция), в котором отсутствуют перечисленные проблемы. Элементы коллекции являются наследниками класса TCollectionltem (англ. Collection Item - Элемент коллекции), который, также как и 1 . . унаследован от класса т ■ 1 1 ■ , приспособленного для сохранения в составе проекта без дополнительных усилий со стороны разрабог шка21.
Класс Persistent подробно рассмотрен в главе, посвященной описанию структуры компонентов Delphi.
Создание и разрушение коллекций
При создании коллекции конструктору в качестве параметра передается название класса-наследника Т 11 : t ion11 , экземпляры которого будут храниться в качестве элементов этой коллекции:
Constructor Create(ItemClass: TCollectionltemClass);
Тип данных TCollectionltemClass является так называемым метаклассом — описанием класса, и заявлен следующим образом:
TCollectionltemClass = class of TCollectionltem;
Использование такого параметра не вызывает затруднений, в качестве его значения передается название класса без использования кавычек.
Разрушение экземпляра коллекции производится аналогично разрушению любого объекта в Delphi — вызовом метода Free, после которого автоматически вызывается деструктор Destroy. Приведем пример создания и разрушения коллекции (листинг 8.2), в которой хранятся классы с двумя свойствами: строковым Name и целочисленным Age.
Листинг 8.2. Пример создания и разрушения коллекции
Туре TCollItem = class(TCollectionltem) Name: String; Age: Integer;
end;.класса, экзцйЯЖ^рН! которой #удут
храниться в коллекции. Класс является наследником TCollectionltem.)
Var
Collection: TCollection; писа •• ссылки на экзевеляр- класса-коллекции TCollection)
Begin
Collection := TCollection.Create(TCollItem);
:o -,экземпляру классу коллекции,
стве параметра, цеР^ается название.
класса-элемента}
(Использование коллекции)
Collection.Free; (Разрушение экземпляра коллекции)
Управление хранимыми данными
Для управления данными, хранимыми в коллекциях, реализованы методы добавления и удаления элементов. Методов упорядочивания коллекций, в отличие от списка, не предусмотрено, так как в коллекциях обычно, важен порядок хранимых элементов, зависящий от внутренних целей программы. Например, в коллекциях хранятся описания характеристик столбцов таблиц, или списки полей таблицы базы данных. Упорядочивание данных такого рода, особенно автоматическое, не имеет смысла и может нарушить внутреннюю логику программы.
Добавление элементов в коллекцию
Добавление Цлементов коллекции происходит с помощью вызова методов Add или insert, которые, помимо создания элемента списка, одновременно создают и экземпляр класса, хранимый в этом элементе. Ссылка на вновь созданный экземпляр информационной структуры возвращается в качестве значения этих функций:
Function i TCollectionltem;
Function Insert (Index : Int — r) : TCollectionltem;
Удаление элементов из коллекции
Удаление элементов коллекции выполняется методом Delete по заданному индексу элемента. Одновременно с уничтожением элемента удаляются и хранимые данные:
Procedure(: ex:) ;
Для удаления всех элементов коллекции применяется метод Clear, также разрушающий все хранимые данные:
Procedure 1
Отметим, что метод Clear автоматически вызывается при разрушении коллекции методом Free.
г
Доступ к элементам коллекции
Доступ к элементам коллекции, как и к элементам списков, реализуется через свойство items, доступное для чтения и записи:
property Items[Index:-] . TCollectionltem;
Практическое использование коллекций
Рассмотрим использование коллекций на примере, показанном в листинге 8 '
Листинг 8.3. Пример использования коллекций
Туре
TCollItem = class(TCollectionltem)
Name: String;
Age: Integer;
end; I ": 1Ю - кЖс®, эКзЯМбры Кбторог#
будут храниться в коллекции. Класс является р наследником»Згсожectiogt^R }
Var
Collection: TCollection;
(Описание ссылки на экземпляр класса-коллекции
TCollection}
Oneltem: TCollItem;
begin
Collection := TCollection.Create(TCollItem) ;
3; экзИДра KjBcca®RprHeiMso
в кафсик вараметра пере^Дт^инДЯре
класса-элемента}
Oneltem := Collection Add as TCollItem;
(Добавление элемента в коллекцию с одновременным гайв>здЖи-у,эКзНДйяШаа класса Тф1йИет, уиазан-
ног” в. конструкторе койекции. Чеяылкя? на этот! экзешляр сохраняется в переменную Oneltem с одновременным приведением типа с помощью оператора as, так как метод Add возвращает зДчЯие тДпа ТСс:-
Oneltem.Name := 'Michael Suharev';
Oneltem.Age := 26; (Изменение свойств объекта,
хранимом в ЛеиентЛ коллекции); •
Oneltem := Collection Insert(O) as TCollItem;
Oneltem.Name := 'Peter Orach';
Oneltem. Age := 25; Б авка нов-мм элемент^^Д колтвк^ЙВЯ в нуввлую,. псвицибэ и изме^^Не ^Войст^З нового хранимого объекта}
Oneltem := Collection.Items[0] as TCollItem;
8МвМучеиие '@ойл8:й*»ка объдю, хранимым®
в коллек^и поД|комер>мм 9 } Я 1. хранимс^^Люъекта} ■ Oneltem := Collection Items[1] as TCollItem;
(Получение ссылки на объект, хранимый
в коллекции под номером 1}
О -1 - ■ -. хр>Жим||?с> < -
Collection.Delete(0);
{Удаление Элемента коллекции с номером Одновременно производится разрушение хранимого объекта и изменение индексов оставшихся элементов -।
Collection.Clear;
1 всех элементов коллекции с автоматическим разрушением всех хранимых 1в . Использован для
примера и необязателен, так как будет вызван при разрушении коллекции в следующей . ; i
Collection.Free;1 Разрушение экземпляра коллекции}
Таким образом, коллекции имеют много общего со списками, но у них несколько другой механизм управления элементами, который выражается в праве собственности коллекции на структуры данных, которые в ней хранятся. Все остальные особенности коллекций вытекаю! из возможностей их родительского класса TPersistent, рассмотренного нами ниже. В частности, в коллекциях реализован метод Assign, заявленный в TPersistent и позволяющий легко копировать содержание одной коллекции в другую, причем на основе объектов, хранимых в копируемой коллекции, будут автоматически созданы объекты, предназначенные для хранения в результирующей коллекции, полностью идентичные исходным.
Массивы текстовой информации
Общие возможностистроковых массивов в Delphi
Хранение строковых массивов является распространенной задачей при создании программных продуктов, взаимодействующих с пользователем. В визуальных компонентах Delphi также широко используются строковые массивы, например, в списках выбора или компонентах редактирования многострочного текста. Для хранения данных такого рода Delphi предлагает базовый класс TStrings, в котором объявлены абстрактные методы, описывающие основные действия, которые могут производиться с массивами строк. К таким методам относятся:
♦ добавление, вставка и удаление строк из массива с возможностью доступа по индексу, а также просто доступ к строке по индексу;
» упорядочивание строк внутри массива;
» загрузка массива из файла или потока и сохранение в файл или поток;
* сопоставление объектов строкам в массиве для хранения более сложных данных или расширенных параметров строк.
Таким образом, класс TStrings определяет общие возможности строковых массивов в Delphi и обеспечивает универсальность в работе с такими структурами. Компоненты, имеющие свойства такого типа, совместимы между собой, что существенно облегчает работу с ними. Например, строки, сформированные пользователем в окне многострочного редактора, несложно скопировать в список выбора, и наоборот.
Манипуляции со строковыми массивами
Добавление элементов
Для добавления строк в массивы в классе TStrings предусмотрено несколько методов с широкими возможностями. Для простого добавления строки к массиву предусмотрены методы Add и Append, выполняющие одинаковые действия. Метод Add возвращает номер строки, который она получила при добавлении:
Function (const S:) : Integer;
Procedure '■ (const S: st ng);
Если строке должен соответствовать какой-либо объект, то для добавления пары строка-объект следует воспользоваться методом AddObject:
Function(const string; AObject: TObject):
Integer;
Фактически метод AddObject можно использовать вместо Add, указывая в качестве второго параметра значение nil.
Предусмотрена возможность вставки строки или строки в паре с объектом в заданную позицию с помощью методов Insert и Insertobject:
Procedure(Integer; const S:i )
Procedure i । i " (:: Integer; const S: string;
AObject:* )
Для групповых действий co строками предусмотрен метод AddStrings. добавляющий в массив строки из другого массива, задаваемого параметром strings типа TStrings:
Procedure ■-....;| ige (S rings: TStrings);
И, наконец, для очистки массива и копирования в него строк из другого массива можно использовать метод Assign:
Procedure Assign (Source: TPersistent); override;
Удаление элементов
Для удаления строк из массива TStrings предусмотрены возможности удаления одной строки по заданному индексу с помощью метода Delete и полная очистка списка строк с помощью метода Clear:
Procedure()
Procedure : ■;
Доступ к элементам
Для доступа к строкам в составе массива предназначены свойства класса TStrings. Наиболее часто используемым из них является свойство Strings, позволяющее получить строку по ее индексу:
property Strings [Index: n ger]: string ,l*MlMlfcf I
Аналогичное свойство предусмотрено и для доступа к объектам, привязанным к строкам:
property л I ■■[■:•. х: п ?«< ] :i -;
Заметим, однако, что представление текстовой информации в виде множества строк удобно в основном, для пользователя. Тогда как, например, для организации поиска в текстовом документе с точки зрения программирования значительно проще рассматривать текст как одну строку, тем более что в Delphi длина строк практически не ограничена. Для доступа к массивам как к одной строке предусмотрены следующие свойства:
property Text: string;
property• ■ string;
propertystring;
В свойстве Text находится строка, образованная слиянием всех строк массива, причем между строками вставляются символы перевода строки и возврата каретки.
Значение свойства CommaText образуется по более сложным правилам:
каждая строка, в которой присутствуют пробелы, заключается в двойные кавычки;
если в тексте присутствуют двойные кавычки, го они удваиваются;
полученные в соответствии с предыдущими правилами строки разделяются запятыми.
Рассмотрим, например, массив строк, состоящий из следующих элементов:
Intel Pentium
Monitor "LG" 17, 19
•rinter
При обращении к свойству Text будет получена следующая строка:
Intel Pentium<#13X#10>Moni tor "LG" 17, 19<#13X#10>Printer<#13x#10>
где #13 — символ перевода строки, а #10 — символ возврата каретки. При обращении к свойству _ будет получено более удобное для восприятия значение:
"Intel Pentium","Monitor ""LG"" 17, 19",Printer
Свойство DelimitedText аналогично свойству CommaText, однако более гибко, так как не использует для представления массива в виде одной строки жестко заданные разделители, а учитывает значения свойств QuoteChar (в какие символы заключается строка, имеющая пробелы) и Delimiter (какой символ следует использовать для разделения строк):
property QuoteChar: Char;
property Delimiter: i i ;
Например, если установить этим свойствам значения, соответственно, «# и «=», то для нашего примера, свойство DelimitedText будет иметь следующее значение:
#Intel .: #=#!•!<"LG" 17, 19# = Printer
Сохраняемость строковых массивов
Для чтения элементов массива TStrings из файла или потока предусмотрены соответственно методы LoadFromFile и LoadFromStream.
Procedure .■ i 1 (const FileName:ng) ;
Procedure LoadFromStream(Stream: TStream);
Для сохранения строк в файл или поток используются методы SaveToFile ИSaveToStream:
Procedure SaveToFi le (const FileName: string) ;
Procedure SaveToStream (Stream: TStream);
Сохранение и чтение текстовой информации происходит в соответствии с правилами представления свойства Text, то есть строки записываются подряд с использованием символов перевода строки и возврата каретки.
Практическое использованиестроковых массивов
Все описанные выше методы либо являются абстрактными, либо в своей реализации используют абстрактные методы. Таким образом, создание экземпляров класса TStrings в программе не имеет смысла, а вместо этого следует использовать классы, унаследованные от него.
Наследником TStrings, используемым во многих стандартных компонентах Delphi, является класс TStringList (см. рис. 8.6), поддерживающий все свойства, объявленные в TStrings, реализующий все методы, которые в родительском классе были абстрактными, и добавляющий некоторые дополнительные возможности. К последним относятся:
» автоматическое упорядочивание строк;
* автоматический контроль повторяемости строк.
Упорядочивание строк производится по алфавиту, если свойство Sorted имеет значение True:
property Sorted:: in;
С помощью свойства CaseSensitive имеется возможность указать, следует ли учитывать регистр символов при сортировке:
property •/ ■ : Boolean;
Если свойство Sorted имеет значение False, то список не упорядочивается автоматически, но может быть отсортирован вызовом метода Sort:
Procedure Sort;
Список строк TStringList предлагает возможность автоматического управления уникальностью строк путем различной реакции на добавлении строк, аналогичных существующим. Для включения этой возможности и выбора типа реакции на добавление строки, дублирующей уже существующую, предназначено перечислимое свойство Duplicates:
property Duplicates::
Рис. 8.6. Иерархия строковых массивов
Данное свойство может принимать следующие значения:
» duplgnore - при добавлении строки, аналогичной существующей, вызов отклоняется без предупреждения, а строка не добавляется в массив;
• dupError — добавление строки не производится, выбрасывается исключение eStringListError;
» dupAccept - добавление дублирующей строки разрешено.
Хранение сложных двоичных данных
Программы могут использовать данные, которые находятся в двоичном формате, например, графические изображения. Delphi предлагает объек- гио ориснтроваиный подход к хранению и представлению такой информации. Так, например, реализована в виде классов поддержка графических форматов BMP, JPEG и EMF, имеющих сложную внутреннюю структуру.
Также, с помощью Delphi, несложно использовать специальные структуры, получаемые из баз данных — BLOB-поля, доступ к которым осуществляется с помощью объектов и освобождае! разработчика прикладного программного продукта от подробностей внутренней реализации сложных данных.
7\a6a 9
Объектноориентированный подход к вводу/выводу информации
Общие сведения о потоках
С усложнением задач, решаемых программными продуктами, увеличиваются объемы используемых в них данных. Причем сами информационные структуры также усложняются. В качестве примера можно привести базу данных среднего предприятия, в которой может находиться несколько десятков таблиц, состоящих из множества полей и содержащих тысячи строк.
При выборке информации из такой структуры могут использоваться различные ее части, связанные между собой, что ведет не только к существенной сложности алгоритма, но и к проблеме хранения большого объема данных как в памяти во время работы программы, так и в долгосрочной перспективе на каких-либо носителях.
Объектно-ориентированный подход к хранению информации, рассмотренный выше, позволяет существенно упростить хранение данных во время работы программы, но не снимает вопросов о вводе информации в программу и ее последующем сохранении.
Разнообразие физических устройств, предназначенных для хранения информации, еще более усложняет реализацию программных продуктов, заставляя разрабатывать уникальные для каждого устройства программные модули. Часть подобных задач берет на себя операционная система, представляя одинаковый программный интерфейс к похожим устройствам, например, Flash-памяти и жестким дискам. Однако этого не достаточно.
С другой стороны, если рассматривать загрузку и сохранение информации с точки зрения логики процесса, без учета особенностей конкретного устройства, будь то оперативная память, магнитный носитель, или
сетевое соединение, то можно легко описать абстрактное устройство для хранения информации. Вне зависимости от типа устройства ввода/выво- да оно должно поддерживать довольно узкий набор возможностей, таких, как:
» запись информации из программы на устройство;
♦ чтение информации из устройства в программу;
» определение параметров устройства, например, его емкости.
Систематизация устройств ввода/вывода с такой позиции обеспечивает возможности объектно-ориентированного подхода к процессам ввода/ вывода с помощью создания некоторого базового класса, описывающего абстрактное устройство, и классов наследников, реализующих заявленные методы чтения и записи информации в зависимости от особенностей конкретного устройства. Такой подход не только снижает сложность программы за счет использования объектов, но и придает ей значительную гибкость, так как переход с одного устройства хранения информации на другое не затрагивает фрагментов программы, непосредственно записывающих и считывающих информацию. Абстрактное устройство ввода/вывода называется потоком.
Базовым классом, описывающем потоки (англ. Stream — поток), является TStream. в котором заявлены методы чтения и записи информации с устройства и на устройство. Кроме того, в нем содержатся свойства, с помощью которых можно получить емкость устройства и некоторые раметры процесса чтения или записи. Имеется также целый набор классов-наследников TStream, каждый из которых предназначен для работы с конкретным устройством, или ориентирован на работу с информацией определенного типа. Список таких классов приведен в табл. 9.1.
На рис. 9.1 представлена схема работы программы, использующей потоки для ввода и вывода информации. Фрагменты программы (подпрограммы) обращаются к ссылке на экземпляр конкретного потока как к абстрактному устройству TStream. Далее, в зависимости от реального класса, на экземпляр которого указывает ссылка, информация перенаправляется на соответствующее физическое устройство, например, в файл.
Класс
•Назначение
, TFileStream
Работа с файлами
TStringStream
Работа со строками, хранимыми в оперативной памяти
TMemoryStream
Работа с динамической памятью
TBIobStream
Работа с двоичными BLOB-полнмк баз данных
TWinSocketStream
Работа с сетевыми соединениями
TOI eStream
Воод/вывод информации в OLE-объектах
Таблица 9 1
Стандартные классы-потоки
Работа с информацией Работа с физическими устройствамиРис. 9.1. Схема работы программы с потоками ввода выводаРабота с информацией Работа с физическими устройствамиРис. 9.1. Схема работы программы с потоками ввода вывода
Работа с информацией Работа с физическими устройствами
Рис. 9.1. Схема работы программы с потоками ввода вывода
Работа с информацией Работа с физическими устройствами
Рис. 9.1. Схема работы программы с потоками ввода вывода
Возвращаясь к вопросу о гибкости программы по отношению к устройствам хранения информации, заметим, что при использовании потоков логика чтения и записи информации локализуется в двух разных частях программы. Указание на информацию, с которой следует произвести какие-либо действия, происходит в подпрограммах, а непосредственная работа с физическими устройствами обеспечивается экземпляром класса-потока.
Предположим, что в программе используется файловый ввод и вывод информации, для чего в переменную Stream типа TStream заносится ссылка на экземпляр класса TFileStream:
Var
Stream: TStream; ' Описание ^Ддтру ®а абст^мйное устройство)
Stream := TFileStream.Create (...);
Совдеп . ■ экземптЦНЖ^Масса ^рля ра@1:>ч|1™ файлами) |
Stream.Read(...);Stream.Write(...);Stream.Read(...);Stream.Write(...);Stream.Free;Stream.Free;(Чтение данных из потока) (Запись данных в поток)
Stream.Read(...);
Stream.Write(...);
Stream.Read(...);
Stream.Write(...);
Stream.Free;
Stream.Free;
(Разрушение экземпляра класса}
При подобной организации программы для перехода на другое устройство ввода/вывода достаточно изменить тип создаваемого объекта на соответствующий новому устройству. Например, для использования динамической памяти вместо файла на диске, следует создать экземпляр класса TMemoryStream, а не класса TFileStream, остальная же часть программы остается неизменной:
Var
Stream: TStream; {Описание б!сылки наДаЯтрактноеустройство)
Stream := TMemoryStream.Create (.,.);Stream := TMemoryStream.Create (.,.);
Stream := TMemoryStream.Create (.,.);
Stream := TMemoryStream.Create (.,.);
(СОЯДаниес-^Меемпляра класса для работН с памятью!
Stream.Read(...);Stream.Write(. ..)Stream.Read(...);Stream.Write(. ..)Stream.Free;Stream.Free;(Чтение данных из потока)
Stream.Read(...);
Stream.Write(. ..)
Stream.Read(...);
Stream.Write(. ..)
Stream.Free;
Stream.Free;
(Запись данных в поток)
(Разрушение экземпляра класса)
Базовый классдля работы с потоками
Информация о состоянии устройства ввода/вывода
В базовом потоковом классе TStream описано свойство Size, определяющее объем информации, который может храниться в потоке:
property Size:;
Данное свойство обычно используется для определения текущего размера потока, однако некоторые наследники класса TStream реализуют изменение размера потока при изменении свойства size.
Потоки построены на основе последовательного доступа к информации. Это значит, что после открытия потока информация считывается из его начала (записывается в начало). Позицию, откуда будет считана (куда будет записана) очередная порция информации, определяет свойство Position:
property Position:
Свойство Position доступно для изменения. Например, для указания потоку, что запись следует производить в его начало, можно воспользоваться следующей конструкцией:
■>:= О
Создание и разрушение потока
Создание экземпляров потоковых классов существенно зависит от типов устройств, с которыми они связаны, так как в конструкторе любого потокового класса передается вся информация, необходимая для установ-
ки связи с устройством. Формат конструкторов для разных видов потоков рассматривается ниже.
Разрушение потока производится в обычном порядке с помощью вызова метода Free:
•■ потокового> Free;
Чтение и запись информации в поток
Чтение информации из потока производится на уровне двоичной информации с помощью методов Read и ReadBuffer, а также на уровне экземпляров классов-наследников Т Со тропе nt с помощью метода ReadComponent:
Function : (var Buffer; Count:;) : Longint;
Procedure ReadBuffer(var Buffer; Count: Longint);
Function ReadComponent (Instance: TComponent): TComponent;
Для записи информации в поток используются аналогичные методы:
Function .■ (var . : г; Count::1 ) :-;
Procedure W :(var Buffer; Count: Longint);
Procedure WriteComponent(Instance: TComponent);
Методы Read и Write при описании в классе TStream являются абстрактными, а методы :и eBaffer их вызывают. Таким
образом, создание и использование экземпляра класса TStream недопустимо. Классы, реализующие потоки, связанные с реальными устройствами, переопределяют данные методы для достижения соответствующей функциональности.
Для записи в поток информации, хранимой в другом потоке, вне зависимости от того, экземпляром какого класса он является, используется метод CopyFrom:
Function CopyFrom (Source: TStream; Count: Int64): Int64;
Для изменения текущей позиции в потоке предусмотрено свойство Position, однако в некоторых случаях более удобно использовать метод Seek, изменяющий текущую позицию относительно настоящего значения:
Function ' - (const Offset:; Origin: TSeekOrigin) :.
Метод Seek перемещает позицию текущего указателя на количество байтов, заданное параметром * f относительно начала потока, конца потока, или текущего положения указателя. Возможные значения данного параметра приведены в табл. 9.2.
Возможные значения параметра Origin метода Seek класса тSimamТаблица 9.2
Значение
Описание
soFromBeginning
Текущий указатель устанавливается на Offset байт от начала потока. Значение Offset должно быть положительным
soFromCurrenl
Текущий указатель смещается на Offset байт от текущего положения. Значение Offset может быть как положительным, так и отрицательным
soFromEnd
Текущий указатель устанавливается на Offset байт от конца потока в сторону его начала. Значение Offset должно быть отрицательным
Особенности реализацииразных потоков
Файловые потоки
Файловые потоки предназначены для ввода/вывода информации с помощью файлов, реализованы в виде класса тки eStream. и поддерживают все возможности операционной системы, предусмотренные для работы с файлами.
Для создания файлового потока TFileStream предусмотрено два конструктора:
Constructor Create(conet FileName: string; Mode: Word); overload;
Constructor n it e (conet FileName: string; . de: Word; Rights: Cardinal) ; overload;
Вторая версия конструктора имеет дополнительный параметр Rights (англ. Right — Права), использование которого имеет смысл только в операционной системе Linux. В Windows параметр Rights игнорируется и его рассмотрение нами не имеет смысла. Параметры FileName и Mode (англ. Mode — Режим) определяют соответственно название файла, с которым связывается поток, и набор флагов доступа к файлу. Флаги доступа разделяются на две группы: направления движения информации и разделения доступа.
По направлению движения информации файлы могут открываться (см. табл. 9.3):
• Только для чтения;
« Только для записи;
» Для чтения и записи одновременно.
Разделение доступа определяет, какие операции могут выполняться над файлом другими приложениями во время работы с ним создаваемого потока (см. табл. 9.4):
защита файла от записи в него информации другими приложениями;
защита файла от чтения другими приложениями;
защита от записи и чтения другими приложениями;
отсутствие защиты от записи и чтения другими приложениями.
Флаг
Доступ к файлу
fmCreate
Создание файла для записи. Если файл с заданным именем уже существует, то он открывается для записи, что эквивалентно использованию флага fmOpenWrite. Если файл с заданным именем уже существует, то информация, находящая в нем, будет утеряна
fmOpenRead
Открытие файла для чтения
fmOpenWrite
Открытие файла для записи. Если файл с заданным именем уже существует, то информация, находящаяся в нем, будет утеряна
tmOpenReadWnte
Открытие файла для чтения и записи одновременно
Флаги, используемые при создании файлового потока
Таблица 9.3
для определения направления движения информации
Флаг
Разделение файла между приложениями
fmShareExclusive
Файл открывается в монопольном режиме, во время работы с файлом ни одно приложение не может записывать в этот файл информацию и считывать ее из него
fmShareDenyWrite
Другие приложения могут считывать информацию из файла, но не могут ее записывать в него
fmSharoDonyRead
Другие приложения могут записывать информацию в файл, но не могут считывать ее из него
frnShareDenyNone
Другие приложения могут использовать файл для любых операций
Флаги, используемые при создании файлового потока
Таблица 9.4
для определения типа разделения доступа к файлу
Потоки на основе оперативной памяти
Для временного хранения информации в оперативной памяти предусмотрен потоковый класс TMemoryStream. Этот класс поддерживает все свойства и методы, описанные в TStream, и реализует дополнительные методы для сохранения в файл записанной в него информации, а также и чтения информации из файла.
ПотокТМещогу Str еащ построен на основе нетипизированного указателя, который может быть доступен для чтения через свойство Memory типа Pointer, если есть необходимость прямого доступа к данным.
Для создания потока TMemoryStream используется конструктор Create без параметров:
Constructor Create;
Для чтения информации из файла с одновременным занесением ее в поток используется метод LoadFromFile
Procedure LoadFromFile (const FileName: string);
И аналогичный метод для записи содержимого потока в файл:
Procedure(const FileName:)
Кроме того, предусмотрены метод для чтения информации из другого потока вне зависимости от его типа, а также метод записи хранимой информации в другой поток:
Procedureг. (। )
Procedure SaveToStream(Stream: TStream);
Также, для потоков, работающих с оперативной памятью, определена операция очистки содержимого с помощью метода Clear:
Procedure ' ■:
Строковые потоки
Строковые потоки используются для доступа к строкам, хранимым в памяти. Реализованы строковые потоки в виде класса TStringStream. В каждом экземпляре такого класса хранится одна строка, доступ к которой возможен с помощью обычных методов, характерных для потоков (то есть Read, Write, и другими).
Если программе, использующей такой поток, необходим доступ к хранимой информации, как к строке в целом, то ссылка на строку может быть получена с помощью свойства DataString:
property DataString: string;
Помимо методов записи информации, унаследованных от класса TStream, в строковых потоках реализована возможность записи и чтения строк:
FunctionI ) string;
Procedure .(const AString:j) ;
При чтении и записи строк в строчные потоки учитывается положение текущего указателя, то есть значение свойства Position.
Глава 10
!►
Использование
графической информации в Delphi
Общие принципывывода информации
Операционная система Windows построена таким образом, что для прикладной программы не важно, на какое именно устройство производится вывод графической информации. Данный подход вполне логичен, так как все устройства, предназначенные для вывода информации, например, монитор или принтер, поддерживают примерно одинаковый набор возможностей.
Прямой доступ к устройствам, который использовался в ОС DOS, запрещен в Windows, а вместо непосредственного взаимодействия с аппаратной частью предназначен программный интерфейс, представляемый операционной системой в виде набора системных API-функций.
Для гого, чтобы идентифицировать графическое устройство, введено понятие графического контекста (от англ. DC — Device Context — Контекст устройства), представляющего собой описание параметров графического устройства и используемого по ссылке (от англ. HDC — Handle of Device Context — Ссылка на контекст устройства).
Ссылка на графический контекст передается API-функциям в качестве одного из параметров, в результате чего выводимая информация попадает на необходимое устройство (см. рис. 10.1).
Контекст устройства имеет набор характеристик, таких как стиль обводки и заливки, и использует их при выводе графических объектов. Характеристики контекста являются ресурсами системного модуля GDI, и для их создания, назначения контексту и разрушения предусмотрены различные системные подпрограммы. Каждая характеристика является системным ресурсом Windows и используется, как и сам контекст, по ссылке.
Рис. 10.1. Выв< >д графической информации в Windows
В Delphi с помощью механизмов инкапсуляции скрыты не только подробности взаимодействия с физическими устройствами вывода графической информации, но и вызов системных функций. Для представления и использования графического контекста и его характеристик предусмотрены специальные типы данных и классы.
Графический контекст представлен в Delphi классом TCanvas (англ. Canvas — Полотно), описанном в модуле Graphics, а характеристики контекста — классами-оболочками системных графических ресурсов трех видов:
* шаблоны обводки (класс ТРеп);
» шаблоны заливки (класс TBrush);
» шрифты (класс TFont).
Таким образом, в программах Delphi процесс вывода графической информации становится длиннее на один шаг (см. рис. 10.2). Однако это в некоторой степени компенсируется снижением сложности программирования за счет более удобного представления данных в виде экземпляров классов и автоматического выполнения объектами Delphi некоторых необходимых действий.
| Подпрограмма Delphi |
Рис. 10.2. Вывод графической информации в Delphi
Параметры вывода информации
Параметры графической информации
Общие положения
В Windows и, соответственно, в Delphi используется механизм текущих параметров графической информации, когда некоторые настройки вывода действуют на все выводимые объекты с момента назначения их контексту. При изменении каких-либо текущих характеристик, например, шаблона обводки, выведенные к текущему моменту времени объекты не изменяются, а все объекты, выводимые позднее, будут использовать новые параметры.
Классы-оболочки графических ресурсов ТРеп (англ. Реп — Карандаш), TBrush (англ. Brash — Кисть) и TFont (англ. Font — Шрифт) имеют общий родительский класс TGraphicsObject (англ. Graphics Object — Графический объект). В классе TGraphicsObject реализованы основные методы, необходимые для поддержки работы с такими системными ссылками. Эти методы в основном предназначены для обеспечения корректности при взаимодействии с механизмами вывода графической информации. Иерархия классов, предназначеных для хранения параметров графической информации, представлена на рис. 10.3.
Рис. 10.3. Иерархия классов-параметров ' графической информации
Все приведенные классы имеют свойство Handle (англ. Handle — Ссылка), описанное, однако, в каждом классе отдельно, а не в родительском классе. Такой подход вызван тем, что для каждого вида графических ресурсов в Delphi предусмотрен собственный тип данных. Соответственно, в классе ТРел свойство Handle описано с типом Н?еп. в классе TBrush — с типом HBrush, а в классе TFont — с типом Font
Экземпляры классов ТРеп, TBrush и TFont создаются вызовом конструктора Create без передачи ему параметров. Все свойства графических объектов устанавливаются для экземпляра класса с помощью соответствующих свойств, рассматриваемых нами ниже.
Для обеспечения реакции программы на изменения графических объектов предназначено событие OnChange Данное событие описано в классе : : .а возникает оно при изменении каких-либо свойств объектов TPen, TBrush и TFont.
Отметим, что во всех стандартных классах-наследниках TGraphicsObject переопределен метод Assign класса TPersistent, что позволяет существенно упростить процедуру создания одного объекта на основе другого.
Далее подробно рассмотрены предусмотренные в Delphi характеристики графической информации.
Цветовые характеристики
Практически все операции по выводу изображения на экран используют какие-либо цветовые характеристики, а указание цвета является довольно распространенной процедурой. Цветовые характеристики графических объектов не являются сложными структурами, поэтому для их хранения не используются системные ресурсы Windows. Соответственно для хранения цвета не предусмотрено и собственного класса.
Для хранения цвета в Windows используется механизм представления RGB, согласно которому любой цвет строится на основе трех составляющих — красной (R, Red), зеленой (G, Green) и синей (В, Blue). Интенсивность каждой составляющей может быть представлен целочисленным значением от 0 до 255, или, в шестнататеричной системе от $00 до $FF.
Тип данных TColor (англ. Color — Цвет) является поддиапазоном типа integer, используется для указания цвета некоторого объекта и описан в модуле Graphics следующим образом:
Туре TColor =. $■.
Цвет в переменных типа TColor записывается справа налево, то есть в двух младших шестая (атеричных разрядах хранится красная составляющая, в следующих двух разрядах находится зеленая, а затем синяя:
$BBGGRR
При нулевой интенсивности всех составляющих ($000000) цвет является черным, а при максимальной ($FFFFFF) — белым.
Старшие два шестнадцатеричных разряда предназначены для более качественного преобразования цвета системой, если такое преобразование необходимо, и могут иметь следующие значения:
$00—указанныйцветприводитсяксистемной палитре;
$01—указанныйцветприводитсяктекущей палитре;
$02—указанныйцветприводитсякпалитре устройствавывода.
В модуле Graphics описан набор констант, который облегчает указание цвета. Названия таких констант построены с указанием названия цвета. Например, константа clBlack соответсвует черному цвету, а константа clActiveBorder представляет цвет, используемый системой для вывода рамки окна.
Характеристики обводки
Экземпляры класса ТРеп используются для указания характеристик начертания обводки при выводе линий и геометрических фигур. Начертание линий определяется следующими параметрами:
цвет;
стиль;
толщина;
режим взаимодействия с фоном, на который выводится изображение.
Цвет обводки содержится в свойстве Color типа TColor:
property Color: TColor;
Толщина линии, которая применяется для обводки графических объектов хранится в целочисленном свойстве width и задается в точках.
property Width: Integer;
Параметры Style и Mode, определяющие стиль и режим взаимодействия выводимой информации с фоном, более сложны, и хранятся соответственно в перечислимых свойствах TPer.style и TPenMode:
property Style: TPenStyle;
property Mode: TPenMode;
Возможные значения свойств Style и Mode приведены соответственно в табл. 10.1 и 10.2.
Возможные значения свойства Style экземпляров класса ТРепТаблица 10 I
Значение
Стиль линии
psSotid
Сплошная
psDash
Штриховая
psDot
Пунктирная
psOashDot
Штрих- пунктирная
psOashDotDot
Один штрих на две пунктирных точки
psClear
Линия не рисуется
pslnsideFrame
Сплошная
Значение
Режим вывода
pmBlack
Линия черная, вне зависимости от ее цвета
pmWhite
Линия белая, вне зависимости от ее цвета
pmNop
Линия не выводится
pmNot
Вместо вывода линии инвертируется фон
pmCopy
Простой вывод
pmNotCopy
Линия выводится инверсным цветом
pmMerge
Цвет линии накладывается на цвет фона по методу OR
pmNotMerge
pmMerge, затем результат инвертируется
pmMergeNotPen
pmMerge, но цвет линии инвертируется
pmMergePenNot
pmMerge, но цвет фона инвертируется
pmMask
Цвет линии накладывается на цвет фона по методу AND
pmNotMask
pmMask, затем результат инвертируется
pmMaskNotPen
pmMask, но цвет линии инвертируется
pmMaskPenNot
pmMask, но цвет фона инвертируется
pmXor
Цвет линии накладывается на цвет фона по методу XOR
pmNotXw
pmXor, затем результат инвертируется
Возможные значения свойства Mode экземпляров класса ТРеп
Таблица 10.2
VarРеп: ТРеп;BeginVarРеп: ТРеп;BeginРеп := ТРеп.Create;Pen.Color := $FF0000;Pen.Style := psDashDot;Pen.Mode := pmMerge,Реп := ТРеп.Create;Pen.Color := $FF0000;Pen.Style := psDashDot;Pen.Mode := pmMerge,Pen.Free;Pen.Free;Приведем пример создания объекта шаблона обводки:
Var
Реп: ТРеп;
Begin
Var
Реп: ТРеп;
Begin
Реп := ТРеп.Create;
Pen.Color := $FF0000;
Pen.Style := psDashDot;
Pen.Mode := pmMerge,
Реп := ТРеп.Create;
Pen.Color := $FF0000;
Pen.Style := psDashDot;
Pen.Mode := pmMerge,
Pen.Free;
Pen.Free;
■ ссылки на экземпляр класса ■
(Создание- экземпляра класса (Назначение цвета обводки) (Назначение стиля обводки) (Назначение режима вывода обводки)
(Разрушение экземпляра класса ТРеп)
После назначения такого объекта графическому контексту все выводимые на данный контекст объекты будут иметь штрих-пунктирную обводку синего цвета, которая накладывается на фоновое изображение по методу OR, то есть добавляет синюю составляющую соответствующим точкам фона.
Характеристики заливки
Шаблон заливки определяется всего двумя параметрами: цветом (содержится в свойстве Color) и стилем (свойство Style перечислимого типа
.- возможные значения которого приведены в табл. 10.3).
Значение
Стиль заливки
bsSolid
Сплошная
bsClear
Заливка не выводится
bsB DI agonal
Наклонные полосы из левого нижнего угла в правый верхний
bsFDiagonal
Наклонные полосы из левого верхнего угла в правый нижний
nsCross
Вертикальная сетка
bsDiagCross
Наклонная сетка
bsHorizontal
Горизонтальные линии
bsVertical
Вертикальные линии
Возможные значения свойства Style экземпляров класса TBrush
Таблица 10.3
Приведем пример создания объекта шаблона заливки:
Var
Brush: TBrush; ■ссылки на экземпляр класса
Begin
Brush := TBrush Create;. экземпляра класса
TBrush}
rush.Color := $00FF00; (Назначение цвета заливки} Brush.Style := bsSolid; (Назначение стиля заливки)
Brush.Free; (Разрушение экземпляра класса TBrush)
После назначения такого объекта графическому контексту все выводимые на данный контекст объекты будут иметь сплошную заливку зеленого цвета.
Шаблон заливки представляет собой квадратное изображение шириной восемь точек, формируемое в памяти на основе параметров, заданных свойствами Color и style. Однако существует возможность использования растрового изображения (экземпляр класса TBitMap) в качестве шаблона. Данное изображение будет использоваться вместо
простых настроек, если свойству Bitmap объекта заливки присвоено какое-либо значение:
property Bitmap:
Подробнее использование классов TBit Мар рассмотрено ниже.
10.2.2. Характеристики текстовой информации
Класс TFont инкапсулирует свойства, необходимые для описания шрифта, которым может выводиться какая-либо текстовая информация. Список свойств данного класса приведен в табл. 10.4.
Свойства класса TFontТаблица 10.4
Название свойства
Тип
Описание
Name
TComponentName
(аналог типа String)
В качестве значения свойства Name может использоваться название любого ирифгз доступного в данный момент системе, например, -АлаЬ
Charset
TFontCharaet
Набор символов, который используется при выводе информации. Для вывода русских символов используется значение RUSSIAN CHARSET
Color
TColor
Определяет цвет выводимого текста
Height
Integer
Определяет высоту шрифта в пунктах (1/72 дюйма). Используется, когда имеет положительное значение. При установке данного свойства свойство Site становится отрицательным
Size
Integer
Определяет высоту шрифта в точках. Используется, когда имеет положительное значение. При установке данного свойства свойство Height становится отрицательным
PixelsPerlnch
Integer
Коэффициент перевода высоты шрифта, заданной свойством Size в высоту, задаваемую свойством Height. Size = - Height * 72 / PixelsPerlnch
Style
set of TFontStyle;
Определяет набор атрибутов шрифта. В множество могут включаться элементы fsBold (полужирное начертание шрифта), fsltalic (наклон символов), fsUnderhne (подчеркивание) и fsStrikeOut (перечеркнутые символы)
Pitch
TFontPitch
Определяет тип шрифта и может иметь одно из трех значений: fpDefault (использовать настройки шрифта), fpVariable (использовать символы переменной ширины), fpFixed (использовать моноширинный шрифт);
Приведем пример создания объекта шрифта:
Font: TFont;■ . и« ссылки н^жекземпляр ^ласс^^Жоп^Д
Font := TFont Create; (Создание Экземпляра класса TFont} Font.CharSet := RUSSIAN_CHARSET;
H I : - КОДОВОЙ I I . <'l
Font.Color := $00FFFF; {Назначение цвета ihbanf}
Font.Name := ’Arial'; {Название шрифта)
Font.Pitch := fpDefault; {Установка набора символов}
Font.Size := 16;(Установка размера)
Font.Style := [fsBold, fsltalic]; (Установка стиля}
Font. Free; (Разрушение экземпляра класса . nt}
После назначения такого объекта графическому контексту вся текстовая информация будет выводиться шрифтом ’ размера 1 пунктов, символы будут иметь наклонное полужирное начертание, а цвет символов будет желтым.
ю.з. Области отображенияи вывод на них
KnaccTCanvas
Класс TCanvas, (от англ. Canvas — полотно) представляет собой область отображения и инкапсулирует свойства и поведение некоторого абстрактного устройства, предназначенного для вывода графической информации. Таким устройством может являться окно приложения на экране или его часть, а также печатающее устройство. Ссылка на устройство, то eci ь графический контекст, содержится в свойстве Handle. Таким образом, класс TCanvas представляет собой оболочку вокруг графического контекста и системных функций, предназначенных для работы с ним.
Заметим, что экземпляр класса TCanvas может выводить какую-либо информацию, только если определено значение свойства Handle, так как именно оно указывает на реальное устройство вывода.
Координатная плоскость
При работе с областями отображения типа TCanvas используются локальные координаты, то есть левый верхний угол области отображения имеет координаты (0, При этом вся выводимая на TCanvas информация автоматически перенаправляется на реальное устройство и располагается в нужном месте.
Несмотря на то, что при выводе графического объекта можно указать любые координаты, область отображения все-таки имеет некоторые размеры, которые хранятся в свойстве Clip Reel:
property ClipRect: I ;
В полях ■ и Top данной записи находятся нулевые значения, а поля Right it Bottom представляют собой соответственно ширину и высоту области отображения.
Установка характеристик графических объектов
Для установки текущих характеристик графических объектов, выводимых на область отображения, используются свойства Pen, Brush и Font, имеющие типы TPen, TBrush и TFont, рассмотренные нами выше:
property Реп: ТРеп;
property Brush: I
property Font: TFont;1
Поскольку характеристики обводки, заливки и начертания символов являются системными ресурсами, то при работе с ними следует соблюдать осторожность. Каждый созданный программой объект должен быть разрушен, как только перестанет быть необходимым. Если экземпляры классов TPen, TBrush и TFont создаются, но не разрушаются, то может возникнуть недостаток ресурсов в системе, что в некоторых случаях приводит к ее краху.
Свойства Pen, Brush и Font класса TCanvas реализованы таким образом, что при присвоении им некоторого объекта происходит не замена текущей ссылки на новую, а перенос характеристик заданного объекта в текущий. При создании экземпляра класса TCanvas свойства Pen, Brush и Font заполняются ссылками на соответствующие объекты, имеющие характеристики по умолчанию.
Таким образом, для работы с данными свойствами можно применять два подхода. Первый подход заключается в создании экземпляра класса ТРеп, TBrush и TFont, заполнении его свойств, присвоении ссылки соответствующему свойству экземпляра класса TCanvas, и последующем разрушении объекта:
Var
Canvas: TCanvas; Pen: TPen;
Pen := ТРеп Create;. 1 экземпляра ТРеп)
Pen.Color := $FF0000;
Pen Style := psDashDot;
Pen.Mode := pmMerge; (Настройка экземпляра ТРеп)
Canvas. Pen := Pen;
■ свойства Pen экземпляра TCanvas.
Характеристики объекта Pen копируются в объект -. Ответственность за разрушение объекта
Реп остается у данного фрагмента
Pen.Free;. ;созданного ранее экземпляра •
Второй подход заключается в возможности получения ссылки на объекты шаблонов и шрифта с помощью свойств Pen, Brush и Font с последующим изменений свойств полученных объектов:
var
Canvas: TCanvas;
Begin
iсвойства Pen
экземпляра класса
Canvas.Pen.Color := $FF0000; (Изменение цвета)
Canvas.Pen.Style := psDashDot; (Изменение стиля)
Canvas . Pen.Mode := pmMerge; (Изменение способа вывода)
Вывод текстовой информации
Для вывода текста на объекты TCanvas используется метод TextOut данного класса:
Procedure ■1 (? , Y: Integer; const Text:)
Данный метод выводит строку, заданную параметром Text, в координаты х и Y. В случае, когда текстовая информация должна быть выведена в некоторую прямоугольную область, используется метод TextRect:
Procedure1 ("X, Y: Integer; const Text:;)
Заданная строка текста выводится в заданные координаты шрифтом, определяемым свойством Font. Для более гибкого управления выводом текстовой информации предусмотрено целочисленное свойство Text Flags класса TCanvas, представляющее собой набор битовых флагов, некоторые из которых представленных в табл. 10 5:
property TextFlags:
Флаги, используемые для формирования свойства Г extFlags класса TCanvas Таблица 10.5
Флаг
Описание
ETO.OPAQUE
Перед выводом символов область, занимаемая текстом, заливается фоновым цветом. Наличие данного флага повышает отображения текста. При выводе фоновой области используются текущие настройки кисти, причем заливка выводится только при использовании стилей bsClear или bsSo id. установленных для текущей заливки области отображения (см. пример ниже)
ETO.HTLREADING
Текст выводится справа налево
ETO.GLYPH INDEX
Текст рассматривается как массив кодов, анализируемых непосредственно графическим модулем Windows. Применяется только для Гни* Гуре шрифтов
ETO.NUMERICSLOCAL
Все числа в заданном тексте отображаются с использованием национальных настроек операционной системы
ETO. NUMERICSLATIN
Все числа в заданном тексте отображаются без использования национальных настроек операционной системы
Приведем пример использования флага ETOOPAQUE для заливки пря
моугольной области, на которую выводится текстовая строка:
Var
Canvas: TCanvas;
Begin
Canvas.Brush.Style := bsSolid; (Установка стиля заливки) Canvas.Brush.Color := clWhite; (Установка цвета заливки)
Canvas.TextFlags := Canvas.TextFlags OR ETO_OPAQUE;
(Добавление флага ETO_OPAQUE к свойству TextFlags с помощью операции логического сож, 1
Canvas.TextOut(10, 10, 'Text in the rectangle');
! строки с автоматической заливкой
фоновой ::
Широко распространенная операция в приложениях, выводящих текстовую информацию — вычисление размеров охватывающих прямоугольников для строк при текущих ус гановках шрифтовых характеристик. Для выполнения таких действий в классе TCanvas предусмотрены следующие методы:
Function TextExtent(const Text: string): TSize;
Function-TextWidth(const Text: string): Integer;
Function TextHeight (const Text: string): Integer;
Метод TextExtent возвращает запись, состоящую из двух полей — сх и су, в которых находятся соответственно ширина и высота прямоуголь-
ника, который будет занимать заданная параметром Text строка текста при использовании текущего шрифта.
Методы т Wi . и Text Height используются для получения информации о ширине и высоте строки текста по отдельности и эквивалентны следующим выражениям: TextExtent (Text) . сх и TextExtent (Text) .су. Необходимо заметить, что возможности настройки выводимого текста в Windows намного более широки, чем реализованные в классе TCanvas. Для доступа ,к расширенным возможностям вывода текстовой информации с ie- дует использовать API-функции Windows, передавая им в качестве ссылки на графический контекст значение свойства Handle области отображения. Приведем пример вывода строки с помощью API-функции Windows на графический контекст, инкапсулированный в область отображения Delphi:
Var
Canvas: TCanvas;
Begin
TextOut (API-функции TextOut, на основе
которой построен метод TextOut класса ' snv
Canvas.Handle,• < на графический к .. .. -
. ; ;- координата вывода :; .
: .! ,- координата вывода
'Text in the rectangle', {Выводимая строка} 21 (Длина строки) );
Заметим, что использование API-функции в данном случае не оправдано, так как проще использовать аналогичный метод самой области представления Canvas. Однако, как было указано выше, класс TCanvas поддерживает не все функции, реализованные в графической библиотеке Windows.
Методы вывода графических примитивов
В классе TCanvas предусмотрены возможности вывода различных графических примитивов, которые можно разбить на следующие логические группы:
» отрезки и ломаные линии;
прямоугольники, в том числе со скругленными краями;
окружности, эллипсы и дуги;
кривые Безье.
Также поддерживается заливка любой замкнутой области с помощью метода FloodFill.
Копирование областей отображения
Помимо вывода примитивов в классе TCanvas реализованы методы для поддержки работы со сложными изображениями. Такие методы предназначены для копирования в область отображения части другой области отображения или графического изображения, заданного -экземпляром класса типа TGraphics”.
Для копирования некоторой прямоугольной области объекта TCanvas в заданную прямоугольную область другого объекта TCanvas используется метод CopyRect:
Procedure CopyRect (const Dost: TRect; Canvas: TCanvas; const Source:t ) ;
Заметим, что в качестве объекта-назначения Best может быть указана область отображения, из которой вызывается этот метод. Такой подход может использоваться, например, для смещения (скроллинга) области отображения:
Var
Canvas: TCanvas;
Begin
Canvas.CopyRect(Rect(0, 1, 150, 51)..Canvas, Rect(0, 0, 150, 50)Canvas.CopyRect(Rect(0, 1, 150, 51)..Canvas, Rect(0, 0, 150, 50)i метода - t
Canvas.CopyRect(
Rect(0, 1, 150, 51)..
Canvas, Rect(0, 0, 150, 50)
Canvas.CopyRect(
Rect(0, 1, 150, 51)..
Canvas, Rect(0, 0, 150, 50)
(Результирующая прямоугольная область) (Область отображения — и очник) (Исходная прямоугольная область сдвинута относительно результирующей на - точку .
Поскольку результирующая прямоугольная область (в которую копируется изображение) сдвинута относительно исходной (из которой копируется изображение) на одну точку на одну точку вниз, то при каждом выполнении такого фрагмента программы изображение в прямоугольнике (О, О, 150, 51) будет сдвигаться соответственно на одну точку вниз.
При несоответствии размеров области-источника Source и области-приемника Best изображение автоматически масштабируется. Для управления взаимодействием выводимого и фонового изображений используется свойство CopyMode перечислимого типа TCopyMode, возможные значения которого представлены в табл. 10.6.
22 Различные классы, предназначенные для хранения графических изображений, описаны ниже.
Возможное значение
Описание
cmBlackness
Заполняет область назначения черным цветом. Источник изображения игнорируется
cmWhiteness
Заполняет область назначения белым цветом. Источник изображения игнорируется
cm Destlnvert
Инвертирует область назначения. Источник изображения игнорируется
cmSrcCopy
Простое копирование
cmSrcAnd
Копирование с использованием логической операции AND
cmMergeCopy
Копирование с использованием логической операции AND
cmSrcPaint
Копирование с использованием логической операции OR
cmSrcInvert
Копирование с использованием логической операции XOR
cmNotSrcCopy
Копирование инвертированной копии изображения-источника
cmSrcErase
Инвертирует изображение-приемник и копирует на него изображение-источник с использованием логической операции XOR
cmMergePaint
Выводит инвертированную копию изображения-источника с использованием логической операции OR
cmNotSrcErase
Выводит изображение с использованием логической операции OR, затем инвертирует полученное изображение
cmPatCopy
Заполняет область-приемник текущей заливкой
cmParlnvert
Заполняет область-приемник текущей заливкой. используя при выводе операцию XOR
cmPatPaint
Заполняет инвершровзнную область-приемник текущей заливкой, используя при выводе операцию Or, затем выводит результат в область приемник, используя операцию OR
Возможные значения свойства CopyMode экземпляров класса TCanvas
Таблица 10.6
Методы вывода изображений
Для копирования изображения, хранимого в каком-либо наследнике класса TGraphic, на область отображения используются следующие методы классы TCanvas:
Procedure (: Integer; Graphic:■ 1) ;
Procedure StretchDraw (const Rect: TRect; Graphic: TGraphic);
Метод Draw используется для копирования изображения в заданные координаты области отображения без изменения его размеров, а метод StretchDraw позволяет задать область, которую будет занимать изображение на области отображения. Соответственно, если размеры изображения отличаются от размеров этой области, изображение будет автоматически отмасштабированно.
Еще один метод вывода изображения на объект TCanvas позволяет скопировать часть изображения типа ТВ it тар в заданный прямоугольник области отображения, заменив при этом цвет изображения, заданный параметром Color на текущую заливку:
Procedure[ , (const Dest: TRect; Bitmap: TBitmap;
const Source: TRect; Color: 1 I ) ;
Прямой доступ к растровому представлению
Для прямого доступа к растровому представлению области отображения предусмотрено свойство Pixels, представляющее собой двумерный массив цветов соответствующих точек области отображения:
property I Y:]
Для изменения цвета точки, имеющей координаты (х,). следует вос
пользоваться следующей конструкцией:
<0бъект TCanvas>.Pixels[X, Y] := <Цвет>;
Синхронизация области отображения
В случаях, когда для построения изображения на области отображения используется множество параметров, связанных между собой, часто бывает необходимо предотвратить вывод информации на время приведения каких-либо параметров в соответствие друг другу. Для обеспечения такой возможности предусмотрен механизм блокировки области отображения с помощью методов Lock и UnLock:
Procedure Lock;।
Procedure;
При вызове метода Lock увеличивается значение целочисленного свойства LockCount и любая подпрограмма, которая обращается к объекту TCanvas будет автоматически приостановлена, пока свойство LockCount не будет иметь нулевое значение. Уменьшение значения данного свойства происходит при вызове метода UnLock.
Заметим, что каждому вызову метода Lock должен соответствовать вызов метода UnLock, поэтому работа с экземплярами класса TCanvas при использовании блокировок обычно производится в блокег г
Var
Canvas:;
Begin
Try
Canvas.Lock; (Блокировка TCanvas} (Выполнение необходимых операций)
Finally
Canvas.UnLock; (Разблокировка TCanvas)
End
Разновидности областей отображения.
Метафайловые области отображения
В стандартной поставке Delphi присутствуют два наследника класса TCanvas:
* TControlCanvas, адаптированный для использования при прорисовке визуальных компонентов,
» TMetafileCanvas. предназначенный для работы с метафайлами — специальными ресурсами Windows, позволяющими хранить последовательность операций вывода на некоторое устройство, сохранять такую последовательность в файле, и считывать ее.
Класс TControlCanvas практически не имеет отличий от TCanvas, тогда как метафай ювые области отображения требуют более подробного рассмотрения. Область отображения TMetafileCanvas сопоставляется специальному графическому ресурсу Windows, инкапсулированному в Delphi в класс TMetafile, описываемый ниже. В конструкторе данной области отображения указывается метафайл, в который будет сохраняться информация о командах, а также контекст устройства, с которым совместим данный метафайл:
constructor Create (AMetafile: TMetafile; ReferenceDevice: HOC);
После разрушения такой области отображения, выведенная на него информация, остается в экземпляре класса ТМе aFile, переданном через параметр AMetafile. В качестве параметра ReferenceDevice можно указывать нулевое значение, если создаваемый контекст должен быть совместим с экраном или принтером.
var
MetafileCanvas: TMetafileCanvas;
Metafile: TMetafile;
begin
(Создание экземпляра класса TMetafile} Metafile := TMetafile.Create;
(Создание экземпляра класса TMetafileCanvas}
MetafileCanvas := TMetafileCanvas.Create(Metafile, 0) ;
J { ВЫВОД BdiAди на Met .■ '--с
MetafileCanvas.MoveTo(0, 0);
MetafileCanvas.LineTo(100, 100);
(Разрушение области отображения) MetafileCanvas.Free;
i :. : объекта МебажИ|е,
в котором сохранены команды вывода}
{Разрушение объекта Metafile) Metafile.Free;
end;
В приведенном примере создается метафайловая область отображения г 1 tfileCa: is, выводящая графическую информацию к метафайл Metafile. После вывода информации область отображения разрушается, но в метафайле Мо остается запись последовательности команд, выполняемых над областью отображения MetafileCanvas. Далее с данным метафайлом можно производить различные действия, например, выводить на какую-либо область отображения (в том числе и на метафай- ловую) с помощью метода Draw, так как класс TMetafile является наследником TGraphics (см. описание метафайлов ниже).
Использование графическихизображений
ю.4.1. Представление изображений в Delphi.Базовый класс TGraphic
Общее описание
Программа, работающая в среде Windows, имеет доступ к достаточно развитым графическим возможностям этой операционной системы, что накладывает на саму программу повышенные требования к качеству пользовательского интерфейса. Для создания дружественного программного интерфейса нередко применяются различные графические изображения, создаваемые в специализированных программных продуктах, сохраняемые в файлы и выводимые на экран во время выполнения программы.
Самостоятельное использование таких файлов трудоемко и требует от разработчика некоторых дополнительных знаний. Однако в Delphi реализована поддержка следующих видов графических изображений:
Растровые изображения, хранимые в формате BMP.
Растровые изображения, хранимые в формате JPEG.
Растровые изображения, хранимые в формате ICO (так называемые «ИКОНКИ»).
Векторные изображения, хранимые в форматах WMF или I МI (так называемые - меIафайлы ).
Все остальные форматы напрямую Delphi не поддерживаются в Delphi напрямую и требут модулей сторонних разработчиков.
Под поддержкой работы с графическими изображениями подразумеваются возможности их непосредственного создания программой, записи в файл или поток, а также чтения из файла или потока. Также реализована работа с буфером обмена Windows (Clipboard).
Для хранения во время выполнения программы каждого из приведенных типов изображений в Delphi предусмотрены собственные классы, общим родителем которых является класс TGraphic, заявляющий основные свойства (см. табл. 10.7) и методы, необходимые для описания абстрактного изображения.
Некоторые свойства класса TGraphicТаблица 10.7
Свойство
Тип
Описание
Empty
Boolean
Определяет, хранится ли в данном объекте изображение (значение False), или нет (значение True)
Width
Height
Integer
Ширина и высота изображения, хранимого в данный момент времени. Устанавливаются при чтении изображения из файла или потока, но могут быть изменены в дальнейшем путем усечения изображения либо добавления фоновой области
Transparent
Boolean
Определяет, является ли фон изображния прозрачным. Для векторных изображений и иконок имеет значение True, остальные типы изображений могут иметь различные значения
Palette
HPatette
Ссылка на палитру (набор цветов), используемых в изображении. Если в изображении не используется палитра, то свойство имеет нулевое значение
PaletteModrfied
Boolean
Определяет, изменена ли палитра с момента прочтения изображения. Содержит True, если изменение производилось
Методы, описанные в классе TGraphic (см. табл. 10.8) являются либо абстрактными, либо просто не имеют реализации, и предназначены для переопределения в классах-наследниках. Все они заявляют возможности чтения изображений из некоторых структур данных, а именно файлов, потоков или буфера обмена Windows, или их записи в эти структуры.
Метод
Описание
LoadFromClipboardFormat
Чтение изображения из буфера обмена
LoadFromFile
Чтение изображения из файла
Load FromStream
Чтение изображения из потока
SaveToClipboardFormat
Запись изображения, хранимого в объекте, в буфер обмена
SaveToHle
Запись .■ юбражен*1я хранимого в объекте, в файл
SaveToStream
Запись изображения, хранимого в объекте, в поток
Методы класса TGraphic
Таблица 10.8
Наиболее простыми в использовании являются методы : и SaveToFile, а также их аналоги LoadFromStream и SaveToStream, которым в качестве параметров передается имя файла с изображением или, соответственно, ссылка на поток, из которого следует считать изображение:
ProcedureProcedureProcedureProcedureProcedureProcedureLoadFromFile (const FileName: string);
Procedure
Procedure
Procedure
Procedure
Procedure
Procedure
SaveToFile (const FileName: string);
LoadFromStream(Stream:.i.r.) ;
Procedure SaveToStream( Stream:.)
Напомним, что TGraphic не предназначен для создания его экземпляров, а присутствует только в качестве возможного родительского класса ' для других, поддерживающих работу с одним из типов графических изображений. Особенности таких классов описаны далее, однако все они используют описанные свойства TGraphic и реализуют заявленные в нем методы, в том числе методы LoadFromStream и SaveToStream, заявленные в TGraphic как абстрактные.
Представление растровых изображений. Класс TBitmap
Для хранения растровых изображений, поддерживаемых Windows". предназначен класс TBitmap, содержащий в качестве одного из своих свойств ссылку на структуру данных типа НВ it тар:
property Handle: HBitmap;
Создание экземпляров класса TBitmap производится с помощью вызова конструктора Create без параметров, после чего объект готов к работе и в него может быть загружено изображение, например, с помощью метода LoadFromFile.
Далее программа может определить и при необходимости изменить размеры изображения с помощью свойств width и Height. Такого рода действия характерны для экземпляров любого класса, унаследованного от TGraphic. Однако объекты класса TBitmap поддерживают множество других полезных свойств и методов, ориентированных на работу именно с растровыми изображениями.
Так, например, после создания экземпляра класса TBitmap имеется доступ к его свойству Canvas типа TCanvas, работа с которым была описана выше. В области отображения, определяемой этим свойством, находится изображение, хранимое в данном объекте. Свойство Canvas описано только для чтения, что не запрещает его использование как объекта, то есть вызов его методов разрешен. В результате этого программа имеет возможность изменения графического изображения, хранимого в объекте.
Речь идет об изображениях «Windows bitmap», которые сохраняются в файлах с расширением BMP.
Также заслуживают внимания два свойства, управляющие прозрачностью фона изображения:
propertyarcnt . г: . о i ;
property TransparentMode: TTransparentMode;
Тип TTransparentMode описан следующим образом:
Type TTransparentMode = (tmAuto, tmF <ed) ;
Свойство TransparentColor (от англ. Transparent Color — Прозрачный цвет) определяет цвет, который не следует выводить на экран при выводе всего изображения. Данное свойство используется только тогда, когда значением свойства TransparentMode (от англ. Transparent Mode — Ре- ' жим прозрачности) является константа tmFixed, в противном случае (значение tmAuto) в качестве прозрачного цвета по умолчанию используется цвет левой нижней точки изображения.
Представление сжатых растровых изображений.Класс TJPEGImage
Класс rBitma? . рассмотренный в предыдущем разделе, предназначен для хранения растровых изображений, представленных в самом простом виде — растровой картой без возможностей сжатия. Однако такой формат не всегда удобен в силу большого объема, занимаемого файлами с такими изображениями на диске. Одним из самых распространенных форматов, использующих сжатие, является JPEG, для поддержки которого в Delphi предназначен класс TJPEGImage.
-Поскольку формат JPEG существенно сложнее, чем BMP, существуют некоторые особенности работы с ним, в основном касающиеся настройки качества изображения и процесса его распаковки из сжатого вида. При этом класс I 3PEGT .• не имеет свойства Canvas, вследствие чего изменение прочитанного с диска изображения невозможно.
Также в данном классе отсутствует свойство Handle, так как формат JPEG не поддерживается напрямую операционной системой. Для использования изображения такого рода в системных функциях Windows его сначала необходимо перевести в обычный растровый формат, например, с помощью вывода на область отображения какого-либо экземпляра класса TBitmap. Сделать это можно с помощью метода Assign:
MyJPEGImage.Assign(MyBitmap).
Возможно и обратное:
MyBitmap.Assign(MyJPEGImage) .
Наиболее полезные свойства класса TJPEGImage представлены в табл. 10.9.
Свойство
Тип
Описание
Grayscale
Boolean
Определяет, является ли хранимое изображение чернобелым (значение True), или цветным (значение False). Может изменяться во время выполнения программы вывода цветного изображения в черно-белой гамме
Performance
TJPEGPerformance
Определяет соотношение качества изображения и скорости его вывода. Данное свойство может иметь одно из двух значений: jpBestSpeed (повышенная скорость вывода) и jpBestQuality (лучшее качество)
CompressionQuality
Integer
Определяет соотношение качества изображения и размера файла, в котором изображение будет сохранено. Данное свойство может иметь значение от 0 (минимальный объем файла, наихудшее качество изображения) до 100 (максимальный объем файла, наилучшее качество изображения). По умолчанию установлено значение 75
Некоторые свойства класса TJPEGImage
Таблица 10.9
Представление Windows-иконок. Класс Tlcon
Для использования Windows-иконок, то есть стандартных растровых изображений Windows, хранимых в файлах с расширением ICO, предназначен класс Tlcon, возможности которого ограничены чтением таких изображений из файлов, выводом их на области отображения без изменения размеров (то есть использование метода StretchDraw класса TCanvas недопустимо), а также сохранением.
Ю.4.2. Метафайлы. Класс TMetafile
Метафайлы и их особенности
Метафайл — это последовательность команд вывода графической информации, записанная в специальном формате, поддерживаемом операционной системой Windows. Для хранения метафайлов используются файлы с расширением WMF (от англ. WMF — Windows MetaFile — Метафайлы Windows) или EMF (от англ. EMF — Enhanced MetaFile — Улучшенный метафайл).
Формат WMF был разработан для Windows 3 I и на данный момент является устаревшим. Часть информации, сохраняемой в таком формате, может быть искажена или утеряна. Таким образом, для хранения метафайлов рекомендуется использование формата EMF.
Особенностью метафайлов по отношению к растровым изображениям является подход к представлению в них графической информации, который заключается в хранении последовательности команд вывода, а не двухмерного массива точек. Соответственно, объем файлов, в которых хранятся такие изображения, зависит только от количества элементов в
этих изображениях, а не от их размеров. Дополнительным преимуществом метафайлов является существенное повышение качества изображений при масштабировании в связи с векторным представлением изображения в метафайле.
Поскольку метафайлы поддерживаются операционной системой, в классе г ।: 1 . описано свойство Handle, содержащее ссылку на структу
ру данных, которую можно использовать для передачи в качестве параметра системным функциям Windows:
property г е : НМеta f-;
Остальные свойства класса TMetafile, за исключением унаследованных от ।. представлены в табл. 10.10.
Некоторые свойства класса TMetafileТаблица 10 f О
Свойство
Тип
Описание
CreatedBy
String
Содержит строку, указывающую на автора изображения или программу, в которой оно создано. Предназначено только для чтения и устанавливается автоматически при создании области отображения для метафайла
Description
String
Содержит текстовое примечание, хранимое вместе с изображением. Предназначено только для чтения и устанавливается автоматически при создании области отображения для метафайла
Enhanced
Boolean
Определяет формат файла, в котором хранится метафайл. Если данное свойство имеет значение True, то файл сохраняется в формате 1 М иначе используется формат WMF
Inch
Word
Содержит разрешение изображения (количество точек на дюйм). Используется только в формате WM
MM Height
Integer
Содержит высоту изображения в сотых долях миллиметра
MMWidth
Integer
Содержит ширину изображения в сотых долях миллиметра
Области отображения метафайлов. Класс TMetafileCanvas
Для программного создания метафайла предназначен специальный класс области отображения TMetafileCanvas, являющийся наследником TCanvas. Так как метафайл содержит несколько больше информации, чем растровые изображения, в классе гм ■ , переопределен конструктор Create:
Constructor Creaie(AMetafile: TMetafile; ReferenceDevice: HDC);
В параметре AMetafile передается ссылка на экземпляр метафайла, в который будет записана последовательность команд вывода информации на данную область отображения. Указание контекста ReferenceDevice используется для создания метафайлового контекста, совместимого с некоторым устройством. При использовании метафайлов, совместимых с экраном и печатающими устройствами, в качестве этого параметра можно указывать нулевое значение.
Информация, выводимая на метафайловую область отображения, записывается в метафайл не в процессе вывода, а только после разрушения экземпляра классаВ этот же момент в метафайле будут
установлены свойства CreatedBy (авторство) и Description (примечание), если при создании области отображения использовался конструктор следующего вида:
Constructor CreateWithComment(AMetaflie: TMetafile;
ReferenceDevice: HDC;
const CreatedBy, Description: String
);
Таким образом, схема создания метафайла выглядит следующим образом:
Создание метафайла — экземпляра класса Пе с помощью конструктора Create.
Создание метафайловой области отображения — экземпляра класса TMetafileCanvas С ПОМОЩЬЮ конструктора Create ИЛИ г iteWit PC • г
Использование области отображения обычным образом, например настройка характеристик, использование свойств, и вызов методов вывода графической информации.
Разрушение метафайловой области отображения с помощью вызова метода Free. При этом последовательность команд, вызванных при использовании области отображения, переносится в метафайл.
Использование метафайла, например, сохранение его в файл с помощью метода <
Разрушение метафайла с помощью вызова метода Free.
ю.4.3. Представление изображений внезависимости от формата. Класс TPicture
Элементы управления Windows используют изображения для создания своего визуального представления (вида кнопок и т.д. и i п). Причем в большинстве случаев не играет роли, в каком именно формате такие изображения хранятся. Однако наличие собственных классов для представления изображений существенно затрудняет разработку компонентов, так как для одного ресурса (изображения, выводимого элементом управления) необходимо наличие нескольких свойств разных типов.
В качестве решения этой проблемы в Delphi предусмотрен класс TPicture, являющийся оболочкой для всех описанных выше классов (растровых изображений, иконок и метафайлов), и имеющий возможность использовать другие форматы изображений, если в программе существует такая необходимость.
Для хранения растровых изображений, иконок и метафайлов в классе TPi t . предусмотрены соответственно свойства Bitmap, Icon и Metafile. При попытке присвоения этим свойствам ссылок на экземпляры классов вызывается метод Assign, в результате чего объект TPicture не становится владельцем присваиваемых объектов, а создает их копии.
Одновременно с инициализацией свойств Bitmap, । и Metafile заполняется значение свойства Graphic, которое можно передавать различным методам областей отображения в качестве ссылки на изображение, вне зависимости от формата.
Для хранения изображений, представленных в других форматах, например в формате JPEG, используется непосредственно свойство Graphic (см.рис. 10.4)
Рис. 10.4. Иерархия классов Graphic и свойства класса TPicture
Методы, реализованные в классе TPicture, также отвечают его основному назначению — универсализации работы с изображениями различных форматов. Так, методы LoadFromFile и SaveToFile получают в качестве параметра имя файла, анализируют его расширение, а также корректно считывают и записывают изображение, помещая ссылку на него в соответствующее свойство:
Procedure < г е(const Filename: string);
Procedure Ie (const Filename: ;trin );
Изначально классу TPicture известны форматы BMP, JPEG, ICO, WMF и EMF. Информация о них хранится в специальной структуре, создаваемой при первом обращении к классу TPicture. Данная структура может быть расширена, если программный продукт описывает наследни-
ков класса. поддерживающих иные форматы данных. Для это
го предназначен метод RegisterFileFormat класса TPicture:
class Procedure . list ■■ -: t (const AExtension,
ADescription: string;
< TGrap hie Class) ;
В качестве параметров данному методу передаются расширение файлов AExtension, текстовое описание формата ADescription, а также имя класса AGraphicClass, который реализует чтение, хранение и запись изображений нового типа. Более подробное описание работы с классом TPicture выходит за рамки нашей книги.
ю.4.4. Пример использованияграфических изображений
В качестве примера использования графических возможностей Delphi приведем программу, выводящую на экран изображение и сохраняющую его в файлы различных форматов: BMP, JPEG и EMF. Также реализуем считывание изображений из файлов, причем изображение, полученное из файла, будет автоматически растягиваться на всю форму (см. рис. 10.5).
Рис. 10.5. Использование графических файлов
Для создания изображения на экране будем использовать область отображения главной формы приложения, ссылка на которую находится в свойстве Canvas формы.
Запустим среду разработчика Delphi и создадим новый проект, выбрав пункт главного меню File->New->Application. Добавим на главную форму в столбик шесть компонентов-кнопок типа TButton с закладки Standard. Визуальным построителем автоматически будут назначены следующие названия данным компонентам: Buttonl, Burt ... . в 3, Button4, r ton . Button6. Форма в процессе разработки представлена на рис. 10.6.
Button*
Sult erf
Bilionfi
Рис. 10.6. Форма в процессе разработки
Изменим подписи кнопок (изменяя значение свойства t для каж
дой кнопки в Инспекторе объектов) на следующие:
» BMP. Создать и сохранить
* BMP. Считать и вывести
* JPEG. Создать и сохранить
» JPEG. Считать и вывести
♦ EMF. Создать и сохранить
» EMF. Считать и вывести
4
Для удобства реализуем два вспомогательных метода:
ProcedureProcedureProcedureProcedureCreatePicture(Canvas : TCanvas);
Procedure
Procedure
Procedure
Procedure
DrawPicture(Graphic: TGraphic);
Метод CreatePicture создает изображение на заданной в качестве параметра области отображения, a DrawPicture выводит изображение Graphic на области отображения Canvas формы с учётом размеров самой формы, которые можно получить из ее свойств width и Height.
Для каждой из шести кнопок реализуем обработчики события нажатия Onclick, выполняющие необходимые действия. Для этого будем выделять соответствующие компоненты по очереди и на странице Events Инспектора объектов дважды щелкать мышью напротив названия события Onclick. При выполнении этих действий в класс формы будут добавляться методы-обработчики соответствующий событий. Модуль формы выглядит как показано в листинге 10.1.
Листинг 10.1. Модуль формы
unit GrFormate; interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, stdCtrls;
(Заголовок модуля формируется автоматически)
type
TForml = с 1 ass (TFo rm) Buttonl: TButton; Button2 TButton; Button3: TButton; Button4: TButton; ButtonS: TButton; Button6: TButton; procedure ButtonlClick(Sender: TObject); procedure Button2Click(Sender TObject) procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure ButtonSClick(Sender: TObject); procedure ButtonSClick(Sender: TObject);
(Ссылки на интерфейсные элементы и заголовки обработчиков нажатия на кнопки Buttonl~ButtonS} private
{ Private declarations }
Procedure CreatePicture(Canvas: TCanvas); Procedure DrawPicture(Graphic: TGraphic);
сйции ргблЙби СЬЖС.бдЙ заголовки 1 тельных методов CreatePicture и DrawPicture) public
{ Public declarations } end;
Var
Formi: TForml;
(В раздел описания переменных автоматически добавляется ссылка на главную форму)
implementation
($R *.dfm)
Uses JPEG; (В описательной секции модуля подключается модуль JPEG для поддержки файлов этого типа)
Procedure TForml.CreatePicture(Canvas : TCanvas);
begin{Метод создает изображение на заданной области
отображения)
Canvas.Pen. Width := 10;
Canvas.Pen.Color : = clYellow; (Настройка характеристик обводки)
Canvas.MoveTo(10, 10);
Canvas.LineTo(80, 100);(Вывод линии)
Canvas.Pen.Width := 5;
Canvas.Pen.Color := clRed; (Настройка характеристик обводки}
Canvas. Аге (10, 10, 80, 100, 30, 30, 50, 5 0);
(Вывод дуги} end;
Procedure TForml.DrawPicture(Graphic: TGraphic) ;
begin' . п вы®д®г |№юбр8«ния1< зЦЙЯшс^ параметром
Graphics на области отображения главной формы с .■аатаИатанебким з^щптабированием Ио Е^зм^рам формы
Canvas.StretchDraw(Classes.Rect(0, 0, Width - 10,
Height - 25) , Graphic);
end;
procedure TForml.ButtonlClick(Sender : TObject);
" ; 1 гчи» нажатия да khohs#* "BMP. и сохранить"}
Var
Bitmap: TBitmap;
Си ■_ ссылки на куЦс бан^р овсЯН К<ОбраиеНИ*) " begin
Bitmap := TBitmap.Create; (Создание экземпляра TBitmap}
Bitmap .Width := 88;
Bitmap.Height : = 107; (Установка размеров изображения) CreatePicture(Bitmap.Canvas);
(Создание изображения с помощью
вызова вспомогательного метода)
Bitmap.SaveToFile(’example.bmp');
(Сохранение изображения в файл)
Bitmap.Free;(Разрушение экземпляра TBitmap)
end;
procedure TForml.Button2Click(Sender: TObject);
(Обработчик.нажатия на кнопку "BMP. Считать и вывести")
Var
Bitmap: TBitmap; ’ (Описаниена класс
растровогУ изображения} begin
Bitmap := TBitmap.Create; (Создание экземпляра TBitmap} Bitmap.LoadFromFile(’example.bmp');
(Загрузка изображения из файла}
DrawPicture(Bitmap);изображения из объекта
Bitmap (наследника TGraphic) с помощью вспомогательного
Bitmap.Free;(Разрушение экземпляра TBitmap)
end;
procedure TForml.Button3Click(Sender: TObject); {Обработчик жажажия на кнопку "JPEG. Создать и сохранить"}
Var
Bitmap: TBitmap;
JPEGImage: TJPEGImage; (Описание ссылок на экземпляры TBitmap и TJPEGImage)
begin
Bitmap := TBitmap.Create; (Создание экземпляра TBitmap)
Bitmap.Width : = 88;
Bitmap.Height : = 107; (Установка размеров изображения) CreatePicture(Bitmap.Canvas);
■. иЛераже^я c Лмоиню
^«№ Min QMO г ^ етарйг о Mt I .■
JPEGImage := TJPEGImage.Create; (Соадание экземпляра-'JPEGImage} ’
JPEGImage.Assign(Bitmap); (Копирование изображения из объекта Bitmap в объект JPEGImage)
JPEGImage.CompreasionQuality := 100; ’ (Настройка " шображЛид (максимальное))
JPEGImage.SaveToFile('example.jpg'); J (Сохранений }йВ<ображенйя в ^айл
JPEGImage.Free ;(Разрушение экземпляра JPEGImage)
Bitmap.Free;(Разрушение экземпляра TBitmap)
end;
procedure TForml.Button4Click(Sender: TObject); (Обработчик нажатия на кнопку "JPEG. Считатв и вывести"}
Vaf'
JPEGImage: TJPEGImage; • писание- ссылки на экз^ЯлД сжатого растрового изображения формата JPEG)
begin
JPEGImage := TJPEGImage.Create;
(Создание экземпляра TJPEGImage)
JPEGImage.LoadFromFile(’example.jpg');
Зап - - изображения иЗ файла}'
DrawPicture(JPEGImage); (Вывод изображения из объекта JPEGImage (наследника TGraphic) оепомощью всплМгателЯогВ метода)
JPEGImage.Free;(разрушение экземпляра JPEGImage)
end;
procedure TForml.ButtonSClick(Sender: TObject); (Обработчик нажатия на кнопку "- СаИатЛи."
Var
Metafile: TMetafile;
MetafileCanvas: TMetafileCanvas;
a ■■ ссылок ф экЯржры метИ|йлаMetafile и его области отображения ■ tai eCanvas)
begin
Metafile := TMetafile.Create;
у {Создание ’^сземпляра Mf о ,
Metafile Enhanced := True;
Metafile Width := 88;
Metafile.Height : = 107; (Установка размеров изображения) . । :*Яметафай:. - областЩР
*‘1^гобра^кия*,:1@г' основе м® афмлИд№Я^Ю1е .
В KangcM® совмаЙтимог^Ж кирекста у^кЙвается контжс@Ж№ла1™| ^вбраженБ^ЯйфвЬмы) *
MetafileCanvas := TMetafileCanvas.Create(Metafile, Canvas.Handle);
CreatePicture(MetafileCanvas);
(Создание изображения с помощью
■Вызова *&спЗ^Ун!^6^ногО: МвТОДв)
MetafileCanvas.Free;
(Разрушение экземпляра MetafileCanvas.
ухраняная ИосдэдситеЖн^ть '^■бл выв*в$- записывается в объект Metafile, указанный в констрзжтсяю Metaf НесдпуадДд
Metafile.SaveToFile('example.emf');
(Сохранение изображения в файл)
Metafile.Free;(Разрушение экземпляра Metafile)
end;
procedure TForml.ButtonSClick(Sender: TObject); (Обработчик-^ Ж на к®в8ку "EMF. Считать и вывести")
Metafile: TMetafile;.-- ? ссщжд^на ^ч^ц^»айу
Metafile}
begin
Metafile := TMetafile Create;
(Создание экземпляра Metafile} Metafile.LoadFromFile('example.emf');
DrawPicture(Metafile) ; (Вывод изображения из объекта Metafile (наследника TGraphic) с помощью вспомогательного метода}
Metafile.Free;(Разрушение экземпляра Metafile}
end; end.
Заметим, что приведенный пример можно несколько упростить, используя класс оболочку абстрактного графического изображения TPicture. С помощью такого класса можно реализовать метод, который считывает с диска файл, заданный, например, параметром, и выводящий его на область отображения формы. Метод этот приведен в и; и hi 10.2.
Листинг 10.2. Метод, считывающий с диска файл
Procedure TForml.LoadAndDrawPicture(const FileName: String),
Var
Picture: TPicture;пи . . ■ сс*ки н& эв&^|Ь1яр>
класса TPicture}
begin
Picture := TPicture.Create;
- а ни, экземами--
Picture.LoadFromFile(FileName);
(Считывание изображения из файла, заданного именем. Тип файла определяется автоматически по расширению, ссылка на изображения . ^|Мешае®я у.аа6ойстуо - ; : .
DrawPicture(Picture.Graphic);
изобраМуД^с псЫоЖбэ вспомогательного метода}
Picture.Free;(Разрушение объекта TPicture}
end;
Использование такого метода позволяет не создавать уникальных обработчиков для каждого типа графических изображений, а вызывать его в обработчиках, просто передавая соответствующее имя файла:
procedure TForml.Button2Click(Sender: Tobject);
Обработчик нажатия на кнопку "BMP.
Считать и вывести"
begin
LoadAndDrawPicture('example.bmp');
: ■ и вывод на экран файла формата ■ " end;
procedure TForml.Button4Click(Sender: Tobject);
1 . нажатия на кнопку "JPEG.
Считать и1
begin
LoadAndDrawPicture(’example.jpg');
и вывод на экран файла формата : end;
procedure TForml.Button6Click(Sender: Tobject);
Збработчи? нажатия на кнопку "EM! .
Считать и
Begin
LoadAndDrawPicture(’example.emf');
Ч енис и вывод на экран файла формата MF 1 end;
Проведем небольшой эксперимент для выяснения наиболее удобного графического формата, который мог бы использоваться в такой программе. Будем изменять размеры окна приложения и выводить в него изображения из разных файлов. Видно, что при размере окна, соответствующем размерам изображений, лучшее качество достигается при использовании форматов BMP и EMF, тогда как JPEG-изображение сильно размыто и искажает изначальные цвета.
При увеличении или уменьшении окна относительно нормального размера сильно искажается изображение, выводимое из BMP-файла, несколько искажается JPEG-изображение, а метафайл выводится без потери качества. '
По размеру файлов с изображениями можно отметить следующие особенности. Форматы BMP и JPEG подразумевают увеличение размеров файлов, пропорциональное размерам изображения. Эго в меньшей степени касается формата JPEG, так как на размер файла будут существенно влиять еще и другие характеристики, например, количество использованных цветов. Формат метафайла является векторным, поэтому размер его файлов зависит не от размеров изображения, а от количества выводимых элементов.
Таким образом, EMF представляется наиболее удачным форматом для хранения изображения, притом, что, так же как и остальные два, может быть подготовлено с помощью специализированных графических редакторов. Однако применение сложных EMF-изображений ограничено неприятными визуальными эффектами, так как пользователь будет видеть процесс их построения. Впрочем, эта проблема может быть решена созданием виртуального экрана — растрового изображения в памяти, на которое будет выведен метафайл перед отображением на жранс. Однако основного недостатка метафайлов — длительного построения изображения — избежать невозможно.
Вопросы с ответами для повторения по части II
@
Опишите суть инкапсуляции и структуру описания класса в Object Pascal. Объясните понятие объекта
Ответ: Классом называется описание некоторой структуры программы, обладающей набором внутренних переменных — свойств, и функций (процедур), имеющих доступ к свойствам — методов. Процесс объединения переменных и методов, в результате которого и получается класс, называется инкапсуляцией.
Описание классов разделено на две части — интерфейсную («заголовочную») и описательную. В интерфейсной части располагается описание заголовка класса, в котором указывается название класса, по которому будут создаваться его экземпляры, описания свойств и заголовков методов. В описательной части располагается реализация методов, заголовки которых указаны в интерфейсной части описания класса.
Интерфейсная часть описания класса располагается в разделах описания нестандартных типов данных модулей и основных частей программ.
Для доступа к свойствам и методам класса (за исключением статических методов) необходимо создать переменную-экземпляр клас< а — объект.
е
Перечислите области видимости элементов классов, применяемые в Object Pascal
Ответ: Для разграничения доступа к свойствам и методам объектов классов между различными частями программы предусмотрены модификаторы доступа (-видимости )
Модификатор доступа относится не к конкретному свойству или методу класса, а ко всем элементам класса, описание которых располагается после указания модификатора. Один и тот же модификатор может указываться в описании класса более одного раза.
В Object Pascal применяется четыре области видимости:
» закрытая для всех фрагментов программ, не находящихся в одном модуле с описываемым классом. Такая область видимости начинается ключевым СЛОВОМ private;
• видимая только классам, наследуемым от данного или расположенным в одном модуле с описанием данного класса. Такая область видимости начинается ключевым словом protected;
» доступная любым фрагментам программы. Такая область видимости начинается ключевым словом public;
» доступная любым фрагментам программы, а также выдающая информацию о своих описаниях во время выполнения программы. Описания, расположенные в такой области видимости, доступны для изменения в режиме визуальной разработки программы. Область начинается ключевым СЛОВОМ published.
| I Расскажите о правилах описания методов в классах и их особенностях
Ответ: Описательная часть класса находится в разделе описания локальных подпрограмм. Методы, заявленные в интерфейсной части реализуются по обычным правилам описания процедур и функций. Для связи функций с классом, методами которого они являются, название класса указывается перед именем самой функции:
Procedure <Имя класса».<Имя йетода»(<Список параметров») ;
< Список модифи> ;
Или для методов-функций:
Function <Имя класса».<Имя метола»(<Список параметров»):
<Тип ■ н >, <Список " сификач >.
Отличием методов от обычных процедур и функций является то, что они могут обращаться к свойствам классов по имени без указания объектов. На этапе выполнения программы такие обращения будут перенаправлены к свойствам объектов, из которых вызываются соответствующие методы.
Вызов метода из экземпляра класса предваряется названием переменной, указывающей на необходимый экземпляр:
<Имя объекта».<Имя метода»(<Список параметров»);
$ Объясните понятия статических,
6 Э перегружаемых и абстрактных методов
Ответ: В Object Pascal реализованы методы класса (статические методы), особенность которых состоит в том, что для их вызова нет необходимости создавать объект (экземпляр класса). Статические методы можно использовать как обычные подпрограммы. Однако такие методы доступны и из экземпляров класса. Для описания статических методов используется ключевое слово class перед заголовком метода. Для вызова метода класса необходимо указать название класса и название метода со списком необходимых параметров.
Допускается использование перегружаемых методов, то есть методов с идентичными именами, но разной сигнатурой. Их описание и использование аналогично работе с перегружаемыми подпрограммами.
Для того чтобы не описывать «пустые» методы, в Delphi предусмотрен специальный модификатор методов abstract. Описание метода, помеченного ключевым словом abstract, в классе, где он заявлен, не требуется, однако и вызвать его из экземпляра данного класса невозможно. Абстрактный метод всегда является виртуальным (помечен ключевым словом . ) или динамическим (помечен ключевым словом dynamic) и может быть переопределен в одном из классов-потомков. Соответственно, из экземпляров классов, переопределивших абстрактный метод, его вызов возможен.
.' Опишите правила наследования классов
Ответ: Наследование — это построение нового класса на основе ранее описанного. Полученные в результате наследования классы называются классами-наследниками (или дочерними классами), а классы, на основе которых они построены — классами-родителями (или родительскими классами). При наследовании дочерний класс приобретает все свойства и методы родительского класса и имеет доступ к любому члену родительского класса, за исключением описанных с областью видимости private.
При описании дочернего класса с использованием наследования имя родительского класса указывается в скобках после ключевого слова class в заголовке интерфейсной части описываемого класса.
Класс-наследник может быть описан на основе любого другого класса, вне зависимости от того, является ли родительский класс в свою очередь дочерним. Все классы в Delphi являются наследниками класса ТОbject, даже если это явно не указывается.
Поясните сущность полиморфизма
Ответ: Переменной-ссылке на экземпляр класса можно присвоить реальную ссылку на экземпляр другого класса, если они состоят в отношении родитель-наследник. Так как при наследовании классов друг от друга количество свойств и методов не уменьшается, то присваиваемый объект может быть экземпляром класса, находящимся ниже по иерархии, чем тот, который был указан при описании переменной.
Как и все объектно-ориентированные языки программирования, Delphi поддерживает свойство полиморфизма объектов при наследовании, которое состоит в правильном выборе виртуального метода, вызываемого из переменной-ссылки на объект. Вне зависимости от того, на экземпляр какого класса указывает переменная-ссылка в соответствии со своим описанием, будет вызван тот виртуальный метод, который описан в классе, на который указывает реальная ссылка.
| Приведите правила переопределения методов
■ Ответ: Для переопределения метода, реализованного в объекте-родителе, следует:
указать его заголовок в описании дочернего объекта без изменения имени, списка параметров и возвращаемого значения (если метод является функцией);
указать после заголовка метода ключевое слово override;
^реализовать метод в описательной части объекта по обычным правилам. Если ключевое слово override не указано, то метод не переопределяется.
Чтобы метод мог быть переопределен в дочерних классах, он должен быть помечен ключевыми словами virtual или dynamic в интерфейсной части класса-родителя.
S
Поясните разницу между использованием ключевых слов virtual и dynamic
Ответ: Ключевое слово virtual указывает на то, что метод должен быть занесен в так называемую таблицу виртуальных методов (ТВМ), а ключевое слово dynamic — на то, что метод должен быть найден по имени в дереве родительских объектов. Разница между использованием virtual или dynamic заключается в направлении оптимизации компилятором вызовов переопределяемых методов. Методы, помеченные virtual, оптимизируются по скорости, а dynamic-методы по размеру программного кода. В большинстве случаев рекомендуется использование виртуальных методов, а использование динамических методов целесообразно при высоких степенях вложенности связей родитель-наследник.
I Расскажите о возможностях определения типа объекта > * во время выполнения программы и приведение типов объектов
Ответ: Для определения, к какому именно классу принадлежит объект, на который указывает некоторая ссылочная переменная, в Delphi предусмотрен оператор is, возвращающий значение true, если объект является экземпляром заданного класса, или класса-наследника, или false, если объект не принадлежит заданному классу и его наследникам.
После определения факта принадлежности к классу объект можно привести к заданному типу для получения доступа к свойствам и методам, заявленным в этом классе, а не в классе, тип которого указан в ссылочной переменной. Для приведения к заданному классу используется оператор ,
Опишите жизненный цикл экземпляра класса, расскажите о конструкторе экземпляров класса
Ответ: Жизненный цикл экземпляра класса представляет собой его создание с помощью вызова конструктора, использование свойств и методов экземпляра класса и последующее разрушение структур объекта с помощью вызова деструктора.
Конструктор наследуется автоматически всеми классами от коренного классаи выполняет две основных функции:
Выделяет память под структуры данных, необходимые для поддержания жизнедеятельности объекта, то есть инициализирует объект; заполняет
порядковые (целочисленные, логические, перечислимые и интервальные) свойства объекта нулевыми значениями; устанавливает нулевые ссылки (значение nil) для свойств-указателей; а также устанавливает нулевые длины строкам.
Возвращает ссылку на объект, которую можно сохранить в переменной для доступа к свойствам и методам объекта, а также для его последующего разрушения.
Конструктор может быть переопределен в описании класса для выполнения дополнительной инициализации, характерной экземплярам именно этого класса. Например, в конструкторе можно установить начальные значения свойств. Переопределение конструктора выполняется по обычным правилам переопределения методов, за исключением следующих моментов:
Конструктор родительского класса не должен быть обязательно помечен ключевым словом virtual, для того, чтобы его переопределить. Соответственно, если конструктор родительского класса не помечен как виртуальный или динамический, не требуется указание ключевого слова override в описании дочернего класса.
. Существенным отличием в переопределении конструкторов и обычных методов является возможность изменения параметров конструктора дочернего класса, относительно конструктора родительского класса. Однако это возможно, только если конструктор не является виртуальным.
Для вызова версии конструктора, замененной в классе-наследнике, используется ключевое слово Inherited.
Расскажите о деструкторе класса экземпляров класса
Ответ: Объект естественным образом занимает место в памяти, которая необходима для хранения как свойств объекта, так и дополнительной информации, например, таблицы виртуальных методов. Для разрушения объекта и освобождения памяти, которая выделена для него в конструкторе, предназначен деструктор — специализированный метод, изначально определенный в классе Если в конструкторе объекта производится выделение памяти под какие-либо ресурсы или объект регистрируется в других объектах, передавая им ссылку на себя, то возникает необходимость переопределения деструктора для освобождения памяти и разрушения связей с другими элементами программы. При переопределении деструктора необходимо указывать ключевое слово override, так как деструктор является виртуальным методом (помечен ключевым словом virtual в описании класса г 3b i с г) Последней командой описательной части деструктора должен быть вызов переопределенного деструктора родительского класса.
Прямой вызов деструктора не применяется для уничтожения экземпляра класса, так как для этого предназначен метод Free, также описанный в классе TObject. Данный метод не может быть переопределен, так как не имеет в своем описании ключевого слова virtual, однако метод Free вызывает конструктор Destroy, поведение которого может быть специфическим.
| Расскажите об описании и использовании специальных свойств
I объекта property
Ответ: Свойства property аналогичны свойствам объекта в смысле их использования. Однако такие свойства не являются простым отображением памяти, доступным для чтения и изменения, а подразумевают вызов методов объекта. Описание свойств property в простейшем виде выглядит следующим образом:
property <.'• <Тип> read <Функция чтения>
write <Процедура установки - н >;
Когда вызывающая подпрограмма обращается к свойству property для получения его значения, вместо конкретного значения возвращается ре зультат функции, указанной по имени после модификатора read. Аналогично производится установка значения свойства — вместо прямой записи значения вызывается процедура, указанная после модификатора write. Соответственно, данная процедура должна принимать один параметр, причем его тип должен быть таким же, как тип самого свойства.
Расскажите о ссылке Self
Ответ: Ссылка Self может использоваться при разработке методов классов для указания на конкретный экземпляр, из которого вызван метод.
Расскажите об особенностях программирования в ОС Windows
Ответ: В Windows реализуется схема программ, управляемых событиями. Это значит, что каждая программа представляет собой набор подпрограмм, некоторые из которых вызываются непосредственно ядром операционной системы для реакции на какое-либо событие, произошедшее в системе. При этом ни одно приложение не может ждать совершения события, монополизируя, таким образом, ресурсы и приостанавливая работу других приложений. Анализом изменений в системе и рассылкой сообщений занимается непосредственно операционная система.
Каждой программе в Windows сопоставляется некоторая область на экране, в которую можно выводить информацию — окно. Оконное представление программ отвечает условиям, накладываемым на систему многозадачностью, так как несколько приложений одновременно не могут выводить свою информацию в одно и то же место.
В любой момент времени одно из окон «находится в фокусе» (является «активным») и потоки вводимой информации направляются операционной системой в программу, которой принадлежит это окно. Механизм такого перенаправления потоков ввода основан на событиях.
Опишите механизм сообщений в ОС Windows
Ответ: Windows следит за изменениями в состоянии системы (нажатие клавиш, перемещение мыши и нажатие ее кнопок, и т.д.) и генерирует специальные структуры данных, которые содержат следующую информацию:
Ссылка на окно, которое находилось в фокусе, когда произошло событие.
Идентификатор события.
Дополнительная информация для данного события.
Далее эти пакеты сохраняются в очереди сообщений Windows, а ядро опять переходит в режим слежения за системой. С другой стороны, очередь непрерывно разбирается, анализируется ссылка на окно, которому предназначено событие, и вызывается его оконная функция — специальная подпрограмма, описанная по определенным правилам и зарегистрированная в операционной системе как объект назначения для сообщений.
Вызванная оконная функция должна проанализировать событие по его идентификатору, используя дополнительные параметры, выполнить действия, обусловленные логикой программы, и вернуть в качестве результата функции код завершения обработки.
Дайте определение исключительной ситуации
Ответ: Исключительная ситуация (исключение) — это некоторая ситуация времени выполнения программы, которая требует специальной обработки. К таким событиям относятся ошибки времени выполнения программы, например, деление на ноль или попытка чтения информации из несуществующего файла.
Расскажите об объектах-исключениях в Delphi
Ответ: При возникновении исключительной ситуации Delphi создает экземпляр некоторого класса, в зависимости от характера произошедшей ошибки и вызывает команду Raise, передавая ей ссылку на этот объект. Все такие классы являются наследниками класса Exception, что позволяет им быть «узнаваемыми» для Delphi.
После вызова команды Raise по очереди прерываются подпрограммы, вызвавшие ту подпрограмму, в которой произошла исключительная ситуация. Данный процесс останавливается, когда в одной из подпрограмм стека обнаруживается обработчик соответствующего класса исключительных ситуаций.
Любая подпрограмма может сама сгенерировать исключительную ситуацию с помощью оператора Raise.
Расскажите о методах обработки исключительных ситуаций
Ответ: Когда некоторый фрагмент программного кода необходимо защитить от досрочного завершения по ошибке, его следует заключить в блок обработки исключения. Таких блоков в Delphi предусмотрено два:
♦ Блок обработки исключений . . Except пытается выполнить заданный фрагмент программы, а, в случае появления исключения, передает управление специальному обработчику, расположенному в секции > Блок обработки исключений :.Except может быть использован в ситуациях,
когда известно, как именно нужно реагировать на произошедшую ошибку, даже если программа и не пытается установить ее тип.
♦ Когда реакция программы на ошибку не так важна, как корректное завершение фрагмента программы, вызвавшего эту ошибку, может быть использован блок обработки исключений у Finally. При его использовании вне зависимости от корректности работы основного фрагмента программы, управление всегда передается в секцию Finally, где обычно производятся действия по возврату системе ресурсов, полученных перед входом в блок обработки исключения.
@
Расскажите о классах, предназначенных для хранения информации в виде списков
Ответ: Для хранения информации в виде списков в Delphi предусмотрено множество классов:
» Класс TList — предназначен для хранения информации, представленной нетипизированными указателями.
» Класс :— предназначен для хранения информации, пред
ставленной экземплярами классов.
» Класс TComponentList — предназначен для хранения информации, представленной экземплярами классов-наследников класса тсот? - ■ -
Класс ti '. • —используется для хранения списка строк и связанных с ними объектов.
Класс TCollection — предназначен для хранения экземпляров клас
сов-наследников класса।;
» Классы TStack и TObjectstack — предназначены для хранения не- типизированных указателей и экземпляров классов в порядке, определяемом принципом LIFO.
Классы тс и TObjectQueue — предназначены для хранения не- типизированных указателей и экземпляров классов в порядке, определяемом принципом FIFO.
Классы TObjectList (TComponentList), TStack (TObjectstack), и TQueue (то) .) наследуются от класса TList, тогда как классы
TStringList и TCollection наследуются от класса TPersistent, что
делает их удобными для использования в компонентах Delphi.
Расскажите об основных свойствах и методах классов-списков
Ответ: Для всех классов-списков, кроме TStack и TQueue, определены методы добавления, удаления и вставки элементов Add, Delete и insert. Всеми классами поддерживается метод Clear, удаляющий из списка все элементы.
Количество элементов, которое находится в данный момент в списке, и потенциально возможное количество хранимых элементов без дополнительных операций выделения памяти, можно получить с помощью свойств . и Capacity.
Для доступа к элементам списков, которые унаследованы от TList, используется индексное свойство items. К массивам строк, хранимых в экземплярах классов TStringList, и связанным с ними объектам можно обращаться через свойства strings и Objects, а стеки TStack и очереди TQueue
выдают свои элементы при их удалении из списка, либо с помощью команды Реек.
Классы TStack и TQueue имеют особенности в системе организации свойств и методов в связи с тем, что организуют структуры для последовательного доступа. Добавление элементов в них осуществляется методом Push, а удаление методом Pop.
S
Опишите особенности классов-списков, предназначенных для хранения объектов
Ответ: Для хранения объектов с произвольным доступом к ним то есть экземпляров классов, предназначены классы TObjectList, TComponentList и TCollection. Особенностью этих классов является возможность владения хранимыми объектами в смысле их разрушения при разрушении самих списков, или при удалении элементов. Разрушение производится методом Free и снимает с программы, использующей списки, ответственность за корректное освобождение памяти, выделенной под эти объекты, что существенно снижает риск появления динамических ошибок и повышает надежность программы.
Первые два класса производят разрушение объектов опционально, при истинном значении свойства . 01 ■ - , а класс TCollection владеет хранимыми в нем объектами полностью.
Классы-списки последовательного доступа TObjectstack и TObjectQueue не имеют средств для разрушения хранимых объектов, так как имеют другую логическую направленность — они предназначены для временного хранения экземпляров классов, и объекты, которые хранятся в таких списках, должны быть изъяты оттуда какими-либо фрагментами программы.
S
Опишите возможности и особенности хранения строковых массивов в классах-наследниках TStrings
Ответ: Для хранения массивов строк в Delphi описан базовый класс TStrings, в котором объявлены абстрактные методы, описывающие основные действия, такие как:
добавление, вставка и удаление строк из массива с возможностью доступа по индексу, а также просто доступ к строке по индексу;
* упорядочивание строк внутри массива;
» загрузка массива из файла или потока и сохранение в файл или поток;
» сопоставление объектов строкам в массиве для хранения более сложных данных или расширенных параметров строк.
Помимо обычных для представления информации в виде списков методов Add, Delete и Insert, в классе TString List предусмотрены методы для добавления строк со связанными объектами AddObject и Insertobject.
Получение информации также ориентировано на текстовый характер хранимых данных, например, поддерживается возможность получения всего массива строк в виде одной строки, причем в различных форматах, в зависимости ОТ используемого свойства — Text, CommaText или DelimitedString.
Строковые массивы поддерживают возможность сохранения информации в файл или поток и чтения ее оттуда.
Поддерживается автоматическое упорядочивание строк по алфавиту и контроль уникальности.
Поясните понятие потока и объясните преимущества использования потоков по отношению к традиционным методам чтения/записи данных
Ответ: Потоком называют программный интерфейс к некоторому устройству ввода/вывода. Абстрактное устройство представлено в Delphi классом TStream, а наследники этого базового потокового класса реализуют интерфейс, заявленный в нем, и поддерживают методы чтения и записи информации для конкретного устройства.
Можно назвать следующие преимущества использования потоков по отношению к традиционным методам ввода/вывода:
» существенное снижение сложности программного продукта за счет объектно-ориентированного подхода в результате использования единого интерфейса к разным устройствам ввода/вывода;
• повышение гибкости программного продукта в смысле изменений, так как логика процессов ввода/вывода разбивается на две части — манипуляции с самим потоком (его создание и разрушение) и непосредственные операции ввода/вывода, то есть операции с информацией;
» дополнительные возможности временного хранения информации в памяти с возможностью ее быстрого сохранения на любой носитель за счет совместимости разных потоков между собой.
Назовите потоковые классы, предназначенные для работы с реальными устройствами
Ответ: В стандартной поставке Delphi, кроме базового класса TStream, реализованы следующие потоковые классы:
» TFileStream, предназначенный для работы с файлами;
» TStringStream, предназначенный для работы со строками, хранимыми в оперативной памяти;
»предназначенный для работы с динамической памятью;
»предназначенный для работы с двоичными BLOB-полями
баз данных;
». предназначенный для работы с сетевыми соеди
нениями;
* TOIeStream, предназначенный для ввода/вывода информации в OLE- объектах.
Расскажите про файловые потоки
Ответ: Файловые потоки — это потоки, связанные с файлами. Файловые потоки реализованы с помощью класса TFileStream. При создании экземпляров данного класса в конструктор передаются параметры, определяющие название файла, с которым связан поток, режим, в котором файл
должен быть открыт (для чтения, записи, или в смешанном режиме), а также способ разделения файла с другими приложениями (другим приложениям запрещено считывать информацию из данного файла, записывать информацию в файл, считывать и записывать, либо разрешены все действия).
Расскажите о потоках, построенныхе на основе оперативной памяти
Ответ: Класс . представляет собой поток для временного хранения информации в оперативной памяти. Такие потоки могут использоваться для временного хранения информации и передачи ее в другой поток для записи на какой-либо носитель.
Удобство такого метода хранения информации заключается в совместимости потоков TMemoryStream с другими потоками, в результате чего информация, хранимая в этом потоке, может быть легко скопирована в другой поток, например с помощью метода Copy From.
Интересной особенностью потоков TMemoryStream является возможность сохранения информации в файл и чтения ее из файла с помощью методов SaveToFile и LoadFromFile.
Расскажите о строчных потоках, построенных на основе оперативной памяти
Ответ: Строчные потоки используются для доступа к строкам, хранимым в памяти, и реализованы в виде класса TStringStream. В каждом экземпляре такого класса хранится одна строка, доступ к которой возможен с помощью обычных методов, характерных для потоков, то есть Read, Write, и другими. Если программе, использующей такой поток, необходим доступ к хранимой информации, как к строке в целом, то ссылка на строку может быть получена с помощью свойства DataString.
Особенностью строчных потоков является возможность записи и чтения
строк с помощью методов ■ t ; и ReadString.
Поясните понятие графического контекста Windows
Ответ: Операционная система Windows является многозадачной, поэтому в ней запрещен непосредственный доступ к устройствам, в том числе и к видеокарте, так как это может вызвать конфликт между приложениями. Вместо непосредственного взаимодействия с аппаратной частью предназначен программный интерфейс, представляемый операционной системой в виде набора системных API-функций.
Для того, чтобы идентифицировать какое-либо устройство, Windows использует понятие его контекста (DC), с которым и производятся все необходимые операции. Для вывода графической информации на экран, принтер и другие аналогичные им устройства используется специальная разновидность контекста устройства — графический контекст, представляющий собой описание параметров графического устройства и используемый по ссылке (НОС).
Ссылка на графический контекст передается API функциям в качестве одного из параметров, в результате чего выводимая информация попадает на необходимое устройство. Контекст графического устройства имеет следующий набор характеристик:
» стиль и цвет обводки;
» стиль и цвет заливки;
» шрифт для вывода текстовой информации.
Расскажите о представлении графического контекста Windows в Delphi
В Delphi графический контекст Windows инкапсулирован в класс TCanvas, представляющий собой область отображения, и имеющий множество методов для вывода графической информации, например:
отрезков и ломаных линий;
прямоугольников, в том числе со скругленными краями;
окружностей, эллипсов и дуг;
кривых Безье;
текстовой информации.
Также поддерживается заливка любой замкнутой области.
Характеристики контекста также представляются экземплярами классов. Для хранения параметров обводки используется класс I Рс . для хранения характеристик заливки — класс : :а для хранения информации о
шрифте — класс Font
Расскажите о форматах графических файлов,
- поддерживаемых Delphi
Ответ: В Delphi реализована поддержка следующих графических форматов:
I Формат BMP представляет собой растровое изображение, хранимое в виде карты точек без сжатия. Изображения могут иметь различную цветность — от монохромной до TrueColor. Файлы с такими изображениями имеют размеры, пропорциональные размерам самого изображения и существенно зависят от количества используемых цветов.
Формат JPEG представляет собой растровые изображения, использующие сжатие с потерей качества. Изображения в данном формате являются либо полноцветными (TrueColor), либо черно-белыми (256 градаций серого цвета). Файлы с такими изображениями занимают немного места на диске, и их размер зависит не только от размеров и цветности самого изображения, но и от степени его сжатия.
В формате ICO представляется изображение, используемое для вывода Windows-иконок, и существенно отличается от других растровых изображений наличием прозрачной фоновой области, не затирающей нижележащую информацию при выводе на экран. Работа с такими изображениями более сложна, чем с изображениями, хранимыми в других форматах.
В формате EMF представляется последовательность команд вывода графической информации на экран. Данный формат поддерживает весь спектр API-функций Windows, ориентированных на вывод графической информации, и фактически является векторным. Существенным его отличием от растровых форматов является возможность качественного масштабирования изображения при выводе, пропорциональность размеров файлов хранимой информации, но, с другой стороны, он отличается более долгим выводу на экран с вероятностью неприятных для пользователя эффектов.
Другие форматы Delphi не поддерживаются и требуют модулей стронних разработчиков. Однако приведенный набор форматов перекрывает весь спектр возможных применений графических изображенией с учетм различных особенностей.
СВ Расскажите о средствах хранения графических
IЭ изображений в Delphi
Ответ: Для хранения графических изображений в Delphi предусмотрен класс TGraphic и унаследованные от него ■ ■ : ..
и TMetafile, предназначенные для хранения, соответственно растровых изображений, JPEG-изображений, иконок и метафайлов.
Все перечисленные классы, так или иначе, поддерживают загрузку информации из файлов или потоков, поэтому могут быть легко использованы в программных продуктах. Для хранения изображения в одном из форматов, в Delphi имеется класс TPicture, являющийся оболочкой для всех специализированных классов. Экземпляры класса TPicture имеют возможность считывать графические файлы по заданному имени, анализируя расширение файла для использования соответствующего метода чтения.
ЧАСТЬ inЧАСТЬ inМЕТОДИКА СОЗДАНИЯПРОГРАММ В DELPHI
ЧАСТЬ in
ЧАСТЬ in
ИСПОЛЬЗОВАНИЕ ИСР DELPHI В РАЗРАБОТКЕ
£G1L_G:ОБЩИЕ ПРИНЦИПЫ
ПРОГРАММИРОВАНИЯ В DELPHI
ОСНОВЫ DELPHI.
Профессиональный подход
лава
Использование ИСРDelphi в разработке
Как было отмечено ранее, существенная часть разработки приложения в Delphi не требует написания какого-либо программного кода, а происходит с помощью ин срактивного визуального построителя, интегрированного в среду разработчика. На этом этапе указывается количество и характеристики окон, используемых программой, а также набор и характеристики интерфейсных элементов для взаимодействия с пользователем.
Таким образом, визуальная разработка программы в основном касается пользовательского интерфейса, однако иногда этого вполне достаточно для создания полноценного Windows-приложения. Дело в том, что визуальное построение программы основано на использовании так называемых компонентов (англ. Component) — классов-наследников TComponent Соответственно, чем больше возможностей предоставляет конкретный компонент, тем меньше в его поведении должна изменить использующая программа. Например, для создания системы управления базой данных, которая обращается к удаленному серверу баз данных, например, Microsoft SQL Server или Oracle, получает от него информацию, изменяет ее и отсылает обратно, вообще достаточно только визуального построителя. Причем все эти процессы будут происходить в удобной для пользователя форме, свойственной Windows-приложениям.
Интегрированная средаразработчика Delphi
Интегрированная среда разработчика Delphi (от англ. Integrated Developer's Environment — IDE — интегрированная среда разработчика) представляет собой современный инструмент разработки Windows-приложений любой сложное!и2' и состоит из трех основных частей:
Несмотря на то, что Delphi выпускается производителем в нескольких вариантах (Editions), они отличаются друг от друга только набором компонентов и инструментов для работы с некоторыми технологиями. Однако среда разработчика Delphi одинакова для всех модификаи 1й одной и той же версии.
Визуального построителя на основе формы — заготовки окна программы.
Текстового редактора для подготовки исходных текстов программы с подсветкой синтаксиса и встроенной системой контекстной помощи.
Встроенного отладчика.
IDE состоит из нескольких окон, одно из которых является главным (в нем находится главное меню и палитра компонентов, доступных для размещения на форме). Окна могут перемещаться друг относительно друга, а также вставляться одно в другое на усмотрение разработчика. Один из вариантов внешнего вида IDE представлен на рис. 11.1 Заметим, что такая организация программы называется SDI — Single Document Application — приложение для редактирования одного документа, причем «документом» в данном случае является проект или группа проектов Delphi.
На рисунке представлены только некоторые части среды разработчика, на самом же деле их может быть больше. Удобство работы в Delphi во многом обеспечивается интегрированной средой разработчика и неразрывно связно именно с ней. Поэтому мы будем рассматривать составляющие IDE Delphi одновременно с методами программирования и сопутствующими понятиями.
Рис. 1 । f Интегрированная среда разработчика Delphi
Главное меню
Главное меню IDE Delphi находится в главном окне и содержит все необходимые команды для управления разработкой приложения. Рассмотрим кратко назначение основных пунктов меню, останавливаясь подробно на сопутствующих понятиях и методах программирования в Delphi.
Подменю File
Подменю File содержит команды, предназначенные для работы с проектом на уровне файлов, и состоит из следующих подпунктов:
New.содержитсписок программных объектов2 . которые
можно создать в открытом проекте (новый модуль, новую форму и т.д.), а также новый проект.
Openвызываетдиалог открытия любого программного
объекта, доступного Delphi (файлов модулей, форм, проектов, библиотек компонентов, и т.д.).
Open Project.... открывает ранее сохраненный проект.
Reopenсодержитсписок ранее открывавшихся программ
ных объектов и позволяет открыть один из них.
Saveсохраняеттекущий программный объект, например,
модуль, который в данный момент открыт в текстовом редакторе IDE.
Save asсохраняеттекущий программный объект в файле с
другим именем.
Save Project as .. сохраняет текущий проект в файле с другим именем.
Save Allсохраняет все измененные на данный момент программные объекты.
Closeзакрываеттекущий программный объект, например
форму, находящуюся в визуальном построителе.
Close АП.закрывает все программные объекты, открытые в данный момент.
Use Unitвызываетдиалог выбора активного модуля для ото
бражения его в текстовом редакторе IDE.
Printвыводитна печать текущий программный объект;
Exitзавершает работу IDE.
27 Программным объектом (элементом) мы будем называть логическую часть программы любого уровня, в зависимости от контекста. Например, это может быть целый проект, а может быть одна форма, входящая в состав проекта.
Подменю Edit
Подменю Edit предлагает команды, предназначенные для работы с исходным текстом программы и объектами в визуальном построителе, и состоит из следующих подпунктов:
Undelete / Undo.... восстанавливает компонент, удаленный с формы, или отменяет последние изменения, произведенный с исходным текстом программы в редакторе IDE.
Redoвосстанавливаетисходный текст программы до
того состояния, в котором он находился до вызова команды Undo.
Cutудаляет компонент из окна формы (в режиме ра
боты с формой) с копированием его в буфер обмена или вырезает выделенный фрагмент исходного текста из редактора.
Сору.помещаетв буфер обмена компонент из окна
формы (в режиме работы с формой) или выделенный фрагмент исходного текста из редактора.
Pasteвставляетиз буфера обмена фрагмент текста в
редактор исходного текста или компонент в окно формы (в зависимости от того, какое окно является активным).
Deleteудаляет компонент из окна формы (в режиме ра
боты с формой) или выделенный фрагмент исходного текста из редактора без копирования его в буфер обмена.
Select АПвыделяет все компоненты, размещенные на форме или текст модуля, открытого в редакторе.
Align to Gridвыравнивает выделенный компонент относительно сетки, нанесенной на форм)
Bring to Front.... изменяет расположение компонента относительно других компонентов таким образом, чтобы он был «ближе» к пользователю (визуально перекрывал другие компоненты).
Send to Backизменяет расположение компонента относительно других компонентов таким образом, чтобы он был «дальше» от пользователя (визуально перекрывался другими компонентами).
Alignвызываетдиалог выравнивания нескольких ком
понентов друг относительно друга по горизонтали и вертикали (левый край компонентов на од- нбй линии, верхние края компонентов на одной линии и Т.Д.).
Sizeвызываетдиалог подбора размеров нескольких
компонентов (установить всем минимальный размер, установить всем заданный размер, и т.д.).
Scaleвызываетдиалог пропорционального изменения
размеров всех компонентов, находящихся на форме (изменение задается в процентах).
Tab order.вызываетдиалог указания порядка переключения
фокуса ввода между компонентами во время выполнения программы, которое производит пользователь с помощью клавиши Tab.
Creation order.... вызывает диалог указания порядка создания компонентов формы в процессе ее инициализации во время работы приложения.
Flip Childrenизменяет положение визуальных элементов управления на форме, отражая их по горизонтали относительно центра формы. Содержит два подпункта: АН - отразить все элементы формы, и Selected - отразить только выделенные элементы.
Lock controls запрещает изменение положения всех элементов управления с помощью визуального построителя для всех форм, открытых в IDE.
Подменю Search
Подменю Search содержит общепринятые команды текстового поиска, такие как:
Findпоискподстроки в тексте активного модуля.
Find in Filesпоиск заданной подстроки во нескольких файлах. В каких именно файлах следует искать подстроку, можно указать в диалоге, который появляется при выборе данной команды.
Replaceзаменаподстроки в тексте активного модуля на
другую подстроку.
Search againповторение последнего поиска или последней замены подстроки.
Incremental Search .. перевод текстового редактора IDE в режим поиска по вводимым символам. Разработчик имеет возможность вводить символы, а в редакторе выделяется строка, содержащая введенную на данный момент последовательность.
Go to Line Number .. переход к строке, по ее номеру для быстрого перемещения по тексту текущего модуля.
Find Error.переход к строке программы, соответствующей введенному адресу. Используется для локализации ошибок после сообщений типа «Инструкция по адресу ... обратилась. . .».
Browse Symbolвызов диалога просмотра информации о заданном программном идентификаторе (переменной, классе, и т.д.).
Подменю View
Подменю View содержит команды вызова на экран окон и диалогов IDE, необходимых для разработки и отладки программы, таких как:
менеджер проектов (View->ProjectManager);
инспектор объектов (View-X)bject inspector);
дерево объектов iview >object TreeView);
список заданий разработчику (view->To-Do List);
палитра выравнивания компонентов на форме IView->Alignment Palette);
дерево элементов программы (View->Browser );
дерево элементов активного модуля (View->Code Explorer);
список компонентов палитры IDE Iview->Component List);
диалог выбора активного окна среди открытых в IDE (VTew->Wtndow List).
Также подпункт View главного меню управляет отображением панелей инструментов (view->Toolbars), окнами, обеспечивающими более продуктивную работу с отладчиком (View->Debug Windows), содержит команды управления сохранением и восстановлением внешнего вида среды (View->Desktops), и позволяет выбрать активную форму или модуль (view->Units и View->Forms), а также переключаться между формой и ее модулем (View->Toggle Form/Unit).
Понятие проекта и группы проектов.Подменю Project
В подменю Project собраны команды, предназначенные для управления проектом и группой проектов. Поясним эти понятия.
Проектом называется некоторый логически законченный набор файлов (на усмотрение разработчика). Группой проектов называется набор проектов. Например, при создании нового приложения (пункт главного меню File->New->Application) автоматически создается новый проект и новая группа проектов, содержащая этот проект. Далее, с помощью пункта меню Project->Add to Project можно добавить к проекту любой файл, выбрав его в стандартном диалоге, а с помощью пункта меню Project- >Remove from Project удалить из проекта любой файл.
Понятие проекта изначально введено в Delphi для более удобного управления группой файлов, относящихся к одному приложению. Группа проектов появилась значительно позднее, так как не оправдал себя подход SDI, заключающийся в принципе «Одна среда разработчика — одно приложение». Часто возникают ситуации, когда один и тот же модуль или ресурсный файл участвуют в нескольких проектах, и удобно их все иметь в одной среде и отлаживать несколько проектов одновременно. Для работы с группами проектов предназначен немодальный диалог Менеджера проектов, который может быть выведен на экран с помощью пункта главного меню View->Project Manager (см. рис. 11.2).
Рис. 11.2. Менеджер проектов
Данный диалог представляет структуру группы проектов в виде дерева. В каждый момент времени один из проектов является активным, то есть все действия, которые производятся на уровне проекта, производятся именно с ним. Для активации проекта следует выбрать его мышью в дереве проектов и нажать на кнопку Activate Д„ (англ. Activate — Активизировать), расположенную в верхнем правом углу Менеджера. Кнопка Activate доступна, только если проектов в группе несколько.
Для добавления нового или уже существующего, сохраненного на диске проекта, предназначены пункты главного меню Project->AddNew Project и Project->Add Existing Project.
Кнопка New £ (англ. New — Новый) вызывает диалог добавления элемента в дерево. Если в этом диалоге будет выбран элемент, подразумевающий под собой наличие проекта (например, приложение — Application), то будет создан и добавлен в дерево новый проект, если же новый элемент может существовать в рамках другого проекта, то он будет добавлен в активный проект и также отображен в дереве.
Кнопка Remove Z. (англ. Remove — Удалить) удаляет элемент, который выбран в дереве в данный момент. Этот элемент может быть проектом или его частью.
Сохранить группу проектов можно, вызвав контекстное меню Менеджера проектов правой кнопкой мыши, когда она находится над названием группы проектов. Далее, в появившемся меню следует выбрать пункт Save Project Group As. Также, данное меню позволяет активизировать, откомпилировать, построить проект, над которым меню было вызвано, или изменить очередность его компиляции относительно других проектов в группе, если он должен быть построен раньше или позже других при выборе пунктов меню Project->Conpile All Projects И Project->BuildAll Projects.
Остальные подпункты меню Project редко используются в работе и при желании могут быть изучены самостоятельно с помощью справочной системы Delphi.
Подменю Run
Команды подменю Run предназначены для управления запуском и отладкой приложений и разбиты на три логические группы.
Первая группа команд управляет запуском приложения. Основные команды этой группы — Run->Run (запуск приложения) и Run->Parameters (эмуляция передачи параметров приложению через командную строку). Остальные команды данной группы выходят за рамки нашей книги.
Вторая группа команд предназначена для пошагового выполнения программы во время отладки:
Step Over.выполнить текущую строку программы, не заходя в
подпрограммы, использованные в ней.
Trace Intoвыполнить текущую строку программы, заходя в подпрограммы, использованные в ней.
Trace to Next Source Line ... выполнить фрагмент кода до следующей строки исходного текста.
Run to Cursor.выполнить программу от места остановки до положения курсора в текстовом редакторе.
Run Until Returnвыполнить подпрограмму до выхода из нее.
Show Execution Point ... показать в текстовом редакторе место, на ко- гором остановлена программа.
Program Pauseприостановить выполнение программы и перейти в режим отладки.
Program Resetостановить выполнение программы или отладку.
И, наконец, последняя группа команд предназначена для просмотра информации о выполняемой программе:
Inspectвызватьдиалог просмотра состояния переменной, в том
числе и являющейся ссылкой на экземпляр класса.
Evaluate/Modify. . . . Вызов диалога просмотра и изменения значения переменной.
Add Watch.добавитьпеременную в список просматриваемых (сам
список вызывается через пункт меню View->Debug Windows->Watches).
Add Breakpointгруппа команд добавления точек останова программы и перевода ее в отладочный режим.
Остальные пункты меню либо интуитивно понятны, либо выходят за рамки нашей книги. Однако мы будем в случае необходимости иногда ссылаться на них (с соответствующими пояснениями).
Компоненты.
Палитра компонентов и формы
Палитра компонентов и формы не имеют смысла друг без друга и представляют собой необходимый минимум для визуальной разработки приложения. Форма представляет собой заготовку окна, на котором расположены визуальные элементы управления и невизуальные компоненты, которые не будут видны пользователю, но будут обеспечивать какие-либо функциональные возможности программы в процессе ее выполнения. В каждом приложении может быть неограниченное количество форм и компонентов на них '
Компоненты, которые можно разместить на форме, представлены в главном окне среды разработки и для удобства разбиты на группы. Эго и есть Палитра компонентов. Изначально, после установки Delphi в Палитре содержится некоторый набор компонентов, поставляемый вместе с Delphi причем он зависит от опций, указанных в процессе инсталляции. Далее набор компонентов может быть расширен добавлением новых компонентов.
Каждый компонент в Палитре компонентов представляет собой некоторый класс — наследник класса TComponent, обладающего следующими существенными для визуального проектирования возможностями:
Интеграция в среду разработчика: возможность расположения компонента в Палитре компонентов, перенесения его на форму, то есть создание экземпляра данного класса, а также возможность управления его свойствами с помощью визуального построителя. Во время визуального проектирования компонент обычно имеет такое же визуальное представление, как и во время работы приложения, что существенно облегчает разработку программы.
Следует заметить^ что слово «неограниченное» в данном случае носит более чем условный характер. Каждый визуальный элемент на форме потребляет системные ресурсы, соответственно, количество элементов, отображенных на экране, существенно зависит от объема ресурсов, которыми располагает операционная система. Особенно это касается Windows 98 и более ранних версий, и, в меньшей степени, NI <истсм, например, Windows 2000. Однако Delphi никаких ограничений такого рода не имеет, все зависит только от операционной системы.
Принадлежность: возможность управления другими компонентами в смысле ответственности за уничтожение компонентов, собственником которых является данный компонент. При создании экземпляра (объекта) компонента в конструкторе ему передается его владелец, который должен вызвать деструктор данного компонента перед вызовом своего деструктора. Например, при разрушении формы должны быть разрушены все компоненты, которые на ней находятся. Такой подход снимает необходимость разрушения объектов с разработчика программы.
Сохраняемость и восстанавливаемость: возможность записи значений свойств компонента в некоторый поток (например, файл на диске) и последующее восстановление этих значений из потока. Данное свойство широко используется для установки значений свойств компонентов во время проектирования, так как при сохранении проекта свойства записываются в файлы форм, а при чтении проекта состояние объектов считывается. То же самое происходит при запуске приложения. Сохраняемость и восстанавливаемость унаследована классом TComponent от класса TPersistent (англ. Persistent — постоянный), наследником которого он является.
Поддержка технологии СОМ: возможность преобразования компонентов Delphi в объекты ActiveX или другие COM-объекты, и наоборот, импорт компонентов ActiveX в Delphi с целью дальнейшего их использования с возможным расширением.
Итак, класс TComponent является базовым для создания компонентов. Прямые наследники этого класса не имеют визуального представления (если не добавляют его сами) и являются, соответственно, невизуальными. Невизуальные компоненты представлены в процессе разработки программы иконками, аналогичными сопоставляемым им в Палитре компонентов, и, так же как и другие компоненты, могут быть активными, то есть выбранными среди других компонентов формы для изменения их свойств.
Компоненты, которые имеют визуальное представление в процессе выполнения программы и ее проектирования, унаследованы от потомка TComponent, класса TControl (англ. Control — управление), и называются визуальными. Такими компонентами представлены практически все стандартные элементы управления Windows, например кнопки, строки ввода и статические подписи.
Также существует третий вид компонентов, которые изначально не видны пользователю, но могут появляться на экране в отдельных ок-
нах в случае необходимости — это формы и диалоги, однако формы являются наследниками класса TControl, а диалоги — наследниками TComponent через специализированный класс TCoramonDialog (от англ. Common Dialog — унифицированный диалог). Класс TCommonDialog среди прочих методов добавляет к классу TComponent метод Execute, который является абстрактным и переопределяется конкретными компонентами-диалогами для вывода диалогового окна на экран.
Среди такого рода компонентов в Delphi изначально присутствуют диалоги открытия и сохранения произвольных файлов, файлов с изображениями, диалоги для настройки печати и выбора принтера, выбора шрифта и цвета, а также диалоги поиска и замены. Работа с такими компонентами заключается в расположении компонента на форме, в результате чего автоматически создается экземпляр компонента, и затем в вызове их метода Execute во время выполнения программы. В процессе разработки программы такие компоненты представляются иконками, как и невизуальные компоненты.
Начальный уровень иерархии компонентов Delphi представлен на рис. 11.3.
т I Основные , , ттва
ITObject1, Delphi
Рис. 11.3. Иерархия компонентов Delphi
Свойства и события компонентов.Инспектор объектов
Основы использования компонентов
При переносе компонента из Палитры компонентов на форму, неважно, визуальный это компонент, или невизуальный, создается экземпляр соответствующего класса. Published-свойства (например, размеры визуальных компонентов), описанные в компоненте, заполняются некоторыми значениями по умолчанию», и компонент отображается на форме. При размещении визуального компонента он выглядит так же, как и во время выполнения программы, а невизуальные компоненты и диалоги представлены иконками, соответствующими им в Палитре компонентов (см. рис. I 1.4)
Рис. 11.4. Визуальные и невизуальные компоненты на форме
Понятие активного компонента
Один из компонентов можно выбрать, нажав над ним левую кнопку мыши, после чего он станет «активным», о чем свидетельствует габаритная рамка вокруг него. Рамка предназначена для изменения размеров визуальных компонентов, а для невизуальных просто указывает на активность компонента. На рис. 11.4 активным является невизуальный компонент.
Однако изменение размеров — не единственный повод сделать компонент активным, а наиболее существенные возможности реализованы в Инспекторе объектов (экземпляров компонентов), который по умолчанию находится в левой части окна. Если Инспектор объектов отсутствует на экране или скрыт другими окнами, его можно вызвать с помощью пункта главного меню View->Object inspector, или нажав клавишу F11.
Предусмотрена возможность выбора нескольких компонентов одновременно, выбирая их при нажатой клавише Shift.
Инспектор объектов
Инспектор объектов предназначен для изменения всех published-свойств, описанных в компоненте, и состоит из двух частей — заголовка, в котором указано название активного объекта и его тип (название класса), и блокнота с двумя закладками: Properties (англ. Properties — свойства), на которой в табличной форме представлены свойства, не являющиеся ссылками на подпрограммы-обработчики событий, и Events (англ. Events — события), на которой в аналогичной форме представлены свойства, являющиеся ссылками на подпрограммы-обработчики событий. Варианты Инспектора объектов с выбранными закладками Properties и Events представлены на рис. 11.5 и 11.6. Как видно из заголовка Инспектора, активным объектом является Buttonl — экземпляр компонента । t ।
Object InspectorObject Inspector• Object Inspect• Object InspectButtonlТ ButtonProperties j Events |Action■I Anchorsj ]~ Left 5 Top]BiDiModeI bdLeftToRightCancelj FalseCaption ButtonlI Constraints I (T S izeConstraints)MaxHeigN To.....MaxV/dth 10tynH eight ,0 MiriV/dth 0ButtonlТ ButtonProperties j Events |Action■I Anchorsj ]~ Left 5 Top]BiDiModeI bdLeftToRightCancelj FalseCaption ButtonlI Constraints I (T S izeConstraints)MaxHeigN To.....MaxV/dth 10tynH eight ,0 MiriV/dth 0j ButtonlTProperties Eventsj ButtonlTProperties EventsActionActionOnClickOnClickButtonl ClickButtonl ClickCursorDefaultDragCursorCursorDefaultDragCursorcrDefaultcrDefaultOnContextPopi' OnDragDiopI OnOragOver OnEndDockOnEndDraqГ OnEnterOnExit BitBtn2ClickOnKeyOown Buttonl ClickI , OnKeyPressI OnKeyUpOnMouseDowrOnContextPopi' OnDragDiopI OnOragOver OnEndDockOnEndDraqГ OnEnterOnExit BitBtn2ClickOnKeyOown Buttonl ClickI , OnKeyPressI OnKeyUpOnMouseDowrIAII shownIAII shownРис. 11.5. Закладка PropertiesИнспектора объектовРис. 11.5. Закладка PropertiesИнспектора объектовРис. 11.6. Закладка EventsИнспектора объектовРис. 11.6. Закладка EventsИнспектора объектов
Object Inspector
Object Inspector
• Object Inspect
• Object Inspect
ButtonlТ Button
Properties j Events |
Action
■I Anchorsj ]~ Left 5 Top]
BiDiModeI bdLeftToRight
Cancelj False
Caption Buttonl
I Constraints I (T S izeConstraints)
MaxHeigN To
.....MaxV/dth 10
tynH eight ,0 MiriV/dth 0
ButtonlТ Button
Properties j Events |
Action
■I Anchorsj ]~ Left 5 Top]
BiDiModeI bdLeftToRight
Cancelj False
Caption Buttonl
I Constraints I (T S izeConstraints)
MaxHeigN To
.....MaxV/dth 10
tynH eight ,0 MiriV/dth 0
j ButtonlT
Properties Events
j ButtonlT
Properties Events
Action
Action
OnClick
OnClick
Buttonl Click
Buttonl Click
Cursor
Default
DragCursor
Cursor
Default
DragCursor
crDefault
crDefault
OnContextPopi
' OnDragDiop
I OnOragOver OnEndDock
OnEndDraq
Г OnEnter
OnExit BitBtn2Click
OnKeyOown Buttonl Click
I , OnKeyPress
I OnKeyUp
OnMouseDowr
OnContextPopi
' OnDragDiop
I OnOragOver OnEndDock
OnEndDraq
Г OnEnter
OnExit BitBtn2Click
OnKeyOown Buttonl Click
I , OnKeyPress
I OnKeyUp
OnMouseDowr
IAII shown
IAII shown
Рис. 11.5. Закладка PropertiesИнспектора объектов
Рис. 11.5. Закладка PropertiesИнспектора объектов
Рис. 11.6. Закладка EventsИнспектора объектов
Рис. 11.6. Закладка EventsИнспектора объектов
Published-свойства компонента могут иметь различные типы данных, как простые, например, Integer или Double, или более сложные, например string, так и сложные, например, записи и массивы. Инспектор объектов имеет возможность отображать и изменять значения свойств различных типов данных на основе зарегистрированных в IDE редакторов свойств. Каждый компонент, содержащий свойства нестандартных (не входящих в состав инсталляционного пакета Delphi) типов данных, должен при добавлении его в Палитру компонентов регистрировать собственные редакторы свойств.
Таким образом, разработчик программы не должен заботиться о корректности отображения значений в Инспекторе объектов — ее поддерживает разработчик компонентов. Если свойство компонента подразумевает наличие подсвойств (полей), то слева от него в таблице на закладке Properties отображается символ « । ». При нажатии на этот символ мышью свойство разворачивается и появляется возможность редактирования его полей (см. свойства Anchors и Constraints на рис. Н.э)
Правая часть таблицы свойств содержит поля ввода значений, причем для удобства разработчика значения можно не только вводить, но и выбирать из списков допустимых значений. Это касается, прежде всего, свойств типа Boolean (в списке выбора представлены значения True и False, см. свойство Default на рис. II.5), а также свойств перечислимых ти-
пов (в списках выбора находятся константы, указанные при описании соответствующих типов данных).
При создании экземпляра компонента все его свойства, представленные на закладке Properties заполняются начальными значениями, так как подразумевают под собой наличие некоторых структур данных внутри объекта, причем нередко зависимых друг от друга. Со свойствами, расположенными на закладке Events, ситуация противоположна: при создании компонента они не заполнены и имеют пустые значения.
Данные свойства являются ссылками на подпрограммы-обработчики событий, вызываемые при появлении какого-либо события в системе, связанного с данным компонентом. Изначально значение таких свойств — nil — пустая ссылка, то есть при возникновении события не будет вызван никакой метод. Значение nil не отображается в Инспекторе объектов, вместо него там находится пустая строка. Если свойству сопоставлен какой-либо метод, то вместо ссылки на него отображается его название.
Для того, чтобы сопоставить какой-либо метод формы свойству-событию, можно воспользоваться выпадающим списком, в который Delphi автоматически подберет все свойства, подходящие для соответствующего обработчика по сигнатуре (набору и последовательности параметров). Такой список представлен на рис. 11.6 напротив свойства OnEnter. Заметим, что в этом списке присутствует метод I it torк, уже сопоставленный свойству Onclick. Если выбрать его как обработчик события OnEnter, то данный метод будет вызываться при появлении обоих событий.
Для создания нового метода формы, являющегося обработчиком события компонента, принадлежащего этой форме, следует дважды нажать левую кнопку мыши над редактором соответствующего свойства.
Таким образом, в Delphi реализован следующий принцип обработки событий: каждому событию может быть сопоставлен один обработчик, однако один и тот же обработчик может быть сопоставлен нескольким событиям, если он подходит им по сигнатуре'
Еще раз напомним, что значения свойств, установленные в Инспекторе объектов и ссылки на подпрограммы-обработчики событий автоматически сохраняются в файле формы, и будут восстановлены при следующем сеансе работы с проектом в среде Delphi, а также при запуске программы. Такая возможность реализована средой Delphi и методами класса TPersistent, наследниками которого являются все компоненты.
” Такой принцип обработки событий соответствует концепции событий в Windows и концепции визуальной разработки Delphi, однако он не единственно возможный, и, вероятно, не самый удачный. Например, в Java реализован принцип «подписки» на события. Один компонент подписывается на события другого, а компонент, в котором произошло событие, вызывает по очереди соответствующие методы всех подписавшихся на его события компонентов. Такой подход позволяет уведомить о событии большее количество объектов.
Окно исходного текста программы
Окно исходного текста программы (см. рис. 11.7) позволяет редактировать любые текстовые файлы, например, файл проекта или модули форм, и является инструментом, соответствующим современным требованиям. Редактор поддерживает встроенную систему контекстной помощи (вызывается нажатием клавиши F1 и учитывает идентификатор, на котором расположен курсор), систему синтаксической подсветки текста (выделение ключевых слов, комментариев, и т.д.), автодополнение программного кода по используемым объектам (подбор возможных методов и полей, которые могут быть использованы в данном фрагменте программы) и подпрограммам (списки параметров подпрограмм с учетом перегружаемое ш подпрограмм), а также систему навигации по тексту с помощью дерева объектов текущего модуля.
Рис. 11.7. Редактор исходного текста программы
Окно навигации по коду
Простейшая навигация по исходному тексту программы может происходить с помощью пунктов меню Search, описанных выше, однако это не исчерпывает возможности Delphi в данной области. В момент отображения модуля формы в окне редактирования текста программы, автоматически устанавливается структура открытого модуля и вложенных в него структур, например, классов. Собранная информация представляется в виде дерева (см. рис. 11.7) и может быть просмотрена в окне навигации по коду (от англ. Code Explorer — Навигатор по коду).
По умолчанию данное окно встроено в редактор текста, однако оно может быть откреплено, перемещено в другое место экрана, скрыто или перекрыто другими окнами среды разработчика. Если окна навигации по коду нет на экране, оно может быть выведено туда с помощью пункта главного меню view->Code Explorer. На рис. 11.7 показано окно навигации по тексту, встроенное в редактор текста (в левой части рисунка).
В окне навигации отображаются все типы данных, классы (с методами и свойствами), глобальные переменные и глобальные подпрограммы, описанные в текущем модуле, а также подключаемые модули. Для перехода к некоторому идентификатору в тексте следует выбрать его в дереве объектов и дважды нажать над ним левую кнопку мыши.
Автодополнение кода
Автодополнение кода основано на анализе средой вводимого программистом текста в редакторе исходного текста. В Delphi реализовано автодополнение двух видов — завершение идентификатора по нескольким набранным символам и формирование списка выбора допустимых свойств и методов объекта, используемого в программе.
Для автоматического завершения идентификатора по нескольким символам (начальным) следует нажать комбинацию клавиш Ctrl-Пробел, после чего будет сформирован список идентификаторов, которые могут быть использованы в данном месте и начинаются с данных символов. При дальнейшем вводе символов выведенный список не исчезает с экрана, а уменьшается таким образом, чтобы в нем оставались только те идентификаторы, которые соответствуют текущему сочетанию введенных символов.
Например, если в редакторе исходного текста набрать символы be и нажать Ctrl-Пробел, то средой будет сформирован и выведен на экран список свойств и методов текущего класса, а также глобальных переменных и процедур, доступных в данном фрагменте модуля. Все эти идентификаторы будут начинаться с символов be (см. рис. I I 8) При дальнейшем вводе, например, символа д, в списке останутся только те идентификаторы, которые начинаются с сочетания beg, и так далее.
procedure TFornil. В11 BcnlC 1 lek (Sender: TOtoject);procedure TFornil. В11 BcnlC 1 lek (Sender: TOtoject);Рис. 11.8. Автодополнение кодаРис. 11.8. Автодополнение кодаII
procedure TFornil. В11 BcnlC 1 lek (Sender: TOtoject);
procedure TFornil. В11 BcnlC 1 lek (Sender: TOtoject);
Рис. 11.8. Автодополнение кода
Рис. 11.8. Автодополнение кода
I
I
Заметим, что авто завершение идентификатора по малому количеству символов не имеет смысла, так как список будет формироваться значительное время, и будет иметь немалый размер, так что из него будет трудно выбрать нужный идентификатор.
Второй механизм автодополнения кода ориентирован на работу с классами и их экземплярами, по смыслу похож на авто завершение идентификаторов, и заключается в формировании списка свойств и методов объекта, допустимых в текущем фрагменте модуля. Список формируется и выводится на экран, когда после названия объекта или класса ставится точка, свидетельствующая о необходимости вызова метода этого класса или объекта, или обращения к свойству объекта.
Пример такого списка представлен на рис. 11.7, где в процессе редактирования модуля было набрано название идентификатора a gel и поставлена точка. Также, каки при автозавершении идентификаторов, при дальнейшем вводе в окно редактирования текста отображенный список будет фильтроваться для соответствия вновь введенным символам.
Описанные механизмы позволяют быстрее набирать программный код за счет автоматического ввода длинных идентификаторов и отсутствия необходимости точно помнить их названия.
Общие принципы
программирования в Delphi
Визуальное построение приложения
Общие принципы программирования в Delphi мы рассмотрим на простейшем примере В качестве примера создадим приложение — калькулятор, состоящий из двух строк ввода для двух чисел, четырех кнопок для указания действия, которое следует выполнить с этими числами, а также еще одной строки ввода для вывода результата (см. рис. 12.1).
Для построения такого приложения запустим среду разработчика Delphi В зависимости от ранее установленных настроек среда может выглядеть по-разному, но, если настройки по умолчанию не изменены, то будет автоматически открыт пустой проект, не сохраненный на диске и состоящий из одной формы — главного окна приложения — на которой нет интерфейсных компонентов.
Для начала работы необходимо вызвать форму на экран, если она еще не отображена. Для этого следует воспользоваться пунктом главного меню view->Forms или нажать комбинацию клавиш Shift-F12.
На экране появится диалог выбора активной формы, состоящий из трех частей. В верхней части диалога находится строка ввода для ускоренного поиска формы по имени, а в нижней — список всех доступных в проекте форм. Пустой проект содержит всего одну форму с названием г < - " Чтобы сделать форму активной, необходимо выбрать ее в списке и нажать на кнопку Ок, находящуюся в правой части диалога.
Пере "Число: |10
Второе число: 11
Результат: О
Рис. 12.1. Калькулятор на Delphi
Форма, отображенная на экране, представляет собой окно с заголовком, на котором находятся кнопки минимизации, максимизации и закрытия окна, а также иконка оконного меню. Простейшие действия, которые можно выполнить с формой — это изменить ее размеры и положение на экране. По умолчанию главное окно программы будет иметь после запуска именно такие размеры и положение. После этого можно выбрать пункт главного меню Run->Run или нажать клавишу F9. Результатом будет выполнение программы — вывод главного окна на экран, которое будет находиться там до нажатия пользователем кнопки его закрытия.
Теперь можно перейти к формированию пользовательского интерфейса программы. Для этого обратим внимание на ту часть среды разработчика, которая находится под ее главным меню и представляет собой набор закладок. На закладках расположены компоненты, которые могут располагаться на форме. По умолчанию выбрана закладка с названием на которой находятся стандартные элементы управления Windows.
Для начала добавим простую подпись для строки ввода первого числа с подписью «Первое ;>:». Для этого выберем компонент Label (англ. Label —
метка) обозначенный иконкой А , и разместим его на форме, нажав левую кнопку мыши на форме в том месте, где должен располагаться левый верхний угол подписи. На форме появится новый элемент управления (см. рис. 12.2). Элемент управления можно перемещать по форме с помощью мыши и изменять его размеры. Исли компонент не обведен рамкой, то его нужно выделить, нажав над ним левую кнопку мыши.
7 Forml
Рис. 12 2. Компонент Label
| Label!TLabeiProperties ‘ Events || Label!TLabeiProperties ‘ Events |!AJ shown!AJ shownРис. 12.3. Инспектор объектовРис. 12.3. Инспектор объектовТеперь можно изменить надпись на метке. Для этого следует воспользоваться Инспектором объектов (от англ. Object Inspector — Инспектор объектов), в котором представлены все свойства активного компонента (см. рис. 12.3). Инспектор объектов находится в левой части экрана. Если данное окно не отображено на экране, то его можно вызвать с помощью пункта главного меню view-> Object Inspector нли нажав клавишу F11.
| Label!TLabei
Properties ‘ Events |
| Label!TLabei
Properties ‘ Events |
!AJ shown
!AJ shown
Рис. 12.3. Инспектор объектов
Рис. 12.3. Инспектор объектов
Инспектор объектов представляет собой таблицу из двух столбцов — в левом находятся названия свойств текущего компонента, а в правом — значения этих свойств. Все изменения, внесенные в программу с помощью Инспектора объектов, будут сохранены средой. Подпись, выводимая на метке, содержится в свойстве Caption (англ. Caption — заголовок). При изменении данного свойства соответству
ющим образом изменится подпись на метке. Итак, изменим значение свойства Caption на «Первое ■ .• - : -
Установив положение метки, можно переходить к созданию первой строки ввода. Для этого необходимо расположить на форме компонент Edit (англ. Edit — редактировать), помеченный иконкой РЕП на странице standard Палитры компонентов. Размещение компонента Edit производится аналогично компоненту Label. Текст, вводимый пользователем с помощью этого компонента во время выполнения программы, доступен через свойство Text. Данное свойстэо доступно и на этапе проектирования, то есть его значение можно изменить с помощью Инспектора объекта. Изначально значением свойства Text является название компонента, в нашем случае, это «» Это значение не подхо
дит по смыслу задачи, так как в текстовые поля калькулятора должны шопиться числовые значения, а не текстовые. Поэтому значение свойства Text следует изменить, например, на «О».
Аналогичным образом добавляются текстовые метки Label с подписями «Второеи:: . а также строки ввода для второго опе
ранда и результата.
Теперь добавим на форму кнопки выбора действия. Компонент, соответствующий данному элементу управления, также расположен на странице Standard Палитры компонентов и помечен иконкой и Надписью, отображаемой на кнопке, управляет свойство Caption компонента.
Обратим внимание на выпа [ающий список в верхней части Инспектора объектов, с помощью которого можно сделать некоторый компонент активным по его имени, даже если его полностью перекрывают другие компоненты. Имя компонента формируется автоматически при добавлении компонента на форму, заносится в свойство Name компонентов и может быть изменено в обычном порядке через Инспектор объектов.
Автоматическое формирование имени компонента строится на основе названия компонента и его порядкового номера на форме. Например, при добавлении компонента Label, ему будет присвоено имя : . - 1. Если компоненты добавлялись к форме в описанной последовательности, то они имеют следующие имена:
Компонент
Название
Подпись «Первое число:-
Label 1
Подпись «Второе число:*
LabelZ
Подпись •Резулы
Labei3
Строка ввода первого операнда
Еса'
Строка ввода второго операнда
Edit2
Строка вывода результата
Edits
Кнопка «+»
Button 1
Кнопка«-»
Button2
Кнопка «*»
Buttons
Кнопка •/■
Button4
Таким образом, интерфейс программы сформирован. Если запустить программу на выполнение, то в строки ввода можно будет вводить значения, на кнопки можно будет нажима! i но программа не будет иметь необходимой функциональности. Соответственно, на этом и заканчивается визуальное проектирование приложения и начинается собственно программирование.
Автоматическое созданиепрограммного кода
Во время визуального построения интерфейса приложения среда Delphi автоматически формирует два файла — файл описания формы (имеет расширение dfm). в котором содержится описание интер-
м Заметим, что элементы управления, созданные с помощью Delphi, являются на самом деле элементами управления Windows, то есть полностью поддерживают поведение, свойственное им в конкретной версии Windows. Например, строки ввода, созданные в нашей программе, поддерживают работу с буфером обмена.
фейсн . • элементов, расположенных на форме, и файл модуля формы (имеет расширение pas), в котором располагается описание класса формы — наследника класса TForm Файл описания формы используется системой для внутренних целей, а именно, для хранения значений свойств компонентов, которые представлены в Инспекторе объектов во время визуального построения формы. Изменение данного файла практически никогда не требуется, а основная часть работы происходит с модулем формы.
Класс формы является логическим отображением формы и содержит, например, ссылки на все интерфейсные компоненты, добавленные на этапе визуального проектирования. Это крайне важно, так как позволяет обратиться к элементам интерфейса как к свойствам класса через соответствующие классы Delphi, являющиеся оболочками интерфейсных элементов Windows. Чтобы изучить описание этого класса, следует выбрать пункт главного меню view->Toggle Form/Unit или воспользоваться клавишей F12. Для проекта, который мы в данный момент разрабатываем, модуль формы приведен в листинге 12.1.
Листинг 12.1. Модуль формы
unit Unitl ; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForml = class(TForm)
Labell: TLabel;
Labe12: TLabel;
Label 3. TLabel;
Editl: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Buttons: TButton;
Button4: TButton;
private
( Private declarations } public
{ Public :. }
end;
var
Formi: TForml;
imp Bment at i on
($R *.dfm} end.
Итак, стандартный класс ? зги расширяется в нашем приложении добавлением в него свойств-ссылок на объекты, соответствующие интерфейсным элементам, расположенным на форме. Так, в классе : _ присутствуют свойства Label, I 12 и : 13 типа TLabel, соответствующие интерфейсным меткам, свойства v .v Edit2 и Edit, соответствующие строкам ввода операндов и вывода результата, и свойства Sult 1, Butt эг.2, R । t on 3 и Button4, соответствующие кнопкам вычисления результата. Из любого метода, реализованного в классе TForml и из любой части программы, имеющей доступ к объекту такого класса можно получить доступ ко всем этим свойствам, а, следовательно, и к интерфейсным тементам3
Функциональность приложения
Вернемся к концепции программы, управляемой событиями. Приложение, интерфейс которого сформирован в предыдущем разделе, должно реагировать на нажатие одной из кнопок, вычисляя некоторым образом результат, и помещая его в соответствующее поле ввода. Нажатие на кнопку является событием, на основе которого Windows создает специальную структуру данных, описанную выше. Данные приходят в оконную функцию приложения, затем Delphi направляет их тому компоненту, который и вызвал событие. Обработку событий мы подробно рассмотрим ниже, а пока будем считать, что обработчик события компонента — это процедура, вызываемая автоматически в ответ на событие, произошедшее в системе, и связанное с этим компонентом.
Проце iypa-обработчик обычно является методом класса формы, которой принадлежит соответствующий интерфейсный элемент, однако это не обязательно. Дополнительная информация о событии передается в процедуру-обработчик через параметры.
Список событий активного компонента представлен на закладке Events (англ. Event — событие) Инспектора объектов. Для выполнения каких- либо действий при нажатии пользователем на кнопку следует реализовать обработчик события OnClick (см. рис 12.4).
Для этого следует два раза щелкнуть левой кнопкой мыши во втором столбце страницы Evens Инспектора объектов напротив заголовка
Рис. 12.4. Закладка Events (события Инспектора объектов)
Onclick, после чего на экран будет выведено окно редактирования исходного текста программы, в котором будет открыт модуль формы, рассмотренный нами выше. В класс формы будет автоматически добавлен метод-обработчик события OnC I ■ Название метода состоит из названия компонента, которому принадлежит обработчик, и слова i ск. Например, при создании обработчика события Onclick для кнопки с названием Buttonl будет сформирован следующий метод класса TForml:
procedure TForml.ButtonlClick(Sender: TObject); begin
end;
Таким образом, если в процессе выполнения программы будет вызван метод ButtonlClick, значит, пользователь нажал на кнопку с подписью то есть он хочет сложить числа, занесенные в строки ввода
I ' и Edit2, а затем поместить результат в строку ввода Есы г - Мы уже говорили о том, что значения, вводимые в строки Edit пользователем во время работы программы, хранятся в свойствах Text соответствующих объектов. Следовательно, задача обработчика события сво-
Название процедуры-обработчика будет занесено в таблицу обработчиков данного компонента на странице Events Инспектора объектов, затем сохранено в файле формы. При запуске приложения сопоставление обработчика с интерфейсным |®1ементом будет произведено автоматически.
дится к преобразованию введенных строк в числовое представление, их сложение и вывод в строку ввода . - Для преобразования строк в значения с плавающей точкой мы воспользуемся функцией Delphi StrToFloat, а для обратного преобразования — функцией FloatTostr. имеющими следующий вид:
Function StrToFloat(const 5: String): Extended;
Function ‘(: Extended) : String;
Для обращения к свойствам Text объектов i ; и Edit2 будем использовать соответственно конструкции -' ■ - а И Edit . 1
Обработчик события для кнопки сложения будет выглядеть следующим образом:
BrDcedurq^TForilll.ButtonlClicktS- J ; TObject);
Efcin
Edit3.Text := FloatTostr(StrToFloat(Edit!.Text) +
StrToFloat(Edit2.Text));
end;
Теперь добавим обработчик события нажатия для кнопки вычитания операндов Button2. Переключимся в режим редактирования формы (клавиша F12), сделаем текущим компонент-кнопку с подписью « выберем в Инспекторе объектов закладку Events, и создадим обработчик события нажатия двойным щелчком левой кнопки мыши напротив события Onclick. В появившемся окне редактирования исходного текста программы реализуем автоматически созданную процедуру-обработчика ButtonlClick:
procedure TForml.Button2Click(Sender: TObject);
begin
Edit3.Text := FloatToStr(StrToFloat(Editl.Text)
StrToFloat(Edit2.Text)) ;
enS".
Аналогично можно добавить обработчики событий нажатия для кнопок умножения и деления Butt ■ и Button4:
procedure TForml.Button3Click(Sender: TObject);
begin
Edit3.Text := FloatTostr(StrToFloat(Editl.Text) *
StrToFloat(Edit2.Text));
end;
prledure Г: rm 1 . Button4Click(Sender: №0bject) ;
begin
Edit3.Text : = F oatToStr(StrToFloat(Editl.Text) /
StrToFloat(Edit2.Text));
Обработка исключительныхситуаций
В разработанной нами программе могут возникать некоторые исключительные ситуации, связанные с некорректными исходными данными, вводимыми пользователем.
Например, пользователь может ввести в поля ввода строки, которые не являются 1 ислами ’ В этом случае в момент вызова функции strToFloat будет возникать исключительная ситуация eConvertError (от англ. Exception of Convert Error — исключительная ситуация ошибки преобразования), на экран будет выведено сообщение об ошибке, выполнение обработчика нажатия на кнопку будет досрочно прервано, а программа продолжит свое выполнение.
Диалог с сообщением об ошибке представлен на рис. 12.5. Если запуск программы был выполнен из среды разработки Delphi, то перед появлением такого диалога будет выведен на экран дополнительный диалог с более полной информацией об исключении'1*, программа будет приостановлена и возобновит работу только после ее повторного запуска с помощью клавиши F9.
Рис. 12 5. Сообщение об ошибке
Для того, чтобы избежать вывода сообщения об ошибке на экран, или вывести собственное сообщение, что более удобно для пользователя, необходимо обработать исключение. Для этого мы воспользуемся блоком обработки исключений Try. . Fx г причем не будем указывать, какое именно исключение следует обработать. В результате обработаны будут все исключения, возникающие внутри блока. В качестве реакции на ошибку, в ту строку ввода, куда выводится результат вычислений, будем выводить сообщение об ошибке:
7 Такие ошибки очень распространены в Windows из-за различных настроек форматов. Например, допускается изменение пользователем разделителя целой и дробной части вещественного чпрла. Delphi ориентируется на национальные настройки системы, и при попытке ввода пользователем числа с разделителем-точкой при установленном в Windows разделителе-запятой будет возникать исключительная ситуация.
” Только если установлен флаг Stop on Delphi Exceptions в диалоге Debugger Options, вызываемом через пункт главного меню I ools-> Debugger Options.
Try
(Попытка вычисления)
Except
11 • сообщения об . - End;
Для вывода сооб исния об ошибке воспользуемся свойством Text объекта * и присвоим данному свойству соответствующее значение:
Edit3.Text := ’Ошибка ввода!';
Тогда обработчики событий нажатия на кнопки будут выглядеть следующим образом:
procedure TForml .ButtonlClick(Sender: TObject);
ЬКИдВСл
j^ry
Edit3.Text : = FloatToStr (StrToFloat(Editl.Text) ,+
StrToFloat(Edit2.Text)) ;
Exc«t
Edit3.Text := ’Ошибка ввода!'; end;
end;
procedure TForml.Button2Click(Sender: TObject); begin ■ 5?ry •
Edit3.Text := FloatToStr(StrToFloat(Editl.Text) -
StrToFloat(Edit2.Text));
Except Edit3.Tcxt := ’Ошибка ввода!';
абзД* end;
procedure TForml.Button3Click(Sender: TObject); begin Try
Edit3.Text := FloatToStr(StrToFloat(Editl.Text) * StrToFloat(Edit2.Text));
Except
Ed;t3.Text := ’Ошибка ввода!';
end ; end;
procedure TForml.Button4Click(Sender: TObject); begin
К .
BdltS.Text := FloatToStr(StrToFloat(Editl.Text) /
StrToFloat(Edit2.Text));
Except
Edits.Text : = 'Ошибка ввода!';
end;
end;
Заметим, что программа в таком виде будет защищена и от ошибки деления на ноль, так как соответствующая исключительная ситуация будет обработана в методе Rut ton4c. i - ■ тем же блоком, что и ошибка некорректного числового формата.
На этом мы Закончим общее описание основ и начнем подробно разбирать некоторые существенные аспекты программирования в Delphi. Модуль, соответствующий форме нашего приложения, полученный в результате разработки, приведен в листинге 12.2.
Листинг 12.2. Модуль формы (окончательный вариант)
unity Unitl;
interrage идет
Windows, Message®, SysUtils, Variants, Classes, Graphics, Contgggls, Forms, Dialogs, StdCtrls;
type
TForml = class(TForm)
Labell: TLabel;
Labe12: TLabel;
LabelS: TLabel;
Editl. TEdit;
Edit2: TEdit;
Edit о TEdit;
Buttonl: TButton;
Button?: TButton;
ButtonS: TButton;
Button4: TButton;
procedure TForml.ButtonlClick(Sender: TObject);
procedure TForml.Button2Click(Sender: TObject);
procedure TForml.ButtonSClick(Sender: TObject);
procedure TForml.Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations )
end;
var
Formi: TForml;
implementation {$R *.dfm)
procedure TForml.ButtonlClick(Sender: TObject);
begin Try
Bdit3.Text : = FloatToStr(StrToFloat(Editl.Text) + StrToFloat(Edit2.Text));
Expept
Edit3.Text := 'Ошибка ввода!';
end;
end;
procedure TForml.Button2Click(Sender: TObject);
begin Try
Edit3.Text : = FloatToStr(StrToFloat(Editl.Text) - StrToFloat(Edit2.Text));
ExcepS™ 1
Edits.Text := 'Ошибка ввода!'; end;
end;
procedure TForml.ButtonSClick(Sender: TObject);
begin Try
Edits.Text := FloatToStr(StrToFloat(Editl.Text) * StrToFloat(Edit2.Text));
Except
Edits.Text := 'Ошибка вводаP;
end; end;
procedure TForml.Button4Click(Sender: TObject);
begin Try
Edits.Text := FloatToStr(StrToFloat(Editl.Text) / StrToFloat(Edit2.Text));
Exeept
Edits.Text := 'Ошибка ввода!';
end;,
end;
Вопросы с ответами для повторения по части III
Поясните понятия проекта и группы проектов в Delphi
Ответ: Проектом называется некоторый логически законченный набор файлов. Такая организация файлов позволяет среде разработчика следить за возможными изменениями и учитывать их в процессе компиляции. Это особенно важно с у <етом того, что один и тот же файл может использоваться в разных проектах.
Группой проектов называется набор проектов. Объединение проектов в группу существенно упрощает параллельную разработку нескольких проектов.
1 у 1 Опишите основные инструменты, предназначенные . для организации проектов и их групп
Ответ: Команды, предназначенные для управления проектом и группой проектов, собраны в подменю Project и File главного меню интегрированной среды разработчика. Среди пунктов подменю File следует отметить такие пункты, как Save Pro с as, Save All, Open и Reopen, управляющие соответственно сохранением и открытием проектов и групп проектов. В подменю Project наиболее используемыми являются Add to Project, ' Remove from Project, Compile Project, Compile All Projects, Build, Build All Projects, Syntax Check и pt ions предназначенные соответственно для добавления и удаления файлов из проекта, компиляции и построения активного проекта или всех проектов в группе, синтаксической проверки активного проекта, а также настроек проекта.
Для работы с группами проектов предназначен диалог Менеджера проектов, который представляет структуру группы проектов в-виде дерева, и может быть выведен на экран с помощью пункта главного меню View--Project Manager. Добавление проекта в группу с помощью данного диалога производится кнопками New и Remove, а активизация какого-либо проекта из группы — мышью или кнопкой Activate.
Э
Расскажите о файлах, соответствующих
каждой форме приложения в Delphi
Ответ: Среда Delphi автоматически формирует и дополняет в процессе визуального построения приложения два файла:
» файл описания формы (имеет расширение dfm), в котором содержится описание интерфейсных элементов, расположенных на форме. Файл описания формы используется системой для внутренних целей, а именно, для хранения значений свойств компонентов, которые представлены в Инспекторе объектов во время визуального построения формы. Изменение данного файла практически никогда не требуется, а основная часть работы происходит с файлом модуля.
• файл модуля формы (имеет расширение pas), в котором располагается описание класса формы — наследника класса TForm Класс формы является логическим отображением формы и содержит, например, ссылки на все интерфейсные компоненты, добавленные на этапе визуального проектирования. Также обработчики событий от компонентов, расположенных на форме, обычно являются методами класса формы.
В
Опишите структуру приложения на Delphi, расскажите о видах интерфейса приложения с точки зрения расположения его окон на экране
Ответ: Приложение состоит из одного или нескольких окон, одно из которых является главным. По умолчанию главным окном разрабатываемого приложения является то, которое создается при открытии нового приложения. Соответственно, при запуске программы, это окно сразу же будет отображено на экране. Какое именно окно является главным, можно указать в диалоге Project Options, вызываемом с помощью пункта главного меню Project- Options Остальные формы отображаются на экране после вызова их методом Show.
Приложения Delphi поддерживают два вида пользовательского интерфейса:
« MDI — Mu t Document Interface — Интерфейс множества документов, когда окно является главным, а все остальные окна находятся в его пределах. Такой интерфейс использован, например, в Microsoft Word.
* SDl — Single Document Interface — Приложение одного документа, когда одно окно является главным, но остальные окна могут самостоятельно перемещаться по экрану, независимо друг от друга и от главного окна (если иное не предусмотрено логикой программы). Такой интерфейс реализован в среде разработчика Delphi.
S Опишите процесс построения приложения в Delphi
Ответ: Построение приложения на Delphi состоит из следующих основных этапов:
Создание проекта с помощью главного меню среды разработчика (Rle-> New->Application), или с помощью Менеджера проектов (кнопка New).
Визуальное проектирование пользовательского интерфейса в виде формы, на которой располагаются элементы управления, перенесенные из Палитры компонентов. Поведение компонентов настраивается с помощью свойств, представленных в Инспекторе объектов.
Наполнение функциональностью интерфейса, полученного в результате визуального проектирования, через реализацию событий компонентов.
Обеспечение устойчивой работы приложения через обработку исключительных ситуаций, реализация более дружественного взаимодействия с пользователем с помощью вывода на экран дополнительной информации для пользователя.
- Опишите основные инструменты среды разработчика Delphi
i Ответ: Среда разработчика Delphi реализована по принципу SDI — приложение одного документа — и состоит из набора окон, которые могут быть расположены в любом месте экрана независимо друг от друга. Можно указать основные окна, используемые при разработке большинства программных продуктов:
Главное окно с Палитрой компонентов и главным меню.
Инспектор объектов, предназначенный для настройки компонентов, расположенных на форме.
Менеджер проектов, предназначенный для удобной работы с группами проектов.
Окно исходного текста программы, предназначенное для реализации логики программы, которая не может быть достигнута путем визуального построения.
Окно навигации по коду и окно дерева объектов формы, позволяющие быстро перемещаться между элементами программы.
ЧАСТЬЧАСТЬZ«& 13Z«& 137.<at«a t47н* /57ato Гб7.<at«a t47н* /57ato ГбВИЗУАЛЬНЫЕ КОМПОНЕНТЫВИЗУАЛЬНЫЕ КОМПОНЕНТЫ■ НЕВИЗУАЛЬНЫЕ КОМПОНЕНТЫ■ НЕВИЗУАЛЬНЫЕ КОМПОНЕНТЫСОЗДАНИЕ КОМПОНЕНТОВ ВО ВРЕМЯ ВЫПОЛНЕНИЯ ПРОГРАММЫСОЗДАНИЕ КОМПОНЕНТОВ ВО ВРЕМЯ ВЫПОЛНЕНИЯ ПРОГРАММЫ
ЧАСТЬ
ЧАСТЬ
Z«& 13
Z«& 13
7.<at«a t4
7н* /5
7ato Гб
7.<at«a t4
7н* /5
7ato Гб
ВИЗУАЛЬНЫЕ КОМПОНЕНТЫ
ВИЗУАЛЬНЫЕ КОМПОНЕНТЫ
■ НЕВИЗУАЛЬНЫЕ КОМПОНЕНТЫ
■ НЕВИЗУАЛЬНЫЕ КОМПОНЕНТЫ
СОЗДАНИЕ КОМПОНЕНТОВ ВО ВРЕМЯ ВЫПОЛНЕНИЯ ПРОГРАММЫ
СОЗДАНИЕ КОМПОНЕНТОВ ВО ВРЕМЯ ВЫПОЛНЕНИЯ ПРОГРАММЫ
КОМПОНЕНТЫ И их
ИСПОЛЬЗОВАНИЕ
АРХИТЕКТУРА СИСТЕМЫ
КОМПОНЕНТОВ DELPHI
^^ /7^^ /7
^^ /7
^^ /7
ИСПОЛЬЗОВАНИЕ ДИАЛОГОВЫХ КОМПОНЕНТОВ
‘ i ФОРМЫ
ОСНОВЫ DELPHI.
Профессиональный подход
Тлабд
Архитектура системыкомпонентов Delphi
Задача настоящей главы — глубокое изучение структуры компонентов Delphi в целом и основ использования различных групп компонентов. Для начала мы изучим верхний уровень иерархии компонентов, о котором уже начали говорить в предыдущих главах, а затем перейдем к детальному рассмотрению классов, на основе которых построены компоненты, представленные в Палитре компонентов главного окна интегрированной среды разработчика Delphi.
Класс TObject
На рис. 13.1 представлен верхний уровень иерархии компонентов Delphi. Ключевой класс, наследниками которого являются не только компоненты, но и вообще все классы в Delphi-программе, называется TObject.
Рис. 1 3. 1. Иерархия компонентов Delphi
Данный класс обеспечивает фундаментальные основы поведения, присущие всем без исключения объектам, инкапсулируя методы, которые:
Создают и разрушают экземпляры классов, выделяя и освобождая память, а также инициализируя объекты.
Реагируют на создание и разрушение экземпляров классов.
Возвращают информацию об объектах и классах, к которым принадлежат эти объекты, а также информацию времени выполнения (RTTI — Run Time Type Information) о published-свойствах, реализованных в соответствующих классах.
Поддерживают обработку событий объектами.
Поддерживают интерфейсы, реализуемые классами.
Поддержка жизнедеятельности объектов
Создание объекта
Создание экземпляра класса с точки зрения программы производится с помощью вызова конструктора соответствующего класса. Конструктор определен в классе TObject в следующем виде:
Constructor reate;
Конструктор класса TObject выделяет в памяти место под объект и заполняет это место нулевыми значениями. Дополнительная инициализация данных не происходит, так как класс TObject не располагает информацией о полях своих наследников. Если какое-либо поле наследника класса TObject (а наследниками этого класса являются все классы в Delphi) должно иметь при создании экземпляра класса значение, отличное от нуля, то в этом случае необходимо переопределение конструктора.
Механизм работы конструктора основан на использовании трех дополнительных методов класса TObject:
class Function t т . t TObject; virtual;
class Function Initlnstanceflnstance: Pointer): TObject; class Function Insti i ;
При вызове конструктора, управление передается методу Newlnstance, который с помощью метода InstanceSize определяет объем памяти, необходимый для размещения нового объекта, выделяет память, и вызывает метод Initlnstance. В свою очередь метод Initlnstance заполняет выделенную память нулевыми значениями и инициализирует таблицу виртуальных методов. Таким образом, результатом работы метода Newlnstance является ссылка на вновь созданный объект.
Несмотря на то, что метод N wI in - является виртуальным, так как помечен ключевым словом virtual, его переопределение практически никогда не требуется. Изменение данного метода в наследниках может быть необходимо для более гибкого управления памятью при одновременном создании множества объектов одного и того же класса. В случае изменения метода Newlnstance потребуется и адекватное изменение метода Free inat псе, рассмотренного ниже при описании механизма разрушения экземпляров класса
Таким образом, конструктор выполняет минимально необходимые действия для создания объекта. Поэтому при его переопределении сначала должна быть вызвана версия конструктора, описанная в родительском классе. Напомним, что родительские версии переопределенных методов, в том числе и конструкторов, вызываются с помощью указания ключевого слова Inherited.
Рассмотрим небольшой пример создания класса — наследника •■ , в котором переопределен конструктор для дополнительной инициализации свойства. Код примера приведен в листинге 13.1.
Листинг 13.1. Пример создания класса — наследника TObject
Unit Unitl; Interface
Type
MyClass = Class(TObject) private
fName: String; (ОписанияФвсйстйв, кото® необходимо инициализировать в конструкторе} public
Constructor Create; б -■ ши ■ на необЗййдимЬсть
переопределения конструктора) end;
Implementation
Constructor МуСlass.Create;
begin
Inherited;(Вызов рНтвьской Верейй коне®5*
РуЦЭДУм ~ выделение пёяти и ицжЩт ализация полей нулевыми значениями)
fNee : = 'MyClass'; ‘С (дополнительная йсЯЬлиуЬм свойства fName)
end; end.
В заключение добавим, что, если в конструкторе произошла исключительная ситуация, то ее можно обработать обычным образом — с помощью блока обработки Try.Если же исключительная ситу
ация не будет обработана, то есть она выйдет за пределы конструктора, то работа конструктора заканчивается, и вызывается деструктор для освобождения памяти, уже занятой под ошибочный экземпляр класса.
Разрушение объекта
Разрушение экземпляра класса производится с помощью вызова метода Free класса TObject, описанного в следующем виде:
Procedure Free;
Метод Free должен быть вызван для любого объекта, созданного во время выполнения программы и не имеющего владельца39, а для объектов, имеющих владельцев, метод Free будет вызван автоматически. Метод Free проверяет, не является ли ссылка на объект, для которого j : о: метод вызывается, нулевой, и, если ссылка корректна, вызывает деструктор объекта, описанный в классе TObject следующим образом:
Destructs^ Desfcjfiy.; virtual;
Таким образом, вызов метода Free, в отличие от прямого вызова 1 у, не заканчивается ошибкой, если ссылка на объект, для которого Free вызывается, пуста, то есть имеет значение nil. Однако заметим, что, если ссылка некорректна то есть указывает на некоторый ненулевой адрес памяти, в котором нет объекта для разрушения, то метод Free будет работать некорректно, причем поведение программы в этом случае непредсказуемо.
Когда метод Free вызывается для экземпляров-наследников класса TComponent, которым принадлежат другие компоненты, метод Free будет вызван для всех этих компонентов. Благодаря этому с разработчика снимается необходимость внимательно следить за множеством объектов, созданных в программе. Так, например”разрушаются объекты, соответствующие интерфейсным элементам, расположенным на формах, при разрушении формы методом Free. Аналогичные методы вызываются и для компонентов, которые принадлежат форме.
Все формы в Delphi, в свою очередь, по умолчанию принадлежат объекту А! । класса plica , создаваемому в главном файле про
екта. Класс Application является наследником TComponent. Поэтому при разрушении Application, разрушаются и формы, созданные в приложении.
” Понятие принадлежности (наличия «владельца») определено только для компонентов и описано в данной главе при обсуждении класса Г( ompo lent
Деструктор Destroy не предназначен для прямого вызова, однако именно в нем реализуется освобождение ресурсов, полученных экземпляром класса при вызове конструктора или во время его работы. Для переопределения деструктора следует указывать ключевое слово override, так как он является виртуальным методом (помечен ключевым словом virtual в описании класса . ject). При изменении деструктора в классе-наследнике последней строкой должен быть произведен вызов родительской версии переопределенного деструктора. Это необходимо для корректного завершения жизненного цикла объекта.
Деструктор, описанный в классе TObject, освобождает память, занятую под объект, с помощью методов Cleanupinstance и Freelnstance:
Procedure 1 pl i з t а псе ;
Procedure Freeinst ic ; virtual;
Метод Cleanupinstance освобождает память, занятую под динамические строки и вариантные структуры данных. Таким образом, он в некотором роде аналогичен методу Tnit nst аг.се, вызываемому конструктором для начального обнуления данных объекта. Метод Freelnstance выполняет действия, противоположные методу Newlnstance, то есть освобождает память, выделенную в методе Newlnstance, используя значение» возвращаемое методом Instances ze.
Отметим, что деструктор может быть вызван не только методом Free в ходе нормального разрушения объекта, но и при исключительной ситуации, возникшей при выполнении конструктора. Таким образом, перед освобождением ресурсов, которое производится в деструкторе, следует проверить, выделены ли эти ресурсы на самом деле.
В заключение приведем пример переопределения деструктора для освобождения памяти, выделенной в конструкторе (см. листинг 13.2).
Листинг 13.2. Пример переопределения деструктора для освобождения памяти, выделенной в конструкторе
Unit Onitl;
Interface
Type
MyClass = Class (TObject)
private
fMemory: Pointer;
public
Constructor Create;
Destructor Destroy;
end;
Implementat i on
ConstrudtoJU MyClass.Create;
begin
Inherited;(Вызов переопределенного конструктора,
выделение памяти под объект, инициализация полей. В поле fMemory автоматически заносится значение nil}
GetMem(fMemory, 1024);
Выд мнение памяти пок’ перемеШгЯРЗГМетОГУ * размером тЕмм байт, в этом месте жэжет ^ц$о:|ЙйУбги исключителиая СЯТуйЦИЯ)
end;.
DestrucaoH ИуС1аяя.Destroy; I
Ье<й.п
it Жешогу <> п^р,
(Проверка на корректность ссылки. Если при выделении памяти произошла ошибка, то в поле ■Memory нахдится/' nil)’\
’■г;'#гееМет( fMemory, 1024) ;
•ЧОсВбИожДвИМЯэт, если он ™ была ■.. ъ
InhepSed; egj;
end.
Реакция на созданиеи разрушение объектов
Реакция на создание и разрушение экземпляров классов обеспечивается в Delphi методами After >nst 11 ct ion и BeforeDestruction, описанными в классе I 1 у t :
Procedure AfterConstruction; virtual;
Procedure BeforeDestruction; virtual;
Оба метода, описанные в классе TObject, не выполняют каких-либо действий, и предназначены для переопределения в классах-наследниках.
Метод AfterConstruction вызывается автоматически после полного и безошибочного завершения конструктора. В принципе, все действия, которые обычно выполняются в переопределенных версиях этого метода,/можно было бы выполнить и в конструкторе.
Однако реализованная в Delphi структура объекта более корректна. Поясним, почему. При возникновении исключительной ситуации в конструкторе объект не будет создан, а вместо этого будет вызван деструктор. С другой стороны, при ошибке в методе AfterConstruction объект будет создан, а исключительная ситуация будет выброшена за пределы объекта.
Например, класс формы 'Form, который является наследником TObject, переопределяет метод ‘ : ■ 1 - ; - । ■ для вызова обработчика сообщения о создании формы. Если обработчик вызывался бы из конструктора, то при ошибке в нем не был бы создан объект формы. Выходом из такой ситуации может быть защищенный вызов процедуры-обработчика из блока Try. . ■ ерг. Однако в этом случае будет затруднена отладка приложения, так как разработчик не получит уведомление об исключительной ситуации.
Если при создании экземпляра класса конструктор выполнен без ошибок, то при разрушении этого экземпляра непосредственно перед вызовом деструктора будет автоматически вызван метод В« oreDestruction.
Таким образом, методы AfterConstruction и BeforeDestruction предназначены для выполнения действий, специфичных для объектов некоторого класса, в котором эти методы могут быть переопределены, причем в момент их вызова объект не находится ни в стадии создания, ни в стадии разрушения, то есть возможен доступ ко всем структурам объекта.
Информация об объектах и классах
В классе TObject реализованы методы, возвращающие различную информацию об экземплярах классов, необходимую во время выполнения программы для доступа к методам и свойствам, в том числе и к published- свойствам. Большинство методов используется Delphi для внутренних целей и не рекомендуется к использованию в приложениях.
Наиболее простые методы такого рода — это '. 11 - и asst imels, возвращающие, соответственно, название класса, экземпляром которого является объект, из которого вызывается метод ClassName, и признак принадлежности объекта к классу, заданному именем:
class Function ClassName: Shortstring;
class Function lassN ret (Const Name: string): Boolean;
Для определения места заданного объекта в иерархии классов предусмотрены методы ClassParent, ClassType и Tnhei tsE < m, возвращающие, соответственно, ссылки на родительский и свой класс, а также признак принадлежности к заданному классу, эквивалентный оператору is.
class Function ClaKAarent: TClass;
Function Cla^sType: TClass;
class Function It ■~ гот (a 1. TClass) : BoojSlin;
Тип данных TClass, использованный в приведенных описаниях является, так называемым метаклассом или ссылкой на класс — указателем на область памяти, в которой находится КП 1-ннформа 1ИЯ о заданном объекте. Еще один метод, аналогичный вышеописанным, это 1 ass nt возвращающий нетипизированный указатель на таблицу RTTL
class Function Classinfo: pHnter;
Использование данного метода — редкое явление, более того, формат таблицы, на которую возвращается ссылка, может быть изменен в более поздних версиях Delphi, поэтому обычно используются другие методы для получения информации времени выполнения.
Оставшиеся методы, поддерживающие работу объекта во время выполнения программы, сводятся к операциям с адресами методов и свойств:
Function FieldAddress(Const Name: ShortString): Pointer; class Function MethodAddress(Const Name: ShortString): Pointer; class Function "■ 1 . . ;: : (A idr ss:ter): ShortString;
Как видно из названий этих методов, они возвращают ссылки на свойства и методы по заданным именам,*и имена методов по заданному адресу.
Обработка событий объектов
Объекты, унаследованные от TObject, могут обмениваться событиями с системой и между собой. Каждое событие имеет свой идентификатор, на основе которого специальный метод Dispatch класса TObject может выбрать метод, который обрабатывает заданное событие.
Procedureh (var ; ) virtual;
Если метод Dispatch не может обнаружить необходимый метод, он вызывает метод Def . _ - Нan Пег, передавая ему сообщение, гполучен- ное в качестве параметра:
Procedureг (var) virtual;
Объектные интерфейсы
Понятие интерфейса в Delphi
Введение механизма объектных интерфейсов в Delphi призвано восполнить отсутствие так называемого множественного наследования, используемого в некоторых языках программирования, например в С-гН.
Множественное наследование заключается в возможности создания некоторого дочернего класса на основе не одного, а нескольких родительских. Данный инструмент может быть очень удобным в программировании для наделения нескольких разных классов, не являющихся потомками одного и того же класса, одинаковой дополнительной функциональностью .
Например, в Delphi предусмотрена целая линейка визуальных компонентов, унаследованных от класса 7W г • в котором предусмотрено множество свойств и методов, присущих окну в Windows. Однако для управления окном в Windows предусмотрены и некоторые функции, не реализованные в Delphi по тем или иным причинам. Например, в Windows существует возможность изменять форму оконного компонента, а в Delphi нет. Если метод, устанавливающий форму окна, будет добавлен в класс TWinControl, то все наследники этого класса получат к нему доступ, но для этого требуется перекомпилировать стандартную библиотеку визуальных компонентов Delphi, что невозможно.
Множественное наследование могло бы помочь решить эту проблему через объединение всех оконных классов с некоторым другим, который поддерживает работу с формой окна. Описанный случай на самом деле является практически единственным (кроме случая вообще не связанных между собой классов), когда множественное наследование действительно необходимо. Во всех остальных случаях можно обойтись и без него, так как если доступ к классу — общему родителю других классов — открыт, то необходимую функциональность можно добавить и к нему.
К недостаткам множественного наследования можно отнести сложность в использовании, в частности, из-за проблем пересечения идентификаторов в объединяемых классах и усложнении иерархии классов. Вообще, современные языки программирования, в основном, отказываются от поддержки множественного наследования40, взамен предлагая механизм интерфейсов.
Итак, объектный интерфейс в Delphi, или просто интерфейс, представляет собой описание структуры, аналогичной классу, за исключением того, что интерфейсы не имеют свойств, методы интерфейса не должны (и не могут) быть реализованы, а экземпляр интерфейса не может быть создан в программе. Также интерфейсы не поддерживают областей видимости, и все их методы являются доступными для любых фрагментов программы, то есть, на самом деле, имеют область видимости public. Описание интерфейса производится в разделе Туре и выглядит следующим образом:
411 Например, Java и С #
Туре
<Название интерфейса» = Interface(<Назваиие родительского интерфейса»);
;■ метода 1>;
Оаголовок метода >, end;
Таким образом, описание интерфейса аналогично описанию класса, все методы которого абстрактные. Сам интерфейс в программе смысла не имеет, а предназначен для реализации его в описаниях классов, в связи с чем интерфейсная часть описания класса может быть расширена указанием, какие именно интерфейсы поддерживаются данным классом (реализованы в нем):
Туре
TinterfacedObject = class(<Родительский класс>, <Интерфейс 1>, . . ., СИнтерфейс N>) ;
Оаголсзки методов, описанные в интерфейсах> end;
При описании класса, который реализует один или несколько интерфейсов, в заголовке интерфейсной части его описания необходимо указывать название родительского класса, даже если этим классом является .. Все методы, заявленные в указанных интерфейсах,
жны быть приведены в интерфейсной части описания класса, и затем реализованы в его описательной части, либо помечены ключевым словом abstract.
Рассмотрим пример использования интерфейсов в программе (листинг 13.3). Опишем два интерфейса, а затем класс, который их реализует, процедуру, в которой создается экземпляр данного класса, присваивается ссылке на интерфейс, а затем по этой ссылке вызывается метод,^заявленный интерфейсом и реализованный классом.
Листинг 13.3. Пример использования интерфейсов в программе
Unit Usinginterfaces;
Interface
Type
Interfacel = Interface
Procedure IntlMethod;
end;:■ и< интерфейса, заявлен один метод
(процедура) In Me hod)
Interface2 = Interface
Function Int2Method: integer;
end;{Описание интерфейса, заявлен один метод
(целочисленная функция) Int2Method)
InterfacedClass = Class (TObject, Interfacel, Interface2) {Описание ) ^ласса-наммЛникя* TComponent, реализующего два интерфейса — Interfacel и 1Interfасе2}
Procedure IntlMethod;
(Заголовок метода IntlMethod, который будет реализован в описательной части модуля)
Function Xnt2Method: Integer; virtual; abstract;
' и . । di- метиНЕ Int2Merhcd, «торый не будет реализован, так как является абстрактным) end;
Implementation
Procedure InterfacedClass.IntlMethod;
begin (Реализация метода) end;(Описание метода IntlMethod класса
InterfacedClass, представляющего собой реаВзацивэ с-НивД^твуЯдегс> медщдй интерфейса Interfacel)
Procedure Useinterface;
Var
Int: Interfacel; писав ие ссылки ЙВ wfe^, рЛлизующий интерфейс Interfacel)
IntClass: InterfacedClass;
(Описание ссылки на класс InterfacedClass) begin IntClass := InterfacedClass.Create;
(Создание экземпляра класса InterfacedClass и занесение ссылки в переменную-указатель на интерфейс)
Int := IntClass;{Копирование ссылки на класс в переменную- ссылку на интерфейс Interfacel. Операция допустима, так как в классе InterfacedClass
, УВаМВован ^Верфейс ■ i • : fact 1 .
Int.IntlMethod; (Вызов метода интерфейса Interfacel из экземпляра класса InterfacedClass)
IntClass . Free; I . : /шс1 ие ове^Щ чеДз переменщЙНссВлку на класс, так как в интерфейсе Interfacel не описан метод Free.)
end;
End.
Базовый интерфейс llnterface
Интерфейсы, так же как и классы, поддерживают наследование. То есть класс, реализующий некоторый интерфейс, должен описать все методы, заявленные в этом интерфейсе, и методы, заявленные в его родительском интерфейсе.
Если интерфейс описывается без указания родительского интерфейса, то его родителем считается интерфейс llnterface 2 В данном интерфейсе описаны следующие методы, поддерживающие работу со ссылками на экземпляры классов, реализующих интерфейсы:
Function■ Integer; stdcall;
Function Release: Integer; stdcall;
Function Queryinterface (const IID: TGUID; out Obj):
stdcall;
Методы AddRef иуправляют счетчиком обращений к ин
терфейсу, то есть количества созданных экземпляров интерфейса.
Метод .:■: :возвращает ссылку на интерфейс, заданный его
уникальным идентификатором. Запрашиваемый интерфейс должен быть реализован классом, из экземпляра которого вызывается метод Queryinterface.
Глобальный уникальный идентификатор GUID
В описании интерфейса можно указать его глобальный уникальный идентификатор (от англ. GUID — Globally Unique Identifier) — строку символов, имеющую следующий вид:
[' (хххххххх-хххх-хххх-хххх-хххххххххххх)' ]
где х может быть любой шссгши (атеричной цифрой (от ‘О' до ■ Данный идентификатор необходимо добавлять в описание интерфейса для поддержки работы функций, определяющих принадлежность объектов интерфейсам во время выполнения программы. Новый GUID можно сформировать, нажав комбинацию клавиш Ctrl+Shift+G в окне редактирования текста.
Описание интерфейса с GUID выглядит следующим образом:
Туре
<Название интерфейса> = Interface(<Название родительского интерфейса>);
[*{хххххххх-хххх-хххх-хххх-хххххххххххх)* ]
метода I>;
Оаголовок метода >
end;
4? В Delphi предусмотрен еще один базовый интерфейс, аналогичный I Interim . для поддержки < ।)М объектов Этот интерфейс называется II Inknown. является наследником llnterface, и реализуется системой автоматически при использовании 1 ОМ технологии
Поддержка интерфейсов классом TObject
llu.; юржка интерфейсов реализована в классе i е тремя методами:
GetlnterfaceTable .... возвращает ссылку на таблицу интерфейсов,
реализованных в классе, из экземпляра которого вызывается этот метод.
GetlnterfaceGetlnterfaceвозвращает ссылку на заданный через GUID
Getlnterface
Getlnterface
интерфейс.
GetlnterfaceEr.tryвозвращает информацию о расположении интерфейса внутри объекта.
Описание методов таково:
class Function GetlnterfaceTable: PInterfaceTable;
Function Getlnterface(Const IID: TGUID; out Obj) : Boolean;
class Function GetlnterfaceEntry(Const IID: TGUID):
PinterfaceEntrу;
В функциях, которые принимают в качестве параметра глобальный уникальный идентификатор, допускается указание названия интерфейса, вместо которого GUID будет подставлен автоматически.
Класс TPersistent
Класс TPersistent является следующей ступенью компонентной модели Delphi после класса TObject и инкапсулирует методы для поддержки переносимости информации из одного объекта в другой, а также для записи и чтения значений свойств объектов в потоки, в том числе и файловые (например, в файлы форм).
Переносимость информациимежду объектами
В любой момент времени выполнения программы состояние экземпляра класса определяется набором значений его свойств. В классе TPersistent определены методы Assign и AssignTo для копирования значений из одного объекта в другой объект того же класса.
Procedure < ) virtual;
Procedure AssignTo (Dest: TPersistent); virtual;
Метод Assign предназначен для занесения свойств объекта, заданного параметром Source, в свойства объекта, для которого вызывается данный метод. В классе TPersistent метод Assign реализован таким образом, что вызывает метод AssignTo того объекта,
который задан параметром Source. Обычно метод Assign переопределяется в классах-наследниках для перенесения значений свойств, присущих экземплярам именно этого класса.
Метод ~ предназначен для присвоения значений свойств объекта, из которого он вызывается, свойствам объекта, заданного параметром Dest, и по умолчанию выбрасывает исключение -
В качестве примера использования переноса значений свойств можно привести класс ■ . реализующий многострочный редактор. И хотя в самом классе ТМето метод Assign не переопределен, и при попытке его вызова выбрасывается исключение EConvertError с сообщением ’ assign a TMemo to a :i но данный метод определен в свойстве Lines и ого класса.
В свойстве Lines находятся строки текста, введенные пользователем в процессе работы с компонентом. Вызов метода Assign для свойства Lines одного экземпляра класса ТМето с указанием свойства Lines другого экземпляра класса ТМето в качестве параметра, приводит к копированию введенной пользователем информации из одного многострочного редактора в другой:
Memol.Lines.Assign(Memo2.Lines);
Сохраняемость свойств
В Delphi реализована возможность сохранения property-свойств без каких-либо дополнительных усилий со стороны разработчика прикладного программного обеспечения для всех классов без исключения, в том числе и не являющихся наследниками TPersistent. Под сохраняемостью же свойств экземпляров именно этого класса понимается возможность сохранения свойств объектов, не заявленных в секции published, в файлы форм и другие потоки данных. Такая возможность может потребоваться при создании компонентов, свойства которых ссылаются на другие компоненты, созданные во время выполнения программы или ее визуальной разработки43.
Для поддержки сохраняемости свойств предназначен метод DefineProperties, который вызывается при записи или чтении свойств объекта, и должен быть переопределен для выполнения специфических для соответствующего класса действий:
Procedure Propert:- ( er: ; ; virtual;
Необходимо отметить, что с точки зрения компонента время выполнения программы и визуальная разработка практически не отличаются друг от друга, так как во время визуальной разработки создается реальный экземпляр компонента и вызываются все необходимые методы.
Методу Define Properties передается ссылка на объект, предназначенный для чтения и записи компонентов в поток. С помощью данной ссылки объект, переопределивший метод Define Properties, может записать в заданный поток любую информацию, или считать ее из потока. Более глубокое изучение метода имеет смысл только для разработчиков сложных компонентов и выходит за рамки нашей книги.
Класс TComponent
Класс TComponent является базовым классом для всех компонентов в Delphi и реализует следующие возможности:
Интеграция с IDE Delphi, то есть возможность находиться в Палитре компонентов IDE и участвовать в процессе визуального проектирования.
Поддержка свойства принадлежности, то есть управления другими компонентами.
Поддержка сохраняемости и восхчаш-.в.шваемипи. реализованная в классе TPersistent.
Поддержка технологии СОМ, то есть возможности экспорта компонентов в компоненты ActiveX или импорта компонентов ActiveX в компоненты Delphi.
Именование компонентови доступ к ним из программного кода
Именование компонентов во время разработки
Поскольку визуальная разработка приложения в Delphi подразумевает использование в программном коде ссылки на компонент, добавленный на форму средствами визуального построителя, то компоненты должны поддерживать некоторые правила именования для обеспечения совместного доступа к ним из модуля формы и из построителя.
Для создания пространства имен компонентов в класс TComponent введено property-свойство Name, доступное во время визуальной разработки программы через Инспектор объектов. В модуле формы данный идентификатор является ссылкой на соответствующий компонент для доступа к нему во время выполнения программы.
При перенесении компонента на форму из Палитры компонентов ему назначается имя по умолчанию, состоящее из имени класса без префикса «Т» и порядкового номера компонента данного класса на форме. Например, при добавлении на форму первого компонента типа
TLabel ем) назначается имя 1. При добавлении второго такого же компонента ему будет назначено имя и так далее.
Одновременно с добавлением компонентов на форму IDE автоматически изменяет модуль формы, добавляя в описание класса формы ссылки на новые компоненты:
TForml = class(TForm) jbbabell: tibabel;
Label2: TLabel;
Label!: TLabel;
private
{ Private declarations } public
{ Public declarations }
end;
Во время визуальной разработки возможно изменение имени активного компонента. При этом название ссылки на него в классе формы изменяется соответствующим образом. Например, если переименовать компонент ! 1 в о .то класс формы будет выглядеть следующим образом:
TForml = class(TForm)
HfSerName: TLabel;
Label£g "TLabel;
Label3: TLabel;
private
{ Private declarations } public
{ Public declarations } end;
Заметим, что ссылки на компоненты, описанные в классе формы, имеют область видимости published. При попытке изменить область видимости приложение не сможет быть запущено, а на экран будет выведено сообщение о невозможности обнаружить ссылку на компонент в классе формы:
TFormHgN class (TForm)*!
private
{ Private declarations }
ILJserName: TLabel;
Label2:;
Label3: TLabel;
public
{ Public declarations }
-end;
Сообщение имеет следующий вид: "Exception EClassNotFound in module ... at . . . " .
Именование компонентов во время выполнения программы
Свойство Name, имеет область видимости published, причем оно может быть как считано, так и изменено в процессе выполнения программы. Однако ссылки на компонент, имя которого изменено во время выполнения программы, теряют актуальность, а их использование недопустимо.
Проиллюстрируем описанную особенность свойства Name на примере. Создадим новый проект, в котором автоматически будет открыта одна форма (листинг 13.4)
Листинг 13.4. Модуль формы без добавленных к ней компонентов
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Variants, Cla’sses, Graphics, Controls, Forms, Dialogs;
type
TForml = class(TForm)
private
{ Private declarations } public
{ Public declarations } end;
var Formi: TForml;
implementation
($R *.dfm) end.
Теперь добавим на форму компонент : idle. которому будет автоматически присвоено имя Labell, и компонент п ut -, которому при-
своится имя । I (см. рис. 13.2).
/ Form!
. Labell ■ . ■
Buttonl
Рис. 73.2. Разработка формы
Перейдя на закладку Events Инспектора объектов, создадим обработчик события Onclick компонента г Внутри обработчика (соответственно, данный фрагмент кода будет выполнен во время выполнения программы после нажатия на кнопку) изменим имя компонента Label! на другое (LabelNotl):
procedure TForml.ButtonlClick (Sender: TObject); begin
Labell.Name := 'LabelNotl';
spa;
Таким образом, модуль формы будет выглядеть так, как в листинге 13.5:
Листинг 13.5. Модуль формы
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForml = class(TFо rm)
Labell: TLabel;
Buttonl: TButton;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations } end;
var Formi: TForml;
implementation {$R *.dfm)
procedure TForml.ButtonlClick(Sender: TObject); begin Labell.Name := 'LabelNotl'; end; end.
Запустим приложение и нажмем на кнопку Butt t При этом название компонента Lab ell изменится на LabelNotl, что будет видно на экране по изменению подписи на этом компоненте. При повторном нажатии на кнопку приложение уже не сможет найти компонент , программа будет приостановлена, и на экране появится сообщение об ошибке, выданное средой разработки: ‘ го ' Projectl.exe raised exception class EAccessViolation with message ' : violation at address 0044EAC7 in module '■ ■■ : ' . Read
of address 1’. Process stopped. Use Step or Run to
■■ -' Затем, при попытке возобновления программы, будет выдано более короткое: ’А -- violation at address 0044ЕАС7 in
module '1:'. Read of address 00000 00 0'.
Таким образом, изменение имен компонентов во время выполнения программы приводит к невозможности работы с ними. Однако определение имени компонента, то есть чтение свойства Name, может быть очень полезным для решения широкого круга задач. В качестве примера приведем процедуру, которая сравнивает название заданного ей в качестве параметра компонента с некоторой строкой7 и при их идентичности выполняет какие-либо действия:
procedure Checkcomponent(Component: TComponent; EtalonName: String); begin
If :-.'.■■.- = EtalonName Then . . .;
end;
С помощью аналогичных подпрограмм можно реализовать, например, запрещение доступа пользователя к некоторым элементам управления, расположенным на форме41’. Список таких элементов управления может отличаться для разных пользователей, в результате чего нетрудно реализовать разделение доступа к программному продукту.
Принадлежность компонентов
При создании компонента во время выполнения программы автоматически вызывается конструктор компонента, переопределенный в классе TComponent следующим образом:
constructor Create(AOwner: TComponent); virtual;
Параметр AOwner, передаваемый конструктору, является ссылкой на компонент, который будет отвечать за разрушение создаваемого компонента. Например, при создании кнопки на форме в конструктор кнопки будет передана ссылка на форму.
Создаваемый компонент обращается к компоненту-владельцу, вызывая его метод Insertcomponent Данный метод проверяет возможность владения вновь созданным компонентом, добавляет его в список зависимых компонентов41 . и заносит ссылку на себя в свойство Owner заданного компонента. При вызове метода Free из экземпляра любого наследника класса ТС, pone nt сначала будут вызваны методы Free для каждого объекта из списка зависимых, что обеспечивает корректное разрушение объектов, созданных во время выполнения программы.
Для поддержки списка зависимых компонентов в классе TComponent предусмотрены два property-свойства:
Свойство Componentcount типа Integer, в котором хранится количество зависимых компонентов.
Свойство Components, имеющее индексный механизм доступа, то есть представляющее собой массив, каждый элемент которого является ссылкой на экземпляр класса TComponent. Элементы массива нумеруются с нуля,, соответственно, последний элемент массива имеет индекс ;•- - 1.
Оба свойства имеют область видимости public, то есть они доступны любым фрагментам программы, имеющим доступ к ссылке на компонент. Во время разработки программы данные свойства не доступны, так как в этом нет необходимости.
С помощью свойств ComponentCount и Components можно организовать доступ к списку зависимых компонентов для получения ссылок на них и изменения значений их свойств.
Представим себе форму, на которой расположено множество компонентов, причем некоторые из них являются кнопками TButton. Такие кнопки имеют свойство Left, содержащее горизонтальную координату левого угла компонента. При изменении данного свойства компонент немедленно перемещается в новое положение. Реализуем метод формы, который будет искать среди зависимых компонентов кнопки TButton и изменять их свойство Left. После вызова такого метода (см. листинг 13.6) все кнопки, расположенные на форме, будут визуально выровнены по левому краю.
Заметим, что несмотря на существование специализированного класса TComponentList, казалось бы, созданного для решения задач такого рода, для хранения списка зависимых компонентов разработчики Delphi используют обычный список TList.
Листинг 13.6. Метод
procedure TForml . AlignButtons ;
la г
Integer;
begin
For i := 0 To Self.Componentcount-1 do {Циклический' ^" вех Явисимых
if Self . Components [i] Is TButton (Если очередной компонент принадлежит классу
TButton. . . }
Then (Self.Components [i] As TButton) .Left := 10;
. то ИзмЛяем коордДМту петого к Ни о $ нет') end;
Взаимосвязи между компонентами
Механизм взаимосвязей
Компоненты могут взаимодействовать с другими компонентами, создавая и разрушая их, а также вызывая их методы и обращаясь к свойствам. Примером такого взаимодействия является свойство принадлежности компонентов, когда один компонент может «владеть» несколькими другими, храня ссылки на них в собственном списке зависимых компонентов.
Однако доступ к компонентам есть не только у компонента-владельца, но, например, любой метод класса формы может разрушить компонент, находящийся на форме. Поскольку форма несет ответственность за разрушение компонентов, расположенных на ней, то при изменениях, произошедших с зависимым компонентом, необходимо обновить список зависимых компонентов. Аналогичное обновление требуется и для всех свойств, ссылающихся на какие-либо объекты.
Для реализации такого поведения системы компонентов предназначен механизм уведомлений (англ. Notification — уведомление).
Механизмы уведомлений
В Delphi предусмотрено два похожих по назначению, но разных по реализации, механизма уведомлений — обязательный и свободный.
Обязательный механизм уведомлений поддерживается автоматически для компонентов, которые являются зависимыми по отношению к другим компонентам. Если при создании компонента в его конструктор передается ненулевая ссылка на компонент-владелец, то создаваемый ком-
понент обращается через нее к методутроп .t владельца. В
этом методе компонент-владелец заносит ссылку на создаваемый компонент в список зависимых/ а в свойство Owner нового компонента заносит ссылку на себя.
Перед разрушением зависимого компонента владелец, на которого ссылается свойство Owner, уведомляется об этом с помощью вызова мето да RemoveComponent, и сможет обновить свой список зависимых компонентов. Во время разрушения компонента-владельца будут автоматически разрушены все компоненты, ссылки на которые хранятся в списке.
Свободный механизм уведомлений необходим для обновления связей объектов, не состоящих в связи владелец-зависимый® и используется компонентами при необходимости обновления ссылочных полей. Например, компонент DataSource имеет свойство DataSet, в котором находится ссылка на компонент DataSet. Присвоение этому свойству ссылки на объект приводит к необходимости обновления ее в случае разрушения компонента г . - Для реализации механизма уведомлений в таких случаях ссылающийся объект вызывает метод FreeNotification того объектаЯссылку на который он хранит. В качестве параметра этому методу передается ссылка на объект, заинтересованный в получении уведомлений. Когда необходимость в получении уведомлений пропадает, вызывается метод RemoveFreeNotification.
Методы FreeNotification и RemoveFreeNotification описаны в классе । : и it следующим образом:
procedure FreeNotification(AComponent: TComponent);
procedure RemoveFreeNotification(AComponent: TComponent);
Уведомление заинтересованных объектов происходит через вызов их метода Notification:
procedure(AC р ' TComponent; Operation:
।юл) ; virtual;
В параметре AComponent передается ссылка на объект, который вызвал уведомление. Тип операции, на которую следует отреагировать, передается в параметре Operation, имеющем перечислимый тип TOperation:
Type TOperation = ( । ert,е) ;
Таким образом, компоненты «сообщают» друг другу о своем создании или разрушении.
Отметим, что если компонент заинтересован в получении уведомлений от других компонентов, в его классе должен быть соответствующим образом переопределен метод Notification.
13.4. Визуальные и невизуальныекомпоненты
Класс1 • обеспечивает взаимодействие компонентов между
собой и с визуальным построителем, но не предоставляет каких-либо возможностей для взаимодействия компонентов с пользователем и визуального отображения компонентов на экране. Таким образом, TComponent предназначен не для прямого использования в программе, а исключительно для целей построения других компонентов на его основе с помощью стандартных механизмов наследования классов.
Компоненты,„реализованные в стандартной поставке Delphi, можно условно разделить на три группы:
» Невизуальные компоненты, не имеющие представления на экране, и не взаимодействующие с пользователем.
♦ Визуальные компоненты, называемые также элементами управления, имеющие визуальное представление и возможность взаимодействия с пользователем.
» Диалоговые компоненты, которые не имеют визуального представления, но могуч его приобретать для временного взаимодействия с пользователем.
Рассмотрим основы строения каждой группы компонентов подробнее.
Визуальные компоненты
Базовый класс визуальных компонентов
Группа визуальных компонентов (элементов управления) строится на основе прямого наследника TComponent — класса TControl, описывающим свойства, методы и события, присущие всем элементам управления, такие как:
» расположение на экране;
правила выравнивания относительно других элементов управления;
кущ ор мыши, отображаемый при наведении мыши на элемент управления;
шрифт, используемый для вывода надписей на компоненте;
цвет фона;
подсказка, выводимая операционной системой при попадании элемента управления в фокус.
Некоторые из свойств, описанных в классе TControl, имеют область видимости protected. Данные свойства доступны только классам-наследникам, которые переносят их в более широкую область видимости
public пли published. Такой подход выбран для придания большей универсальности классу TControl, хотя некоторые его возможности заведомо бесполезны для части элементов управления.
Программный интерфейс с точки зрения элементов управления — это иерархическая структура объектов-компонентов, каждый из которых отображается внутри другого, причем самый верхний уровень такой иерархии обязательно представляет собой Windows-окно. Остальные визуальные компоненты могут являться либо стандартными элементами управления Windows, построенными на основе окон (так называемые объекты-оболочки, wrapper-controls), либо отображаются средствами Delphi — такие компоненты называют легковесными (lightweight-controls), так как они используют меньшее количество ресурсов системы.
Таким образом, и объекты-оболочки, и легковесные объекты могут находиться только внутри объектов-оболочек.
Компоненты-оболочки. Класс TWinControl
Основная задача класса TWinControl — обеспечение более удобной работы со стандартными элементами управления Windows за счет реализации удобного программного интерфейса, не перегруженного подробностями реализации операционной системы. Свойства класса TWinControl определяются, соответственно, его назначением — быть оболочкой вокруг абстрактного элемента управления Windows.
Важными свойствами окон в Windows являются наличие уникального идентификатора окна и возможность «находиться в фокусе», то есть получать сообщения с клавиатуры.
Так как класс TWinControl содержит в себе элемент управления, то он имеет доступ к его идентификатору, и может выдать его при обращении к property-свойству Н ■ : е:
property - ■ 1 :
Данное свойство доступно только для чтения, определяется при создании Delphi-компонентом окна соответствующего Windows-элемента управления и может быть использовано для взаимодействия с Windows- элементом через системные сообщения. Реализация такого взаимодействия в программе имеет смысл при отсутствии соответствующего интерфейса в компоненте-оболочке.
Например, Delphi-компонент I r< gressBar является оболочкой Windows-элемента управления и, в отличие от самого «оборачиваемого» элемента, не имеет свойства, определяющего его цвет. Поэтому цвет компонента ProgressBar всегда соответствует указанному в настройках Windows. Однако цвет компонента все-таки можно изменить, послав его окну по идентификатору Handle сообщение РВМ 5ETBARCOI. F
с помощью функции SendMessagej7. Таким образом, в Delphi обеспечивается гибкость компонентов-оболочек относительно изменений элементов управления Windows. Даже если разработчики Delphi не предусмотрели какие-либо возможности элементов управления в компонентах, или эти возможности появились позднее выхода очередной версии Delphi, они могут быть доступны через идентификатор окна Handle.
Передача фокуса ввода организована в Windows следующим образом. Для каждого контейнера — окна, в котором могут располагаться другие окна — предусмотрен порядок передачи фокуса между дочерними окнами. При начальном отображении контейнера на экране фокус передается первому по списку окну. Далее, фокус передается всем окнам в очередности, заданной порядком передачи, при нажатии пользователем клавиши Tab. После последнего окна фокус получает первое. Пользователь имеет возможность перемещаться по элементам управления в обратном порядке, нажимая комбинацию клавиш Shift-Tab.
Для управления правилами получения фокуса компонентом-оболочкой предусмотрены свойства Tabstop, позволяющее указать, должен ли компонент получать фокус вообще, и TabOrder, определяющее порядковый номер компонента при передаче:
property TabStop: Boolean;
property TabOrder: TTabOrder;
Описание интервального типа TTabOrder выглядит следующим образом:
Type TTabOrder =;
Значение I используется только для компонентов, не имеющих визуальной принадлежности, то есть содержащие значение nil в свойстве Parent, остальные компоненты мену i иметь значения от 0 (первый по порядку компонент) до 32767.
Легковесные компоненты. Класс TGraphicControl
Компоненты, наследуемые напрямую от класса TControl, без использования TWinControl, не имеют ссылки на окно, так как не имеют окна, не могут получать фокуса и содержать в себе другие компоненты, то есть являться контейнером.
Для создания легковесных компонентов используется базовый класс TGraphicControl. Данный класс напрямую наследуется от TControl,
17 Можно привести множество таких примеров, однако это выходит за рамки нашей книги.
Для получения информации о возможностях стандартных элементов управления Windows мы рекомендуем использовать справочную систему MSDN, поставляемую фирмой Microsoft.
но дает своим наследникам некоторые общие возможности элементов управления, аналогичные возможностям наследников Win.
а именно:
♦ отображение элементов управления на экране внутри некоторого окна;
• возможность получать сообщения от мыши, то есть взаимодействовать с пользователем.
Так как компоненты, унаследованные не от TWinControl, не имеют ссылки на окно, то, они не могут выводить информацию на экран. Для того, чтобы легковесный компонент мог создать свое изображение, предусмотрено свойство Canvas типа TCanvas. Компоненты, в которых визуально расположены наследники TGraphicControl, предоставляют свое свойство Canvas для вывода на него изображений легковесных компонентов.
Свойство визуальной принадлежности
Одно из самых важных свойств элементов управления — это свойство визуальной принадлежности Parent, описанное в классе TControl, и определяющее внутри какого компонента визуально располагается данный элемент управления. Данное свойство имеет тип TWinControl, так как любой элемент управления может располагаться только в Windows-окне.
Существенным отличием свойства визуальной принадлежности Parent от свойства принадлежности Owner является то, что оно показывает, где элемент управления выводится на экран, а не кто ответственен за его хранение и разрушение в программе.
Невизуальные компоненты
Невизуальные компоненты наследуются напрямую от класса [ и поддерживают все его возможности взаимодействия со средой разработки, например, сохранение свойств и связей с событиями в файлы формы и их восстановление при последующем открытии проекта.
Невизуальные компоненты не имеют представления на экране во время выполнения программы, в процессе разработки отображаются на формах в виде иконок, сопоставленных им в Палитре компонентов, и предназначены для добавления в программу поддержки некоторой технологии. В качестве примера можно привести наборы компонентов для работы с базами данных с использованием механизмов доступа BDE или ADO, или набор компонентов, обеспечивающих взаимодействие программных продуктов через сети.
Невизуальные компоненты позволяют облегчить работу с теми или иными технологиями путем инкапсуляции в классы сложных процедур,
перегруженных особенностями конкретной технологии. При этом они предоставляют более простой интерфейс в виде свойств и методов компонента. Задачей невизуальных компонентов, таким образом, является перевод конкретной задачи с системного уровня на логический.
Следует отметить, что компоненты, предназначенные для работы со схожими технологиями, такими, как доступ к информации в базах данных, обычно наследуются в Delphi от одних базовых классов, в результате чего имеют одинаковые свойства и методы. Это приводит к повышению гибкости программных продуктов, их масштабируемости и некоторой независимости программного кода от используемых технологий.
Диалоговые компоненты
Диалоговые компоненты являются наследниками класса TCorrmonDialog — прямого наследника класса : — и представляют собой невизуальные компоненты, которые при вызове метода Execute, описанного в классе TCommonDialog, отображают на экране диалоговое окно для взаимодействия с пользователем.
Метод Execute не имеет параметров и описан следующим образом:
Function Boolean; virtual; abstract;
Возвращаемое логическое значение используется вызывающей подпрограммой для анализа ввода информации пользователем в зависимости от типа используемого диалога.
Вопросы с ответами для повторения по главе 13
Опишите жизненный цикл экземпляров классов
Ответ: Жизненный цикл экземпляра класса начинается с его создания с помощью вызова конструктора и дополнительных методов, причем эти методы вызываются автоматически в такой последовательности:
— выделение памяти, используетдля опре
деления размера памяти.
— очистка выделенной памяти и настройка таблицы вир
туальных методов.
Версия конструктора Create, определенная в классе, из которого он вызывается.
terConstruction — только в случае безошибочного выполнения предыдущих методов.
Далее объект становится полноправной частью программы и может использоваться для работы с его свойствами и методами, но только, если в кон-
структоре не произошла исключительная ситуация, не обработанная самим конструктором. Если исключение вышло за пределы конструктора (не обработано в нем), то будет автоматически вызван деструктор данного класса для освобождения памяти, выделенной под объект.
В случае отсутствия необходимости дальнейшего существования экземпляра класса, его следует разрушить с помощью вызова метода Free. Если объект является экземпляром класса-наследникаи был со
здан таким образом, что имеет владельца, то его разрушение не обязательно и будет вызвано автоматически при разрушении владельца. Автоматическое разрушение производится аналогично — вызовом метода Free.
После вызова метода Free автоматически вызываются следующие методы:
1 BeforeDestruction — только в случае безошибочного создания данного экземпляра конструктором.
Версия деструктора Destroy, определенная в классе, из которого он вызывается.
—для очистки памяти.
■—для освобождения памяти, использует InstanceSize
для определения размера памяти.
Расскажите о механизме интерфейсов в Delphi
Ответ: Интерфейсы в Delphi аналогичны классам, не имеющим свойств, и все методы которых абстрактны. Для идентификации интерфейса, его описание может включать в себя указание глобального уникального идентификатора — GUID. Описание интерфейса выглядит следующим образом:
Туре <Название интерфейсах = Interface(<Название родительс- кЕо ИI ,
[’(хххххххх-хххх-хххх-хххх-хххххххххххх ']
-метода I ;
Оаголовок метода N>; end;
Туре<Название класса>Туре<Название класса>Механизм интерфейсов позволяет частично осуществлять множественное наследование, то есть создание класса на основе одного родительского класса и нескольких интерфейсов. Для этого стандартное описание класса расширено, и в его заголовке после родительского класса указывается список реализуемых интерфейсов:
Туре
<Название класса>
Туре
<Название класса>
class (<Родительский класО, аИнтерфейс 1>,..., <Интерфейс I
^2^ЙЙства>-_
<3аголовки методов, описанные в интерфейсах>
(Заголовки собственных методов>
Оаголовки переопределенных методов родительского ;
end;
Если в заголовке класса указаны интерфейсы, которые он реализует, то все методы этих интерфейсов должны быть либо описаны полностью, либо указаны в интерфейсной части описания класса, как абстрактные.
Расскажите об интерфейсах llnterface и IUnknown
Ответ: Интерфейсы, также как и классы, поддерживают наследование, то есть класс, реализующий некоторый интерфейс, должен описать все методы, заявленные и в нем самом, и заявленные в его родительском интерфейсе. Если интерфейс описывается без указания родительского интерфейса, то его родителем считается интерфейс llnterface
В данном интерфейсе описаны методы _AddRef и _Release, поддерживающие работу со ссылками на экземпляры классов, реализующих интерфейсы, и, фактически, обеспечивающие счетчик использования экземпляров класса. При первом обращении к интерфейсу (создании объекта, реализующего данный интерфейс) счетчик устанавливается на 1 далее, при последующих обращениях, увеличивается методом л., i ef, а при разрушении уменьшается методом _Release.
Еще одна важная функция базового интерфейса llnterface — определение информации о других интерфейсах, реализуемых классом.
Для объектов, которые необходимо использовать для реализации в программе технологии СОМ, используется другой базовый интерфейс, полностью совпадающий с llnterface по методам — 1 nk ю«
Опишите возможности класса TPersistent
Ответ: Класс TPersistent инкапсулирует методы для поддержки переносимости информации из одного объекта в другой (методы Assign и AssignTo), а также для сохраняемости значений свойств объектов в файлы форм. Под сохраняемостью свойств экземпляров именно этого класса понимается возможность сохранения свойств объектов, не заявленных в секции published, в файлы форм и другие потоки данных. Такая возможность может потребоваться при создании компонентов, свойства которых ссылаются на другие компоненты, созданные во время выполнения программы или ее визуальной разработки.
Поясните понятие компонента в Delphi
Ответ: Компоненты являются наследниками класса TComponent, имеющего следующие возможности:
Интеграция с IDE Delphi, то есть возможность находиться в Палитре компонентов IDE и участвовать в процессе визуального проектирЬвания;
« Поддержка свойства принадлежности, то есть управления другими компонентами;
» Поддержка сохраняемости и восстанавливаемости, реализованная в классе TPersistent;
» Поддержка технологии СОМ, то есть возможности экспорта компонентов в компоненты ActiveX или импорта компонентов ActiveX в компоненты Delphi.
Компоненты могут быть визуальными, то есть имеющими представление на экране во время работы приложения, невизуальными — не имеющими такого представления, и диалоговыми — не имеющими визуального представления, но выводящими отдельные окна для взаимодействия с пользователем.
Визуальные компоненты являются наследниками класса TControl, н< ви зуальные наследуются напрямую от классаа диалоговые ком
поненты имеют в качестве родительского класса
Расскажите о правилах именования компонентов и автоматическое именование их Средой разработчика
Ответ: Компоненты присутствуют в программе в виде экземпляров классов на формах, а также в виде ссылок на лих из классов форм. Поэтому
правила именования компонентов должны соответствовать правилам именования идентификаторов в программах Delphi.
При создании компонентов путем добавления их на форму из Палитры компа ibhtob Среда разработчика автоматически назначает им имена, состоящие из названия класса, экземпляром которого компонент является (без префикса Т), и его порядкового номера на данной форме.
Название экземпляра компонента содержится в его published-свойстве Name, доступном для чтения и записи, однако изменение этого свойства во время выполнения программы приведет к невозможности дальнейшего использования компонента.
Поясните разницу между свойством принадлежности компонентов и свойством визуальной принадлежности
Ответ: Свойство принадлежности Owner описано в классе TComponent и указывает на объект, который несет ответственность за разрушение данного компонента. Такой механизм снимает необходимость прямого разрушения компонентов, созданных программой во время работы.
Свойство визуальной принадлежности Parent описано в базовом классе визуальных компонентов TControl, и указывает, в каком компоненте находится визуальное представление данного компонента.
Свойство принадлежности заполняется в конструкторе класса TComponent с помощью переданного параметра А ■ . тогда как свойство визуальной принадлежности заносится прямым указанием из того фрагмента программы, который создает визуальный компонент.
. Расскажите о взаимосвязях компонентов
' через механизм уведомлений
Ответ: Для поддержания ссылочной целостности в программе компоненты поддерживают механизм уведомлений, реализованный в классе I Component, с помощью которого один объект может быть извещен (с помощью вызова его метода Notification) о разрушении или добавлении другого объекта.
Для компонентов, устанавливающих в своем конструкторе свойство принадлежности, поддержка извещений устанавливается автоматически, такой механизм уведомлений называется обязательным. Существует также свободный механизм уведомлений, реализуемый с помощью того же метода и еще двух методов для добавления в список заинтересованных компонентов или удаления их оттуда— 1 ication и ication.
Расскажите о визуальных компонентах-оболочках и легковесных компонент*
Ответ: Визуальные компоненты могут иметь визуальное представление на экране в виде обычного окна Windows, в которое выведено некоторое изображение. Такие компоненты называются компонентами-оболочками и наследуются от класса • Отличительная черта таких компонентов — наличие свойства Handle, в котором содержится ссылка на окно, в которое выводится визуальное представление элемента управления. Компоненты такого рода используются, когда элемент управления должен находиться в фокусе и получать события с клавиатуры.
В остальных случаях рекомендуется использование легковесных компонентов — наследников класса TGraphicControl, использующих для вывода своего изображения на экран оконные компоненты-оболочки. Вывод на экран обеспечивается через свойство Canvas TnnaTCanvas, инкапсулирующее в себя графические возможности операционной системы. Компонент, которому визуально принадлежит легковесный элемент управления, перенаправляет графический вывод легковесного компонента в свое окно.
Визуальныекомпоненты
Как было указано выше, визуальные компоненты являются наследниками класса TControl и разделяются на две труппы:
Компоненты-оболочки, представляющие собой классы, имеющие ссылки на реальные элементы управления Windows. Компоненты- оболочки наследуются от базового класса
Легковесные компоненты, не являющиеся окнами Windows, а выводящие свое изображение на область отображения компонентов- оболочек, внутри которых они находятся. Легковесные компоненты наследуются от базового класса ::1
Общие свойства визуальныхкомпонентов
Компоненты-оболочки и легковесные компоненты несущественно отличаются друг от друга в использовании, хотя и отличны друг от друга во внутренней реализации. Большинство свойств и методов визуальных компонентов либо унаследованы от класса TControl, либо описаны в самих компонентах в зависимости от их назначения.
Рассмотрим для начала общие свойства визуальных компонентов, необходимые для качественного построения интерфейса4
Особое внимание будем уделять, в основном, тем свойствам, ma-ici ия которых можно изменять с помощью Инспектора объектов. Если о ни ы ыем свойство доступно только в программном коде, это будет оговорено особо.
Положение и размеры элементауправления на экране
Положение визуального компонента (элемента управления) на экране задается в точках относительно окна компонента-контейнера, в котором находится данный компонент, и содержится в целочисленных свойствах Left и Тор. Размеры компонента также задаются в точках и содержатся в свойствах Width и Height:
property Left: Integer;
property т т : Integer; property Width: Integer; property Height: Integer;
Значения этих свойств автоматически изменяются при расположении компонента и настройке его размеров мышью в визуальном построителе, либо могут быть введены в окне Инспектора объектов. Далее значения сохраняются в файле формы и считываются при последующем открытии проекта или запуске приложения.
На рис. 14.1 показано окно, в котором находится два компонента — компонент-оболочка (контейнер) Par ell и компонент Buttonl, вставленный в контейнер. Значения свойств Left и Тор для обоих компонентов одинаковы (см. фрагменты Инспектора объектов для каждого из компонентов), однако их левые верхние углы не совпадают, так как координаты кнопки отсчитываются относительно панели, а координаты панели — относительно формы. Таким образом, положение кнопки в оконных координатах составляет (20, 20).
Для получения положения и размеров элемента управления во время выполнения программы также используются свойства Lett, Top, Width и Height, однако предусмотрено еще одно свойство, не доступное через Инспектор объектов:
property BoundsRect: TRect;
Рис. 14.1. Расположение компонентов
Использование,свойства BoundsRect удобно в случаях, когда необходимо получить и положение и размер визуального компонента одновременно в одной структуре типа TRect, например, для использования ее в каких-либо специальных функциях, таких, как API-функции вывода текста.
Автоматическое управление положением
При изменении размеров окна, в котором находятся визуальные компоненты, появляется дополнительная область, с учетом которой можно расположить интерфейсные элементы для достижения большего удобства пользователя. Характеристики положения компонентов могут быть изменены в обработчике события Oni - формы с помощью свойств Left, Top, Width и Height, однако такой подход является трудоемким и практически сводит на нет смысл визуального построения приложения. При этом сами визуальные компоненты снабжены средствами автоматического изменения своего положения в зависимости от размеров формы. Поведение компонентов определяется свойствами Align, Anchors и Constraints, рассмотренными нами далее.
Привязка визуального компонента к одной из сторон контейнера
Свойство Align (англ. Align — выравнивание) управляет автоматическим изменением размера и положения визуального компонента, привязывая его к одной из сторон компонента-контейнера, и имеет перечислимый тип TAlign.
property Align: TAlign;
Type TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);
При использовании значений данного свойства, отличных от . компонент «прилипает» к одной из сторон формы, располагаясь вдоль нее, и в дальнейшем перемещается вместе с ней.
На рис. 14.2 приведен пример формы, на которой расположен компонент-панель Panell. Изначально, при добавлении панели на форму, свойство Align панели имело значение alNone, а расположение определялось только свойствами Left, Top, width,, Height (верхняя часть рисунка). Далее свойству Align было установлено значение alLeft, в результате чего панель расположилась в левой части формы, полностью заняв ее по высоте (центральная часть рисунка). При изменении размеров формы (нижняя часть рисунка) высота панели изменяется соответственно высоте формы, а ширина остается неизменной.
Возможные значения свойства Align приведены в табл. 14.1.
Рис. 14.2. Использование свойства Align
Возможные значения свойства Align объектов класса TControlТаблица г 4 ,
Значение
Выравнивание
Примечание
alNone
Компонент не следит за изменениями контейнера, в котором он находится
alTop
При установке данного значения компонент располагается в верхней части контейнер; занимая всю его ширину. При изменениях размеров контейнера автоматически изменяется ширина компонента, высота остается неизменной
Использование свойства Width не приводит к изменению ширины компонента
alBottom
При установке данного значения компонент располагается в нижней части контейнера, занимая всю его ширину. При изменениях размеров контейнера автоматически изменяется ширина компонента, высота остается неизменной
Использование свойства Width не приводит к изменению ширины компонента
alLeft
При установке данного значения компонент располагается в левой части контейнера, занимая всю его высоту. При изменениях размеров контейнера автоматически изменяется высота компонента, ширина остается неизменной
Использование свойства Height не приводит к изменению ширины компонента
al Right
При установке данного значения компонент располагается в правой части контейнера, занимая всю его высоту. При изменениях размеров контейнера автоматически изменяется высота компонента, ширина остается неизменной
Использование свойства Height не приводит к изменению ширины компонента
alClient
При установке данного значения компонент занимает всю внутреннюю область контейнера. При изменениях размеров контейнера автоматически изменяются ширина и высота компонента
Использование свойств Width и Height не приводит к изменению размеров компонента
Использование свойства Align удобно для организации элементов управления, которые всегда должны находиться у одного края своего контейнера, например, строк состояния или панелей с набором элементов управления. Еще одной часто используемой возможностью является привязка отдельных сторон компонента к одной из сторон его контейнера. В этом случае не происходит «прилипания» элемента управления к одной из сторон контейнера и сохраняется возможность независимого выбора размеров для компонента, просто положение и размеры компонента изменяются в соответствии с изменениями размеров формы.
Настройка автоматического изменения положения стороныкомпонента в соответствии с такой же стороной его контейнера
Множественное свойство Anchors (англ. Anchors — якоря) определяет, следует ли изменять положение какой-либо стороны компонента в соответствии с такой же стороной его контейнера:
property ;: ТАпсЯрД;
Описание типа TAnchors выглядит следующим образом:
Туре
TAnchorKind = (акТор, akLeft, akRight, ак tt г.) ;
TAnchors = Set Of TAnchorKind;
Возможные значения свойства Anchors приведены в табл. 14.2.
Элемент
Изменение поведения
akLeft
При включении данного элемента в множество Anchors положение левой стороны элемента управления (то есть значение свойства Left) не изменяется при изменении размеров контейнера. Если элемент не включен в множество, левая граница элемента управления перемещается вслед за правой границей контейнера
акТор
При включении данного элемента в множество Anchors ооглхенис верхней стороны элемента (то есть значение свойства Тор) управления не изменяется при изменении размеров контейнера. Если элемент не включен в множество, верхняя граница элемента управления перемещается вслед за нижней границей контейнера
akRight
При включении данного элемента в множество Anchors правая сторона элемента управления перемещается вслед за правой ран»н - . ■ контейнера. При этом, если в множестве присутствует элемент akLeft, изменяется ширина компонента (свойство Width)
akBottom
При включении данного элемента в множество Anchors нижняя сторона элемента управления перемещается вслед за нижней границей контейнера. При этом, если в множестве присутствует элемент акТор, изменяется высота компонента (свойство Height)
Возможные элементы множества Anchors обьег тов класса TControl
Таблица 14.2
Элементы множества Anchors используются парами — akLeft совместно с akRight, а акТор совместно с akBottom. При различных значениях элементов в парах, элемент управления либо изменяет свои размеры, либо изменяется его положение, либо состояние элемента управления coo i ве Iс - в\е I начальному (табл. 14.3).
TrueFalseИзменение ширины (высоты) соответственно изменению ширины контейнераБез измененийПеремещение без изменения размера соответственно изменению ширины контейнераПеремещение без изменения размера на величину, меньшую, чем изменение размеров контейнераTrueFalseИзменение ширины (высоты) соответственно изменению ширины контейнераБез измененийПеремещение без изменения размера соответственно изменению ширины контейнераПеремещение без изменения размера на величину, меньшую, чем изменение размеров контейнераАвтоматическое изменение положения элемента управленияАвтоматическое изменение положения элемента управленияТаблица 14.3Таблица 14.3akRight (akBottom)akRight (akBottom)
True
False
Изменение ширины (высоты) соответственно изменению ширины контейнера
Без изменений
Перемещение без изменения размера соответственно изменению ширины контейнера
Перемещение без изменения размера на величину, меньшую, чем изменение размеров контейнера
True
False
Изменение ширины (высоты) соответственно изменению ширины контейнера
Без изменений
Перемещение без изменения размера соответственно изменению ширины контейнера
Перемещение без изменения размера на величину, меньшую, чем изменение размеров контейнера
Автоматическое изменение положения элемента управления
Автоматическое изменение положения элемента управления
Таблица 14.3
Таблица 14.3
akRight (akBottom)
akRight (akBottom)
Начальные значения, устанавливаемые при добавлении визуального компонента на форму, подобраны таким образом, чтобы положение элемента управления не изменялось при изменении размера контейнера. То есть множество Anchors состоит из элементов и акТор,,что указывает на необходимость привязки левого верхнего угла компонента к левому верхнему углу контейнера, и отсутствие привязки правого нижнего угла компонента к правому нижнему углу контейнера.
На рис. 14.3 показана форма, на которой расположены три панели. Причем у компонента ш 11 (слева наверху) значение свойства Anchors не изменено, у Рапе12 (слева внизу) изменено на обратное, а у пе (справа наверху) в множество добавлены элементы akRight И akBottom.
Рис. 14.3. Использование свойства Anchors
При изменении размеров формы (увеличения ширины и высоты), которая является контейнером для панелей, первый компонент не изменяет своего положения, второй смещается за правым нижним углом формы, а третий изменяет размеры без смещения. Если для панели Рапе12 в множество Anchors не были бы включены элементы akLeft и akTopgто панель сместилась бы на меньшее расстояние от своего начального положения.
Заметим, что свойство Anchors может применяться совместно со свойством Align, когда необходимо автоматическое изменение размеров компонента с одновременным выравниванием его по стороне контейнера.
Задание минимально имаксимально возможных размеров компонентов
И, наконец, перейдем к рассмотрению свойства Constraints, управляющего минимально и максимально возможными размерами компонента:
property Constraints: TSizeConstraints;
Тип данных, с которым описано это свойство, представляет собой класс с четырьмя основными полями MaxHeight, MaxWidth, MinHeight и MinWidth, определяющими соответственно максимальные высоту и ширину элемента управления, а также его минимальную высоту и ширину.
Свойство Constraints может быть полезно при использовании автоматического изменения размеров компонента, описанного выше, для ограничения пределов такого изменения. Например, с помощью свойства Constraints можно задать минимальные размеры панели с элементами управления, чтобы пользователь мог иметь к ним доступ вне зависимости от размера окна.
Управление видимостьюи доступом пользователя к управлению
Элементы управления, которые подразумевают воздействие пользователя, обычно так или иначе связаны с некоторыми параметрами программы. Причем некоторые из этих параметров могут не допускать изменения значения в некоторые моменты времени. Например, если программа теоретически поддерживает несколько языков интерфейса, то должен существовать элемент управления, с помощью которого пользователь может выбрать подходящий ему язык. Однако если при инсталляции программы поддержка многоязыкового интерфейса не установлена, то пользователь не должен иметь доступ к этому элементу управления.
Скрытие визуального компонента от пользователя осуществляется с помощью свойства видимости Visible:
property Visible: Вос ean;
Начальное значение данного свойства (True) позволяет выводить элемент управления на экран, а при его изменении компонент исчезает, либо снова появляется. Использование свойства visible не всегда дружественно по отношению к пользователю, так как скрывает от него информацию о возможностях программы. Для того, чтобы элемент управления отображался на экране, но не допускал изменения своего состояния( предусмотрено свойство Enabled (свойство доступности ■ г
property Enabled: Boolean;
При создании компонента значение данного свойства (True) разрешает доступ пользователя к элементу управления. В дальнейшем, при установке значения False компонент обычно изменяет свое визуальное представление и ввод в него информации недопустим.
Заметим, что вне зависимости от состояния свойств Visible и Enabled, программа имеет полный доступ к компонентам и может изменять их свойства.
Дружественное поведениеэлементов управления
Изменение вида курсора мыши при наведении на компонент
Операционная система Windows предлагает широкие возможности для организации гибкого и дружественного । ользонательского интерфейса, и это касается не только набора элементов управления, которые можно применять в программных продуктах, но и некоторых средств сопровождения работы пользователя, не занимающих места на экране. Одной из
'forml
Выход из программы без сохр • • - ия данных
Рис. 14.4. Курсоры и подсказки
таких возможностей является изменение курсора мыши при наведении ее на элемент управления (см. рис. 14.4).
В Delphi также реализовано изменение курсора мыши при наведении ее на компонент. Курсор, который следует отобразить, находится в свойстве Cursor всех наследников класса TControl:
property Cursor:;
Курсор мыши является системным ресурсом, что затрудняет работу с ним. Например, значением свойства Cursor должен быть его системный идентификатор. Однако в Delphi эта проблема решена с помощью набора стандартных курсоров, поддерживаемого средой разработки. Для того, чтобы изменить курсор, выводимый над элементом управления, достаточно просто выбрать его из списка, причем, начиная с шестой версии Delphi, список констант, соответствующих курсорам в Инспекторе объектов, снабжен еще и их изображениями.
Использование всплывающих подсказок
Еще одним широко применяемым средством сопровождения пользователя во время работы с программой являются быстрые подсказки, выводимые операционной системой автоматически, на основе строки. Использование таких подсказок существенно упрощает организацию интерфейса, так как окно с подсказкой возникает только при наведении мыши на элемент управления, и исчезает сразу же после того, как мышь его покинет, что позволяет снизить количество подписей под элементами управления,, используемых для пояснения их назначения.
Для поддержки подсказок используется свойство Hint (англ. Hint — транспарант), содержащее строку, выводимую в качестве подсказки, и свойство ShowHint, указывающее, следует ли подсказку использовать
property Hint: string;
property ShowHint: Boolean;
Пример измененного курсора мыши (в виде руки с пальцем) и выведенной на экран подсказки (с текстом «Выход из программы без сохранения данных») показан на рис. 14.4.
Компоненты-контейнеры
Общее описание
Компоненты-контейнеры предназначены для добавления в них других элементов управления, в том числе и других контейнеров тоже. Количество контейнеров на экране и степень их вложенности зависит от сложности интерфейса и не ограничивается ни средой разработки, ни операционной системой.
Контейнеры обычно имеют рамку и подпись. Визуально элемент-контейнер охватывает группу компонентов. Но иногда контейнеры применяются только для организации других элементов управления и не присутствуют визуально на экране. Зато они помогают организовать интерфейс на основе свойств автоматического расположения компонентов Align и Anchors.
На рис. 14.5 представлено окно программы, в котором друг под другом находятся два компонента-контейнера. В контейнерах размещаются другие элементы управления. Такая организация удобна как с точки зрения пользователя, так как контейнеры своей рамкой отделяют раз-
ЦЕДМЯЯК^" -|а|Х1
Влог-1 J Butan2 | ВиХопЗ |
<• R*4o8u№on1С H»ioBURon2Рапе2<• R*4o8u№on1С H»ioBURon2Рапе2R7 Chee* 9 с» 1
<• R*4o8u№on1
С H»ioBURon2
Рапе2
<• R*4o8u№on1
С H»ioBURon2
Рапе2
Р СЫсЭ9ом2р Chec*Bo*3
Г ГЬег3 9о«4
Рис. 14.5. Компоненты-контейнеры
личные группы элементов управления, так и с точки зрения разработчика, так как позволяет при визуальном проектировании передвигать по форме множество компонентов одновременно. Напомним, что положение компонентов определяется относительно контейнера, в котором они расположены™.
Приведем список наиболее часто используемых контейнеров, а затем рассмотрим каждый из них подробнее (см. табл. 14.4).
Компонент
Название
Описание
1
Panel
Простой контейнер для элементов управления
а
ScrollBox
Контейнер для элементов управления с возможностью изменения (прокрутки) области видимости, если элементы управления занимают область большую, чем клиентская область данного компонента
PageScroller
Контейнер для одного элемента управления с возможностью изменены (прокрутки) области видимости в одном направлении (либо по горизонтали, либо по вертикали)
Group Box
Контейнер для элементов управления с заголовком
RachoGroup
Контейнер с заголовком для создания групп зависимых переключателей
—
TabControl
Контейнер для организации многостраничных диалогов средствами программы
-,.<!
PageControl
Контейнер для организации многостраничных диалогов с автоматической сменой страниц
ControlBar
Контейнер для организации панелей инструментов
CoolBar
Контейнер для организации панелей инструментов
Таблица 14.4
Наиболее часто йене 1ьзуемые контейнеры
Заметим, что использование ко иейнеров исключительно для упрощения процесса разработки нецелесообразно, так как такие компоненты являются наследниками класса Г WI n < in' ol то есть используют ресурсы операционной системы.
Контейнеры-панели
Виды панелей и общее описание
Панели используются для расположения групп элементов управления, визуальная структура которых не меняется во время выполнения программы, за исключением, возможно, видимости и доступности некоторых компонентов. Такие панели предназначены только для визуального отделения какой-либо группы компонентов от остального содержимого окна.
Контейнеры-панели представлены компонентами:
Panel (закладка standard Палитры компонентов);
» ScrollBox (закладка Additional);
Groups ох (закладка Standard);
« RadroGroup (закладка Standard).
Примеры панелей показаны на рис. 14.6 в перечисленном порядке сверху вниз.
Загр^ритъ | Сохранить | .аЗагр^ритъ | Сохранить | .а■ . в . ■ ■ - ■ • виде■ . в . ■ ■ - ■ • видеГП аатееожпем<е пом вьесмеГП аатееожпем<е пом вьесмеГ Исге>#ьэоелтъ чесмобегуо г»**|р^Tv Ьнттхлапгесм» rctxtt^^b размерГ Исге>#ьэоелтъ чесмобегуо г»**|р^Tv Ьнттхлапгесм» rctxtt^^b размер
Загр^ритъ | Сохранить | .а
Загр^ритъ | Сохранить | .а
■ . в . ■ ■ - ■ • виде
■ . в . ■ ■ - ■ • виде
ГП аатееожпем<е пом вьесме
ГП аатееожпем<е пом вьесме
Г Исге>#ьэоелтъ чесмобегуо г»**|р^
Tv Ьнттхлапгесм» rctxtt^^b размер
Г Исге>#ьэоелтъ чесмобегуо г»**|р^
Tv Ьнттхлапгесм» rctxtt^^b размер
Л «Зля всех пользователей С Го лье. о пл» тжуиего
Рис, 14.6. Контейнеры-панели
Все панели являются наследниками класса TwinControl и обладают свойствами, общими для визуальных элементов управления, такими, как: свойства расположения, выравнивания, видимости и доступности. Причем при изменении расположения, видимости или доступности панели соответствующим образом изменяются одноименные свойства компонентов, расположенных в ней.
Так, если свойство Enabled какого-либо контейнера имеет значение False, то и все компоненты внутри него будут недоступны пользователю. Одновременно с этим компоненты ScrollBox и RadioGroup имеют дополнительную функциональность.
Панель ScrollBox — панель с полосами прокрутки
Панель ScrollBox предназначена для группировки большого числа элементов управления, и имеет возможность отображать на экране только часть группы. Для управления видимой областью пользователь может использовать полосы скроллинга, расположенные в правой и нижней частях панели.
Полосы скроллинга представлены в классе TScrollBox отдельными published-свойствами HorzScrollBar и VertScrollBar типа TControlScrollBar и имеют в свою очередь свойства, перечисленные в табл. 14.5. Например, для того, чтобы программно изменить положение видимой области, следует изменить значения свойств Position полей HorzScrollBar и VertScrollBar:
ScrollBox1.VertScrollBar.Position ».О;
Свойства класса TControlScrollBarТаблица 14.5
Свойство
Тип
Описание
Size
Integer
Высота в точках (для горизонтальной полосы скроллинга) или ширина (для вертикальной)
ButtonSiie
Integer
Размер (в точках) кнопок со стрелками, расположенных по краям полосы скроллинга
ThumbSize
Integer
Размер (в точках) перемещаемой части полосы скроллинга
Margin
Word
Расстояние (в точках) между кнопками со стрелками, расположенными по краям полосы скроллинга
Tracking
Boolean
Указывает на необходимость (значение True) немедленного перемещения видимой области при изменении положения перемещаемой части полосы скроллинга, иначе (значение False) положение видимой области изменяется после отпускания пользователем кнопки мыши
Smooth
Boolean
Указывает, следует ли перемещать плавно (значение True) видимую область при нажатии мышью на фоновой области полосы скроллинга. Не рекомендуется для использования в программах, выполняемых на маломощных компьютерах
ParentColor
Boolean
Указывает на необходимость использования (значение true) фонового цвета родительского компонента (в котором находится данный компонент), иначе (значение False) фон полосы скроллинга устанавливается в соответствии со свойством Color
Color
TColor
•Цвет фона полосы скроллинга
Range
Integer
Высота (для вертикальной полосы скроллинга) и ширина (для горизонтальной) видимой области в точках
Position
Integer
Положение видимой области в точках. Изменяется в диапазоне от 0 до значения свойства Range
Increment
Integer
Шаг изменения регулируемого значения (положения видимой облас кив точках
Style
TScrollBarStyle
Внешний вид полосы скроллинга. Свойство может иметь три значения: ssRegular (обычный стиль Windows с трехмерными элементами управ пиния' ssFlat (элементы управления полосой плоские и становятся трехмерными при наведении мыши) и ssHotTrack (элементы управления плоские и подсвечиваются при наведении мыши)
Visible
Boolean
Видимость полосы скроллинга
Панель ScrollBox удобно использовать в случаях, когда необходимо сохранить возможность использования некоторого набора элементов управления вне зависимости от размеров окна. Второй мотив использования компонента ScrollBox — это организация в одном окне нескольких независимых друг от друга областей, использующих возможность прокрутки. Отметим, однако, что чрезмерное употребление компонентов такого рода существенно усложняет работу пользователя с интерфейсом.
Более простым аналогом компонента ScrollBox является PageScroller, расположенный на странице Win32. Данный компонент имеет такое же назначение, но предусмотрен для прокрутки одного элемента управления, который, впрочем, может являться контейнером и содержать в себе другие компоненты.
Направление прокрутки задается свойством Orientation, которое может иметь два значения: '
»■ '— прокрутка в горизонтальном направлении;
soVertical (прокрутка в вертикальном направлении).
Компонент PageScroller часто используется совместно с панелями инструментов, которые обычно имеют фиксированную ширину или высоту, то есть не требуют перемещения видимой области во всех направлениях.
На рис. 14.7 представлено окно программы, в котором находится компонент PageScroller. Элементом управления, область видимости которого перемещается, является компонент-контейнер Panel, в который вставлено 10 кнопок. Из них на экране видно только 8, но с помощью кнопок-стрелок компонента PageScroller можно сделать видимыми другие кнопки.
Панель RadioGroup — панель зависимых переключателей
Панель RadioGroup предназначена для создания группы зависимых переключателей. Если пользователем выбирается один из переключателей из такой группы, то значения всех остальных сбрасываются. Данный компонент может выступать в качестве замены группы зависимых переключателей, представленных компонентами RadioButton, описанным ниже. В случае использования RadioGroup зависимые переключатели создаются автоматически на основе списка строк, заданного published-свойством Items:
property Items:
Разработчик имеет доступ к свойству items как во время работы про граммы, так и во время визуального построения (см. рис. 14.8), в результате чего существенно упрощается создание элементов программы, управляющих состоянием какого ■ параметра.
Для определения, какой из элементов является выделенным, используется свойство(элементы нумеруются с нуля):
property Itemindex: Integer;
Данное свойство доступно и на этапе разработки программы, что позволяет заранее установить выбранный по умолчанию элемент группы. Например, на рис. 14.8 свойство itemindex имеет значение 0.
Компонент !выравнивает элементы управления таким образом,
чтобы они равномерно занимали его поверхность. Также предусмотрена возможность автоматического разбиения группы элементов управления на несколько столбцов, количество которых задается свойством Columns:
property Columns : Int^e■
На рис. 14.8 свойство Columns имеет значение 2, и соответственно элементы управления разбиты на два столбца.
Элементы управления, созданные панелью RadioGroup охвачены рамкой, в верхней части которой находится строка, поясняющая обычно смысл параметра, для настройки которого предназначена группа. Строка, выводимая в качестве заголовка,’содержится в свойстве ц ci :
property Caption: тс ;
Такие же свойства есть и у компонентов Panel и RadioGroup. Компонент ScrollBox заголовка не имеет.
Events
Зеленый
Рис. 14.8. Контейнер RadioGroup
Контейнеры-панели инструментов
Данная группа контейнеров предназначена для организации панелей инструментов — групп компонентов, предназначенных для быстрого выполнения некоторых действий. Панели инструментов широко применяются в различных программных продуктах, например, Microsoft Word или Adobe Photoshop. При работе с такими панелями пользователь может с помощью мыши изменять визуальную структуру компонентов, расположенных в них, добиваясь наиболее удобного их расположения.
Задание расположения элементов управления в панели инструментов производится автоматически и не требует каких-либо усилий со стороны разработчика. Для каждого компонента, вставляемого в контейнеры данного типа, создается специальный компонент, которыми и управляет панель. Одновременно с этим такие компоненты имеют видимую часть, за которую пользователь перемещает их вместе с элементами управления внутри панели. С учетом того, что компонентом, вставленным в панель инструментов, может являться контейнер, разработчик может создать довольно сложную структуру элементов управления.
На рис. 14.9 представлена форма, в верхней части которой расположена панель инструментов ControlBar (со страницы Additional Палитры компонентов). В панель вставлены компоненты Panel, RadioGroup, и две кнопки Button. В панель Panel добавлено еще три кнопки. В верхней части рисунка показано окно сразу же после начала работы программы, а в нижней части — после действий пользователя, изменившего взаимное расположение элементов управления внутри панели.
Заметим, что слева от каждого компонента, который принадлежит непосредственно панели ControlBar, присутствует область, за которую пользователь может перемещать эти компоненты. При перемещении какого-либо элемента управления вниз, за пределы первоначальной
,,■ bwkibia»’~.1
Г 1 Г 3 Г 5 Г 7 Г 9
Г 2 (Г 4 Гб Г 8:
Рис. 14 9. Использование панелей инструментов
области панели инструментов, ее размер увеличивается, а внутренние компоненты располагаются в несколько рядов. Таким поведением панели управляет свойство Autosi ze, указывающее на необходимость автоматической установки высоты панели при изменении положения элементов управления:
property AutoSize: Зон 1 - . .;
Интересным является свойство Picture панели Corrida г, позволяющее задать фоновый рисунок панели и выделить ее на фоне остального окна:
property Picture: TPicture;
Использование свойства Picture в данном компоненте, и свойств типа TPicture вообще, существенно упрощено с помощью диалога]^вызываемого на экран при попытке редактирования таких свойств. В диалоге можно выбрать файл с графическим изображением, подходящим по формату типу TPicture, то есть BMP, JPG, EMF или Т о, далее изображение будет считано и сохранено в файл формы, и, соответственно, в исполняемый ехе-файл.
Аналогом компонента ControlBar является CoolBar, расположенный на закладке Win3 2 Палитры компонентов. Методы работы с данным компонентом не отличаются от вышеописанных, однако он обладает полезным свойством Bands, представляющим список внутренних панелей, на которых располагаются элементы управления. Изменяя свойства этих панелей, можно достигать различных эффектов, полезных для построения удобного интерфейса. Например, для каждой панели можно установить свой цвет или фоновое изображение, а также задавать минимальные размеры и возможность изменения размеров вообще.
Страничное представление группкомпонентов
Компоненты-контейнеры постраничного представления информации предназначены для разбиения элементов на группы и вывода в каждый момент времени работы программы только одной группы компонентов из нескольких. В Delphi данные компоненты реализованы в виде классов TabControl и PageControl, каждый из которых является наследником TCustomTabControl
Общей чертой компонентов TabControl и PageControl является наличие полосы с закладками, с помощью которых пользователь может выбрать необходимую страницу элементов управления (см. рис. 14.10). Если закладки не помещаются в окно компонента, то автоматически появляется элемент управления для их перемещения, состоящий из двух стрелок.
ЩЗЯввЯввЖ -loi xj|
КрасныйЗеленый |,...•] . -■•, | '} ‘ /
(• Светлый С Темный НАрМЬНМп^
Красный :-।' 1 * | *
С Светлый <♦ Темный С Нейтральный
Рис. 14. 10 Компоненты постраничногопредставления элементов управления
Расположение закладок можно изменить с помощью перечислимого свойства TabPosition:
property ^tk'^Ki^^^MyjTTabPositlcih; *
TTMPositjBn = ^рТор, tpBottom,1 ) .
Это свойство может принимать значения:
tpTopзакладки расположены вдоль верхней стороны контейнера, как показано на рисунке;
1акладки расположены вдоль нижней стороны контейнера; tpLeftзакладки расположены вдоль левой стороны контейнера;
tpRight . закладки расположены вдоль правой стороны контейнера.
Также возможно расположение закладок в несколько рядов, если свойство г п имеет значение True. Более того, если закладки расположены вдоль одной из боковых сторон компонента, то это свойство всегда должно иметь значение True.
property MultiLine: Boolean;
Размер закладок выбирается автоматически, однако может быть установлен разработчиком с помощью целочисленных свойств (ширина закладки) и . Height (высота закладки):
property TabWidth:1:
property TabHeight: Smallint;
Визуальное представление закладок можно изменить, используя перечислимое свойство . .:
property Style: TTabStyle;
Type TTabStyle = (tsTabs, tsButtons, । Flat Butt )
Это свойство может принимать следующие значения:
tsTabsобычные закладки;
tsButtonsзакладки в виде трехмерных кнопок;
tsFlatButtons . закладки в виде плоских кнопок.
Во время выполнения программы или визуальной разработки номер активной закладки можно определить или изменить с помощью целочисленного свойства Tabindex (закладки нумеруются от нуля):
property Tabindex: I nt ;
При смене активной закладки вызывается обработчик сообщения OnChange, если он определен для данного компонента. Обработчик OnChange представляет собой процедуру с одним параметром — ссылкой на компонент-источник, в котором произошло событие:
property . : : 1 ■ L;
Type ■ = procedure (Sendee TObzHE) Of Object;
Теперь рассмотрим отличия компонентов TabControl и PageControl друг от друга. Более простым в использовании является компонент PageControl, который уже во время разработки программы предоставляет набор страниц, на которых располагаются группы элементов управления.
При добавлении PageControl на форму в нем не содержится страниц для размещения элементов управления несоответственно, нет закладок. Для добавления очередной страницы в процессе визуального построения программы следует воспользоваться контекстным меню компонента, вызываемым при нажатии правой кнопки мыши, и выбрать пункт New Page. Для удаления страницы предназначен пункт меню Delete Page. Каждая страница, добавляемая в компонент PageControl, является экземпляром класса TTabSheet, который в свою очередь унаследован от .. ■ r.troi (см. рис. 14.11). Наиболее важным свойством компонента TTabSheet является свойство Caption, определяющее заголовок страницы, который выводится на закладке.
Элементы управления, добавляемые на страницы, принадлежат этим страницам) в том числе и визуально, поэтому компонент PageControl имеет возможность управлять видимостью этих элементов управления через видимость страниц.
Рис. 14. 11. Компонент PageControl
Компонент TabControl построен по другому принципу и представляет собой только набор закладок и место для расположения элементов управления. Определение видимости элемента управления в каждый момент времени выполнения является функцией программы. Анализ может быть основан на свойстве г . рассмотренном выше, и производиться в обработчике события OnChange. На первый взгляд, такая конструкция существенно проигрывает в сравнении с компонентом PageControl, однако имеются и некоторые положительные стороны такого подхода. Во-первых, компонент TabControl может быть использован не только для группировки компонентов, а еще и для выбора одного значения из списка, представленного закладками.
Во-вторых, появляется интересная возможность активности нескольких страниц одновременно (см. рис. 14.12). Для того, чтобы пользователь имел возможность выбора нескольких страниц, свойство MultiSelect должно иметь значение True.
property MultiSelect: Boolean;
Рис. 14 12 Выбор нескольких закладок компонента TabControl
Использование множественного выбора возможно только при использовании стилей закладок tsButtons или tsFlatButtons.
Так как компонент TabControl не содержит каких-либо реальных стра
ниц, подписи, выводимые на закладках, задаются с помощью свойства Tabs:
property Tabs:.:..:";
Пример использования контейнеров
На рис. 14.13 изображено окно Project Options Интегрированной среды разработчика Delphi, вызываемое с помощью пункта главного меню Pro^ect->Optaons Реализуем программу, главная форма которой аналогична данному диалогу. Для простоты добавим в окно только те элементы управления, которые являются контейнерами, причем только для закладки
infoPackagesCompiler j| LinkerinfoPackagesCompiler j| Linkerг Code lahcn--......;1 (v Optmgehon *г Code lahcn--......;1 (v Optmgehon *1 PPwMmMdeFDrV| || w| RecordInM *jrmer<:' Syntax options —i Г Completef Extended.1 '* < a»' £6'a-«e#«:i R Huge' 9 Assignable typed constants1 PPwMmMdeFDrV| || w| RecordInM *jrmer<:' Syntax options —i Г Completef Extended.1 '* < a»' £6'a-«e#«:i R Huge' 9 Assignable typed constantsRuntime -■i p Range checking i Fv |/0 checkingII i Overflow checkingRuntime -■i p Range checking i Fv |/0 checkingII i Overflow checking-J i '• DebugLocal symbols1 1 $7 Reference WoDefinitionsi i P AssertionsI | г UwD«bugOCU«-J i '• DebugLocal symbols1 1 $7 Reference WoDefinitionsi i P AssertionsI | г UwD«bugOCU«
infoPackages
Compiler j| Linker
infoPackages
Compiler j| Linker
г Code lahcn--......;
1 (v Optmgehon *
г Code lahcn--......;
1 (v Optmgehon *
1 PPwMmMdeFDrV
| || w| RecordInM *jrmer<
:' Syntax options —
i Г Complete
f Extended
.1 '* < a»' £6'a-«e#«:
i R Huge
' 9 Assignable typed constants
1 PPwMmMdeFDrV
| || w| RecordInM *jrmer<
:' Syntax options —
i Г Complete
f Extended
.1 '* < a»' £6'a-«e#«:
i R Huge
' 9 Assignable typed constants
Runtime -■
i p Range checking i Fv |/0 checkingI
I i Overflow checking
Runtime -■
i p Range checking i Fv |/0 checkingI
I i Overflow checking
-J i '• Debug
Local symbols
1 1 $7 Reference Wo
Definitions
i i P Assertions
I | г UwD«bugOCU«
-J i '• Debug
Local symbols
1 1 $7 Reference Wo
Definitions
i i P Assertions
I | г UwD«bugOCU«
Рис. 14. 13. Диалог Project Options ИСР Delphi
Как видно, большую часть диалога занимает компонент-контейнер постраничного расположения элементов управления. Для добавления такого контейнера можно воспользоваться компонентами PageControl или TabControl. Для начала попробуем использовать PageControl.
Запустим среду разработчика Delphi и откроем новый проект. Установим в Инспекторе объектов размеры главной формы с помощью свойств Width (значение 424) и Height (значение 399). Установим значение свойства Caption (заголовок формы): «Project Options for Projectl.exe».
Разместим на форме компонент PageControl с закладки Win32 Палитры компонентов и установим его положение и размеры с помощью свойств Left (значение 6), Тор (значение 8),width (значение 408), Height (значение 327). Визуальный построитель автоматически присвоит этому компоненту название PageControll. С помощью пункта Add Раде контекстного меню, вызываемого при нажатии на правую кнопку мыши, добавим в компонент PageControll восемь страниц. Переключаясь между страницами с помощью закладок, присвоим следующие подписи закладкам с помощью свойств Caption каждой страницы: «Directories/Conditionals», «Version Info», «Packages», «Forms», «Application», «Compiler», *Comp Lei Messages», «Linker».
Промежуточный результат разработки показан на рис. 14.14. Как видно, закладки на добавленном нами компоненте PageControll расположены в один ряд, а при наведении мыши на закладку она не подсвечивается, как это происходит у настоящего диалога Project Options. Для исправления такой ситуации сделаем активным компонент PageControll, нажав кнопку мыши над его верхней частью, где распо-
Рис. 14.14. Промежуточный результат разработки
ожены закладки (иначе, будет выбрана текущая страница компонента). Изменим в Инспекторе объектов значения свойств Ми - . : пе (на True) и ’ ~ - (также на True).
Сделаем активной ту страницу компонента PagcControll, которая соответствует закладке Compiler, выбрав эту закладку мышью. Расположим на данной странице четыре компонента с гои р в о х с закладки standard — два в левой части страницы и два в правой. Им автоматически присваиваются названия GroupBoxl, GroupBox2, Gro ip3 хЗ и GroupBox4.
Для соответствующего расположения контейнеров внутри компонента PageControll настроим их свойства Left, Top, Width и Height, а для изменения заголовков изменим свойства Caption следующим образом:
Компонент
Left
Top
Width
Height
Caption
GroupBoxl
5
4
187
107
Code Generation
GroupBox2
5
120
187
129
System options
GroupBoxS
202
4
185
85
Runtime errors
GroupBox4
202
100
185
117
Debugging
Запустим программу на выполнение с помощью клавиши F9 и попробуем сделать активной другую страницу диалога. При смене активной страницы ее закладка выделяется, а элементы управления, расположенные на ней (в данном случае, это компоненты GroupBoxl, GroupBox2, н и GroupBox4), становятся невидимыми.
Аналогичным образом можно построить такой диалог и на основе компонента TabControl, однако автоматического переключения между группами компонентов при использовании TabControl происходить не
будет, поэтому в программе должен быть предусмотрен обработчик события OnChange этого компонента.
Откроем новый проект, настроим размеры формы и ее заголовок, а затем добавим на форму компонент TabControl. Название нового компонента формируется автоматически: . Cent roll*. Вместо добавления страниц в компонент откроем редактор свойства Tabs в Инспекторе объектов и введем в нем следующие строки:
Directories/Conditionals
Version Info
Packages
Forms
Application
Compiler
Compiler Messages
Linker
Настроим свойства - и - ■ компонента TabControll, и добавим на его поверхность четыре компонента -: эщ Box Установим свойству значение 5, что соответствует номеру закладки Compiler, в результате чего данная закладка станет активной. Запустив программу на выполнение, убедимся, что при смене активной страницы элементы управления, расположенные на ней, не теряют видимость, хотя в остальном компонент TabControl ведет себя аналогично PageControl.
Сделаем активным компонент TabControll и переключимся в Инспекторе объектов на страницу Events. Двойным щелчком мыши напротив события OnChange создадим обработчик этого события и реализуем его следующим образом:
Procedure TForml.TabControlIChange(Sender: TObject); begin
GroupBoxl.Visible := (TabControll.Tabindex = 5);
GroupBox2.Visible := (TabControll.Tabindex = 5);
GroupBoxl.Visible := (TabControll.Tabindex = 5);
GroupBox4.Visible := (TabControll.Tabindex = 5); end;
Поясним действия, выполняемые обработчиком события. Свойство Tabindex компонента TabControll содержит номер активной страницы (точнее, номер закладки, так как в компонентах TabControl нет физических страниц). В соответствии со списком подписей к закладкам страница Compiler имеет номер 5 (напомним, что закладки нумеруются от нуля).
ЬмсммСая#** 1 v»e** info j Реме*» | Few I
<*W.[ Г •• — ]|.7^4* Мемео^ j Lnk»-i
,Hk*w eirots,Hk*w eirots*<m*<mCode ■.
,Hk*w eirots
,Hk*w eirots
*<m
*<m
Рис. 14.15. Результат разработки
Соответственно логическое выражение I TabControll.Tabindex = 5) принимает значение True, если активной является закладка Compiler, и False во всех остальных случаях. Значение данного выражения присваивается свойству видимости Visible каждого компонента, («расположенного» на странице Compiler. Таким образом, при каждом изменении активной закладки вызывается обработчик OnChange, в котором определяется видимость компонентов GroupBoxl, GroupBox2, СгоирВохЗ И GroupBox4.
Если бы в нашей программе была предусмотрена поддержка других страниц, то в обработчике события OnChange присутствовала бы логика управления видим остью компонентов, расположенных на этих страницах. Допустим, на странице Linker (закладка номер 7) расположен компонент Згой: Вох5. Тогда обработчик OnChange будет выглядеть следующим образом:
Procedure TForml.TabControllChange(Sender: TObject);
begin
GroupBoxl.Visible GroupBox2.Visible СгоирВохЗ.Visible GroupBox4.Visible GroupBoxS.VisibleGroupBoxl.Visible GroupBox2.Visible СгоирВохЗ.Visible GroupBox4.Visible GroupBoxS.Visible(TabControll.Tabindex = 5);
GroupBoxl.Visible GroupBox2.Visible СгоирВохЗ.Visible GroupBox4.Visible GroupBoxS.Visible
GroupBoxl.Visible GroupBox2.Visible СгоирВохЗ.Visible GroupBox4.Visible GroupBoxS.Visible
(TabControll.Tabindex = 5);
(TabControll.Tabindex = 5);
(TabControll.Tabindex = 5);
(TabControll.Tabindex = 1) ;
end;
Заметим, что при создании компонента TabControl событие OnChange не возникает, поэтому видимость компонентов, расположенных внутри TabControl, должна соответствовать текущей странице, то есть странице, номер которой находится в свойстве " i Tnd х. Иначе корректное представление компонентов будет обеспечено только после первой смены активной страницы, так как будет вызван обработчик OnChange, а такая ситуация недопустима.
В этом случае обработчик события можно вызвать в момент инициализации формы, то есть в обработчике события формы OnActivate. Так как свойство OnChange компонента TabControl является процедурным типом, то вызов этого обработчика может выглядеть так:
Procedure I .rormActivate(Sender: TObject);
begin
TabControll.OnChange(self);
«nd;
В качестве параметра события передается ссылка Self, которая в данном случае определяет форму, на которой и находится компонент TabControll.
Компонентыдля отображения информации
Виды компонентовдля отображения информации
Данная группа визуальных компонентов предназначена для отображения следующей текстовой и графической информации в окнах программы:
текстовые строки;
геометрические фигуры;
диаграммы и графики;
изображения, считанные из графических файлов;
видеоклипы.
В настоящем разделе рассмотрены стандартные компоненты, перечисленные в табл. 14.6.
Текстовые метки
Текстовые метки используются для подписи других элементов управления, расположенных на форме и представлены в Delphi компонентами Label (закладка standard) и StaticText (закладка Additional). Как визуальные компоненты, Label и StaticText
поддерживают свойства расположения, выравнивания и видимости Left, Тор, Width, Height, Align, Anchors И Visible, а также добавляют множество собственных, приведенных в таблицах 14.7, 14.8 и 14.9.поддерживают свойства расположения, выравнивания и видимости Left, Тор, Width, Height, Align, Anchors И Visible, а также добавляют множество собственных, приведенных в таблицах 14.7, 14.8 и 14.9.KJC^^ZIH^^HIIIIDK е|щ х|
поддерживают свойства расположения, выравнивания и видимости Left, Тор, Width, Height, Align, Anchors И Visible, а также добавляют множество собственных, приведенных в таблицах 14.7, 14.8 и 14.9.
поддерживают свойства расположения, выравнивания и видимости Left, Тор, Width, Height, Align, Anchors И Visible, а также добавляют множество собственных, приведенных в таблицах 14.7, 14.8 и 14.9.
Многострочные компонент Label: Labell StaticTextc
I рам кой
Однострочный саи«| l^uhiz
Рис. 14.16. Текстовые метки
Компоненты для отображения информацииТаблица 14.6
Компонент
Название
Описание
А
Label
Текстовая метка
Щ
StaticText
Текстовая метка
ProgressBar
Индикатор процесса
ш
Animate
Проигрыватель видеофайлов
Bevel
Рамка или отдельные линии рамки
Shape
Геометрическая фигура
LJI
Image
Изображение из графического файла
ш
Chart
Диаграмма
ш
PaintBox
Область отображения для программного вывода графической информации
Свойство
Тип
Описание
Caption
String
Строка, выводимая на экран
Color
TColor
Цвет фоновой области, на которой отображается строка
Font
TFont
Шрифт, которым выводится строка
AutoSize
Boolean
Указывает, следует ли (значение False) компоненту автоматически изменять свой размер при изменении выводимой строки или характеристик вывода (например, размера шрифта).
При использовании значения True в свойстве Wordwrap компонента Label (разбивать строку по словам) более приоритетно изменение высоты. Увеличение ширины Label происходит Только если очередное слово имеет ширину, большую ширины метки Label. Иначе при вводе очередного слова оно переносится на новую строку
Alignment
TAIignment
Указывает способ выравнивания текста внутри компонента. Может иметь следующие значения: taLeftJustify (выравнивать строку по левому краю — установлено по умолчанию), taCenter (выравнивание по центру) и aHightJustify (выравнивание по правому краю)
Общие свойства кСмпонентов Label и StaticText
Таблица 14.7
Свойство
Тип
Описание
Layout
Tie xtLayout
Указывает выравнивание текста, выводимого меткой, по высоте и может принимать три значения: tUop (текст выровнен по верхнему краю), tICenter (текст выровнен по центру), tl Bottom (выравнивание по нижнему краю). Использование свойства имеет смысл при отключении функции автоматического подбора размеров (установка свойству AutoSize значения False)
Transparent
Boolean
Отключает прорисовку фона метки вне зависимости от значения свойства Color
Таблица 14.8
Специфические свойства компонента Label
Свойство
Тип
Описание
Borderstyle
TstaticBorderStyle
Определяет наличие и вид рамки, выводимой вокруг метки. Может принимать следующие значения: sbsNone (рамка отсутствует), sbsSingk (простая рамка из тонкой линии) и bsSurken (трехмерная рамка)
BevelOutor
Bevellnoer
TBevelCut
Определяют соответственно наличие и вид внешней и внутренней рамки. Могут принимать следующие значения: bvNone (рамка отсутствует), hvt ewer cd (вдавленная рамка), bvRaised (рамка выпуклая), bvSpace (рамка не выводится, но место под нее резервируется, если свойство BevelKind = bkTile, иначе рамка выпуклая)
BevelKind
TBevelKind
Определяет стиль внешней и внутренней рамок и может принимать следующие значения: bkNone (рамки не выводятся), bkTile (четкое выделение рамки), bkSoft (менее контрастная по сравнению с bkTile рамка), bkFlat (рамки выводятся без эффекта трехмерности, вне зависимости от значений свойств BevelOuter и Bevelin пег)
Существенное отличие текстовых меток как классов Delphi заключается в том, что метка Label является наследником класса TGraphicControl, а метка StaticText — наследником компонента-оболочки ш : 1. Соответственно, при использовании большого количества текстовых меток, одновременно расположенных на экране, следует учитывать, что компонент StaticText является более ресурсоемким, и, по возможно сти, выбирать метки Label для разработки интерфейса.
Однако это не является общим правилом, так как компонент StaticText в некоторых обстоятельствах имеет преимущества перед Label. Одно из таких преимуществ — наличие рамки, выводимой вокруг текста, что позволяет отделить метку от других элементов интерфейса.
Второе вытекает из неоконности компонента 1. гое Напомним, что наследники класса TGraphicControl выводят свое изображение на область отображения компонента-контейнера, которому они визуально принадлежат (см. рис. 14.17), тогда как оконные компоненты находятся визуально выше своего контейнера. Таким образом, любой оконный компонент будет перекрывать изображение метки Label, если они находятся в одном и том же контейнере, и их видимые области пересекаются. На рис. 14.16 показана такая ситуация: оконный компонент StaticTextl перекрывает неоконные метки Labell и Label2.
Обе текстовые метки имеют возможность вывода многострочного текста, однако настройка разбиения на строки производится разными методами. Компонент Label управляет возможностью разбиения длинной строки на неско ько'1 с помощью логического свойства Wordwrap:
property Wordwrap: < .
51 Строки в текстовых метках разбиваются по словам, причем разделителем слов считается только пробел.
Рис. 14.17. Правило перекрытия областей видимости оконных компонентов и компонентов-оболочек
Если свойство Wordwrap имеет значение False, то строка, выводимая на экран, не разбивается. Если при этом свойство Auto Size имеет значение True, то есть метка должна автоматически изменять свой размер, то увеличивается ее ширина. В противном случае строка урезается по размеру метки, и на экране видна только часть очередного слова (см. рис. 14.18).
AutoSize - / i//M
Длинная строк
Длинная строку
AutoSize = True
Рис. 14. 18. Использование свойства AutoSize
Разбиение строки в компоненте staticText производится всегда, причем вне зависимости от размеров метки и значения свойства на экран выводятся только целые слова, а те, которые не подходят по ширине для текущей строки, переносятся на следующую.
Компоненты-индикаторы
Для представления одного или нескольких числовых параметров в графическом виде в Delphi реализованы компонент-индикатор ProgressBar, расположенный на странице Wi '. палитры компонентов, и компонент - диаграмма Chart (страница Additional).
Компонент ProgressBar
Компонент ProgressBar предназначен для отображения значения какого-либо одного целочисленного параметра как части некоторого интервала. Визуально данный компонент представляет из себя (см. рис. 14.19) прямоугольник, символизирующий интервал, причем часть его заполнена синим цветом, что символизирует значение параметра.
Рис. 14 19. Компонент ProgressBar
Программно интервал задается целочисленными свойствами Min и Мах компонента ProgressBar, а значение параметра — целочисленным свойством Роsitiоп
property Min: Integer;
property ; Integer;
property Position: Integer;
Заливка области компонента может отображаться в горизонтальном направлении слева направо или в вертикальном — сверху вниз. Метод вывода задается свойством Orientation"'которое может принимать два значения: pbHorizontal (горизонтальное расположение) и pbvertical (вертикальное расположение).
property Orientation: Itat n;
Также с помощью логического свойства Smooth поддерживается возможность вывода непрерывной заливки (значение True), либо состоящей из прямоугольников (значение False). .
property Smooth: Boolean;
Для изменения положения заливки во время работы программы можно использовать свойство Position, при изменении значения которого компонент будет автоматически перерисован, например:
ProgressBarl.Position : = ProgressBarl.Position + 10;
Однако увеличение значения свойства Position является самой частой операцией над индикатором. Поэтому в компоненте предусмотрен
метод Steplt, изменяющий значение свойства Position на значение, заданное целочисленным свойством Step:
property Step: Integer;
procedure Steplt;
Если свойство step имеет отрицательное значение, то значение свойства Position будет уменьшено. Для смещения индикатора на произвольное значение можно использовать метод StepBy:
procedure()
Компонент Chart — построение диаграмм и графиков
Компонент Chart представляет собой область для вывода диаграмм и графиков множества видов одновременно (см. рис. 14.20). Этот компонент содержит следующие визуальные составляющие:
фон компонента с возможностью заполнения градиентной заливкой;
заголовок компонента;
оси аргументов и значений с заголовками и подписями;
легенда.
Все характеристики перечисленных составляющих, например, стили линий, шрифты и заливки, могут быть настроены как в процессе визуального построения приложения, так и во время его работы.
Компонент Chart имеет множество свойств и методов, в результате чего является очень гибким, и реализует практически все необходимые для вывода диаграмм и графиков функции.
Рис. 14.20. Компонент Chart
Изображения геометрических фигур
Для изображения геометрических фигур без их специальной программной прорисовки- предусмотрены компоненты Bevel и Shape, расположенные на странице Additional. Эти два компонента, особенно Shape, являются, видимо, самым ярким примером предназначения класса TGraphicControl. Они оба выполняют несложные действия, выводя свое изображение на область отображения контейнера, в котором находятся, используя свое свойство Canvas и вызывая методы этого объекта.
Отображение разделительных рамок. Компонент Bevel
Компонент Bevel предназначен для визуального разделения элементов управления на экране (см. рис. 14.21) и представляет собой трехмерную рамку — вдавленную или выпуклую в зависимости от перечислимого свойства Style, которое может принимать два значения:
* bsLowered — линии компонента вдавлены, как у горизонтальной линии на рис. 14.21;
♦ bsRaised — линии компонента выпуклые, как у вертикальной рамки на рис. 14.21.
Несмотря на то, что компонент Bevel занимает место на экране в соответствии со свойствами width и Height, как и остальные визуальные компоненты, его внутренняя область прозрачна, а вместо рамки может выводиться только одна линия. При этом, если с помощью свойства Cursor компоненту задан какой-либо нестандартный курсор, то он будет отображаться во всей внутренней области (см. рис. 14.21).
Рис. 14.21. Компонент Bevel
Имеется в виду отсутствие необходимости реализации такой "прорисовки разработчиком прикладного программного продукта. Сами компоненты естественным образом выводят свое изображение.
Внешний вид компонента Bevel определяется перечислимым свойством Shape (англ. Shape -фигура):
property Shape:i
Type TBevelShape = (bsBox,, bsTopLine, " ' г ,
bsLeftLine, bsRightLine, bsSpacer);
Возможные значения свойства Shape описаны в табл. 14.10.
Возможные значения свойства Shape компонента BevelТаблица 14 10
Значение
Выводимая геометрическая фигура
bsBox
Компонент обводится трехмерной рамкой со всех сторон так, что сам выглядит трехмерным
bsFrame
Компонент обводится трехмерной рамкой со всех сторон
bsTopLine
Выводится только верхняя линия компонента
bsBottomLine
Выводится только нижняя линия компонента
bsLeftLine
Выводится только левая линия компонента
bsRightLine
Выводится только правая линия компонента
bsSpacer
Компонент обводится пунктирной линией
Изображение графических примитивов. Компонент Shape
Для изображения графических примитивов предназначен компонент Shape, выводящий на экран различные геометрические фигуры в зависимости от перечислимого свойства Shape:
property i! :;
Type TShapeType = (।, stSquare, stRoundRect,
, stEllipse, :1 ! ) ;
Возможные значения свойства Shape описаны в табл. 14.11.
Возможные значения свойства Shape компонента ShapeТаблица 14.11
Значение
Вид компонента
stCircle
Круг
stEllipse
Эллипс
stRectangle
Прямоугольник (значение устанавливается по умолчанию)
stSquare
Квадрат
stRoundRect
Прямоугольник со скругленными краями
StRoundSquare
Квадрат со скругленными краями
Все фигуры, выводимые компонентом Shape, имеют стиль линии и заливку, устанавливаемые, соответственно, свойствами Реп и Brush:
property Pen: ’Per ;
property Brush: .,
Если с помощью свойства Brush установлена заливка, отличная от bsSolid (сплошная заливка), то компонент становится частично или полностью (если стиль заливки bsClear) прозрачным. Например, на рис. 14.22 текстовая метка Label видна через внутренние области обоих компонентов Shape.
•■ । является
Рис. 14.22. Компонент Shape
Заметим, что если вместо метки Label использовать компонент StaticText, то строка, выводимая им, будет видна вне зависимости от характеристик заливки геометрических фигур. Это связано с тем, что компоненты Shape и Label выводятся в данном случае на область отображения формы, то есть находятся «в одном слое», и их взаимное перекрытие определяется порядком их добавления в контейнер (чем позже добавлен — тем выше находится). Компонент StaticText имеет собственное окно, находящееся над контейнером, а, следовательно, перекрывает все, что находится на области отображения контейнера.
Вывод сложной графической информации
Delphi поддерживает:
♦ вывод на экран изображений, считываемых из графических файлов, с помощью компонента Image (страница Additional Палитры компонентов);
• вывод видеоклипов, считываемых из avi-файлов, не использующих сжатие изображения, с помощью компонента Animate (страница Win32);
» вывод любого изображения, формируемого программой с помощью компонента PaintBox (страница . i
Вывод изображений из графических файлов
Компонент Image основан на использовании класса TPicture, рассмотренного нами при обсуждении методов и представления хранения графической информации. Компонент image и имеет удобный для разработчика механизм настройки и использует механизм вывода графической информации, рассмотренный нами в гл. 10). После расположения компонента Image на форме изображение, которое следует вывести на
Рис. 14.23. Компонент Image
экран загружается с помощью соответствующего диалога в Инспекторе объектов (см. рис. 14.23).
После этого изображение сохраняется в файл формы и доступно при последующей работе с проектом без исходного графического файла. Диалог вызывается при попытке редактирования свойства Picture:
property Picture: :е;
Во время работы программы изображение может быть загружено из файла вызовом метода LoadFromFile свойства Picture:
Image1.Picture.LoadFromFile ('fantasy.jpg');
Свойства компонента image направлены на управление изображением в пределах охватывающего прямоугольника компонента и предоставляют возможность центрирования изображения (свойство Center), а также его растяжения (свойство Stretch):
property Center: Boolean;
property stretch: Boolean;
Если размер изображения превышает размеры охватывающего прямоугольника компонента, а свойство Stretch имеет значение False, то изображение будет урезано.
Для контроля пропорционального изменения ширины и высоты изображения при растяжении предусмотрено свойство Proportional, ука-
зывающее, следует ли (значение True) сохранять изначальное соотношение ширины и высоты:
Property : " ionai : Boolean;
Если данная возможность используется, то изображение увеличивается до того момента, когда его ширина либо высота достигнут, соответственно, ширины или высоты охватывающего прямоугольника компонента.
На рис. 14.24 представлена форма с двумя компонентами image, в которые загружено одно и то же изображение, причем его размеры существенно превышают размеры компонентов, в результате чего изображение автоматически масштабируется (уменьшается). Свойству Proportional обоих компонентов установлено значение True, поэтому изображение занимает не всю их область, а только максимально возможную при условии сохранения пропорциональности ширины и высоты.
Рис. 14.24. Автоматическое масштабирование изображение
Отметим, что свойству Center обоих компонентов также присвоено значение True, поэтому изображение центрируется внутри компонентов по ширине (в левом компоненте) и высоте (в правом). Если бы данное свойство имело значение False, то изображение в левом компоненте находилось бы у его левой границы, а в правом — у его верхней границы.
Вывод видеоклипов
Компонент Animate аналогичен компоненту Image, но на экран выводится не просто изображение из графического файла, а видеоклип, название файла с которым хранится в свойстве FileName:
property FileName: String;
Рис. 14.25. Компонент Animate
Клип, в отличие от изображения компонента Lm, щ, не сохраняется вместе с формой, так как может иметь значительный размер, поэтому во время выполнения программы файл, на который указывает свойство FileName, должен присутствовать на диске.
Свойство FileName также может быть изменено во время выполнения программы, что вызовет загрузку файла с клипом, либо исключительную ситуацию, если такого файла не существует, или его формат не соответствует поддерживаемому компонентом Animate:
Animate!.FileName :■ 'E:\WlNNT\clock.avi';
Для автоматического запуска клипа после старта программы используется свойство Active:
property Active: Boolean;
Клип будет проигран, если данное свойство имеет значение True, иначе для запуска клипа следует установить такое значение программно или воспользоваться методами компонента Animate, описанными ниже.
Воспроизведение начинается с кадра, номер которого находится в свойстве StartFrame. и продолжается до кадра, номер которого находится в свойстве StopFrame. При загрузке файла значения этих свойств автоматически устанавливаются в минимально и максимально возможные значения, то есть будут воспроизведены все кадры ролика. Далее, клип может быть проигран еще несколько раз, в зависимости от значения целочисленного свойства Repetitions. Если данное свойство имеет нулевое значение, то количество повторений будет бесконечным.
Для программного управления воспроизведением клипа используются методы Play (проиграть клип). Reset (вернуться к началу клипа), Seek (переместиться на заданный кадр) и Stop (остановить воспроизведение). Метод Play проигрывает клип в интервале кадров, заданном параметрами FromFrame и 1 несколько раз в соответствии с параметром Count:
Procedure(, ToFrame: Word^ Count: Integer)}
Метод stop останавливает воспроизведение и не имеет параметров:
Procedure;
Применение методов Reset и Seek имеет смысл при использовании свойства Active вместо методов Play и Stop. Метод Seek делает текущим кадр, заданный параметром Frame, а метод Reset делает текущим самый первый кадр анимации:
Procedure(t
Procedure Reset;
Отображение созданных программно изображений
И, наконец, компонент Paint В ох представляет собой наследника класса ;! с одним событием OnPaint. В обработчике это
го события должен быть размещен программный код, выводящий на область отображения, определяемое свойством Canvas данного класса, некоторое изображение. Соответственно такой компонент предназначен для вывода изображений, которые не могут быть построены стандартными средствами.
Для примера реализуем обработчик события On г1 - компонента Paint В ох, выводящий на экран несложное изображение — прямоугольник с градиентной заливкой (см. рис. 14.26). Точка в левом верхнем углу прямоугольника будет иметь черный цвет, а в правом нижнем — красный. Точки, находящиеся на одинаковом удалении от левого верхнего угла компонента, будут иметь одинаковые цвета.
Для построения такого изображения добавим на форму компонент PaintBox и настроим его свойство Anchors таким образом, чтобы правый нижний угол компонента перемещался при изменении размеров формы. . (л । этого следует включить в множество Anchors элементы и akBottom.
Выберем страницу Events в Инспекторе объектов, найдем в списке событие OnPaint и создадим его обработчик двойным нажатием мыши. Реализуем обработчик следующим образом55 (см. листинг 14.1)
Заметим, что это далеко не лучший алгоритм вывода подобных изображений, зато очень простой.
Рис. 14.26. Компонент PaintBox
Листинг 14.1. Обработчик события OnPaint, рисущий прямоугольник с градиентной красной заливкой
procedure TFonnl.PaintBoxlPaint(Sender: TObject);
Заголовок обработчика формируется автоматически Var
, у: Integer;
Length2, MaxLength2: Integer;
begin
MaxLength2 := Sqr(PaintBoxl.Width) + Sqr(PaintBoxl.Height);
(Расчет максимально возможного расстояния точки заливки от левого верхнего угла компонента}
For х := 0 То PaintBoxl Width — 1 Do
For у : = 0 To PaintBoxl Height — 1 Do
begin । Перебор&сех точек области отобра^ния слева направо и сверху вниз)
Lengths := Sqr(х) + Sqr(у);
(Расчет расстояния текущей точки от левого верхнего угла компонента)
PaintBoxl.Canvas.Pixels [х, у] := RGB( Round(Length2 * 255 / MaxLength2), 0, 0);
(Установка цвета точке (х, у). Красная составляющая определяется соотношением квадрата расстояния данной точки от левого верхнего угла компонента и квадратом максимального расстояния. Остальные составляющие цвета заданы нулевыми) end; end;
При изменении размеров формы автоматически изменяются и размеры компонента PaintBox в соответствии со свойством Anchors. В этот момент заносятся новые значения в свойства width и Height данного компонента, и вызывается обработчик события OnF a int, который на основе новых значений свойств Width и Height выводит на область отображения компонента PaintBox новое изображение.
Использование виртуального экрана
Алгоритм, использованный в обработчике (листинг 14.1), выводит изображение медленно. Причем процесс прорисовки виден не только при изменении размеров компонента, но и при затирании его каким-либо окном, например окном другого приложения. Что касается медленного вывода изображения при изменении размеров компонента, то с этим можно бороться только с помощью улучшения алгоритма, так как цвета всех точек должны быть рассчитаны заново. Быстрый ввод при затирании сторонним окном обеспечить несложно, так как цветовая информация уже была получена при предыдущем выводе. Для сохранения такой информации можно использовать так называемый виртуальный экран — растровое изображение TBitmap, на которое на самом деле будет выводиться градиентный прямоугольник, а вывод изображения в окно будет происходить уже с виртуального экрана.
Создание виртуального экрана (экземпляра класса TBitmap) должно происходить при создании формы, а его разрушение при ее закрытии. Для этого следует реализовать соответственно обработчики событий формы OnCreate и OnClose. Ссылку на виртуальный экран можно расположить в секциях private, protected или public описательной части класса формы.
В обработчике OnPaint компонента PaintBox поместим проверку на соответствие размеров компонента и виртуального экрана. Если размеры совпадают, то изображение виртуального экрана следует вывести на область отображения PaintBox, если нет, то нужно выполнить следующие действия:
Изменение размеров виртуального экрана;
Формирование изображения на виртуальном экране;
Вывод изображения в компонент PaintBox.
Модуль формы будет выглядеть, как показано на рис. 14.2.
Листинг 14.2. Модуль формы
unit Unitl;
interface
us® Windows, Messages, SysOtilSf Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TFoml = class (TForm)
PaintBoxl: TPaintBox;
procedure PaintBoxlPaint(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction) ;
private^ '
VirtualScreen: TBitmap;
(Описание ссылки на виртуальный экран) public
{ Public declaYations } end;
vat
Formi: TForml;
implement Жi on
<$R *.dfm)
procedure TForml.PaintBoxlPaint(Sender: TObject);
Var
x, y: IntegS;
Length2, MaxLength2: Integer;
begin if (VirtualScreen.Width <> PaintBoxl.Width) OR
(VirtualScreen.Height <> PaintBoxl.Height) then
I '{Проверка «есоответсте^ размеров виртуального экрана и кошонента PaintBoxl)
begin(ЕСЛИ размеры не одинаковы)
VirtualScreen.Width : = PaintBoxl.Width;
VirtualScreen.Height := PaintBoxl.Height;
•(Установка ^змеров’^Ьрч^Нзв® го экрана, соответствующих компоненту PaintBoxl) MaxLength2 := Sqr(VirtualScreen.Width) + Sqr(VirtualScreen.Height); For x := 0 To VirtualScreen.Width — 1 Do For у := 0 To VirtualScreen. Height — 1 Do begin Length2 := Sqr(x) + Sqr(y);
VirtualScreen.Canvas.Pixels[x, y] := RGB ( Round(Length2 * 255 / MaxLength2), 0, 0) ;
end;(Вывод изображенияМгДвиртуальный -। ,
end;
Canvas.Draw(0, 0, VirtualScreen); (Копирование изображения с виртуалвного экрана на области отображения |^^gnoHe®a :II
end;
procedure TForml.FormCreate(Sender: TObject); begin VirtualScreen := TBitmap.Create;
end;(Обработчик ЙобьИия <3®Дц^^иЙ формы —
создание виртуального экрана (экземтляра класса TBitmap))
procedure TForml.FormClose(Sender: TObject; var Action: TCloseAction); begin VirtualScreen.Free;
end;(Обработчик события закрытия формы —
Траз^Бжние и : уальног<|^№9
( • sImV ^ ЗЯЯТВИЙар) f1 1 ■ .
Компоненты-кнопки
ВИДЫ КНОПОК
Кнопки используются в подавляющем большинстве программных продуктов и предназначены для однократного выполнения какого-либо действия. Кнопки представляют собой поверхность с подписью, обычно обведенную трехмерной рамкой, которая может появляться при наведении на нее мыши (так. называемый flat-стиль). Гакже имеется возможность вывода на поверхность кнопки графического изображения.
В Delphi данные элементы управления реализованы в трех вариантах:
ли — компонент Button на странице standard Палитры компонентов; । — компонент BitBtn на странице Additional;
Я] — компонент SpeedButton на странице Additional.
Компоненты Button и BitBtn являются оболочками вокруг стандартного элемента управления Windows, причем класс TBitBtn унаследован от TButton (см. рис. 14.27). Компонент SpeedButton принадлежит к группе легковесных компонентов и имеет некоторые особенности в использовании относительно Button и BitBtn.
Рис. 14.27. Иерархия компонентов-кнопок
Кнопки Button и BitBtn
Простые кнопки Button
Самый простой компонент Button помимо свойств, унаследованных от базового класса элементов управления TControl, поддерживает свойство Caption, в котором хранится строка, выводимая в качестве подписи на кнопке, и Wordwrap, аналогичное одноименному свойству
jdnijsJj
Открыть | Выход из |
закрыть I программы 1
Рис. 14.28. Компонент Button
компонента Label, и указывающее на возможность разбиения подписи на несколько строк (см. рис. 14.28):
property Caption: String;
property Wordwrap: зоРс ;
Шрифт, которым подпись выводится на поверхность кнопки, задается свойством Font соответствующего типа:
property Font: TFont;.
Несмотря на то, что в классе TFont описано свойство Color, теоретически определяющее цвет надписи, подпись на кнопке всегда выводится черным цветом, то есть цвет шрифта игнорируется.
Использование компонентов-кнопок в программе основано на обработчике события Onclick, которое возникает при нажатии пользователем кнопки. Нажатие может быть произведено с помощью мыши или, для компонентов Button и BitBtn, с помощью клавиатуры (клавишами пробел или Enter), когда кнопка находится в фокусе. Обработчик данного события имеет тип TNotifyEvent, то есть в него не передается каких-либо параметров, кроме ссылки на компонент, который вызвал это событие:
property Onclick: FNot i f /Event ;
Например, обработчик события нажатия на кнопку, который сдвигает кнопку, вызвавшую это событие, влево на десять точек, может выглядеть следующим образом:
Procedure TForml.ButtonlClick(Sender: TObject) ;
b^yin
. ■ nI. ■ t := Butt n1.bett - • 10;
end;
Кнопки BitBtn — кнопки с изображениями
Компонент BitBtn наследует все описанные возможности Button и добавляет возможность вывода на поверхность кнопки растрового изображения, задаваемого свойством Glyph (см. рис. 14.29):
property Glyph: '*:
Файл с заданным именем существует. Заменить?
Ух* I ®Ы« | ХС«ПЯ||[
Рис. 14.29. Кнопки с изображением
Любая кнопка типа BitBtn может находиться в трех состояниях, в зависимости от действий, которые выполняются пользователем в данный момент:
Пользователь не воздействует на кнопку, но компонент допускает взаимодействие, то есть свойство Enabled имеет значение True (см. левую часть рис. 14.30). В таком состоянии на поверхность кнопки выводится изображение, идентичное заданному свойством Glyph и подпись имеет черный цвет.
Пользователь не воздействует на кнопку, и компонент не допускает взаимодействие, то есть свойство Enabled имеет значение False. Изображение, заданное свойством Glyph переводится в оттени: серого цвета, подпись также изменяет свой цвет (см. центральную часть рис. 14.30).
Пользователь нажал на кнопку и еще не отпустил кнопку мыши. Изображение и подпись соответствуют нормальным, но сдвигаются вправо вниз, чтобы обеспечить эффект вдавленности кнопки (см. правую часть рис. 14.30).
Рис. 14.30. Различные состояния компонента BitBtn
Такое представление компонента BitBtn задано по умолчанию, но в некоторых случаях автоматического преобразования изображения при отмене доступа пользователя и нажатиях на кнопку может быть недостаточно, либо само преобразование цветов может быть некорректным. В таких случаях для каждого из состояний может использоваться собственное изображение, причем все три изображения должны храниться в свойстве Glyph. Изображения должны иметь одинаковые размеры и располагаться в один ряд. В рассмотренном нами примере в качестве свойства Glyph использовано изображение, представленное на рис. 14.31.
осе
Рис. 14.31 Пример изображения, заносимогов свойство Glyph компонента BitBtn
Для указания количества элементов в рисунке используется целочисленное СВОЙСТВО NumGlyphs
property ' .: : rNumi । .
В рассматриваемом примере данное свойство имеет значение 3, что указывает на необходимость разбиения изображения, заданного свойством у на три равных части и вывода каждой из них в качестве изображения кнопки, в зависимости от ее состояния.
Так, в обычном состоянии будет выведена левая треть изображения (зеленые стрелки), в запрещенном состоянии на поверхности кнопки будет отображена центральная треть рисунка (серые стрелки), а при нажатии кнопки — правая треть (уменьшенные зеленые стрелки).
Для указания относительного расположения подписи и изображения на поверхности кнопки используется перечислимое свойство Layout, возможные значения которого перечислены в табл. 14.12:
property Layout: 1 , ;
Значение
Вид компонента
QlGtyphLeft
Изображу» И В располагается слева от подписи (устанавливается по умолчанию)
bIGlyphRight
MGfyphTop
Изображение располагается справа от подписи
Изображение располагается сверхуот подписи (см. рис.)
bIGlyphBottom
Изображение располагается снизу от подписи
Таблица 14.12
Возможные значокь свойства Layout компонента BitBtn
Также следует отметить целочисленное свойство Spacing, управляющее расстоянием от изображения до подписи на поверхности кнопки:
property Spacing: Integer;
Свойство Spacing может принимать как положительные, так и отрицательные значения для приближения используемых кнопок к общей концепции интерфейса программы.
Использование стилей для кнопок BitBtn
Интересной возможностью компонента BitBtn является набор стилей, для каждого из которых заданы подпись и изображение, что может существенно ускорить построение пользовательского интерфейса. Стиль, который необходимо назначить, находится в перечислимом свойстве Kind:
property Kind:г ;
Список поддерживаемых стилей приведен в табл. 14.13.
Таблица М.13
Возможные значения свойства Kind компонента BitBtn
Кнопки Speed Button
Компоненты SpeedButton близки по внешнему виду к кнопкам BitBtn и поддерживают вышеописанные свойства Caption, Glyph, NumGlyphs, Layout и Spacing, однако не реализуют свойства Kind и Wordwrap. Кнопки SpeedButton могут отображаться в плоском виде и принимать трехмерный вид при наведении на них мыши (см. рис. 14.32), если свойство Flat имеет значение True:
property Flat:<;
Рис. 14.32. Плоский стиль элементов управления
Особенностью кнопок ре dRu г t on является их возможность фиксации в нажатом положении. Соответственно, при использовании специальных изображений, выводимых на поверхность кнопки, свойство Glyph может состоять не из трех частей, как у компонентов BitBtn, а из четырех (см. рис. '4 Ci. Если четвертое изображение не задано, и свойство I . . имеет значение 3, то в зафиксированном положении будет выведено первое изображение ^соответствующее ненажатой кнопке.
Рис. 14.33. Кнопка SpeedButton в зафиксированном состоянии и изображение, хранимое в свойстве Glyph
Для определения, в каком состоянии находится кнопка, предусмотрено логическое свойство Down, доступное в Инспекторе объектов и во время работы программы, как для чтения, так и для изменения с немедленным отображением соответствующего состояния кнопки на экране:
property Down: . .
После создания компоненты SpeedButton не поддерживают фиксацию в нажатом положении. Для включения этой возможности используется целочисленное свойство Grouplndex:
property Grouplndex: : : ■ , ;
Если свойство Grouplndex имеет значение 0, то компонент SpeedButton ведет себя как обычная кнопка BitBtn. При ненулевом значении у кнопки появляется возможность фиксации в нажатом положении, причем кнопки, имеющие одинаковое значение этого свойства, образуют группу, в которой может быть нажата только одна из кнопок. При нажатии другой кнопки в группе все остальные переходят в нормальное положение. При этом событие Onclick для каждой кнопки возникает только
при непосредственном нажатии на нее пользователем, поэтому для работы с группами компонентов SpeedButton обычно используется общий обработчик события Onclick для каждой группы.
Представим себе панель управления лифтом восьмиэтажного дома, имеющую, соответственно, восемь кнопок с номерами этажей, а также кнопки «Стоп» и «Вызов» (см. рис. 14.34). Для разработки программы, на главной форме которой находится такая панель, запустим среду разработчика Delphi, откроем новый проект, и добавим на главную форму десять компонентов - iButt п, расположив их в два столб ца. Установим необходимые значения свойствам Caption каждого из десяти компонентов.
Fake FakeFake FakeDown HatDown Hat2 tetra tatocted Prapettet | Ever** |2 tetra tatocted Prapettet | Ever** |I Groupindex 0Al thovtnI Groupindex 0Al thovtnРис. 14.34. Свойства компонентовРис. 14.34. Свойства компонентов-IQl xj-IQl xj
Fake Fake
Fake Fake
Down Hat
Down Hat
2 tetra tatocted Prapettet | Ever** |
2 tetra tatocted Prapettet | Ever** |
I Groupindex 0
Al thovtn
I Groupindex 0
Al thovtn
Рис. 14.34. Свойства компонентов
Рис. 14.34. Свойства компонентов
-IQl xj
-IQl xj
Кнопки «Стоп» и «Вызов» предназначены для выполнения однократного действия — остановки лифта и включения переговорного устройства для связи с диспетчером, поэтому они не должны поддерживать возможность фиксации в нажатом положении. Так и происходит, так как свойству Grouplndex по умолчанию установлено нулевое значение.
Обратная ситуация с кнопками выбора этажа. После нажатия пользователем на кнопку лифт начинает двигаться, и в течение всего этого времени кнопка остается нажатой. Если во время движения будет нажата другая кнопка, то предыдущей выбор должен быть отменен. Таким образом, кнопки выбора этажа образуют друг с другом группу зависимых элементов управления^ поэтому им следует установить одинаковое значение свойства Grouplndex, причем оно должно быть отлично от нуля. Например, установим значение 1.
Теперь представим, как должна реагировать программа на нажатие какой-либо кнопки. Очевидно, что обработчики событий нажатий на кнопки выбора этажа, выполняют одни и те же действия, а именно:
Направляют лифт на заданный этаж, если лифт еще не движется.
Останавливают лифт, если он уже движется, и перенаправляют его на вновь заданный этаж.
Необходимость выполнения одинаковых действий при нажатии на разные кнопки позволяет назначить им единый обработчик события Onclick, который будет вызываться при нажатии любой из восьми кнопок выбора этажа. Для начала создадим обработчик для первой кнопки, которой при добавлении на форму присвоено название SpeedButtonl. Для этого сделаем компонент SpeedButtonl активным, выберем закладку Events Инспектора объектов и дважды щелкнем мышью напротив события Onclick. Среда разработки автоматически создает обработчик события:
procedure TForml.SpeedButtonlClick(Sender: TObject);
begin end;
Реализация обработчика события может строиться на основе сравнения значения параметра Sender, в котором содержится ссылка на объект-источник сообщения, со ссылками на кнопки выбора этажа:
procedure TForml.SpeedButtonlClick(Sender :- TObject); begin
If <Тифт движется> Then Останавливаем лифт>;
If 6engfer = SpeeiMjoHnl Then
begin
вправляем лифт на 1-ый этаж>;
Exit;: 1 из обрабЛчЖа i t
end;
If Send## = H^^edEflWonHi Then
begin
;' • лир на1 2 -ей*1 этаж>; ”
Exit;( Выходим Чет #о^a
end;
If sB*fer = ^pee-Цжб W№j Then begin
|Г<Направля^и либена этаж>;М
Exit;l Выходим №i обработчикаи I
end;
те далее, дляЯНсех ввкьми кноп .
end;
Можно построить обработчик события на основе анализа свойств Down кнопок выбора этажа:
procedure TForml.SpeedButtonlClick(Sender: TObject);
begin
If <Яиф>^ ”дви"тж> Then < 0 с танавМ® а ем лиф>т>;
Ifi . Then
begin «Направляем лифт на 1-ый этаж>;
Exit;г 1 иМ Д®абс5||®|а1 ч
end; IfThen
begin
^Шалаев лайм 'лифт на 2-ой t > ;
Exit;из обработчика
end; If iThen
begin <НапраД$пВ!Яг лифяИн“ з-ий этаО; Exit;из oopfaoOT4*ka
end; так далее, для всех восьми - end;
Теперь следует назначить обработчик события Onclick компонента SpeedButtonl всем остальным компонентам, кроме кнопок «Стоп» и «Вызов». Для этого будем последовательно делать активными все компоненты по очереди, и на странице Events Инспектора объектов не создавать новый обработчик события Onclick двойным щелчком мыши, а выбирать из списка уже реализованный обработчик SpeedButtonlClick (см. рис. 14.35).
И, наконец, обратим внимание на свойство AllowAllUp компонента SpeedButton, определяющее, могут ли все кнопки, входящие в группу, одновременно находиться в ненажатом состоянии:
property AllowAllUp: .
Рис. 14.35. Назначение событию ранее реализованного обработчика
У компонентов, используемых в примере, его значение (False) не изменялось относительно установленного по умолчанию. В соответствии с этим значением нажатие на кнопку, уже находящуюся в нажатом состоянии игнорируется и не приводит к ее переводх в нормальное состояние что вполне удовлетворяет заданию, гак как кнопки в лифте не могут быть отжаты пользователем.
Для кнопок «Стоп» и «Вызов» установка любого значения этого свойства не приводит к какому-либо результату, так как для них не определено нажатое состояние.
Компоненты для редактированияпростыхданных
Под простыми данными мы подразумеваем все параметры, которые в каждый момсш времени работы программы могут иметь не более одного значения какого-либо заранее заданного типа. Это могут быть строки, вещественные и целые числа, даты и логические значения.
В настоящем разделе рассматриваются стандартные компоненты, указанные в табл. 14.14.
Компонент
Название
Описание
[Я
Edit
Компонент для ввода пользователем текстовой строки
№
LabetedEdit
Ввод строки с текстовой меткой
|мГ|
Mask Edit
Ввод строки по маске
Up Down
Изменение числового значения, находящегося в компонентах Edit, LabeledEdit и MaskEdit
S
CheckBox
Независимый переключатель
®
Radio Button
Зависимый переключатель
—
Scrollbar
Полоса скроллинга
TrackBar
Компонент для выбора числового значения из заданного диапазона
Monthcalendar
Выбор даты
я
DateTimePicker
Выбор даты или времени
Компоненты для редактирования простых данных
Таблица 14,14
Ввод строк и чисел
Для ввода строк предусмотрены стандартные компоненты Edit (страница Standard Палитры компонентов), MaskEdit (страница Additional) и LabeledEdit (страница Additional). В качестве строк могут вводиться и числовые значения, причем некоторые из приведенных компонентов могут автоматически контролировать корректность вводимой информации. Все перечисленные компоненты являются наследниками класса 7 ~ * (см. рис. 14.36), поэтому имеют множество одинаковых свойств, добавляя при этом некоторую собственную функциональность.
Рис. 14.36. Иерархия строк ввода
Строки ввода поддерживают возможность прокрутки текста, если его размеры превышают ширину компонента, выделение подстроки с помощью мыши или клавиатуры, копирование выделенной подстроки в буфер обмена Windows и вставку подстроки из буфера обмена.
Работа с буфером осуществляется либо с помощью нажатия комбинаций клавиш Ctrl-Insert (копирование подстроки в буфер) и hi reinsert (вставка информации из буфера), либо с помощью контекстного меню, вызываемого при нажатии правой кнопки мыши над компонентом (см. рис. 14.37).
Для упрощения редактирования целочисленных параметров может использоваться компонент UpDown, расположенный на странице Win3 2 Палитры компонентов.
Рассмотрение компонентов, предназначенных для редактирования текстовой информации, мы начнем с описания класса TEdit, так как его методы, свойства и события являются общими для всех трех компонентов.
Работу с буфером (• ■
выделить все
Рис. 14.37. Строки ввода поддерживают прокруткувводимой информации и работу с буфером обмена
Итак, компонент Edit предназначен для ввода пользователем одной строки, которая хранится в свойстве Text и доступна для анализа и изменения как во время визуального построения программы, так и во время ее выполнения:
property Text: '■;
Поскольку данный элемент управления может использоваться для решения различных задач, например, ввода паролей, в компоненте Edit предусмотрены некоторые свойства для управления представлением вводимого текста. Например, свойство PasswordChar задает символ, который выводится вместо любого символа строки. При этом значение свойства Text не меняется и содержит строку с реально вводимой информацией, без учета этого символа.
property: : Char;
Если свойство PasswordChar имеет значение #0, устанавливаемое по умолчанию, то символы в выводимой строке выводятся без замены, то есть свойство PasswordChar игнорируется.
Второе свойство, управляющее отображением — CharCase (от англ. Char Case — Регистр символов) — включает автоматическое преобразование вводимого текста в верхний или нижний регистр. При изменении значения данного свойства сразу же преобразуются все символы в строке Text.
property CharCase:i ।, i
Данное свойство может иметь следующие значения:
ecLowerCaseв вводимой строке используются строчные символы. Если пользователем вводится заглавный символ, он автоматически преобразуется в строчный.
ecUpperCase. в вводимой строке используются заглавные символы. Если пользователем вводится строчный символ, он автоматически преобразуется в заглавный.
ecNormalсимволы, вводимые пользователем, не проверяются
на соответствие какому-либо регистру.
Другие свойства, общие для компонентов Edit, MaskEdit и LabeledEdit, приведены в табл. 14.15.
Некоторые свойства компонента Edit_ Таблица 14 15
Свойство
Тип
Описание
AutoSelect
Boolean
Определяет, следует ли выделять вводимую строку при переходе фокуса на данный компонент
AutoSize
Boolean
Определяет, следует ли автоматически подбирать высоту элемента управления для соответствия ее размеру используемого шрифта. Эту возможность можно отключать в случаях, когда высота символов шрифта некорректно определяется компонентом
Color
TColor
Определяет цвет фона компонента
HideSelection
Boolean
Определяет, следует ли скрывать выделение текста при потере фокуса данным компонентом
MaxLength
integer
Задает максимально возможную длину вводимой строки. Используется только для контроля ввода от пользователя и не накладывает ограничений на программное изменение значения свойства Text. Если свойство MaxLength имеет нулевое значение, то количество символов в вводимой строке не ограничивается
Readonly
Boolean
Запрещает (значение True) изменение информации пользователем. В отличие от свойства Enabled, полностью запрещающего доступ пользователя к компоненту, данное свойство отключает только возможность исправления строки. Прокрутка содержимого, выделение подстроки и копирование выделенной подстроки в буфер обмена не запрещаются
Совместно со строками ввода часто используются текстовые метки Label или StaticText для указания пользователю на характер информации, которую следует ввести (см. рис. 14.38). Для упрощения разработки подобных интерфейсных связок предназначен компонент LabeledEdit, имеющий в своем составе метку Label и предоставляющий свойства для настройки ее характеристик.
Имя пользователя: MouseИмя пользователя: MouseСтроки меткиСтроки меткиРис. 14.38. Совместное использование компонентов Label и EditРис. 14.38. Совместное использование компонентов Label и Edit
Имя пользователя: Mouse
Имя пользователя: Mouse
Строки метки
Строки метки
Рис. 14.38. Совместное использование компонентов Label и Edit
Рис. 14.38. Совместное использование компонентов Label и Edit
Для доступа к текстовой метке, находящейся внутри компонента LabeledEdit, используется свойство EditLabel, разворачиваемое в Инспекторе объектов. Единственное отличие этой метки от обычной метки Label состоит в отсутствии свойств автоматического выравнивания Align и Anchors, так как положением внутренней метки управляет непосредственно компонент LabeledEdit.
Чтобы задать относительное расположение текстовой метки и поля ввода, предусмотрено перечислимое свойство LabelPosition, которое может иметь значения 1f ft (метка слева от строки ввода), ■ ■- ч 1 (метка справа), ; ’ (метка сверху) и _ Bel . w (метка снизу), а также целочисленное свойство LabelSpacing, определяющее расстояние от текстовой метки до строки ввода. Строки ввода с различными положениями текстовых меток представлены на рис. 14.39.
frДДД^ЯННН? ■-|п| *1
МОП снизу - LabeledEtfitlLob.l.dE^Z(Метке сверху
LabeledEditS Метки слева
[метка справаЯ dil4
Рис. 14.39. Компонент LabeledEditс различным расположением текстовых меток
Компонент UpDown используется для организации ввода целочисленных данных в компоненты Edit и LabeledEdit, и выглядит как две стрелки, направленные в разные стороны (см. рис. 14.40). Направление стрелок задается перечислимым свойством Orientation, которое может иметь два значения:
* lor 1 zcnta — стрелки направлены влево и вправо;
»;— стрелки направлены вверх и вни г
property Orientation: TUDOrientation;
Компонент UpDown не предназначен для самостоятельной работы и должен использоваться только совместно с компонентами Edit, MaskEdit или LabeledEdit. Для указания, к какому именно компоненту формы привязан UpDown, используется свойство Associate:
property Associate: Глы : t : ;
Заметим, что данное свойство имеет тип TWinControl, то есть компонент UpDown можно привязать к любому оконному компоненту, например, к компоненту StaticText 1
При использовании компонента StaticText чис твое значение выводится в его свойство Caption.
Рис. 14.40. Совместная работа компонентов Edit и UpDown
Для настройки пределов изменения редактируемого значения и шага изменения при однократном нажатии какой-либо кнопки компонента UpDown, используются, соответственно, целочисленные свойства Min, Мах и Increment:
property Min: Smalllnt;
property Max: Smalllnt;
MK>perty н Sma 1 ttedyM
Компонент MaskEdit (см. рис. 14.41) предназначен для ввода информации по заданному шаблону (маске) и имеет всего одно дополнительное свойство Еdit! зк, в котором содержится описание этого шаблона:
property wM^^ts^* AnsiString;
Введите Ваш номер телефона:
[(♦7 812) 996-2I
Рис. 14.41. Ввод строки по шаблону
Шаблон представляет собой строку символов, часть из которых рассматривается как управляющие (см. табл. 14.16). Управляющие символы включают и отключают какой-либо тип фильтрации. Те символы, которые не распознаются как управляющие, выводятся без изменения как часть вводимой информации и не подлежат редактированию пользователем. Маска состоит из трех частей, разделенных точкой с запятой:
Первая указывает собственно маску как последовательность символов, в том числе и управляющих;
. Во второй части находится символ, указывающий, следует ли (символ 1) переносить в свойство Text не управляющие символы, которые используются в маске, или нет (символ 0);
В третьей части задается символ, который выводится для подсказки пользователю о позициях строки, в которые следует ввести символы.
Управляющие символы, используемые в шаблонах компонента MaskEditТаблица ■' 16
Символ
Значение в маске
>
Все символы, вводимые пользователем после текущей позиции, переводят в верхний регистр. Действие прекращается после указания символа < или символов о
<
Все символы, вводимые пользователем после текущей позиции, переводятся в нижний регистр. Действие прекращается после указания символа > или символов о
о
Отключение автоматического изменения регистра вводимых символов
\
Необходим для использования в маске символов, которые считаются управляющими. Если перед управляющим символом используется \, то сам символ рассматривается как обычный
L
В текущей позиции может присутствовать только буква
1
В текущей позиции может присутствовать только буква, либо не присутствовать ничего
0
В текущей позиции может присутствовать только цифра
9
В текущей позиции можетприсутстиов;i только цифра, либо не присутствовать ничего
А
В текущей позиции может присутствовать только буква или цифра
а
В текущей позиции может присутствовать только буква или цифра, либо не присутствовать ничего
с
В текущей позиции может присутствовать любой символ
с
В текущей позиции может присутствовать любой символ, либо не присутствовать ничего
#
В текущей позиции может присутствовать цифра, знак (плюс или минус), либо не присутствовать ничего
В текущую позицию будет вставлен символ, разделяющий часы, минуты и секунды в значениях времени. Символ автоматически считывается из настроек Windows
/
В текущую позицию будет вставлен символ, разделяющий месяца, дни и года в датах. Символ автоматически считывается из HacTpoeKWindows
Используется для отделения частей маски друг от друга
-
В текущую позицию автоматически вставляется пробел
Если пользователем не введена какая-либо позиция, заявленная в шаблоне, то при попытке закончить редактирование (окончанием редактирования считается потеря компонентом фокуса), возникает исключительная ситуация.
Возможны ситуации, когда даже самая сложная маска не может обеспечить необходимую фильтрацию вводимой информации. Например, маска не поддерживает ввод неопределенного количества однотипных символов. В таких случаях следует использовать обработчик события OnKeyPress, возникающего после нажатия пользователем клавиши, но перед изменением информации в свойстве Text. В обработчик этого события в качестве параметра Key передается символ, соответствующий нажатой клавише:
рг-вегРу иМеужезз: Type TKeyPressEvent
TKeyPressEvent;
= к;.>^4Sender :■ Tflbject;j|i
var Key: Char) of obEct;
Если ввод символа в данный момент недопустим, то параметру Key следует присвоить значение #0, в результате чего нажатие клавиши будет проигнорировано. Например, чтобы запретить нажатие на клавишу «1» для какого-либо компонента, ^следует реализовать обработчик OnKeyPress данного компонента следующим образом:
procedure TForml.MaskEditlKeyPress(Sender: TObject; var Key: Char); begin
If Key = *' ' Then Key := #0;
end;
Заметим, что запрет ввода в обработчиках такого рода распространяется только на символы, вводимые пользователем непосредственно. Операции вставки строк из буфера обмена и программная установка свойства Text не вызывают события OnKeyPress.
Компоненты Edit, LabeledEdit и MaskEdit поддерживают еще два события, аналогичных OnKeyPress. События возникают соответственно при нажатии и отпускании клавиш, и описаны следующим образом:
property OnKeyDown: TKeyEvent; property OnKeyUp: TKeyEvent; Type
TKeyEvent = procedure (Sender: TObject; var Key: Word;
Shift: TShiftState) of object;
ДополнительныйДополнительныйпараметрпараметр
Дополнительный
Дополнительный
параметр
параметр
ЭлементЗначениеssShlttНажата клавиша ShiftSSAI1Нажата клавиша AltssCtrlНажата клавиша ControlЭлементЗначениеssShlttНажата клавиша ShiftSSAI1Нажата клавиша AltssCtrlНажата клавиша ControlТаблица 14.17Таблица 14.17Элементы множества TShiftStateЭлементы множества TShiftState
Элемент
Значение
ssShltt
Нажата клавиша Shift
SSAI1
Нажата клавиша Alt
ssCtrl
Нажата клавиша Control
Элемент
Значение
ssShltt
Нажата клавиша Shift
SSAI1
Нажата клавиша Alt
ssCtrl
Нажата клавиша Control
Таблица 14.17
Таблица 14.17
Элементы множества TShiftState
Элементы множества TShiftState
Shift State, передаваемый в обработчики ЭТИХ событий ЯВЛЯеТСЯ МНОжеством, определяющим состояние дополнительных клавиш Shift, Alt и Control в момент нажатия клавиши, КОД КОТОРОЙ НаХОДИТСЯ В Параметре Key. Возможные элементы множества типа TShiftState представлены в табл. I 1.17.
В качестве примера использования фильтрации вводимой информации напишем программу, предлагающую пользователю ввести номер телефона в формате «Код страны — Код города — Номер из семи цифр», причем код страны и код города являются необязательными для ввода, первая цифра номера телефона должна находиться в интервале от 1 ЛО 5, а все символы, используемые для удобства пользователя, не будут сохраняться в свойстве Text. Для просмотра свойства Text предусмотрим текстовую метку, в которую при нажатии специальной кнопки будет переноситься строка, введенная пользователем.
Добавим на форму компонент На -. 1 и настроим его свойство
;Итак, первая часть строки, содержащая код страны, пред
ставляет собой символ + и необязательную для ввода цифру. Соответственно, эта часть маски будет иметь следующий вид: « * 9», что подразумевает возможность ввода цифры во вторую позицию строки.
Вторая часть строки содержит код города из трех цифр, также необязательных для ввода. Соответственно следующая часть маски будет выглядеть так: «999» . И, наконец, сам номер телефона представляет собой семь цифр, обязательных для ввода: «0000000».
Таким образом, маска, состоящая из всех этих частей, представляет собой строку «+99990000000». Для удобства пользователя добавим в нее несколько символов, отделяющих различные части номера друг от друга:
+9 999 000-00-00
Чтобы обеспечить очистку введенного значения от пробелов, при переносе его в свойство Text, следует добавить в маску второй раздел, в котором указываем символ 0:
+9 999-.
Для указания позиции ввода будем использовать символ подчеркивания:
+9 9991
Таким образом, маска сформирована, и можно переходить к реализации анализа корректности семизначного номера. Наличие всех семи цифр контролировать не требуется, так как это будет происходить автоматически, в соответствии с маской. Нам следует обеспечить только проверку восьмого символа вводимой строки, который должен находиться в интервале от «1» до «5». Создадим обработчик события От Press компонента MaskEditl следующего вида:
procedure TForml.MaskEditlKeyPress(Sender: TObject;
var Key: ha: ) ,
begin,
ifi7) and
not 'i >and (Key < ’ ' : :
Then Key := #0;
end;
Проверка корректности ввода основана на анализе значения свойства SelStart компонента MaskEditl, в котором находится номер позиции (отсчитывается от нуля) ввода текущего символа. Позиция определяется непосредственно в компоненте MaskEdit и не имеет никакого отношения к маске. Поэтому первая цифра номера телефона находится
в позиции 7. Если пользователь вводит символ в седьмую позицию, то выполняется проверка на корректность вводимой цифры. Если условие выполнено полностью, ввод символа запрещается.
Далее расположим на форме кнопку Button и текстовую метку Label. Создадим обработчик One lie к кнопки следующего вида для переноса введенного значения из строки ввода в текстовую метку:
procedure Г1 п .ButtonlClick(Sender: TObject);
begin
Labell.Caption := MaskEditl.Text;
end;
Результат работы программы представлен на рис. 14.42. При попытке некорректного ввода первой цифры номера, нажатие на клавишу игнорируется, а при попытке нажать на кнопку «Показать» при незаполненных позициях номера, на экран выводится предупреждение об ошибке ввода (см. рис. 14.42).
йИТТНс1 ■•-Ю1 xj
|-7812247-081.
Ц • ■ m J
Рис. 14.42. Ввод по маске с фильтрацией. Ошибка ввода
Редактирование логических значений.Переключатели
Для редактирования логических значений предусмотрены компоненты Checkbox (страница Standard Палитры компонентов) и Radio Button (также страница standard). Оба компонента являются наследниками класса TButtonControl, который, в свою очередь унаследован от №in« anti (см. рис. 14.43) и описывает свойства, характерные для переключателей.
Компоненты-переключатели могут находиться в двух состояниях — «включено» и «выключено» — определяемых логическим свойством Checked:
property Checked: Boolean;
Рис 14.43. Иерархия компонентов-переключателей
Значение True данного свойства указывает на положение переключателя «включено», а значение False — на положение «выключено». Свойство доступно для анализа и изменения, как во время визуального построения программы, что позволяет установить некоторые начальные значения, так и во время ее работы.
Компонент CheckBox выглядит как прямоугольник, в котором может находиться отметка о включении (см. рис. 14.44), а компонент RadioButton имеет вид круга. Оба компонента имеют подпись, указывающую пользователю на параметр, включением которого управляет данный переключатель. Строка, выводимая в качестве подписи, содержится в свойстве Caption и может быть разбита на несколько строк в соответствии со свойством Wordwrap:
property Caption: String;
property Wordwrap: ;
iiCBQiiHumibh.-^ л. - idi xi i
P Автоматически определять форма! файлов Р Использовать многоцветные режим :
Рис. 14.44. Независимые переключатели
Подпись может выводиться слева или справа от компонента, в зависимости от значения перечислимого свойства Alignment:
property Alignment:,
При значении данного свойства ■.••■!.--•_, подпись выводится слева от компонента, а при значении taRightlustify — справа (см. рис. 14.45).
^^■■с »igixi
17 tn Right JustifylaLeftJustify Г
Г !a Right JustifytaLeftJustify ^
Рис. 14.45. Выравнивание подписи относительно компонентов
Существенное отличие между двумя рассматриваемыми компонентами состоит в том, что компонент checkBox предназначен для самостоятельной работы и называется соответственно независимым переключателем, тогда какпредставляет собой компонент для ра
боты в грх шах, аналогичных группам компонентов SpeedButton, рассмотренным выше.
Поскольку часто последствия включения или выключения какой-либо возможности в программе могут быть не ясны для пользователя (или в зависимости от ситуации, пользователь не готов использовать значение, предлагаемое программой) в компоненте CheckBox, кроме двух вариантов логического значения «да» и «нет», реализован третий — «не знаю». Внешне, независимый переключатель, имеющий такое значение, выглядит как включенный, но символ активности выводится серым цветом.
Возможностью такого состояния независимого переключателя управляет логическое свойство AllowGrayed (от англ. Allow Grayed — разрешить быть серым):
property AllowGrayed:;
Для определения состояния переключателя, для которого включена возможность промежуточного состояния, используется перечислимое свойство State:
property State:;
Наличие данного свойства не исключает возможности использования свойства checked, а дополняет его. Свойство может принимать следующие значения:
cbUnchecked . . . компонент находится в состоянии «выключено». Свойство Checked при этом имеет значение False;
cbCheckedкомпонент находится в состоянии «включено». Свойство Checked при этом имеет значение True;
cbGrayedкомпонент находится в промежуточном «сером» состоянии. Свойство Checked при этом имеет значение False.
Изменения в одном из свойств State или checked автоматически ведут к изменению значения второго свойства.
Компонент RadioButton не может находиться в промежуточном состоянии, так как это противоречит его назначению — выбору одного значения из нескольких возможных. Несколько таких компонентов, находящихся в одном контейнере, автоматически образуют между собой группу. При включении одного переключателя из такой группы все остальные автоматически выключаются.
Изменение числового значенияв заданном диапазоне
Рассмотренный выше компонент ProgressBar отображает положение некоторого целочисленного параметра относительно заданного диапазона. Для изменения числового параметра по такому же принципу предназначены компоненты Scrollbar (страница Standard Палитры компонентов) и TrackBar (страница Win32).
Компонент ScrollBar (полоса скроллинга)
Компонент ScrollBar (полоса скроллинга) используется обычно для схематичного изображения видимой части некоторого большого документа и состоит из следующих элементов (см. рис. 14.46):
Основная часть, символизирующая весь документ.
Бегунок, символизирующий видимую область документа.
Стрелки перемещения бегунка для смещения видимой области внутри документа.
Помимо нажатия на стрелки перемещения бегунка, пользователь может перемещать видимую область, нажимая кнопку мыши на основной части, не занятой бегунком. Такое перемещение бегунка называется большим, в отличие от малого, получаемого при нажатии кнопок смещения бегунка.
Для определения длины основной части и бегунка в условных единицах используются свойства Min, Мах и PageSize:
propertyMin: Integer;
property Max: ' ^;
property PageSize: Integer;
Если свойство PageSize имеет нулевое значение, то размер бегунка выбирается автоматически. Для определения позиции бегунка используется свойство Position, которое также задается в условных единицах интервала (Min, Мах):
property Position: Integer;
Минимальное значение свойства Position соответствует значению свойства Min, при этом бегунок находится в самом левом положении основной части полосы скроллинга при ее горизонтальном расположении, либо в самом верхнем положении основной части полосы при ее вертикальном расположении. Расположением компонента ScrollBar управляет перечислимое свойство Kind:
property Kind:11■ ■;
Данное свойство может иметь значения sbHorizontal (горизонтальное расположение) и sbVertical (вертикальное расположение).
И, наконец, для управления размером смещения бегунка, также задаваемым в относительных единицах, используются свойства SmallChange (смещение при нажатии на кнопки перемещения бегунка) и LargeChange (смещение при нажатии на основную часть полосы скроллинга):
property SmallChange: TScrollBarlnc;
property LargeChange: TScrollBarlnc;
Тип TScrollBarlnc является поддиапазоном типа Sma 1 "nt и описан в модуле Forms следующим образом:
Туре TScrollBarlnc = i;
Компонент TrackBar — выбора числового значения из интервала
Компонент TrackBar (см. рис. 14.47) имеет немного другую направленность и предоставляет пользователю возможность выбора числового значения из интервала. Данный компонент имеет гораздо больше настроек визуального представления:
» горизонтальное или вертикальное расположение на форме;
* шкала с рисками для более удобного перемещения бегунка, расположенная по одной из сторон компонента, либо выводимая по обе стороны компонента, либо вообще не отображаемая. Шкала состо-
Inform Г
Рис. 14.47. Компонент TrackBar
Свойство
Тип
Описание
Orientation
TTrackBarOrientation
Определяет расположение компонента и может иметь два значения: trHorizontal (горизонтальное расположение), trVertical (вертикальное расположение)
Min
Integer
Минимальное значение интервала изменения параметра
Max
Integer
Максимальное значение интервала изменения параметра
Position
Integer
Текущая позиция бегунка (изменяемое значение) в интервале
UneSize
Integer
Задает смещение бегунка в условных единицах при его перемещении клавишами влево (вверх) или вправо (вниз)
PageSize
Integer
Задает смещение бегунка в условных единицах при его перемещении клавишами PageUp или PageDown
SliderVisible
Boolean
Видимость бегунка
SelEnd
Integer
Начало выделенного интервала на фоне компонента
SelStart
Integer
Окончание выделенного интервала на фоне компонента
TickMarks
TTickMatk
Задает сторону компонента, по которой выводится шкала, и может иметь одно из трех значений: tmBottomRight (шкала выводится справа или снизу от фоновой области), tmTopleft (слева или сверху), tmBoth (по обеим сторонам фоновой области)
Frequency
Integer
Частота нанесения рисок на шкале, если шкала выводится
Tic kStyleDesc ription
TTickStyte
Задает расположение рисок на шкале и может иметь одно из трех значений: tsNone (риски не выводятся), t; -"• uto (риски выводятся в соответствии со значением свойства Frequency), tsManual (выводится первая и последняя риска, остальные могут быть добавлены во время выполнения программы вызовом метода SetMark)
ThumbLcngth
Integer
Ширина (при вертикальном расположении компонента) или высота (при горизонтальном расположении) бегунка в точках. При изменении значения данного свойства автоматически изменяется размер фоновой области
Таблица 14.18
Некоторые свойства компонента TrackBar
ит из рисок без подписей, причем частота нанесения рисок может быть настроена;
заливку части фоновой области, аналогичную используемой в компоненте ProgressBar;
бегунок непрямоугольной формы, указывающий в сторону шкалы, либо прямоугольной формы, если шкала выведена по обе стороны компонента;
возможность сокрытия бегунка.
Свойства компонентапредставлены в табл. 14.18.
Выбор даты
Элементы управления, предназначенные для выбора даты, часто являются узким местом в программных продуктах. Обусловлено это тем, что при вводе пользователем даты или времени в строковом виде, например «10/03/2004», появляется проблема формата, а написание каких-либо компонентов для более строгой реализации выбора не простая задача. Однако в Windows реализованы элементы управления для ввода данных такого рода, а в Delphi присутствуют компоненты-оболочки них элементов управления DateTimePicker (расположен на странице Win32 Палитры компонентов) и MonthCalendar (также со страницы Win32).
Компоненты просты в использовании и имеют довольно гибкие цветовые настройки, что обеспечивает возможность их использования при но строении пользовательского интерфейса практически любой сложности.
Компонент MonthCalendar (см. левый верхний компонент на рис. 14.48) представляет собой прямоугольную область с заголовком, в которую выведен кален тарный лист на один заданный месяц заданного года. Для смены месяца и года предназначены кнопки, находящиеся на заголовке. Выбор даты осуществляется пользователем с помощью мыши, причем сразу же может быть выбран непрерывный интервал времени, если свойство MultiSelect компонента имеет значение True.
^iqiju
ПнВтСрЧтП»СбВс123А5Б7891011121314<$>16171819202122232425262728 29 И|ПнВтСрЧтП»СбВс123А5Б7891011121314<$>16171819202122232425262728 29 И|Сегодня: 15 06 2004JlS иные 2004 г.Сегодня: 15 06 2004JlS иные 2004 г.|15 июне 2004 г ’||15 июне 2004 г ’|Рис. 14.48. Компоненты выбора даты и времениРис. 14.48. Компоненты выбора даты и времени
ПнВтСрЧтП»СбВс
123А5Б
78910111213
14<$>1617181920
21222324252627
28 29 И|
ПнВтСрЧтП»СбВс
123А5Б
78910111213
14<$>1617181920
21222324252627
28 29 И|
Сегодня: 15 06 2004
JlS иные 2004 г.
Сегодня: 15 06 2004
JlS иные 2004 г.
|15 июне 2004 г ’|
|15 июне 2004 г ’|
Рис. 14.48. Компоненты выбора даты и времени
Рис. 14.48. Компоненты выбора даты и времени
Значение, выбранное пользователем, заносится в свойство Date, и может использоваться в различных функциях и методах объектов, принимающих параметры данного типа:
property Date:Не;
Если свойство KultiSelect имеет значение True, то есть допустим выбор интервала времени, то начало интервала будет занесено в свойство Date, а его окончание — в свойство EndDate. Е[елочисленное свойство MaxSelectRange устанавливает максимальную длину интервала, который может выбрать пользователь.
швленевяв*. -ма
[ \ 59 Ш.
Рис. 14.49. Ввод времени
Установка свойства Date во время разработки приложения приводит к отображению соответствующей календарной страницы после старта программы и автоматическому выбору установленной даты.
Среди дополнительных возможностей компонента MonthCalendar отметим следующие:
♦ Вывод номеров недель в левом столбце календарного листа (управляется логическим свойством : \ е е к'; и ir.be г s).
Смена палитры цветов, используемых для вывода компонента (свойство CalColors).
Вывод календаря с заданного дня недели (например, с воскресенья) или с дня недели, соответствующего настройкам операционной системы (СВОЙСТВО I- г s tDayO f We e k)
Ограничение выбора даты пользователем с помощью свойств мinDat И MaxDate.
Быстрый ввод текущей даты с помощью специальной области «Сегодня», расположенной в нижней части страницы (включение данной области управляется свойством ShowToday).
Компонент DateTimePicker (см. левый нижний и правый компоненты на рис. ) представляет собой строку ввода со специальной областью в правой ее части. Внешний вид данной области и действия, выполняемые при нажатии кнопки мыши в данной области, зависят от значения свойства DateMode:
property DateMode: TDTDateMode;
Type TDTDateMode = ( : : ml u dn-.UpDown) ;
Если свойство DateKcde имеет значение dmComboBox, то в правой части компонента отображается стрелка вниз. При нажатии на эту стрелку мышью на экран выводится всплывающее окно, содержащее аналог компонента Усг. thCa er.dar. Окно будет автоматически закрыто после выбора даты, или при щелчке мышью за пределами его области.
Выпадающий компонент имеет несколько меньше настроек, чем MonthCalendar, например не предусмотрена возможность выбора интервалов времени. Пример выпадающего окна как раз и показан на рис. 14.50 (правый компонент).
Если свойство DateMode имеет значение d : ; Down, то в правой части компонента отображаются стрелки вверх и вниз, аналогичные компоненту : ' wn (см. рис. 14.50).
7 fnrml
|152004 г. g
Рис. 14.50. UpDown-режим компонента DateTimePicker
Значение даты, выведенное в строку ввода, состоит из нескольких частей, причем каждую из них можно выбрать мышью. Далее, при нажатии на кнопки вверх и вниз в правой части компонента, выделенная часть будет изменяться. В режиме dmUpDown возможен также выбор времени.
Какое именно значение должен редактировать пользователь — дату или время, указывает свойство Kind:
property Kind: TDateTimeKind;
Type TDateTimeKind = (dtkDate, dt kT ne) ;
По умолчанию установлено значение dtkDate, и компонент работает в режиме ввода даты. При смене значения на dtkTime компонент переводится в режим редактирования времени, а введенное значение заносится в свойство Time.
В заключение рассмотрим возможности форматирования значения в компоненте DateTimePicker. Самое простое форматирование обеспечивается перечислимым свойством Date Format:
property DateFormat: TDTDateFormat;
Значением данного свойства может являться одно из двух значений:
» l: short — указывает на цифровое представление даты;
♦ dfLong — для расширенного представления даты, а именно вывода названия месяца и признака года (например, буквы ‘г’)
На формат времени, выводимого в компоненте, если он находится в режиме редактирования времени, значение свойства : не влияет.
Более сложные задачи можно решать с помощью свойства Format, представляющего собой строку символов, некоторые из которых могут быть управляющими (см. табл. 14.19).
Управляющие символы,Таблица 14 19
используемые в формате вывода компонента Patel г р„ l h.
Символ
Значение
Пример
d
Номер дня в месяце в цифровой форме
3
dd
Номер дня в месяце в цифровой форме, причем вне зависимости от значения будут выведены две цифры. Если значение меньше десяти, то слева будет приписан символ 0
03
ddd
День недели в символьной сокращенной форме
Вт
dddd
День недели в символьной полной форме
Вторник
м
Месяц в цифровой форме
3
ММ
Месяц в цифровой форме, причем вне зависимости от значения будут выведены две цифры
03
МММ
Месяц в символьной сокращенной форме
июн
ММММ •
Месяц в символьной полной форме
июня
УУ
Последние две цифры года
04
УУУУ
Год в четыре цифры
2004
h
Час в цифровой форме в 12 л часовом исчислении
4
hh
Час в цифровой форме в 12-ти часовом исчислении, причем вне зависимости от значения будут выведены две цифры
04
н
Час в цифровой форме в 24-ех часовом исчислении
16
НН
Час в цифровой форме в 24-ех часовом исчислении, причем вне зависимости от значения будут выведены две цифры
16
m
Минуты в цифровой форме
9
mm
Минуты в цифровой форме, причем вне зависимости от значения будут выведены две цифры
09
t
Один символ аббревиатуры АМ/РМ
Р
tt
Аббревиатура АМ/РМ полностью
РМ
На рис. 14.51 представлен компонент DateTimePicker, свойство Format которого имеет следующее значение:
dd ММММ уууу 1 i. ,: ' ■ tt
Рис. 14.5 1. Использование сложного форматирования
даты и времени
Отметим, что скобки и запятая, использованные в форматной строке, выводятся в строку ввода времени и даты без изменения и упрощают восприятие пользователем сложныхданных.
Еще одной особенностью такого представления даты и времени является невозможность одновременного редактирования и даты и времени. В приведенном примере свойство Kind имеет значение dtkDate, и компонент может изменять только значение даты.
Выбор значения с помощью списков
Виды компонентов выбора из списка
В Delphi предусмотрена целая линейка компонентов^которые применяются для организации выбора пользователем одного или нескольких значений из некоторого списка. Основные из них перечислены в табл. 14.20.
Компоненты выбора из списковТаблица ' ' 20
Компонент
Название
Описание
ListBox
Список с возможностью выбора одного значения из списка
Я!
CheckUstBox
Список с возможностью выбора нескольких значений из списка
Ш
ComboBox
Выпадающий списокс возможностью выбора одного значения изсписка
Hi
ColorBox
Выпадающий список для выбора цвета
Заметим, что выбор значения из списка во многом аналогичен, по сути, использованию зависимых переключателей в виде набора компонентов RadioButton или SpeedButton, либо одного компонента RadioGroup. Однако такие решения ограничены для некоторых видов задач. Например, если список значений может изменяться во время выполнения программы, то поддержка группы компонентов RadioButton подразу- мсвас'1 программное создание и разрушение этих компонентов, а также еще множество действий по их настройке, например, позиционирование или определение размеров.
Компонент RadioGroup имеет ограниченное применение еще и в связи с отсутствием в нем возможности прокрутки видимой области в случаях, когда не весь список значений может быть выведен в пределах компонента, в силу своих размеров. Заметим также, что некоторые списковые компоненты имеют возможность выбора нескольких значений из
списка' . что делает их еще более привлекательными для использования по сравнению с компонентами i ad i с Button и RadicG ।
Таким образом, применение списковых компонентов удобно, в основном, в случаях списков переменного состава, но имеются и еще некоторые полезные возможности. Так, все приведенные компоненты имеют логическое свойство AutoComplete, определяющее, должно ли меняться состояние списка при нажатии пользователем каких-либо клавиш:
property plc Boolean;
Если данное свойство имеет значение True (установлено по умолчанию), то при нажатии пользователем клавиши в списке автоматически выбирается элемент, первый символ которого соответствует нажатой клавише. Это может существенно ускорить работу пользователя, особенно в случае больших списков.
Иерархия списковых компонентов представлена на рис. 14.52. Заметим, что все списковые компоненты так или иначе являются наследниками класса THin mt 1. то есть представляют собой оболочки вокруг стандартных элементов управления Windows. Соответственно, все они имеют описанные нами ранее свойства, характерные для таких компонентов.
Рис. 14.52. Иерархия списковых компонентов
Возможность множественного выбора можно реализоватьс помощью группыкомпонентов SpeedButton, однако такое поведение будет сложно изменить во время выполнения программы, тогда какв списковых компонентах это делается изменением значения одного свойства : \'. u1t Sе I есt)
Компонент ListBox
Компонент ListBox (страница Standard Палитры компонентов) предназначен для выбора пользователем одного значения из представленного списка возможных значений.
Список, из которого пользователь выбирает значение, находится в свойстве Items данного компонента:
property Items:: -
По умолчанию пользователь может выбрать только одно из значений, представленных в списке, однако компонент поддерживает и множественный выбор. Такой возможностью управляет логическое свойство MultiSelect:
property MultiSelect: Boolean;
Если данное свойство имеет значение True, то пользователь имеет возможность выбрать несколько элементов из списка одновременно (см. рис. 14.53), удерживая при выборе очередного элемента клавишу Ctrl. Если клавиша Ctrl не нажата, то все выделенные на данный момент элементы теряют выделение, а выделенным будет только тот элемент, который был выбран пользователем.
Рис. 14.53. Компоненты ComboBox (слева) и ListBox (справа)
Любой фрагмент программы, имеющий доступ к ссылке на компонент ListBox, может определить состояние какого-либо элемента списка, обратившись к свойству Selected, описанному следующим образом:
property , ted[Index: Integer]: Boolean;
Для проверки, является ли некоторый элемент выбранным, можно использовать конструкцию следующего вида:
If <Ссылка на компонент».Selected[<HoMep элемента»] Then Веобхе^вЙЙ ДвЙСТВИЯХ#
Также свойство Selected может быть использовано для программного выделения одного или нескольких элементов списка во время выполнения программы:
<Ссылка на компонент*.Selected[<Номер элемента*] : = True;
При установленном значении True свойствапрограмм
ное выделение элементов с помощью свойства Selected не приводит к потере выделения другими элементами. Для снятия выделения следует установить значение False соответствующему элементу свойства Selected:
<Ссылка на компонент*.Selected[<Номер элемента*] := False;
В случае, когда включена возможность множественного выбора, количество выбранных элементов определяется свойством SelCount:
property SeCmint: HInteger;
Компонент CheckListBox
Компонент CheckListBox, расположенный на странице Additional Палитры компонентов, аналогичен компоненту .. ■ I , однако предполагает наличие значка «выбран» слева от элементов списка (см. рис. 14.54).
7 'forml7 'forml
7 'forml
7 'forml
]
. MacGS
VoS/2
* Windows
Рис. 14.54. Компонент CheckListBox
В данном компоненте не реализовано свойство MultiSelect, так как он изначально предназначен для множественного выбора элементов. В остальном все свойства компонента описанные в предыдущем разделе, применимы и к компоненту CheckListBox.
Анализ состояния элементов в списке происходит так же, как и в компоненте ListBox, — на основе свойства Selected. Однако заметим, что в этом свойстве находится не состояние переключателей, расположенных слева от элементов списка, а номер элемента, который в данный момент выбран как активный. В ситуации, показанной на рисунке, при обращении к свойству Selected будет получено значение True только если задан индекс 0:
If CheckListBoxl.Selected[ 0 ] Then «Выполняемая команда>;
Для анализа состояния переключателя «выбрано», находящегося слева от элементов списка, следует применять свойство State:
property :■ ] : TCheckBoxState;
Тип данных TCheckBoxState подробно рассмотрен при описании независимых переключателей.
Для компонента CheckListBox предусмотрено еще одно состояние элементов, кроме «выбран» и «не выбран» — «не важно». Такое состояние возможно, если свойство AllowGrayed компонента имеет значение True:
property AllowGrayed:1
Компонент ComboBox
Компонент ComboBox (закладка Standard Палитры компонентов) реализован в виде выпадающего списка, аналогичного List В ох, но является фактически строкой ввода, и ориентирован в основном на ввод текстового значения с клавиатуры, но с помощью списка. Далее введенное пользователем значение, вне зависимости от того, выбрано ли оно из списка, или введено вручную, заносится в свойство Text:
property Text:';
Для настройки метода работы компонента предусмотрено свойство style, определяющее может ли пользователь вводить значение свойства Text с помощью клавиатуры, или следует использовать только выпадающий список:
property Style:,-■■.! . ;
Свойство style является перечислимым и может иметь одно из пяти значений, однако мы рассмотрим всего два из них:
.Значение csDropDown, установленное свойству Style, указывает на то, ч го пользователь может выбрать значение из списка и (или) отредактировать его в строке ввода (см. рис. ).
. Значение csDropDownList. установленное свойству style, указывает на то, что пользователь может выбрать значение из списка и не имеет возможности изменить его в строке ввода.
В момент выбора пользователем одного из значений в списке или изменения текстового значения с помощью клавиатуры, компонент инициирует событие OnChange, в обработчике которого можно реализовать реакцию на изменение значения:
property OnChange: t;
Рис. 74.55. Компонент ComboBox в режиме csDropDown
Помимо свойства Text для анализа введенного значения используется целочисленное свойство Itemindex, содержащее номер выбранного элемента списка, доступное и для установки, как во время визуальной разработки, так и во время выполнения программы, что приведет к автоматическому выбору элемента с данным номером:
property Itemindex: Integer;
Компонент ColorBox
Для выбора цветовых характеристик в Delphi предусмотрен специализированный компонент ColorBox, аналогичный по механизму компоненту ComboBox, и расположенный на странице Additional Палитры компонентов (см. рис. 14.56). Изначально в списке представлен некоторый набор стандартных цветов, для которых указаны идентификаторы. Далее набор цветов можно изменить с помощью множественного свойства Style:
property :; 1 у 1е: Т (: о1 о:Вox S tу1е;
Туре
TColorBoxStyles = (cbStandardColors, cbExtendedColors, cbSystemColors, cblncludeNone, cblncludeDefault, cbCustomColor, cbPrettyNames);
TColorBoxStyle = Set Of rColorBoxStyles;
Элементы множества, которые могут быть включены в свойство style, представлены в табл. 14.21.
В момент выбора цвета компонент инициирует событие OnChange: property OnChange: UN t ifyEvent;
Результат выбора, произведенного пользователем, заносится в свойство Color:
property Color: TColoi ;
Рис. 14.56. Компонент выбора цвета Со/отВох
Элементы множества Style компонента ColorBoxТаблица 14.21
Элемент
Набор цветов
cbStandardColors
В список добавляются 16 цветов, соответствующие некоторым константам, описанным в модуле Graphics: cIBIack, cIMaroon cIGreen, clOlive, cIPurpte. cITeal, cIGray, cISilver, clfled. cILime. clYeltow. cIBIue. cIFuchsla, clAqua и clWhite
cbExtendedColors
В список добавляются цвета cIMoneyGreen. cISkyBlue. cICream и cIMedGray, также описанные в модуле Graphics
cbSystemColors
В список добавляются цвета, используемые в панели управления Windows для цветовых настроек интерфейсных элементов, например . iackgri uno — вет рабочего стола
cbincludeNone
В список добавляется цвет, задаваемый в модуле Graphics константой cINone. Данный элемент может присутствовать в множестве только при наличии томен a cbSystemColors
cblncludeDefault
В список добавляется цис» задаваемый в модуле Graphics константой с Duiault Данный элемент может присутствовать в множестве только при наличии элемента cbSystemColors
cbCustomColor
Первой строкой в списке выбора выводится 'Custom ' при выборе которой на экране появляется стандартный (системный) диалог выбора цвета. В данном диалоге пользователь может самостоятельно сформировать цвет на основе составляющих или выбрать его из палитры
cbPrettyNames
Вместо констант в списке выводятся названия цветов, что обычно более удобно для пользователя
Компоненты для редактированиямногострочных данных
Многострочные редакторы Мето и RichEdit
Компоненты для редактирования многострочных данных Мето (страница standard Палитры компонентов) и RichEdit (страница Win32) являются логическим продолжением идеи компонентов типа Edit и предоставляют пользователю возможность просмотра и изменения текстовой информации, представленной в виде нескольких строк («текстовых документов»):
। — Компонент Мето. Многострочный редактор
— Компонент RichEdit. Многострочный редактор с поддержкой форматирования
Отличие компонентов Мето и RichEdit между собой заключается в объеме предоставляемых ими возможностей, связанных с ориентацией компонента RichEdit на работу с текстовыми данными в формате RTF (от англ. RTF — Rich Text Format — Текстовый формат с широкими возможностями), принятым в операционной системе Windows за основу в обмене текстовой информацией между приложениями.
На рис. 14.57 представлены компоненты Мето (верхний компонент) и RichEdit (нижний компонент). Причем текст, выведенный в компоненте RichEdit подготовлен в текстовом редакторе Microsoft Word и скопирован в компонент через буфер обмена Вторая строка текста набрана символами четырех различных шрифтов одновременно с использованием разных атрибутов полужирности и наклона.
Рис. 14.57. Компоненты для редактирования многострочного текста
Символы, выводимые в компоненте Мето, всегда имеют одинаковые для всего текста характеристики в каждый момент времени работы программы.
Заметим, что компоненты Edit, LabeledEdit и MaskEdit, рассмотренные выше, и компоненты Мето и RichEdit являются наследниками одного и того же класса TCustomEdit, поэтому имеют множество одинаковых свойств и методов.
При этом компоненты Мето и RichEdit унаследованы от этого класса не прямо, а через класс TCustomMemo (см. рис. 14.58), в котором описаны основы поведения компонентов, предназначенных для отображения и редактирования именно многострочных данных.
Рис. 14.58. Иерархия компонентов для редактирования многострочных данных
Рассмотрим сначала свойства, общие для компонентов Мето и RichEdit, а затем перейдем к подробному описанию особенностей компонента RichEdit, как значительно более сложного и предоставляющего гораздо больше возможностей для представления текстовой информации.
Массив строк, отображаемых и редактируемых в компонентах Мето и RichEdit, содержится в свойстве Lines, описанном в классе TCustomMemo следующим образом:
property Lines: TStrings;
Таким образом, данное свойство является ссылкой на объект базового класса TStrings, а конкретная его реализация выбирается в конструкторе компонентов Мето и RichEdit в соответствии с потребностями этих компонентов.
В классе свойство Lines на самом деле является ссылкой на экземпляр класса 1- - ■, а в классе TRiehEdit — на экземп
ляр класса TRichEditstrings. Естественно, оба они, так или иначе, являются наследниками TStrings, реализуют заявленную в нем функциональность и добавляют особенные черты, характерные для представления текстовой информации в каждом из компонентов.
Заметим, что описания классов TMemoStrings и TRichEditstrings находятся в секции implementation модуля ... поэтому использование их расширенных функций в прикладной программе невозможно. Однако это и не нужно, так как методы, доступные через ссылку на класс TStrings, переопределены в каждом из компонентов таким образом, что предоставляют доступ ко всем необходимым в программе возможностям.
Так, например, методы SaveToFile и Lo Fr । компонента RichEdit используют формат RTF, а одноименные методы компонента Мето — обычный текстовый формат. Несмотря на это, вызовы этих методов из разных компонентов внешне не отличаются друг от друга:
Memol.Lines.SaveToFile('С:\TMP\text.txt');
RichEditl.Lines.SaveToFile('C:\TMP\text.rtf*);
Выводом текста в компоненте управляют свойства Wordwrap и Alignment, аналогичные одноименным свойствам компонента Label. Данные свойства указывают соответственно на необходимость автоматического разбиения текста на строки по границам компонентов, а также выравнивание текста в компоненте:
property Wordwrap:I :
property Alignment:1 ;1 :
При установке какого-либо значения свойству Alignment компонента Мето, весь текст выравнивается в соответствии с установленным значением. В компоненте RichEdit выравнивание текста может задаваться еще и для каждого абзаца индивидуально 5<.
Для установки шрифта, используемого для вывода текста, как и во многих других визуальных компонентах, предназначено свойство Font
property Font:" t ;
56 Для установки выравнивания текста в компоненте RichEdit вообще не рекомендуется использование свойства Alignment, так как при этом теряется форматирование, h i ифич юс для каждого абзаца текстовой информации. Причем потеря форматирования касается не только выравнивания, но и, например, настроек шрифтов.
Характеристики шрифта в компоненте RichEdit могут быть установлены для каждого символа в отдельности.
Свойства WantReturns (от англ. То Want Returns — обрабатывать символы перевода строки) и WantTabs (от англ. То Want Tabs — обрабатывать символы табуляции) указывают, может ли пользователь вводить в качестве текстовой информации символы перевода строки и символы табуляции:
property WantReturns: Boolean;
property WantTabs: Boolean;
Если свойство WantTabs имеет значение False, то при нажатии пользователем во время редактирования текста клавиши Tab, это действие будет рассматриваться системой как попытка переключения фокуса ввода между оконными компонентами данной формы. При значении True свойства WantTabs нажатие клавиши Tab приведет к вставке символа табуляции в текст.
Если свойство WantReturns имеет значение False, то нажатие пользователем клавиши Enter будет игнорироваться, иначе в многострочном редакторе будет появляться новая строка.
Для ограничения длины вводимого в компонент текста или запрета на изменение информации вообще, предусмотрены, соответственно, свойства MaxLength и Readonly:
property MaxLength: Integer;
property Readonly: Boolean;
Если текст, содержащийся в свойстве Lines, не может быть полностью выведен в силу его больших размеров, пользователь имеет возможность прокрутки его видимой области с помощью полос скроллинга, расположенных по краям компонентов Мето и RichEdit. По умолчанию такая возможность не предоставляется, однако отображение полос скроллинга может быть включено с помощью перечислимого свойства ScrollBars:
property ScrollBars: TScrollS
В каждый момент времени работы программы на экране может отображаться только один из следующих вариантов:
вертикальная полоса скроллинга — значение ssVertical свойства ScrollBars;
горизонтальная полоса скроллинга — значение ssHorizontal;
обе полосы одновременно — значение ssBoth;
полосы скроллинга могут не отображаться вообще — значение ssNone.
Заметим, что даже при установке режима вывода полос скроллинга, подразумевающего их наличие, в компоненте RichEdit полосы появляются только в случае необходимости. Если редактируемый текст мо-
жет быть полностью выведен во внутреннюю область компонента, полосы скроллинга отображены не будут.
Компоненты Мето и RichEdit поддерживают возможность отмены изменений, внесенных в текст пользователем. Определить, готов ли компонент произвести отмену, можно с помощью логического свойства CanUndo, доступного во время выполнения программы:
property 1 Boolean;
Сам процесс отката запускается вызовом метода Undo:
Procedure Jпсо;
Заметим, что свойство CanUndo и метод Undo описаны в классе Г tomEdit и доступны также из компонентов Edit, LabeledEdit и <Еа г , однако их применение в компонентах редактирования многострочного текста намного более полезно.
Особенности компонента RichEdit.RTF-формат
Как было отмечено ранее, компонент RichEdit ориентирован на работу с текстовой информацией, представленной в RTF-формате. Данный формат имеет широкие возможности форматирования текста, такие как установку различных шрифтов и стилей выравнивания для каждого абзаца или е I о части, а также использование автоматической нумерации абзацев.
Файлы, получаемые в результате вызова метода SaveToFile свойства Lines, также имеют формат RTF. Причем указание расширения файла не влияет на его формат. Таким образом, текстовая информация, набранная и отформатированная в компоненте RichEdit, может быть прошпана без потерь содержания и форматирования практически любым текстовым редактором, например, Microsoft Word. Точно так же файлы^созданные в редакторе, могут быть отображены программой, реализованной в Delphi.
Использование RTF-формата установлено для компонента RichEdit автоматически, однако его можно перевести в обычный режим единых настроек для всего текста с помощью установки значения True свойству PlainText:
property PlainText: I ос Le in;
Рассмотрим основы представления информации в RTF-формате. Информация в данном формате представляется в обычном текстовом виде, а форматирование определяет набор команд, управляющих программой отображения текста. В нашем случае такой «npoi раммой» является ком-
понент RichEdit. Управляющая команда задает какой-либо режим вывода текста, или отменяет его.
Для отделения команд от текстовой информации все команды начинаются с символа Д' (обратный слеш, Back Slash), например команда, переводящая программу отображения в режим вывода полужирных символов, выглядит следующим образом:
\ь
Так как обратный слеш может использоваться и в качестве текстовой информации, то есть может быть введен пользователем, в формат RTF добавлена специальная команда для его вывода:
\\
RTF-файлы имеют немалый объем в связи с тем, что управляющие команды используются в нем довольно часто. Это является существенным недостатком данного формата. Например, при записи файла, содержащего в качестве текстовой информации символ «А», выводимый полужирным наклонным шрифтом MS Sans Serif размером 72, создается следующий документ:
{\rtfl\ansi\ansicpg!251\deff0\deflangl049
{\fonttbl(\f0\fnil № Sans
\viewkind4\ucl\pard\b\i\f0\fsi 44 A)
Следует отметить, что аналогичный файл, записанный в формате DOC из Microsoft Word 2000, занимает более 19 килобайт, но при увеличении полезной информации и количества используемых атрибутов формат RTF будет существенно уступать любым двоичным форматам.
Однако такой подход к хранению текста имеет и огромное преимущество, связанное с совместимостью программ чтения. Так как команда жестко отделяется от остального текста, то она всегда может быть распознана программой чтения файла, вне зависимости, известна ли эта команда программе, или нет. Таким образом, программы, использующие более ранний формат RTF, могут прочитать файлы! записанные в более позднем формате. При этом не будет выполнена часть управляющих команд, то есть некоторые элементы форматирования будут утеряны, но зато вся текстовая информация будет отображена.
Для определения формата предназначена команда \rtf, содержащаяся в начале всех RTF-файлов, в которой указывается еще и версия фор мата, например:
\rtfl
Некоторые части информации, представленной в RTF-формате, могут быть объединены в группы с помощью фигурных скобок (см. пример выше).
Использование форматирования
Параметры отображения текста в компоненте RichEdit устанавливаются двумя способами — для текущего абзаца и для текущего выделения. Абзацем называется одна строка текста с точки зрения ее внутреннего представления, то есть строка, не разделенная символами перевода строки. При этом на экране абзац может отображаться в несколько строк, автоматически разбиваясь по ширине компонента RichEdit, если свойство Wordwrap имеет значение True. Выделение может включать в себя целый абзац, его часть, несколько абзацев и вообще весь документ.
RighllndentRighllndentFintlndent Le/Undenl
Righllndent
Righllndent
Выделение фу агмсята текста устанавливается пользователем с помощью! I мыши или клавиатуры. Характеристики выделения заносятся в свойства Se?Start и SelLength, аналогичные одноименным свойствам компонентов Edit.
Программная установка этих свойств влияетнр текущее выделение. Если» компоненте k R i с h Е d i t нет выделения в какой-либо момент времени, то свойство SelStart содержит ■: в г р | находится курсор, а свойство. Se 1 er А имеет
Примак цементанумерацииПримак цементанумерацииВыравниваниепо центруВыравниваниепо центруВыравнивание нолевому краюВыравнивание нолевому краю^ нулевое значение.\
Примак цементанумерации
Примак цементанумерации
Выравниваниепо центру
Выравниваниепо центру
Выравнивание нолевому краю
Выравнивание нолевому краю
Рис. 14.59. Атрибуты форматирования абзаца
Доступ к атрибутам абзаца осуществляется через свойство Paragraph (англ. Paragraph — абзац):
property Paragraph:, - г i te ;
Класс TParaAttributes (от англ. Paragraph Attributes — Атрибуты абзаца) является наследником TPersistent и описывает свойства, необходимые для форматирования абзаца текста (см. табл. 14.22).
Свойство SelAttributes (от англ. Selection Attributes — атрибуты выделения) определяет настройки шрифта и применяется к выделенному фрагменту текста: property:tites;
Выделение фрагмента текста устанавливается пользователем с помощью мыши или клавиатуры. Характеристики выделения заносятся в свойства SelStart и . 1, аналогичные одноименным свойствам ком
понентов Edit. Программная установка этих свойств влияет на текущее выделение. Если в компоненте RichEdit нет выделения в какой-либо момент времени, то свойство SelStart содержит позицию,
в которой находится курсор, а свойство , ■ ■ ц имеет нулевое значение. Свойства класса TTextAttributes приведены в табл. 14.23.
Пример использования компонента RichEdit приведен в конце настоящей главы.
Некоторые свойства класса rParaAttnbufesТаблица
Свойство
Тип
Описание
Alignment
TAIignment
Аналогично свойству Alignment самого компонента, однако применяется только к текущему абзацу. См. рис.
Firstlndent
Longint
Задает смещение первой строки абзаца | точках компонента RichEdit) относительно левого края компонента. См. рис.
Leftindent
Longint
Задает смещение абзаца (в точках компонента RichEdit) относительно его первой строки для организации "красных" строк. См. рис.
RiQhtlnaent
Longint
Задает расстояние (в точках компонента RichEdit) от правой части компонента до правой части абзаца. См. рис.
Numbering
TNumberingStyle
Указывает, является ли данный абзац элементом в списке {nsBuHet? или обычным абзацем (nsNone). Список состоит из нескольких абзацев, помеченных у левой границы специальным символом. См. рис.
Свойства класса TTextAttributesТаблица 14.23
Свойство
Тип
Описание
Charset
TFontCharset
Аналогично одноименному свойству класса TFont
Color
TColor
Аналогично одноименному свойству класса TFont
Height
Integer
Аналогично одноименному свойству класса TFont
Name
String
Аналогично одноименному свойству класса TFont
Pitch
TFontPItch
Аналогично одноименному свойству класса TFont
Size
Integer
Аналогично одноименному свойству класса TFont
Style
TFontStyles
Аналогично одноименному свойству класса TFont
ConsistentAttributes
Set Of
TConsisten lAttr ibute
Используется во время выполнения программы для определения однородности уделен ion текста по нескольким критериям, соответствующим элементам множества:
caBold — полужирное начертание (либо все символы в выделении имеют полужирное начертание, либо все символы имеют обычное начертание)
* caColor — цвет символов
caFace — шрифт по названию
caltalic — наклонное начертание
caSize — размер символов
caStnkoOut— перечеркнутое начертание
caUnderline — подчеркнутое начертание
caProtected — текст выделения защищен от изменения пользователем (см. описание свойства Protected ниже)
Protected
Boolean
Фрагмент текста, помеченный таким стилем, по умолчанию является недоступным пользователя. При попытке его редактирования возник а событие OnProtectChange, который в качестве переменного параметра MowCharvg ■ может вернуть значение True, если редактирование защищенного фрагмента в данный момент допустимо
Компоненты для редактированияданных в табличной форме
Вид и возможности компонентредактирования данных в табличной форме
Данная группа компонентов предназначена для просмотра и редактирования данных, представленных в виде прямоугольных таблиц, состоящих из столбцов и строк, количество и характеристики которых могут изменяться во время выполнения программы с помощью соответствующих property-свойств, реализованных в этих компонентах:
Ц — Компонент stringGrid. Компонент для редактирования данных в табличной форме.
^ — Компонент Drawer > Компонент для отображения данных в табличной форме.
' — Компонент ValueListEditor. Компонент для редактирования данных, представленных в виде «ключ-значение».
Все перечисленные компоненты поддерживают (см. рис. 14.60) следующие возможности:
отображение таблиц с возможностью изменения видимой области, если вся информация не может быть одновременно выведена на экран;
редактирование текстовых значений в ячейках;
изменение высоты строк и ширины столбцов, а также изменение их положения в таблице;
организацию «фиксированных» строк и столбцов, не перемещаемых во время прокрутки видимой области;
гибкую прорисовку ячеек, что позволяет выводить в ячейки таблицы сложные графические данные.
Компоненты StringGrid и DrawGrid, расположенные на странице Additional Палитры компонентов (верхний левый и правый компоненты на рис. 14.60, соответственно) во многом схожи между собой. Оба компонента представляют пользователю возможность просмотра каких-либо данных в табличной форме на основе вызова обработчика события On Drawee 1 (от англ. «Он Draw Cell» — «При прорисовке ячейки»), возникающего при необходимости перерисовки очередной ячейки таблицы.
Рис. 14.60. Табличные компоненты
В обработчик в качестве параметров передаются номера строки и столбца, идентифицирующие ячейку, экранные координаты охватывающего прямоугольника для этой ячейки, и состояние ячейки (выделенная, фиксированная, находящаяся в фокусе или простая):
property OnDrawCell: TDrawCellEvent;
Type
TDrawCellEvent = procedure (Sender: TObject;
ACol, ARow: Longint;
Rect: TRect;
State: TGridDrawState ) of object;
На основе информации, переданной в обработчик, программа, использующая компонент, имеет возможность вывести изображение ячейки на область отображения компонента с помощью его метода Canvas:
property Canvas: TCanvas;
По умолчанию обработчик события OnDrawCell не вызывается, и компоненты прорисовываются автоматически. Для управления возможностью специальной перерисовки предусмотрено свойство DefaultDrawing (от англ. Default drawing — Автоматическая прорисовка):
property т с : г ■ Boolean;
Если данное свойство имеет значение True, которое установлено по умолчанию, то прорисовка компонента происходит автоматически. При значении False данного свойства вызывается обработчик OnDrawCell.
Все выше сказанное относится и к компоненту ValueListEditor расположенному на странице Additional Палитры компонентов. Отличие его от первых двух компонентов состоит в другой направленности отображаемых и редактируемых данных. Если компоненты st ring Grid и DrawGrid предназначены для представления табличных данных любого размера, то компонент ValueListEditor предоставляет возможности работы с информацией типа «ключ-значение», то есть имеет всего два столбца.
Структура классов табличных компонентов
Все компоненты, предназначенные для работы с информацией в табличной форме, являются наследниками класса Т ist omGi : а (см. рис. 14.61), в котором определено общее поведение компонентов такого рода в виде protected-свойств и методов, которые переносятся в области более широкой видимости public и published в классах-наследниках. При этом компонент StringGrid является прямым наследником DrawGrid.
Рассмотрим основные свойства класса TCus: - j- i:
1 Количество столбцов (ColCount) и строк (RowCount) в таблице. Данные свойства доступны для компонентов StringGrid и DrawGrid через Инспектор объектов. При изменении их значений автоматически изменяется количество строк и столбцов в таблице. Использование этих свойств в компоненте ValueListEditor возможно, но приводит к некорректной его работе.
Рис. 14.61. Иерархия табличных компонентов
Количество фиксированных строк (FixedRows) и столбцов i FixedCols г отображаемых на экране. Фиксированные столбцы и строки находятся соответственно в левой и верхней части компонентов.
Ширина столбца (DefaultColwidth) и высота строки (DefaultRowHeight), устанавливаемые по умолчанию при инициализации компонента. В дальнейшем эти параметры могут быть изменены пользователем для каждого из столбцов и строк индивидуально.
Номера столбца (Col) и ячейки (Row), которая в данный момент является выделенной. Если выделено несколько ячеек (используется прямоугольное выделение), то его координаты находятся в свойстве Selection.
Полосы скроллинга, с помощью которых пользователь может изменять положение видимой области таблицы, настраиваются с помощью свойства ScrollBars перечислимого типа TScrollStyle, рассмотренного при обсуждении аналогичных элементов компонентов Мето и - г _
Множественное свойство Options типа TGridoptions управляет несколькими дополнительными возможностями табличных компонентов. Элементы, которые могут входить в множество TGridoptions, представлены в табл. 14.24.
Возможные элементы множества Options табличных компонентовТаблица 14.24
Элемент
Назначение
goEditing
Определяет, может ли пользователь (значение True) изменять содержимое ячеек
goFixedVertline
Определяет, следует ли (значение True) выводить вертикальные линии, разделяющие ячейки таблицы, принадлежащие фиксированным столбцам и линиям
goFixedHorzLine
Определяет, следует ли (значение True) выводить горизонтальные линии, разделяющие ячейки таблицы, принадлежащие фиксированным столбцам и линиям
goVertbne
Определяет, следует ли (значение True) выводить вертикальные линии, разделяющие обычные (не фиксированные) ячейки таблицы
goHorzLine
Определяет, следует ли (значение True) выводить горизонтальные линии, разделяющие обычные (не фиксированные) ячейки таблицы
goRangeSeleci
Определяет, имеет ли пользователь возможность (значение True) выделять несколько ячеек одновременно (использовать прямоугольное выделение). Элемент игнорируется, если в множестве присутствует элемент goEditing.
В этом режиме прямоугольное вьделение невозможно
goOrawFocusSetected
Определяет, следует ли (значение True) использовать для выделенной ячейки специальный цвет фона. Иначе выделенная ячейка только обводится фокусной рамкой
go RowSizing
Определяет, может ли пользователь (значение Тrue) изменять высоту строк в таблице. Высота строки может быть изменена с помощью мыши и только при наличии хотя бы одного фиксированного столбца
Таблица 14.24 (продолжение)
Элемент
Назначение
goColSizing
Определяет, может ли пользователь (значение True) изменять ширину столбцов в таблице. Ширина столбца может быть изменена с помощью мыши и только при наличии хотя бы одной фиксприз анисй строки
QoRowMovmg
Определяет, может ли пользователь (значение True) изменять порядок строк в таблице. Порядок строк может быть изменен с помощью мыши и только при наличии хотя бы одного фиксированного столбца
QoColMoving
Определяет, может ли пользователь (значение True) изменять порядок столбцов в таблице. Порядок столбцов может быть изменен с помощью мыши и только при наличии хотя бы одной фиксированной строки
goTabs
Определяет, может ли пользователь (значение True) перемещаться по ячейкам таблицы с помощью клавиши Tab (Shift-Tab). В противном случае нажатия на данные клавиши будут приводить к перемещению фокуса между компонентами на форме
goRowSelect
Определяет, должно ли текущее выделение (значение True) занимать всю ширину таблицы. Если элемент включен в множество, то при попытке выбора пользователем одной ячейки в качестве активной, будет выбрана вся строка, которой принадлежит эта ячейка. При прямоугольном выделении будет выделены все строки, которые охвачены этим выделением
goAhvaysShowEditor
Если таблица поддерживает редактирование (включен элемент goEditing), то включение в множество Options данного элемента заставляет компонент всегда отображать строку ввода. Выделение ячейки или нескольких ячеек в данном режиме невозможно
goThumbTf acking
Определяет, следует ли немедленно (значение True) обновлять видимую область таблицы при перемещении бегунка на полосе скроллинга. Иначе обновление области произойдет только после того, как кнопка мыши будет отпущена
Особенности компонентовStringGrid и DrawGrid
Компонент StringGrid построен на основе (является наследником) DrawGrid и реализует возможности редактирования текста с его автоматическим сохранением в свойстве Cells, представляющим собой интерфейс к двумерному массиву строковых значений:
property Cells[ACol, ; . t > ■ \ : String;
Данное свойство доступно во время работы программы для чтения и записи. При изменении какого-либо элемента свойства Cells изображение таблицы автоматически обновляется для отображения нового значения:
StringGridl. Cells [2, 3] :=
При выполнении такой команды в ячейку, которая находится в третьем столбце четвертой строки компонента stringGridlff будет занесено значение '6 ’ (столбцы и строки табличных компонентов нумеруются от нуля).
Аналогично классу TString, совместно с текстовыми значениями, отображаемыми в таблице, компонент stringGrid имеет возможность хранить ссылки на объекты-наследники класса TObject, доступ к которым обеспечивается через свойство Objects:
property ObjeAaei (ACol, ARow: Inteqc ] : Tubject^B
Также имеется возможность получить список значений и связанных с этими значениями объектов для какой-либо строки или столбца с помощью свойств Rows и Cols соответственно:
property ■ 1 [Index:■ ■ е<п 1 : TSt '■ .
property Rows[Index:]: TStrings;
Методы прорисовки компонента StringGrid переопределены таким образом, что для вывода текстовых значений не требуется реализация обработчика события OnDrawCell, вывод текста производится автоматически.
Заметим также, что возможностью редактирования обладает и компонент 11. однако информация, введенная пользователем, не со
храняется в компоненте, так как для этого не предусмотрено каких- либо свойств. Таким образом, компонент DrawGrid используется в основном для отображения какой-либо сложной графической информации, а компонент stringGrid для отображения и редактирования текстовой информации.
При необходимости в компоненте DrawGrid также можно организовать хранение текстовой информации, вводимой пользователем. Однако это потребует значительных усилий. Перед отображением в ячейке таблицы редактора для ввода значения компонент инициирует событие OnGetEditText, в обработчик которого передается параметр-переменная Value. Значение данного параметра после завершения метода-обработчика будет являться начальным значением, отображенным в строке ввода. Аналогично после завершения пользователем редактирования инициируется событие OnSetEditText, в обработчик которого передается параметр Value, содержащий введенный пользователем текст.
property OnSetEditText: TSetEditEvent;
property 1; t Text : TGetEditEvent;
Type
TSetEditEvent = procedure (Sender: TObject; AC< 1, ARow:
1 ongint ; var Value: string) of object;
TGetEditEvent = procedure (Sender: TObject; ACol, ARow:
Longint; var Value: string) of object;
Компонент ValueListEditorи его особенности
Компонент ValueListEditor предназначен для редактирования специфической информации, представленной в виде пар текстовых строк «Ключ-значение». В связи с этим он имеет некоторые ограничения относительнои stringGrid, а также обладает дополнитель
ными возможностями.
Компонент ValueListEditor имеет одну фиксированную строку, в которой выводится заголовок таблицы, причем свойство FixedRows для данного компонента недоступно. Также недоступно свойство Cols, так как таблица должна содержать ровно два столбца. Заголовки столбцов хранятся в свойстве TitleCaptions, которое может содержать и более двух строк, однако лишние строки будут проигнорированы komi онентом:
property.: TStrings;
В примере, приведенном на рис. 14.60, в качестве значения свойства TitleCaptions было указано три строки: «Переменная», «Значение» и «Примечание». Как видно, строка «Примечание» никак не повлияла на внешний вид компонента.
Фиксированные столбцы в таблице компонента ValueListEditor могут либо не присутствовать вообще, либо возможно использование одного фиксированного столбца, в котором отображаются «ключи». Организация фиксированного столбца имеет смысл, если пользователь не должен редактировать названия «ключей». Возможность редактирования ключа пользователем, и вообще поведение компонента в отношении работы с ключами, определяется множественным свойством KeyOptions, возможные элементы которого приведены в табл. 14.25:
property KeyOptions: Ti:
Поскольку компонент ValueListEditor часто применяется для редактирования списка значений по заранее известным на этапе разработки ключам, то в отличие от компонента StringGrid предусмотрена воз можность формирования таблицы с помощью Инспектора объектов. Содержимое таблицы содержится в свойстве Strings и изменяется с помощью специального редактора, показанного на рис. 14.62.:
property Strings: TStrings;
И, наконец, множественное свойство Displayoptions определяет некоторые особые характеристики отображения компонента:
property DisplayOptions: TDisplayOptions;
Заметим, что данный редактор реализован, видимо, с помощью самого компонента ValueListEditor.
Возможные элементы множества Ке у, ; tons компонента ValueListEditorТаблица 14.25
Элемент
Назначение
Определяет возможность (значение True) выбора пользователем ячейки из первого
keyEdrt
столбца («ключа») и его редактирование. В противном случае невозможен даже выбор ячейки. Вне зависимости от состояния данного элемента таблица должна поддерживать редактирование, то есть в множество Options должен быть включен элемент goEditing
Определяет возможность (значение True) добавления пользователем новой пары «Ключ-значение» в таблицу. Пользователь добавляет строку таблицы с помощью
keyAdd
клавиши Insert. Если после добавления строки и ключ, и его значение оставлены пустыми, то при выделении ячейки, не принадлежащей данной стр( ■ новая строка
автоматически удаляется
keyDelete
Определяет возможность (значение True) удаления пользователем строки из таблицы с помощью комбинации клавиш Ctrl-Delete
Определяет возможность (значение False) создания в таблице строк с одинаковыми ключами. Если пользователь изменяет значение ключа таким образом, что в таблице
keyUnique
становится несколько одинаковых ключей, то операция редактирования прерывается с помощью исключения (класса Exception). Если исключительная ситуация не будет обработана программно, то пользователю будет выведено i 1 ! о недопустимости ввода такого ключа
Рис, 14.62. Редактор Инспектора объектов для свойства Strings компонента ValueListEditor
Элементы, которые могут быть включены в множество Displayoptions представлены в табл. 14.26.
Элемент
Назначение
doColumnTitles
Следует ли (значение true) отображать верхнюю строку таблицы с заголовками столбцов
doAutoColResize
Включает автоматическое изменение ширины столбцов при изменении размеров компонента. Столбцам устанавливается одинаковая ширина, если в данное множество не включен элемент doKeyColFixed
doKeyColFixed
Запрещает автоматическое изменение ширины столбца, содержащего «ключи» при изменении размеров компонента. Изменение ширины данного столбца пользователем возможно при наличии элемента goColSizing в множестве Options
Таблица 14.26
Возможные элементы множества DisplayOptions компонента ValueListEditor
Так как данные, представляемые компонентом ValueListEditor, являются связанными попарно, то и доступ к ним осуществляется более сложным образом, чем к информации, редактируемой в других визуальных компонентах. В свойстве Strings, редактирование которого в Инспекторе объектов выполнено с помощью сложного диалога, хранятся строки вида «Ключ ^Значение» Соответственно, разбор таких строк основывается на поиске первого вхождения в каждую строку символа «равно». Существенно облегчает задачу rot факт, что среди символов, составляющих название ключа, не может использоваться данный символ.
Для упрощения анализа информации представленной в таблице, предусмотрены свойства Keys и Values".' представляющие соответственно списки ключей и значений для строки с заданным номером:
property №ys[IrBex: 1 щг]: striE^^
property I । [const Key: r 1 : strir^y*
Таким образом, для определения названия ключа, который находится в строке таблицы с номером N, следует воспользоваться следующей конструкцией:
«Переменная типа String> : = ValueListEditorl.Keys[N];
Заметим, что данное свойство всего лишь отображает левый столбец таблицы. Поэтому, если в компоненте присутствует строка с заголовками столбцов, то заголовок столбца с названиями ключей будет выдан при обращении к свойству Keys с индексом 0: ValueListEditorl ■ /s|0|. Количество элементов, содержащихся в свойстве Keys, соответствует количеству строк в таблице, которое можно получить с помощью свойства RowCount, как и для других табличных компонентов.
Свойство Keys может быть полезно в случаях, когда пользователь имеет возможность изменения значений в ключевом столбце таблицы. В противном случае список ключей и так известен программе. Более интересной задачей является определение значения, сопоставленного какому-либо ключу, с помощью свойства Values, которое индексировано не целыми числами, а строковыми значениями. В качестве индекса данному свойству передается название ключа, компонент производит поиск значения, соответствующего заданному ключу, и выдает его. Если задано название ключа, не соответствующее ключам списка, то выдается пустая строка. Если заданному названию соответствует несколько ключей из списка, то выдается значение, „сопоставленное первому из найденных ключей.
Ис ю шзованис свойства Values может иметь следующий вид:
сПеременная типа String> := ValueListEditorl.Values['Ширина' ] ;
Чтобы получить значение, сопоставленное какому-либо ключу в строке таблицы с номером N, можно использовать обращение одновременно и к свойству Keys, и к свойству Values:
<Переменная типа String> :=.VaiueListEditor 1.Values [ValueListEditori.Keys[N]];
4
Пример использования визуальныхкомпонентов. Пишем текстовый редактор
В качестве примера использования некоторых визуальных компонентов, описанных в настоящей главе, реализуем несложный текстовый редактор (см. рис. 14.63), построенный на основе компонента RichEdit, со следующими возможностями:
выбор размера и атрибутов шрифта (полужирный, наклонный, подчеркнутый, перечеркнутый), а также его цвета. Возможность выбора названия шрифта реализована не будет;
установка выравнивания текста абзаца по левому и правому краю, а также по центру;
организация списков;
» установка отступов для абзацев;
РИС. 14.63. Текстовый редактор на основе стандартных компонентов
чтение и запись файлов с текстовой информацией в формате RTF или в текстовом виде (по выбору пользователя);
возможность отмены последних изменений и возврата к исходному состоянию текста;
печать редактируемого документа на принтер, установленный в операционной системе по умолчанию.
Для обеспечения изменения пользователем всех перечисленных атрибутов текстового документа будем использовать стандартные визуальные компоненты, объединенные в панель инструментов. Для всех элементов управления, с которыми может работать пользователь, установим специальные курсоры мыши и всплывающие подсказки.
Создание заготовки панели инструментов
Начнем с построения панели инструментов. Расположим на форме компонент ControlBar и установим с помощью Инспектора объектов значение i Тор его свойству Align. Временно установим высоту компонента, заведомо большую, чем это необходимо, например 150 точек, чтобы было удобно добавлять в нее подпанели. Изменение высоты панели инструментов можно произвести через Инспектор объектов (свойство Height), либо с помощью мыши в визуальном построителе.
Добавим в панель инструментов ControlBarl три панели типа Panel и одну кнопку SpeedButton. Установим их размеры, как показано в табл. 14.27.
Название
Назначение
Размеры (Width, Height)
Panel 1
Характеристики шрифта
(22,462)
Рапе12
Отступы
(22, 406)
Panels
Undo / Redo
(22, 106)
SpeedButton 1
Кнопка •Нумерация'
(22, 50)
Таблица 14.27
Параметры панелей
Изменение размеров перечисленных компонентов удобно произвести, когда каждая подпанель компонента ControlBarl находится на отдельной строке (см. рис. 14.64). В противном случае размеры для некоторых компонентов могут быть установлены некорректно, так как панели будут обрезаны под размер охватывающего контейнера ControlBarl. Например, на рис. 14.65 показана форма, на которой панели Panel! и 12 расположены в одну строку, и сумма их необходимых размеров превышает размер компонента ControlBarl. В результате размер панели Рапе 12 автоматически уменьшен.
Рис. 14.64. Заготовка панели инструментовРис. 14.64. Заготовка панели инструментовРис. 14.65. Некорректная установка размеров панелейРис. 14.65. Некорректная установка размеров панелейПоскольку в разрабатываемом приложении будет множество одинаковых элементов управления, то имеет смысл изменять названия компонентов, устанавливаемые визуальным построителем по умолчанию. Это необязательно делать для панелей и подписей, так как программа не обращается к ним во время работы. Однако просто необходимо иметь понятные названия для кнопок и всех остальных неконтейнерных компонентов.
Рис. 14.64. Заготовка панели инструментов
Рис. 14.64. Заготовка панели инструментов
Рис. 14.65. Некорректная установка размеров панелей
Рис. 14.65. Некорректная установка размеров панелей
Мы будем применять названия компонентов, состоящие из префикса, указывающего на тип компонента, и основной части, определяющей его назначение. В табл. 14.28 приведен список типов компонентов, используемых в программе, и префиксов, которые будут соответствовать им в названиях элементов управления на форме.
Также в нашей программе будет использовано несколько компонентов 1 ; wn "Однако обращение к ним во время выполнения программы не требуется, следовательно, их названия можно оставить установленными по умолчанию.
КомпонентПрефиксRichEditreComboBoxcbSpeedButtonsbColorBoxclbEditeLabeledEditeRadioButtonrbКомпонентПрефиксRichEditreComboBoxcbSpeedButtonsbColorBoxclbEditeLabeledEditeRadioButtonrbтаблица 14.28Список компонент и с пответ- ствующих им префиксовтаблица 14.28Список компонент и с пответ- ствующих им префиксовВ соответствии с принятым соглашением об именовании сформируем новое название для компонента SpeedButtonl. Данный компонент предназначен для указания того, что абзац является частью некоторого списка, организованного в текстовом документе, и при этом имеет тип Button. Поэтому
Компонент
Префикс
RichEdit
re
ComboBox
cb
SpeedButton
sb
ColorBox
clb
Edit
e
LabeledEdit
e
RadioButton
rb
Компонент
Префикс
RichEdit
re
ComboBox
cb
SpeedButton
sb
ColorBox
clb
Edit
e
LabeledEdit
e
RadioButton
rb
таблица 14.28
Список компонент и с пответ- ствующих им префиксов
таблица 14.28
Список компонент и с пответ- ствующих им префиксов
логично изменить его название на sbNumbering, где sb является префиксом, определяющим принадлежность компонента к классу TSpeedButton. a Numbering — основной частью названия, указывающей, что данный компонент предназначен для назначения абзацу атрибута, делающего его элементом списка. Напомним'1что название компонента задается его свойством Name и может быть изменено во время разработки программы с помощью Инспектора объектов.
В результате произведенных действий нами сформирована заготовка для панели инструментов. Теперь можно запустить программу и проверить ее функциональность. Заметим, что при различных перемещениях панелей внутри компонента ControlBarl их размеры нарушаются, что недопустимо для нашего приложения. Поскольку такое поведение компонентов ControlBar невозможно устранить с помощью их свойств, то в качестве решения проблемы можно предложить использование свойства Constraints каждого из компонентов, содержащихся в панели ControlBarl.
Максимальная и минимальная ширина каждого из таких компонентов должна соответствовать начальному значению ширины, указанному в свойстве Width. Например, панель Panell, предназначенная для изменения характеристик шрифта, имеет ширину 462, то есть полям ' и MaxWi : свойства Constraints данного компонента следует также установить значение 462. Аналогично следует поступить и с компонентами Panel2, Par . - и sbNumbering. Теперь пользователь не сможет переместить панель на новое место, если ее размеры не позволяют этого сделать. Изменения размеров подпанелей при этом происходить не будет.
После установки пределов изменения размеров подпанели панели инструментов будут иметь фиксированную ширину, и все элементы управления, расположенные на них, всегда будут доступны пользователю. Теперь установим свойству Auto Size компонента ControlBarl значение True. Компонент ControlBarl будет располагаться в верхней части главного окна программы (как и ранее) но его высота будет определяться расположением панелей, которые он содержит.
В визуальном построителе с помощью мыши расположим компонен ы, находящиеся в панели инструментов, следующим образом (см. рис. 14.66):
Панель Panell и кнопка sbNumbering в верхнем ряду.
. Панели Рапе 12 иг во втором ряду.
Ширина формы во время выполнения этой операции должна позволять такое расположение компонентов, для чего временно ее можно сделать заведомо более широкой, чем это требуется. Отметим, что при перемещениях подпанелей внутри панели инструментов ее размер автоматически изменяется в соответствии со значением свойства - t . установленным нами ранее.
Рис. 14.66. Настройка панели инструментов
На данный момент главная форма приложения содержит заготовку панели инструментов, имеющую все необходимые характеристики для расположения на ней элементов управления. Однако обычно подпанели панелей инструментов не имеют трехмерный вид, так как это негативно сказывается на внешнем виде приложения и уменьшает область панелей, предназначенную, собственно, для «инструментов» — элементов управления.
Изменим значение свойства BevelOuter панелей I inell, Panel2 и .' для придания данным панелям «плоского» (flat) стиля на значение bvNone (по умолчанию установлено значение bvRaised). Свойству Flat компонента cbNumbering установим значение True. Отметим, что во время визуальной разработки значение свойства Flat не учитывается, поэтому для проверки поведения кнопки следует запустить программу.
Наполнение подпанели управления шрифтом
Добавим на панель Panell элементы управления, необходимые для управления параметрами шрифта, в порядке, указанном в табл. 14.29, при этом изменяя после добавления очередного компонента его название, положение и размеры.
Тип компонента
Название (Name)
Положение (Left, Top)
Размеры (Width, Height)
Label
i l 1' (по умолчанию)
0, 5
84, 13
Combo Box
cbFontSize
96, 1
49. 21
SpeedButton
sbBold
152, 1
20.20
SpeedButton
sbltalic
176, 1
20, 20
SpeedButton
sbllnderUned
200, 1
20.20
SpeedButton
sbStrikedOut
224, 1
20,20
Label
Label2 (no умолчанию)
256. 5
28, 13
ColorBox
clbColor
290,0
95, 22
SpeedButton
sbLettAlign
392, 1
20, 20
SpeedButton
sbCenterAlign
416, 1
20, 20
SpeedButton
sbRightAlign
440, 1
20, 20
Элементы управления шрифтом
Таблица 14.29
Теперь настроим добавленные на панель Panell элементы управления. Для начала изменим свойства Caption меток Labell и Label2 на соответственно ‘Размер шрифта:’ и ‘Цвет:’.
Кнопкам атрибутов шрифта sbBold, bital с, sbUnderlined и sbStrikedOut назначим подписи ‘В’. Т, ‘U’ и ‘S’. При желании можно повысить информативность этих кнопок, добавив атрибуты, которыми они управляют в характеристики шрифта их же подписей. Например, для кнопки sbBold можно установить флаг fs S d в подсвойстве Style свойства Font. Аналогично поступим и с остальными кнопками.
Кнопки управления атрибутами шрифта должны иметь возможность фиксации в нажатом состоянии, причем независимо друг от друга. Для обеспечения такой возможности следует расставить в свойства index данных компонентов различные значения, отличные от нуля, например 1. 2, 3 и 4. Таким образом, из четырех кнопок SpeedButton организованы четыре группы зависимых компонентов. Для того, чтобы кнопки можно было перевести в состояние «не нажато», следует установить во всех этих компонентах значение True свойствам AllowAllUp.
Компонент зтЬоЕ эх с названием cbFontsize должен содержать список наиболее используемых размеров шрифтов, поэтому изменим содержимое его свойства items, поместив в него следующие строки: 8, 9, 11, 12, 14, 16, 18, 20, 22, 24, 26, 28, 36, 48 , 72. Начальный размер шрифта можно установить с помощью свойства Т t е т n d - х (выбранный элемент). Если данному свойству присвоить значение 2, то в строке ввода будет отображено число 10.
Настройка компонента выбора цвета сводится к установке используемых наборов цветов с помощью свойства Style в Инспекторе объектов. В нашем примере установлены все элементы данного множества, за исключением cbSystemColors, так как этот набор цветов используется в основном для работы с системой, а не с текстовыми документами. Для того, чтобы в выпадающем списке отображались удобные для пользователя названия цветов, в множество Style добавлен также элемент cbPrettyNames. .
Теперь перейдем к настройке трех кнопок SpeedButton, предназначенных для изменения выравнивания текста в абзаце. По своей сути данные кнопки зависимы друг от друга, причем в каждый момент времени одна из них должна быть нажата, так как абзац всегда имеет какое-либо выравнивание. Для организации такого поведения установим свойству sroup г dex всех трех кнопок значение 5, а свойству AllowAllUp значение False. Также изменим подписи на кнопках: '<*'-' и ’>'.
Для придания всем кнопкам SpeedButton, расположенным на данной панели, плоского вида, установим значения True их свойствам Flat.
Наполнение подпанелей Numbering и Undo/Redo
Для придания необходимого внешнего вида и соответствующего поведения подпанели Numbering установим значения свойств компонента sbNumbering, как указано в табл. 14.30.
Свойство
Значение
Caption
1,2,3...
Flat
True
Grouplndex
6
AllowAIIUp
True
Таблица 14.30Значения свойсг ч компонента sbNumberingТаблица 14.30Значения свойсг ч компонента sbNumberingВ результате такой настройки свойств, кнопка sbNumbering будет иметь возможность фиксации в нажатом состоянии (свойство эрIndex положительно) и ненажатом состоянии (свойство 1 - - имеет значение True).
Таблица 14.30
Значения свойсг ч компонента sbNumbering
Таблица 14.30
Значения свойсг ч компонента sbNumbering
Для создания панели отмены произведенного редактирования добавим на панель Рапе 12 два компонента SpeedButton с характеристиками, приведенными в табл. 14.31.
Все остальные свойства компонентов следует оставить без изменения.
Название
Положение (Left, Top)
Размеры (Width, Height)
Подпись (Caption)
Стиль (Flat)
sbUndo
0, 1
49, 20
Undo
True
sbRedo
56, 1
49, 20
Redo
Trae
Таблица 14.31
Характеристики компонент отмены произведенного редактирования
Наполнение подпанелиуправления отступами
Разместим равномерно на панели Рапе13 три компонента LabeledEdit, установив их свойствам ^anel sitior значение । Left и подписи на метках с помощью подсвойства Caption свойства EditLabel: ‘Отступ слева:’, ‘Справа:’ и ‘Первая строка:'. Изменим названия компонентов (слева направо) на eLeftindent, eRightindent и eFirstlndent.
Для обеспечения удобства работы с числовыми значениями добавим на данную панель три компонента Up 1 : . сопоставив каждый из них одной из строк ввода с помощью выбора названия строки ввода в редакторе свойства Associate Инспектора объектов. При назначении ассоциированной строки ввода компонент автоматически располагается около ее правой стороны и принимает соответствующие размеры.
Диапазон значений, изменяемых компонентом ыг по умолчанию ограничен числами 0 и 100, а в текстовом редакторе не должно быть ограничений на отступы абзацев. Отменить ограничения компонента UpDown невозможно, однако можно их существенно смягчить. Для этого следует изменить значения свойств Мы и Мах компонентов UpDown. Так как данные свойства имеют тип lint,то свойству Min можно установить значение -32768, а свойству Мах — значение 32767.
Изменение названий компонентоввозможно, но необязатель
но, так как эти компоненты не используются в тексте программы.
Закончим формирование панели инструментов очисткой свойств Caption панелей Panell, Рапе12 и Panels. Также для визуального выделения кнопок на панели установим их подписям полужирное начертание (подсвойство style свойства Font). Таким образом, разработанная нами панель эквивалентна требуемой, показанной на рис.
Установим форме необходимый размер и перейдем к созданию остальных интерфейсных элементов главного окна.
Создание области редактирования и панели управления файлом
Для создания панели управления файлом используем контейнерный компонент, привязав его к нижней, части формы (для этого
свойству Align следует установить значение •: Свойству
Caption установим значение «Сохранение и печать.
Размер контейнера следует установить заведомо большим, чем это требуется, для удобства размещения в нем элементов управления.
Добавим на панель ::■ компоненты, перечисленные в табл. 14.32.
При этом по мере добавления будем изменять некоторые их свойства на указанные в таблице.
После расположения компонентов на панели установим ее вертикальный размер (свойство Height): 90.
В свободную область формы добавим компонент RichEdit, сразу же изменив его название на reEditor. Данный компонент должен занимать всю свободную область, оставшуюся от панели инструментов и панели управления файлом, поэтому присвоим свойству Align компонента reEditor значение alClient.
Перечень компонентов на панель GroupBoxIТаблица 14.32
Тип компонента
Название
Положение (Left, Top)
Размеры (Width, Height)
Подпись (Caption)
Label
rbel3 (по умолчанию)
8, 17
53, 13
Формат:
Label
Label4 (по умолчанию)
8.38
38, 13
Файл:
RadioButton
rbRTF
72, 16
137, 17
Rich Text FormatCrtf)
RadioButton
rbTcxtOnly
208, 16
121,17
Только текст (*txt)
Edit
eFileName
56.39
473, 19
Speed Button
sbtoad
16,64
105, 21
Загрузить
SpeedButton
sbsave
128,64
105, 21
Сохранить
SpeedButton
sbPrint
'41 64
105, 21
Печатать
Дружественный интерфейс
Поскольку на форме расположено довольно много элементов управления, причем назначение некоторых из них может быть не ясно для пользователя, мы будем использовать быстрые подсказки, всплывающие при наведении указателя мыши на компонент.
Чтобы показать, каким именно образом следует работать с компонентом, установим для каждого из них специальный курсор мыши. Строки ввода автоматически поддерживают изменение указателя мыши, поэтому изменение курсора для них не требуется. Всем элементам управления, которые подразумевают нажатие кнопки мыши (кнопкам SpeedButton, спискам выбора ComboBox и ColorBox, вспомогательным компонентам ; и зависимым переключателям i Butt г установим курсор (свойство Cursor) crHandPoint.
Заполним значения свойств Hint для компонентов, перечисленных в табл. 14.33.
Компонент
Функция
cbFontSize
Размер шрифта, который следует установить для выделения, в пунктах /72 дюйма)
sb Bold
Применить к шрифту выделения атрибут «Полужирный»
sbttalic
Применить к шрифту выделения атрибут «Наклонный»
sbUndertined
Применить к шрифту выделения атрибут «Подчеркнутый»
sbStrikedOut
Применить к шрифту выделения атрибут «Перечеркнутый»
clbColor
Выбор цвета для шрифта выделения
sbteftMgn
Установить для текущего абзаца выравнивание по левому краю
sbCenter Align
Установить для текущего абзаца выравнивание по центру
sbRightAlign
Установить для текущего абзаца выравнивание по правому краю
sbNumbering
Сделать текущий абзац элементом списка
sbUndo
Отменить последние изменения
sbRedo
Отменить операцию Undo
eLeftlrxtent
Отступ текущего абзаца относительно его первой строки
eflightlndem
Отступ текущего абзаца от правой границы
eFirsiindent
Отступ первой строки текущего абзаца от левой границы
rbRTF
Документ сохраняется и считывается в формате RTF
rbTextOnly
Документ сохраняется и считывается в простом текстовом формате
eFileName
Название файла для чтения и записи документа с указанием полного пути
SbLoad
Считать документ с диска
i SbSave
Записать документ на диск
sbPrint
Напечатать документ на принтер, установленный по умолчанию
Список компонент, для которых нужно заполнить значения свойства Hint
Таблица 14.33
Для того, чтобы подсказки отображались, следует установить свойству Show t всех перечисленных компонентов значение True.
Итак, нами полностью сформирован пользовательский интерфейс, необходимый для решения поставленной задачи. На этом собственно визуальная разработка заканчивается, и в дальнейшем будет применяться только для назначения обработчиков событиям интерфейсных элементов, расположенных на форме. Далее рассматривается наполнение приложения функциональностью.
Наполнение функциональностью
Рассмотрим основные действия, которые пользователь производит в текстовом редакторе.
Открытие файла выполняется нажатием на кнопку «Загрузить» панели управления файлом. При этом используется имя файла, указанное в строке ввода «Файл:».
Перемещение текстового курсора внутри редактора RichEdit с помощью мыши или стрелочных клавиш клавиатуры. Так как при перемещении по тексту курсор попадает во фрагменты текста, использующие разные настройки форматирования, то программа должна реагировать на изменение форматирования текущего абзаца и выделения изменением состояния интерфейсных компонентов. Например, при попадании курсора в текст, имеющий полужирное начертание, кнопка «В» должна принять нажатое состояние.
Изменение состояния элементов управления с целью изменения форматирования текущего абзаца или выделения.
Сохранение файла с помощью нажатия на кнопку «Сохранить». При этом, так же как и при чтении документа из файла, используется имя файла, указанное в строке ввода «Файл:»
Начнем с чтения документа из файла. Для обеспечения корректности данного процесса следует использовать состояние зависимых переключателей на панели управления файлом, ч гобы правильно определить тип документа, с который собирается работать пользователь.
Тип документа заносится в свойство PlainText компонента RichEdit, после чего вызывается его метод Loa dFromFi1е с указанием имени файла, введенного пользователем в строке редактирования. Сделаем компонент sbLoad активным, перейдем на закладку Events Инспектора объектов и создадим обработчик события Onclick. Реализуем его как показано в листинге 14.3
Листинг 14.3. Чтение документа
procedure TForml.sbLoadClick(Sender: TObject);
begin
reEditor.PlainText := rbTextOnly.Checked;
(Установка типа документа. Свойство PlainText получает значение, в зависимости от того, выбран или нет переключатель rbTextOnly. Если rbTextOnly находится в состоянии «включен», то документ представляется как текстовый, без испсДбоения {ЖсширенногЛ форматирования) reEditor.Lines.LoadFromFile(eFileName.Text) ;
(Чтение д^уМ'ент^етз .?айла. ^^качеп^ма^^ни файла в метод LoadFromFile передается значение свойства Text компонента eFileName} end;
Аналогичным образом производится запись документа в файл (см. листинг 14.4.).
Листинг 14.4. Запись документа в файл
procedure TForml.sbSaveClick(Sender: TObject); begin
reEditor.PlainText := rbTextOnly.Checked;
(y । Hi типа документа в соответствии
с состоянием переключателя tbText i .
reEditor.Lines.SaveToFile(eFileName.Text);
' писе документа в файл. Формат при этом соответствует свойству ?1зinText I end;
Как видно, чтение и сохранение документа реализуется крайне просто, так как поддерживается свойством Lines компонента R t n
В соответствии с пунктом 2 программа должна иметь возможность контроля за состоянием текущих абзаца и выделения. Форматирование таких элементов документа можно определить с помощью свойств компонента RichEdit. Отреагировать на смену самого абзаца или выделения можно, реализовав обработчик события OnSelectionChange, который вызывается всякий раз, когда текстовый курсор перемещается внутри документа.
Создадим обработчик события OnSelectionChange компонента reEditor и реализуем его, как показано в листинге 14.5.
Листинг 14.5, Контроль за состоянием текущих абзаца и выделения
procedure TForml. reEditorSelectionChange (Sender: TObject) ; begin
cbFontSize.Text :■ IntToStr(reEditor.SelAttributes.Size) i
(В компонент выбора размера шрифта переносится
Г Ж1сх>тд»№^1фта текущею^ уделения.преоб-Ж-
■1»Жания №*численног<>- значеДИИ^Зсоты шрифта
П^1уЙкУ?овое пр-еЖтаДЯЬие испожзована еункжя
IntToStr)
sbBold.Down := (fsBold in reEditor.SelAttributes.Style);
sbltalic.Down := (fsltalic in reEditor.SelAttributes.Style) ; sbUnderlined.Down := (fsUnderline in reEditor.SelAttributes. Style) ; sbStrikedOut. Down : = (fsStrikeOut in reEditor. SelAttributes. Style) ,
.. r ■ ■ шрифта Йл|Й|мЕВ11ьй и . . пево-в сс-ЖсЯвие wionoK Впр-авлевЯя Ярибутамина основе проверки типа <атрибут> in«множество атрибутов текущего выделения>.
атрибут присутстииг в мнВестД, fl1 соответствующая кнопка фиксируется в нажатом
, ВЬсЕоянии, иначе Д ИенаЖДТОМ)Я
clbColor.Selected := reEditor.SelAttributes.Color;
(Цвет выделенного в данный момент текста
1pg№6c ит с я ;^^ свойство- ДиМвсШнВ К О МП 0,
sbLeftAlign.Down := (reEditor.Paragraph.Alignment = taLeftJustify); sbCenterAlign.Down := (reEditor.Paragraph.Alignment = taCenter) ;
sbRightAlign.Down := (reEditor.Paragraph.Alignment = taRightrustify) ;
(Выравнивание абзаща переносится в состояние кнжок упралене ^^^№Нивани^Ь Какаяыдшб-О' кнопка фиксируется в нажатом состоянии, если с-^МВтствующ-ж ей вИинивание исЯ-льзовано в текущем абзаце.)
sbNumbering.Down := (reEditor.Paragraph.Numbering = nsBullet);
(Кнопка «Элемент нумеращии» фиксируется
в Hajife-м К’стомии, е<$.лИ11^!^к.Ущ^ж а£зац является элементом нумерации)
eLeftindent.Text := IntToStr(reEditor.Paragraph.Leftlndant);
eRightindent.Text : = IntToStr(reEditor.Paragraph.Rightindent);
eFirstlndent.Text := IntToStr (reEditor.Paragraph. Firstlndent) ;
<ачс нич 'ЯвЗевов ИаносяЯВ В с-^^ки Ввода
ветВт в и" с отступами текущеюр' ЕвЭаца)^
end;
Остановимся не некоторых интересных моментах данного обработчика. Как было указано ранее, формат RTF предоставляет возможность безошибочной работы приложения, поддерживающего менее широкий круг атрибутов, чем используемый документ. При этом компоненты, предназначенные для чтения таких файлов, пропускают неизвестные им команды форматирования.
В Delphi поддерживается не самая последняя версия Rich Text формата, поэтому отсутствуют некоторые возможности. Одной из них является выравнивание текста по ширине, которое можно установить, например, в Microsoft Word. Если такой файл будет прочитан в нашем приложении, то текст, выровненный по ширинебудет иметь выравнивание ПО уМОЛЧаНИЮ, а СВОЙСТВО : и 1 1 ph . A ill будет иметь некорректное значение.
Переменные перечислимых типов (в данном случае свойство reEdi tor.Paragraph .Alignment) представляются в памяти в виде целочисленных значений от нулевого и далее по порядку. Нулевое значение соответствует первой коне ганте из описания типа, единичное — второй, и так далее. Таким образом, свойство Alignment на самом деле принимает значение 0 (константа , , , г 1 (константа taCenter) или 2 (константа tab pitJnstity) При чтении документа, использующего выравнивание по ширине, данное свойство имеет значение 3, что, впрочем, не приводит к ошибке в программе. Таким образом, используя прямое приведение типов, можно определить выравнивание по ширине в текущем абзаце и с помощью дополнительного элемента управления сообщить об этом пользователю:
if Integer(reEditor.Paragraph.Alignment) = 3 then begin
(Обнаружено выравнивание абзаца по ширине!) end;
Однако представление абзаца на экране все равно не будет соответствовать заданному выравниванию, так как оно не поддерживается компонентом RichEdit.
На данный момент можно запустить приложение, загрузить в него документ, созданный, например, в другом редакторе, изменить его информационное содержимое с помощью компонента RichEdit, и сохранить его в файле на диске. При перемещении по документу атрибуты форматирования, использованные в документе, будут корректно отображаться элементами управления панели инструментов.
Для изменения форматирования выделения или абзаца следует реализовывать обработчики элементов управления, в которых устанавливаются соответствующие атрибуты текста с помощью свойств SelAttributes и Paragraph компонента reEditor.
Например, для установки атрибута полужирности шрифту текущего выделения, можно реализовать обработчик события One lick компонента sbBold как показано в листинге 14.6.
Листинг 14.6. Установка атрибута полужирности
procedure TForml.sbBoldClick(Sender: TObject); begin
if sbBold.Down (Если кнопка «В» находится в нажатом состоянии...) then reEditor.SelAttributes.Style :=
reEditor.SelAttributes.Style + [fsBold]
|*V- . . то в Я FaipNOyTOaVдобавляется эА.ём’ЭХ'^-ТSBOldl* I
else reEditor.SelAttributes.Style :=
reEditor.SelAttributes.Style - [fsBold];
{ . . иначе элемент fsBold E в i^gg т в :^, атрибутов удаляется)
■ёйЭ;
Числовые атрибуты, задаваемые, например, в строках ввода, могут быть установлены следующим образом:
procedure TForml.eLeftindentchange(Sender: TObject);
begin
reEditor.Paragraph.Leftindent :■
StrToInt(eLeftindent.Text);
(Установка отступа на основе свойства Text компонента eLeftindent. Для перевода строкового значения свойства Text в число- Эче, ®ifeo6:QC> димсет рлВЯсвойнг1Indent,
используется функция StrToInt}
end;
Поскольку значение в данное поле ввода может быть занесено пользователем некорректно, то такой вызов должен быть заключен в блок обработки исключительной ситуации:
procedure TForml.eLeftindentchange(Sender: TObject);
begin
2 <(Нача к а обработки!
reEditor.Paragraph.Leftindent := StrToInt(eLeftindent.Text); except
*pa6d/(В *;лучае оши$>;^-1 никаких дейстДЩнд1МВоиэМвИртся и сообщение пользователю не выдается, так как использоваЛ бл^Н одюйотки । ry. xcept# ■Try<. Finally)
Подобным образом реализовываются обработчики всех остальных элементов управления, использованных в приложении.
И, наконец, остановимся на возможности печати, заявленной для нашей программы. Вывод изображения на принтер является сложным процессом, причем сопутствующие задачи, например, выбор принтера и типа бумаги, еще более сложны. Несколько более подробно возможности печати в Delphi изложены ниже, а пока мы будем использовать метод Print компонента 7। ’ который позволяет вывести редак
тируемый документ на принтер, установленный в системе по умолчанию, без каких-либо предварительных настроек:
procedure ' (const Caption: । ng);
В качестве единственного параметра данному методу передается строка, которая будет идентифицировать документ в очереди печати Windows.
Модуль, соответствующий главной форме приложения, приведен в листинге 14.7. Для повышения читабельности ссылки, автоматически добавленные визуальным построителем в заголовок класса формы, объединены в группы, снабженные комментариями:
Листинг 14.7. Модуль главной формы
unit Un i t1 .
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls, CcroCtrls:
type
TForml = class (TForm)
' ■ kci вый редактор : !
reEditor: TRichEdit;
.{Панель инструментов)
ControlBarl: TControlBar;
теме гы управления панели «Настройка шрифта и выравнивания»)
Panell: TPanel;
Label1: TLabel; cbFontSize: TComboBox; sbBold: TSpeedButton; sbltalic: TSpeedButton;
sbUnderlined: TSpeedButton; sbStrikedOut: TSpeedButton; L^&12 : TLabel ; clbColor: TColorBox;
sbLeftAlign: TSpeedButton;
sbCenterAlign: TSpeedButton;
sbRightAlign: TSpeedButton;.
(Элементы управления панели «Отступы») Panel2: TPanel;
eLeftindent: TLabeledEdit;
UpDownl: TUpDown;
eRightindent: TLabeledEdit;
UpDownS: TUpDown; eFirstlndent: TLabeledEdit;
UpDоwn 3: TUpDown;
(Элементы управления панели «Отменить/повторить») PanelS: TPanel;
sbUndo: TSpeedButS&n ; sbRedo: TSpeedButton;
. {Кнопка ^Нумер^Ия» sbNuinbering: TSpeedButton;
I - уйдайщиния^панел ™ «Сохранник и ■»)
GroupBoxl: TGroupBox;
Labe13: TLabe1;
rbRTF: TRadioButton;
rbTextOnly: TRadioButton; LabeK: TLabel;
eFileName: TEdit;
sbLoad: TSpeedButton;
sbSave: TSpeedButton; sbPrint: TSpeedButton;
(Обработчики событий элементов управления) procedure sbLoadClick(Sender: TObject); procedure sbSaveClick(Sender: TObject); procedure reEditorSelectionChange(Sender: TObject); procedure sbBoldClick(Sender: TObject); procedure sbltalicClick(Sender: TObject); procedure sbUnderlinedClick(Sender: TObject); procedure sbStrikedOutClick(Sender: TObject); procedure clbColorChange(Sender: TObject); procedure abLeftAlignClick(Sender: TObject); procedure sbCenterAlignClick(Sender: TObject); procedure sbRightAlignClick(Sender: TObject); procedure eLeftindentchange(Sender: TObject);
procedure eRightindentchange(Sender: TObject);
procedure eFirstlndentChange(Sender: TObject);
procedure sbUndoClick(Sender: TObject)
procedure sbRedoClick(Sender: TObject);
procedure sbNumberingClick(Sender: TObject);
procedure cbFontSizeChange(Sender: TObject);
procedure sbPrintClick(Sender: TObject);
private
{ Private declarations )
public
{ Public declarations } end;
var.
Forml: TForml;
implementation
($R *.dfm)
(Нажатие на кнопку «Загрузить» — чтение текста из файла с учетом формата, определяемого зависимьми переключателями «RTF» и «ТХТ»)
procedure TForml.sbLoadClick(Sender: TObject);
begin
reEditor.PlainText := rbTextOnly.Checked;
reEditor.Lines.LoadFromFile(eFileName.Text) ;
sbRedo.Enabled := False; end;
(Нажатие на кнопку «Сохранить» — запись текста в файл с учетом формата, определяемого зависимыми переключателями «RTF» и «ТХТ»)
procedure TForml.sbSaveClick(Sender: TObject);
begin
reEditor.PlainText := rbTextOnly.Checked;
reEditor.Lines.SaveToFile(eFileName.Text); end;
(Обработчик события изменения выделения — установка состояния элементов управления в состояние, соответствующее новому выделению)
procedure TForml.reEditorSelectionChange(Sender: TObject); begin
38538513 i 867
385
385
(Характеристики шрифта)
cbFontSize.Text := IntToStr(reEditor.SelAttributes.Size) ; sbBold.Down ;n (fsBold in reEditor.SelAttributes.Style); sbltalic.Down := (fsltalic in reEditor.SelAttributes.Style); sbUnderlined Down := (fsUnderline in reEditor. SelAttributes.Style) ; sbStrikedOut.Down := (fsStrikeOut in reEdi tor. SelAttributes. Style) ; clbColor.Selected := reEditor.SelAttributes.Color;
(Настройки абзаца)
sbLeftAlign.Down := (reEditor. Paragraph .Alignment = taLeftJustify) ; sbCenterAlign.Down := (reEditor. Paragraph.Alignment = taCenter); sbRightAlign.Down := (reEditor.Paragraph.Alignment = taRightJustify); sbNumbering.Down := (reEditor.Paragraph.Numbering = nsBullet); eLeftindent.Text := IntToStr(reEditor.Paragraph.Leftindent); eRightindent.Text := IntToStr(reEditor.Paragraph.Rightindent); eFirstlndent.Text := IntToStr(reEditor.Paragraph.Firstlndent); end;
- на кнопку «Полужирный» — установка соответствующего атрибута текущему ;
procedure TForml.sbBoldClick(Sender: TObject);
begin
if sbBold.Down
then reEditor.SelAttributes.Style :=
reEditor. SelAttributes . Style + [fsBold]
else reEditor.SelAttributes.Style := reEditor.SelAttributes.Style - [fsBold];
end;
• . . на кнопку «Наклонный» — установка соответствующего атрибута текущему
procedure TForml.sbltalicClick(Sender: TObject);
begin
if sbltalic.Down
then reEditor.SelAttributes.Style :=
reEdi tor. SelAttributes. Style + [fsltalic]
else reEditor.SelAttributes.Style :=
reEditor.SelAttributes.Style - [fsltalic]; end;
на кнопку «Подчеркнутый» — установка соответствующего атрибута текущему выд, ши I
procedure TForml.sbUnderlinedClick(Sender: TObject);
begin
if sbUnder1ined.Down
then reEditor.SelAttributes.Style :=
reEditor.SelAttributes.Style + [fsUnderline]
else reEditor.SelAttributes.Style := reEditor.SelAttributes.Style - [fsUnderline}; end ;
не на янэпку «Перечеркнутый» -- установка соответствующего атрибута текущему выделению} procedure TForml.sbStrikedOutClick(Sender : TObject); begin if sbStrikedOut.Down
then reEditor.SelAttributes.Style :=
reEditor.SelAttributes.Style + [fsStrikeOut] else reEditor.SelAttributes.Style :=
reEditor.SelAttributes.Style - [fsStrikeOut]; end;
(Выбор цвета пользователем — установка соответствующего атрибута текущему выделению}
procedure TForml.clbColorChange(Sender: TObject);
begin
reEditor.SelAttributes.Color ;= clbColor.Selected; end;
(Выбор размера шрифта пользователем}
procedure TForml.cbFontSizeChange(Sender: TObject);
begin
try
reEditor.SelAttributes.Size : StrToInt(cbFontSize.Text) ; except end;
end;
I
(Нажатие на кнопку «Выравнивание по левому краю»} procedure TForml.sbLeftAlignClick(Sender: TObject); begin
If sbLeftAlign.Down Then reEditor.Paragraph.Alignment : = taLeftJustify;
8pti;
(Нажатие на кнопку «Выравнивание по оентру»)
procedure TForml.sbCenterAlignClick(Sender: TObject);
begin
If sbCenterAlign.Down Then reEditor.Paragraph.Alignment : taCenter;
end;
। : на кнопку «Выравнивание по правому । .
.procedure TForml. sbRightAlignClick(Sender: TObject); begin
If sbRightAlign.Down Then reEditor.Paragraph.Alignment := taRightJustify; end;,
(Изменение значения в строке ввода «Отступ слева» -- уста-' новка отступа для текущего абзаца)
procedure TForml.eLeftlndentChange(Sender: TObject);
begin try
reEditor.Paragraph.Leftindent := StrToInt(eLeftindent.Text); except end; end;
{Изменение значения в строке ввода «Отступ справа») procedure TForml.eRightlndentChange(Sender: TObject); begin try
reEditor.Paragraph.Rightindent := StrToInt(eRightindent.Text); except end;
end;
imi i ш значения в строке ваша ^BtiSgH первой СТр№и>) procedure TForml.eFirstlndentChange(Sender: TObject); begin try
reEditor.Paragraph.Firstlndent : = StrToInt(eFirstlndent.Text); except end;
end;
(Нажатие на кнопку «Undo» — вызов метода Undo) procedure TForml.sbUndoClick(Sender : TObject); begin
reEditor.Undo;
sbRedo.Enabled := True;
end;
(Нажатие на кнопку «Redo» — вызов метода Undo)
procedure TForml.sbRedoClick(Sender: TObject);
begin
reEditor.Undo;
end;
• ы на кноржу «<нумерация»).
procedure TForml.sbNumberingClick(Sender: TObject);
begin
If sbNumbering.Down
Then reEditor.Paragraph.Numbering := nsBullet
Else reEditor.Paragraph.Numbering := nsNone; end;
(Нажатие на кнопку «Печать» — вызов метода Print) procedure TForml.sbPrintClick(Sender: TObject); begin
reEditor.Print('Файл: ' + eFileName.Text); end;
-fc-
end.
Таким образом, создание довольно сложного приложения, насыщенного элементами управления, не представляет в Delphi практически никакого труда при четком понимании цели и некоторой ориентации в системе компонентов. Однако реализованная нами программа имеет ряд недостатков, таких, как неудобная для пользователя форма выбора названия файла, в котором хранится текстовый документ,«отсутствие возможности поиска подстроки в документе, невозможность настройки принтера и параметров страницы, и так далее.
Большинство перечисленных проблем решаются с помощью использования стандартных диалогов Windows, представленных в Delphi в виде компонентов. Диалоговые компоненты помогают существенно упростить некоторые стандартные операции, выполняемые пользователем при работе с документами, особенно текстовыми. Второе достоинство диалоговых компонентов состоит в том, что диалоги занимают место на экране только в тот момент времени, когда они действительно нужны пользователю.
Исходя из вышесказанного, качество приведенной программы можно существенно повысить с помощью диалоговых компонентов, описанных в следующей главе.
Вопросы с ответами для повторения по главе 14
Расскажите об организации структуры элементов управления в окне
Ответ: Компоненты в окнах Windows делятся на две категории — компоненты-контейнеры, которые могут содержать другие компоненты, и обычные элементы у ip; вления Самым первым контейнером в окне является само окно, а при добавлении других оконных компонентов они визуально упорядочиваются по слоям в порядке добавления. Создание очередного элемента управления добавляет новый слой, который является самым «близким» (визуально) к пользователю. Очередные оконные элементы управления могут час гично и/ и полностью перекрывать ранее созданные.
В Delphi реализована группа визуальных компонентов, которые являются неоконными, то есть легковесными. При добавлении их в какой-либо контейнер в оконной структуре приложения не происходит каких-либо изменений. При перерисовке контейнера, в котором находятся легковесные компоненты, их изображения выводятся на область отображения контейнера с помощью передачи им свойства Canvas этого контейнера.
Таким образом, все легковесные компоненты, принадлежащие какому-либо контейнеру, будут перекрыты всеми оконными компонентами, принадлежащими этому же контейнеру.
Расскажите об методах расположения визуальных компонентов на экране и управления их размерами
Ответ: Расположение визуальных компонентов на экране вне зависимости от их разновидности в любой момент времени выполнения программы определяется целочисленными свойствами Left, Top, width и Height. Положение компонентов задается относительно контейнера, которому они принадлежат.
Помимо прямого указания положения и размеров элементов управления предусмотрено их автоматическое выравнивание относительно контейнера с помощью свойства Align, позволяющего расположить элемент управления вдоль какой-либо из сторон контейнера, либо развернуть его на всю область контейнера, и свойства Anchors, указывающего привязку отдельных сторон компонента к сторонам контейнера.
Вне зависимости от наличия и типа автоматического выравнивания положения компонентов, свойства Left, Top, width и г г всегда содержат корректные координаты компонентов и их размеры.
Расскажите обо свойствах видимости и доступности визуальных компонентов
Ответ: Визуальные компоненты, как наследники класса TControl, имеют свойство видимости Visible, которое указывает должно ли изображение элемента управления отображаться на экране. С точки зрения пользователя установка значения False свойству visible эквивалентно уничто-
жению элемента управления. Во время визуальной разработки значение данного свойства игнорируется, и все компоненты, размещенные на форме, видны. Использование свойства Visible может использоваться, например, для организации элементов управления в постраничном виде в сочетании с компонентом Tabcontrol.
Свойство доступности Enabled использует другой механизм. При установке этому свойству значения F . - компонент остается видимым пользователю, но не допускает взаимодействия. Все события, такие, как перемещения и нажатия мыши, передаются следующим компонентам, находящимся под недоступным, даже если они визуально скрыты.
Расскажите о компонентах, предназначенных для вывода на экран текстовой информации
Ответ: Основные компоненты, предназначенные для вывода текстовой информации — это гекстовые метки Label и staticText. Оба компонента имеют свойства для управления шрифтом и цветом выводимых символов, а также возможность автоматического разбиения текста на строки.
К недостаткам компонентов Label и staticText можно отнести отсутствие прокрутки текста в случаях, когда он не может быть выведен в пределах компонента полностью. Однако предусмотрена возможность автоматического подбора ширины компонента.
В случаях, когда на экран должны быть выведены большие объемы текстовой информации, либо выводимый документ имеет сложное форматирование, могут использоваться компоненты Мето и RichEdit.
Расскажите о компонентах, предназначенных для ввода текстовой информации
Ответ: Для ввода текстовой информации в зависимости от ее сложности можно использовать различные компоненты:
» компоненты Edit, LabeledEdit и ■ применяются для ввода одной строки текста;
» компоненты Мето и RichEdit можно использовать для ввода многострочных текстовых документов, причем данными компонентами поддерживается работа с файлами, а компонент RichEdit позволяет устанавливать гибкое форматирование документа;
» компоненты StringGrid, DrawGrid, и ValueListEditor предназначены для ввода информации, представленной двумерными таблицами.
Заметим, что с помощью свойства Enabled данных компонентов можно временно ограничивать доступ пользователя к изменению информации.
При помощи каких компонентов можно обеспечить возможность ввода пользователем числовых значений?
Ответ: Для ввода числовой информации применяются элементы управления, предназначенные для ввода текстовой информации, преимущественно Edit и LabeledEdit, либо StringGrid, если данные должны быть
представлены в табличной форме. При получении информации из элементов управления строки, введенные пользователем, переводятся в числовые значения средствами программы, например, с помощью функции StrToInt или StrToFloat.
Для обеспечения более удобной работы пользователя и повышения корректности вводимой им информации предусмотрен визуальный компонент UpDown, который управляет числовым значением, находящимся в строко- врм свойстве какого-либо другого компонента.
■ При помощи каких компонентов можно вывести на экран какое- либо графическое изображение?
Ответ: Стандартные компоненты Delphi поддерживают возможности вывода следующих видов графической информации:
Числовые параметры могут быть представлены в графическом виде с помощью компонента ProgressBar, показывающего положение параметра в некотором интервале возможных значений. Для представления нескольких параметров возможно использование компонента chart, выводящего на экран диаграммы и графики.
Для вывода одиночных графических изображений используется компонент Image, отображающий содержимое графических файлов, записанных в форматах, поддерживаемых классом TPicture.
Вывод анимационных avi-файлов обеспечивается компонентом Animate.
Компонент paintBox представляет область отображения, на которой может быть выведена любая графическая информация.
В Расскажите о возможностях элементов управления — кнопок
Ответ: Кнопки представлены в стандартных компонентах тремя классами — Button, BitBtn и SpeedButton
Компоненты Button и BitButton реализованы в виде оболочек Windows- элементов управления, причем класс TBitBtn является наследником TButton и добавляет к возможностям родительского класса вывод изображений на поверхность кнопок и автоматическую установку стиля компонента на основе некоторого набора сочетаний изображений и подписей. Данные компоненты поддерживают также возможность автоматического разбиения подписей на слова и вывод их в несколько строк.
Компонент SpeedButton является легковесным компонентом, реализованным исключительно средствами Delphi. Из возможностей компонентов Button и TBitBtn, отсутствующих в SpeedButton, можно отметить только разбиение длинных подписей. Компоненты SpeedButton могут организовывать между собой группы, аналогичные группам зависимых переключателей.
@
Приведите возможные методы организации выбора пользователем одного или нескольких значений из заданного списка
Ответ: Для организации списков значений, из которых пользователь может выбрать не более одного, применяются следующие интерфейсные конструкции:
» группы компонентов RadioButton, расположенные в одном контейнере, или компонент
* группы компонентов ;с одинаковым значением свойства
Grouplndex;
« СПИСКИ выбора ListBox И ComboBox.
Для организации списков значений, из которых пользователь может выбрать более одного значения, применяются следующие интерфейсные конструкции:
группы компонентов CheckBox; компоненты CheckListBox.
Опишите основные возможности компонента RichEdit
Ответ: Компонент RichEdit предназначен для использования документов, хранимых в формате RTF, что и определяет его основные возможности, направленные на гибкое форматирование текстовой информации. Единицей форматирования может выступать весь документ, один абзац, для которого можно установить характеристики отступов и выравнивания, либо некоторое выделение, состоящее из одного или нескольких символов одного или нескольких абзацев. Для выделения устанавливаются характеристики шрифта и цвета, а также некоторые другие атрибуты.
tf
Невизуальныекомпоненты
Как было сказано ранее, невизуальные компоненты предназначены не для отображения какой-либо информации на экране, и не подразумевают взаимодействия с пользователем. Задача невизуальных компонентов — добавление в программу какой-либо дополнительной функциональности.
Количество стандартных невизуальных компонентов, поставляемых с Delphi, существенно выше, чем количество визуальных, однако мы рассмотрим всего один из них:
©1 — Компонент Timer. Служит для генерации событий через заданные интервалы времени.
Компонент расположенный на странице . у. • Палитры компонентов, является одним из самых простых невизуальных компонентов и предназначен для выполнения некоторого фрагмента программы через заданные интервалы времени. Вызываемый фрагмент является обработчиком СОбыТИЯ On Timer
property OnTimeKfc TNotifyEvent;
Для настройки интервала времени, через которые происходит вызов обработчика события OnTimer, используются свойства: Interval, задающее длительность интервала в миллисекундах, и ! ■1 с . определяющее, следует ли вызывать обработчик:
property Mgerval: C^Hinal;
property Enabled: Boolean;
Механизм, используемый компонентом Timer, полностью построен на возможностях операционной системы, которая предоставляет набор функций для работы с таймером на основе рассылки сообщений . Г1 Е1 в оконные функции приложений. Таким образом, появление в системе таймерного события и непосредственный вызов его обработчика в программе разделяет некоторое время, зависящее от нагрузки на очередь сообщений и от общей загрузки системы. Существенное влияние оказывают, также, характеристики машины, на которой выполняется программа.
Таким образом, компонент Timer предназначен не для отсчета точных интервалов времени, а, скорее, для выполнения каких-либо периодических действий через более или менее одинаковые интервалы времени. В качестве примера можно привести программу, реализующую часы. Стрелки на часах перемещаются один раз в секунду, следовательно, свойству interval следует установить значение 1000.
Однако чем дольше работает такая программа, тем больше будет отклонение показаний часов от реального времени из-за задержек при вызовах обработчика. Поэтому в программах такого рода таймер используется не для отсчета времени, а для получения управления обработчиком OnTimer, который определяет реальное время с помощью соответствующих функций (например, функции Time, описанной в модуле Sysutils), определяет на основе этой информации корректное положение стрелок, и выполняет прорисовку, если это необходимо.
v^d&l ?б
Создание компонентов во время выполнения программы
Работа в визуальном построителе удобна и проста, однако иногда на этапе разработки программы неизвестно, какие именно компоненты должны быть созданы. Для этого предусмотрена возможность создания компонента во время выполнения программы.
Основные действия, выполняемыепри создании компонентов
Создание компонента без визуального построителя аналогично созданию экземпляра какого-либо класса, так как каждый компонент является классом. Для того, чтобы компонент стал частью общей структуры программы, он должен подчиняться описанным ранее требованиям, основные из которых указаны ниже:
I Для каждого компонента должно быть установлено свойство принадлежности — ссылка на какой-либо компонент (компонент-владелец), который несет ответственность за разрушение данного компонента при разрушении самого себя;
2 Для визуальных компонентов должно быть установлено свойство визуальной принадлежности — ссылка на компонент-контейнер (компонент-родитель), в котором должен отображаться данный компонент.
Ссылка на компонент-владелец передается в качестве параметра при вызове конструктора компонента. Напомним, что конструктор имеет одинаковый вид для всех компонен го С и описан в классе TComponent:
constructor■Ii ) .
’" Такое требование имеет место, так как компоненты используются визуальным построителем, соответственно, должны создаваться заранее известным образом.
Например, создание компонента Timer может выглядеть следующим образом:
Var
MyTimer: TTimer; IОписание ссылки на компонент Timer}
Begin
MyTimer := TTimer.Create(Panell) ;
экземпляра компонента Timer. Ответственность за его разрушение возложена на компонент Panell, соответственно при вызове метода Free компонента Panell сначала будет автоматически вызван метод Free компонента И . . г I
Заметим, что в качестве ссылки на компонент-владелец может быть передано значение nil (пустая ссылка), которая будет корректно распознана конструктором компонента. В таком случае, программа, создавшая компонент, должна его самостоятельно разрушить с помощью вызова метода Free, перед закрытием, либо при отсутствии необходимости его дальнейшего использования:
Var
MyTimer: TTimer; (Описание ссылки на компонент Timer)
Begin
MyTimer := TTimer.Create(nil);
1-- экземВмй емВнене Timer.
Ссылка на компонент-владелец не передается, ЛЙЙИвательнйбл Ь^И?ветс;Ленность Я раэр^р^нид компонента берет на себя программа)
MyTimer.Free; (Разрушение компонента)
В первом примере прямое разрушение компонента не требуется, но возможно. При этом компонент-владелец Panell автоматически удалит компонент MyTimer из списка зависимых компонентов, получив уведомление о его разрушении с помощью механизма обязательных уведомлений, описанного ранее.
Создание визуальных компонентов
Процесс создания визуальных компонентов должен содержать в себе еще один дополнительный шаг, помимо установки свойства принадлежности — указание компонента, который является контейнером (визуальным владельцем) для создаваемого. Ссылка на контейнер заносится в property-свойство Parent:
property;.;
Присвоение ссылки данному свойству автоматически перемещает компонент из одного контейнера в другой. Рассмотрим, например, создание визуального компонента (метки Label) во время выполнения программы (ЛИСТИНГ If: I
Листинг 16.1. Создание визуального компонента (метки Label) во время выполнения программы
Var
MyLabel: TLabel; {Описание ссылки на компонент Timer)
Begin
MyLabel := TLabel.Create(Panel1);
: экземпляра компонента Label. Ответственность за его разрушение возложена на компонент Panell, соответственно при вызове метода Free компонента Panell сначала будет автоматически вызван метод Free компонента
Label Parent := Panell;
визуальной принадлежности компонента MyLabel — в качестве контейнера для него указывается компонент Panell, который является еще и его тад, .
Еще одной существенной особенностью создания визуальных компонентов является необходимость настройки свойств, управляющих положением компонента, его размерами, и другими свойствами, определяющими представление элемента управления на экране. Такие действия выполняются обычным образом, с помощью изменения значений соответствующих свойств компонентов.
В качестве примера создания компонентов во время выполнения программы, приведем приложение (см. рис. 16.1), создающее при нажатии кнопки ‘Создать’ экземпляр компонента Edit, и располагающее его в панели (см. рис 16.2).
Concert | Игреком | Рмредкмине* |
Рис. 16.1. Создание компонентов во время выполнения программы. Форма в процессе разработки
Создать I Перенести 1 РбЭруао г панель
Рис. 16.2. Создание компонентов во время выполнения программы.Вид приложения после нажатия кнопки «Создать»
При нажатии второй кнопки (‘Перенести’) компонент, созданный ранее, перемещается в другой контейнер — главное окно приложения (см. рис. 16.3). Для визуального переноса компонента в новый контейнер достаточно просто изменить свойство визуальной принадлежности
Рис. 16.3 Создание компонентов во время выполнения программы. Вид приложения после нажатия кнопки «Перенести»
Предусмотрим еще одну кнопку — ‘Разрушить панель — и в обработчике нажатия на нее будем вызывать метод Free панели 1. В результате панель будет удаляться с экрана, разрушая при этом строку ввода, вне зависимости от того, где именно она расположена — на панели или в окне формы.
Для создания описанного приложения запустим среду разработчика Delphi, и расположим на форме компонент Panel, которому будет присвоено название 1. Далее расположим на форме три компонента Button, которым визуальный построитель назначит имена Buttonl, Button2 и it t Реализуем обработчики события Onclick для кнопок соответствующим образом.
Программный код модуля главной формы приложения приведен далее, в листинге 16.2.
Листинг 16.2. Практика создания визуальных компонентов
unit Unit 1 ; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForml = class(TForm)
Pane11: TPanel;
Buttonl: TButton;
Button2: TButton; Buttons: TButton; procedure ButtonlClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ButtonSClick(Sender: TObject); private
Editl: TEdit; пила; io ссылки на экземпляр класса TEdit — строку ввода, которая будет создана во время выполнения i public { Public declarations } end;
var
Formi: TForml; implement Йi on ($R *.dfm)
procedure TForml.ButtonlClick(Sender: TObject);
Begin (Обработчик события нажатия на кнопку 'Создать'} Editl := TEdit.Create(Panell) ;
; 1 экземпляра класса TEdit, ^ KgedSrpe объекта-владельца указан Ж>мД№енЯ| PaHell ) I
Editl.Left := 10;
Editl.Top := 10;
Editl.Width := Panell.Clientwidth - 20;
Editl.Height : = Panell.ClientHeight — 20;
(Установка свойств положения и размеров созданного компонента} Editl.Parent := Panell;
(Указание визуальной принадлежности компонента} end;
procedure TForml.Button2Click(Sender: TObject);
begin (Обработчик события нажатия на кнопку 'Перенести'1 Editl.Parent := Self;
(Изменение свойства визуальной принадлежности.
В качестве нового контейнера указывается ссылка на форму с помощью ключевого слова Self}
end;
procedure TForml.ButtonlClick(Sander: TObject);
begin (Обработчик события нажатия на кнопку
'Разрушить панель'} Panell.Free;
(Разрушение панели вызовом метода Free. Перед непосредственным разрушением Panell будет вызван метод Free компонента Editl, созданного во время выполнения программы, в результате чегоон исчезнет с экрана, а обращение к нему через ссылку Editl станет невозможным}
end;
end.
Заметим, что при смене контейнера компонент перемещается относительно верхнего левого угла формы. Это связано с тем, что его положение, заданное свойствами Left и Тор? не изменяется, тогда как эти значения рассматриваются относительно контейнера.
Теперь представим себе ситуацию, когда кнопки Butt ml, Button2 и Button3 были бы размещены в панели Panell. В этом случае при разрушении панели они будут удалены из окна приложения, так как разрушается контейнер, в котором они находятся. При этом владельцем всех трех компонентов является форма, поэтому реально кнопки будут разрушены только при закрытии программы.
Назначение обработчиков событий
Вне зависимости от того, каким образом был создан компонент — визуальном построителе, или во время выполнения программы, он одинаковым образом интегрируется в общую схему работы, в том числе поддерживается и возможность использования событий. Ссылка на обработчик события компонента представляет собой property-свойство, которое имеет какой-либо процедурный тип данных.
Например, в нашем приложении можно организовать обработку события OnKeyPress компонента Edi . создаваемого во время выполнения программы. Процедурный тип свойства OnKeyPress описан следующим образом:
Туре
TKeyPressEvent = procedure (Sender: TObject;
var - у Char) of object;
Следовательно, обработчик события должен являться методом какого- либо i lacca (так как использована конструкция of object) и иметь два параметра: Sender типа TObject, и параметр-переменную Key типа Char.".-
Опишем такой метод в классе формы, поместив его заголовок в секцию private интерфейсной части, и реализовав его в описательной части модуля:
TForml = class(TForm)
private
Editl: TEdit;
Procedure EditEvent(Sender: TObject; var Key: Char) ;
Procedure TForml.EditEvent(Sender: TObject; var Key: Char); begin If Key ='x' Then Key := #0;
end;(Описание метода EditEvent, заставляющий
игнорировать нажатия на клавилг/ 'х' }
Для назначения данного обработчика элементу управления следует занести ссылку на метод в свойство OnKeyPress, используя название метода:
procedure TForml.ButtonlClick(Sender: TObject); begin Editl := TEdit.Create(Panell);
Editl.Left := 10;
Edi tl. Top := 10;
Editl.Width := Panell.Clientwidth - 20;
Editl.Height := Panell.ClientHeight - 20;
Editl.OnKeyPress := EditEvent;
I Присвоение свойству OnKeyPress ссылки на метод
E®tEven^ ДднДй ,'^й0МИ буЯт вьИыват1#ся в качЯЯве сИэабНгчика событие OnKeyPress} ~
Editl.Parent := Panell;
end;
Использованиемассивов компонентов
Использование ссылок на компоненты не имеет каких-либо ограничений, поэтому существует возможность организации массивов таких ссылок:
Var
RTComponents : Arrayfl..10] Of TComponent;
Массивы компонентов могут применяться для автоматизированной обработки набора компонентов, например, изменения размеров или положения, назначения обработчиков каких-либо событий, или анализа объекта-источника сообщения в обработчиках:
Var
RTComponents: Arrayfl. 10) Of TComponent;
procedure TFonnl.OnKeyPress(Sender: TObject; var Key: Char);
Var
i : Integer;
begin
For i := 1 To 100 do
If Sender = RTComponentsfi) ;
Then
end;
Вопросы с ответами для повторения по главе 16
Приведите правила создания компонентов во время выполнения программы
Ответ: Для создания компонента во время выполнения программы следует выполнить такие действия:
» создать экземпляр компонента с помощью вызова конструктора create, передав, при необходимости, в качестве параметра ссылку на компонент, который будет нести ответственность за разрушение создаваемого компонента. Если компонент будет разрушен в тексте программы, то ссылку можно не передавать, использовав значение nil;
» для визуальных компонентов установить свойство визуальной принадлежности Parent, присвоив ему ссылку на контейнер, в котором отображается создаваемый компонент;
« для визуальных компонентов установить свойства, определяющие положение, размеры и другие необходимые визуальные характеристики элемента управления;
» при необходимости реализовать в виде методов какого-либо класса и назначить компоненту обработчики событий;
• если при создании компонента не был указан владелец Owner, разрушить компонент, вызвав его метод Free. Если компонент имеет владельца, то он будет разрушен автоматически.
Использование
диалоговыхкомпонентов
Общие методы и событиядиалоговых компонентов
Как отмечалось ранее,. диалоговые компоненты являются наследниками класса । : i. в котором описан метод Execute, предназначенный для вывода диалогового окна на экран. Во время разработки приложения диалоговые компоненты отображаются на форме так же, как и н евизуальныс — в виде иконок соответствующих им в Палитре компонентов.
Метод Execute является функцией, возвращающей логическое значение, соответствующее тому, как пользователь завершил работу с диалогом. Значение True возвращается, если пользователь выполнил все необходимые действия, подразумеваемые данным диалоговым окном, и нажал, например, на кнопку Ок. Значение False возвращается, если пользователь отказался от работы с диалогом.
Функция Execute описана в компоненте TCommonDialog следующим образом:
Function Execute: I ; virtual; abstract;
Как видно из описания данного метода, он является абстрактным, соответственно, компонент предназначен не для работы с ним, а для построения других компонентов на его основе.
В классе TCommonDialog определены два события, которые поддерживаются всеми диалоговыми окнами — OnShow. обработчик которого, если такой задан, вызывается при выводе диалогового окна на экран, и OnClose, обработчик которого вызывается при скрытии диалога с экрана.
Общие свойства диалоговыхкомпонентов
Помимо метода Execute в классе юп i описано несколько свойств, которые могут использоваться для более гибкой работы с диалогом.
Property-свойство 1 - присутствует в диалоговых компонентах для обратной совместимости с шестнадцатиразрядными версиями Windows и определяет стиль диалогового окна и элементов управления в нем. Значение True указывает на «трехмерный» вид диалога, а значение . соответственно, на «плоский».
. property
В property-свойстве Handle содержится идентификатор диалогового окна, выведенного на экран. Соответственно значение свойства Handle имеет смысл, пока окно находится на экране, а после его закрытия Handle обнуляется.
property Handle: На ;
Необходимо заметить, что внешний вид диалога, вызываемого командой Execute, формируется не самим диалоговым компонентом, а операционной системой, вследствие чего существенно зависит от версии Windows, в которой выполняется программа.
Стандартные диалоговые компоненты
Диалоговые компоненты представлены на закладке Dialogs Палитры компонентов Delphi и могут быть разделены на несколько логических групп:
I Диалоги для работы с файлами (открытие или сохранение). В данную группу входят диалоги открытия и сохранения файлов OpenDialog и SaveDialog, а также диалоги открытия и сохранения графических файлов OpenPictureDialog и Save Picture Dialog.
Диалоги выбора шрифта и цвета FontDialog и ColorDialog.
Диалоги настройки параметров печати 1 nt :, PrinterSetupDialog И PageSetupDialog.
Диалоги текстового поиска и замены FindDialog и ReplaceDialog.
Все представленные диалоги готовы к работе, не требуют установки дополнительных свойств и вызова каких-либо методов, и тесно интегрированы со средой. Так, например, в диалоге выбора принтера PrintDialog присутствует список всех принтеров, доступных системе, а в диалоге выбора шрифта FontDialog список шрифтов автоматически заполняется установленными Ё Windows шрифтами.
Рассмотрим подробно каждую группу компонентов.
Диалоги для работы с файлами
В Delphi предусмотрены следующие диалоговые компоненты для работы с файлами:
2 OpenDialog2 OpenDialog— диалог открытия файла (см. рис. 17.1).
2 OpenDialog
2 OpenDialog
И SaveDialog- диалог сохранения файла (см. рис. 17.2).
v 1: — диалог открытия графического файла
(см. рис. 17.3).
Э SavePictureDialogЭ SavePictureDialog— диалог сохранения графического файла (см. рис. 17.4).
Э SavePictureDialog
Э SavePictureDialog
11*11
^ ActnCoiorMapsff ActnCtrlsActnList# Adrienif ActnMerxeАсЬпАэрц:>Adr*e$if Mrfles ^ADOConst fl ADODB#AOOHJИмя Фам/гаТип Piw:e^ ActnCoiorMapsff ActnCtrlsActnList# Adrienif ActnMerxeАсЬпАэрц:>Adr*e$if Mrfles ^ADOConst fl ADODB#AOOHJИмя Фам/гаТип Piw:eIf AppEvnts I^AxQrts if B<nd*r tn ^bderor^t ' bdemts-f' Buttons 8 tri-j /# Cktrd # CmAdrnCti if ComCtrts0 Com SirsIf AppEvnts I^AxQrts if B<nd*r tn ^bderor^t ' bdemts-f' Buttons 8 tri-j /# Cktrd # CmAdrnCti if ComCtrts0 Com Sirsl^ Controlsf£ CH Panel^CmtcnteeCigl^ Controlsf£ CH Panel^CmtcnteeCigif Customtedg ifDW«E»t ^M ifoHAa*dbcarids#ОвОес<if Customtedg ifDW«E»t ^M ifoHAa*dbcarids#ОвОес<1F DeOentAetre.1F DeOentAetre.if DOCbent Actne■ DBCommon j LiKonrtkhr, ' DBConsts #оеагь fl'[Except if ое&кв d«r f ce.<xt fl М1<хЛif DOCbent Actne■ DBCommon j LiKonrtkhr, ' DBConsts #оеагь fl'[Except if ое&кв d«r f ce.<xt fl М1<хЛО»^ытьО»^ытьРис. 17.1. Диалог открытия файлаРис. 17.1. Диалог открытия файла■.• а и-■.• а и-!f ActnCofcrMacs If Aetna*ActnListфддпн«лActnMenus^Г АЛпРорир j^Mrfl.es t^-Mrfl.es ^toOConst ^ADCOflIf ADOld.!f ActnCofcrMacs If Aetna*ActnListфддпн«лActnMenus^Г АЛпРорир j^Mrfl.es t^-Mrfl.es ^toOConst ^ADCOflIf ADOld.Jf AppEvnts Zf AxQrte 5f:9a-»dActn $bd*coMt >f tdwnwButtons ffChecH* if cloixd if C"**<B ZjComCtrls J^1 ComStrsJf AppEvnts Zf AxQrte 5f:9a-»dActn $bd*coMt >f tdwnwButtons ffChecH* if cloixd if C"**<B ZjComCtrls J^1 ComStrs. Con stst£ ControlsCbCori^s$■ QlPwwi•fl Kl.-.n.^r-i, If- Cu$torr*MC^g I^MaBk #06 # DflArtre Itf-ix-ykhIf DBaierf. Con stst£ ControlsCbCori^s$■ QlPwwi•fl Kl.-.n.^r-i, If- Cu$torr*MC^g I^MaBk #06 # DflArtre Itf-ix-ykhIf DBaierfDBCIientActnResflf'DBCIientActns# DBCommonZf DBConnAdminIf. DBConstsIf - DBGrids«дваif - DBLocalif C«o<a211 О*»** IDBCIientActnResflf'DBCIientActns# DBCommonZf DBConnAdminIf. DBConstsIf - DBGrids«дваif - DBLocalif C«o<a211 О*»** IJ - S d< Б-
^ ActnCoiorMaps
ff ActnCtrls
ActnList
# Adrien
if ActnMerxe
АсЬпАэрц:
>Adr*e$
if Mrfles ^ADOConst fl ADODB
#AOOH
J
Имя Фам/га
Тип Piw:e
^ ActnCoiorMaps
ff ActnCtrls
ActnList
# Adrien
if ActnMerxe
АсЬпАэрц:
>Adr*e$
if Mrfles ^ADOConst fl ADODB
#AOOH
J
Имя Фам/га
Тип Piw:e
If AppEvnts I^AxQrts if B<nd*r tn ^bderor^t ' bdemts
-f' Buttons 8 tri-j /
# Cktrd # CmAdrnCti if ComCtrts
0 Com Sirs
If AppEvnts I^AxQrts if B<nd*r tn ^bderor^t ' bdemts
-f' Buttons 8 tri-j /
# Cktrd # CmAdrnCti if ComCtrts
0 Com Sirs
l^ Controls
f£ CH Panel
^CmtcnteeCig
l^ Controls
f£ CH Panel
^CmtcnteeCig
if Customtedg ifDW«E»t ^M ifoHAa*
dbcarids
#ОвОес<
if Customtedg ifDW«E»t ^M ifoHAa*
dbcarids
#ОвОес<
1F DeOentAetre.
1F DeOentAetre.
if DOCbent Actne
■ DBCommon j LiKonrtkhr, ' DBConsts #оеагь fl'[Except if ое&кв d«r f ce.<xt fl М1<хЛ
if DOCbent Actne
■ DBCommon j LiKonrtkhr, ' DBConsts #оеагь fl'[Except if ое&кв d«r f ce.<xt fl М1<хЛ
О»^ыть
О»^ыть
Рис. 17.1. Диалог открытия файла
Рис. 17.1. Диалог открытия файла
■.• а и-
■.• а и-
!f ActnCofcrMacs If Aetna*
ActnList
фддпн«л
ActnMenus
^Г АЛпРорир j^Mrfl.es t^-Mrfl.es ^toOConst ^ADCOfl
If ADOld.
!f ActnCofcrMacs If Aetna*
ActnList
фддпн«л
ActnMenus
^Г АЛпРорир j^Mrfl.es t^-Mrfl.es ^toOConst ^ADCOfl
If ADOld.
Jf AppEvnts Zf AxQrte 5f:9a-»dActn $bd*coMt >f tdwnw
Buttons ffChecH* if cloixd if C"**<B ZjComCtrls J^1 ComStrs
Jf AppEvnts Zf AxQrte 5f:9a-»dActn $bd*coMt >f tdwnw
Buttons ffChecH* if cloixd if C"**<B ZjComCtrls J^1 ComStrs
. Con stst£ Controls
CbCori^s
$■ QlPwwi
•fl Kl.-.n.^r-i, If- Cu$torr*MC^g I^MaBk #06 # DflArtre Itf-ix-ykh
If DBaierf
. Con stst£ Controls
CbCori^s
$■ QlPwwi
•fl Kl.-.n.^r-i, If- Cu$torr*MC^g I^MaBk #06 # DflArtre Itf-ix-ykh
If DBaierf
DBCIientActnRes
flf'DBCIientActns
# DBCommon
Zf DBConnAdmin
If. DBConsts
If - DBGrids
«два
if - DBLocal
if C«o<a
21
1 О*»** I
DBCIientActnRes
flf'DBCIientActns
# DBCommon
Zf DBConnAdmin
If. DBConsts
If - DBGrids
«два
if - DBLocal
if C«o<a
21
1 О*»** I
Рис. 17.2. Диалог сохранения файла
Рис. 17.3. Диалог открытия графического файла
Рис. 17.4. Диалог сохранения графического файла
Все диалоги для работы с файлами имеют одинаковые свойства, так как компоненты SaveDialog, nPict.ureDia 1 од и SavePictureDialog являются наследниками класса TOpenDialog (см. рис. 17.5). Диалоги открытия и сохранения графических файлов принципиально отличаются от обычных файловых диалогов только возможностью просмотра открываемого файла в самом диалоге.
Помимо свойств, унаследованных от классов TObject, TPersistent, р, г, и । - । с ;. в классе TOpenDialog описаны свойства настройки начального вида диалога для более удобной работы пользователя, в основном, связанные с фильтрацией файлов*. представленных в диалогах открытия и сохранения файлов.
Рассмотрим свойства и события диалогов открытия и сохранения.
Рис. 17.5. Иерархия файловых диалогов
Свойства файловых диалогов
Свойство Initial Di г
При выводе окон диалогов на экран пользователю предоставляется список файлов в некотором каталоге, определяемом свойством InitialDir:
property InitialDir: String;
Значением этого свойства может являться строка, содержащая любой допустимый в операционной системе путь к какому-либо каталогу, в том числе и сетевому.
Если значением свойства InitialDir является пустая строка, то поведение диалога определяется значением глобальной логической переменной :гДанная переменная описана в мо
дуле Dialogs, автоматически включаемом в список используемых модулей при добавлении диалогового компонента на форму. Если переменная ForceCurrentDirectory имеет значение True, то при открытии диалога в нем отображается текущий рабочий каталог, в противном случае будет отображено содержимое каталога «Мои документы».
Заметим, что при повторном открытии диалога в нем будет выбран каталог, который был отображен при закрытии диалога, несмотря на свойство InitialDir. При отказе пользователя от работы с диалогом начальный каталог не изменяется.
Свойство Filter
Стандартные диалоги для работы с файлами поддерживают возможность фильтрации выводимых файлов по маске. Механизм фильтрации реализован на основе списка групп файлов, которые следует выводить одновременно друг с другом. Используя выпадающий список в файловых диалогах, пользователь может просматривать разные группы файлов, в зависимости от строки, выбранной в этом списке.
Количество и состав групп файлов определяется свойством Filter:
property 1 : String;
Значением свойства должна являться строка следующего вида:
<Название группы >|<Маска 1; ...; Маска N>| . . . <Название группы >|<'-1 ; . . . ; Маска К>
Пользователь выбирает группы файлов, руководствуясь Названиями групп, после чего файлы, отображаемые в диалоге, будут перечитаны с учетом масок, соответствующих выбранной группе. В качестве примера приведем возможное значение свойства Fill г для двух групп файлов, в одной из которых будут находиться файлы с расширением pas, а в другой — с и срр. В Выпадающем списке диалога пользователь будет видеть две строки: «Pascal and Delphi files " - :и «С and
C + + files <+ . с, ■ . p i »:
Delphi and Pascal files ■ । + | - ; c | and C + + files , *.cpp)|*.c; *.cpp
Справа от поля редактирования данного свойства в Инспекторе объектов находится кнопка вызова диалога для более удобного формирования значения, данные в котором представляются в табличном виде (в левой части таблицы представлены названия групп файлов, а в правой — маски).
Заметим, что маски файлов формируются по обычным правилам и могут включать в себя не только символы **» и «.», но и все другие конструкции, используемые обычно для формирования масок файлов. Например маска «??.cj р» указывает на то, что в диалоге должны быть отображены файлы с расширением срр, имя которых состоит точно из двух букв.
Настройка функциональности диалогов
Файловые диалоги позволяют пользователю только указать на какой- либо файл и по умолчанию не проверяют, существует ли выбранный файл на самом деле, и допускается ли в него запись. Таким образом, на программу ложится довольно сложная процедура определения корректности выбора пользователя. Однако действия, которые в таких случаях должны выполняться, стандартны для любого приложения, поэтому они уже реализованы операционной системой.
Для гибкой настройки функциональности диалогов в классе TOpenDialog описаны множественные свойства Options и OptionEx:
property Options:
property OptionsEx: TO^er t 1 sEx;
Оба свойства аналогичны по своей структуре — это множества, каждый из элементов которых является флагом, указывающим необходимость выполнения тех или иных проверок при работе пользователя с диалогом. В Инспекторе объектов эти свойства разворачиваются таким образом, что каждое из значений отображается в виде логического значения. Значение True указывает на то, что элемент следует включить в множество, а ■ — что элемент не должен присутствовать в множестве.
Свойство :■- * Ех более простое и может содержать всего один элемент — ofEx No Places Ваг, наличие которого в множестве отменяет левую часть диалогов, содержащую кнопки быстрого доступа к журналу, рабочему столу, сетевому окружению и папке Мой компьютер. Свойство pt ion имеет значительно больше возможных значений (см. табл. 17.1).
Состав свойства Options файловых диалоговТаблица ' 1
Элемент
Изменение функциональности диалога при включении элемента в множество
Область применения
ofH ide Read Only
Удаляет из диалога переключатель «Только для чтения»
Используется только в диалогах открытия
of Readonly
Устанавливает переключатель «Только для чтения» в выбранное состояние
И спользуетсятолько в диалогах открытия
oroverwritePrompt
Если в диалоге сохранения пользователь выбирает уже существующий файл, на экран выводится диалоге предупреждением, в котором можно отказаться от произведенного выбора и продолжить работу с диалогом
Используется только в диалогах сохранения
ofNoChangeDir
После выбора файла устанавливает текущий каталог на выбранный до вызова диалога
ofShowHelp
Отображает кнопку с символом рядом с кнопкой закрытия диалога
ofNoValidate
Отключает проверку на наличие недопустимых символов в выбранном имени файла
Используется обычно в диалогах сохранения
ofAllowMuitiSelect
Включает возможность выбора пользователем нескольких файлов
Используется обычно только в диалогах открытия
ofExtensionDifferent
Элемент добавляется в множество Options, в случае, если расширение выбранного файла не соответствует указанному в свойстве D faultExt
Используется только во время выполнения программы
ofPathMustExist
Включает проверку на существование каталога при выборе файла. Не допускает выбор файлов в некорректном каталоге
Используется обычно в диалогах сохранения
ofFileMustExist
Включает проверку на существование выбранного файла. Не допускает выбор несуществующих файлов
Используется обычно в диалогах открытия
ofNoReadOnlyReturn
Включает проверку на возможность записи в выбранный файл. Не допускает выбор файлов, имеющих атрибут Readonly
Используется обычно в диалогах сохранения
ofCreete Prompt
Если в диалоге сохранения пользователь выбирает несуществующий файл, на экран выводится диалог с предупреждением, в котором можно отказаться от произведенного выбора и продолжить работу с диалогом
Таблица 17.1 (продолжение)
Элемент
Изменение функциональности диалога при включении элемента в множество
Область применения
ofShareAware
Отключает проверку на возможность доступа к файлу при использовании его другими программами и разрешает выбор таких файлов
ofNoTestFileCreate
Отключает проверку на возможность изменения файлов при использовании сетевых путей
Используется только в диалогах сохранения
ofOldStyleOiatoQ
Придает диалогу внешний вид, который использовался в более ранних версиях Windows
ofNoNetwortcButton
Удаляет из диалога старого образца кнопку обращения к сетевому окружению
Используется только совместно с элементом ofOldStyleDialog
ofNoLongNames
Отображает в списке файлов только файлы с короткими именами (8 символов в имени и 3 в расширении)
Используется только совместно с элементом ofOldStyleDialog
otNoDerelerenceUnks
Запрещает внутреннюю переадресацию при выборе ярлыков, например, на рабочем столе. Вместо файла, на который указывает ярлык, возвращается имя ярлыка (файл с расширением Ink)
ofEnablelncludeNotrfy
Указывает Windows на необходимость посылки сообщения CON JNCLUDEITEM в диалоговое окно при выборе пользователем очередного каталога. Таким образом, программа может контролировать список файлов, видимых пользователю
Используется только в Windows 2000 и более поздних версиях, в остальных игнорируется
ofEnableSuing
Разрешает изменение размеров диалогового окна пользователем
ofDontAddToRecent
Запрещает добавление выбранных файлов в список часто используемых
otForceShowHidden
Разрешает просмотр и выбор файлов, имеющих атрибут Hidden
Результаты работы файловых диалогов
Файловые диалоги являются модальными окнами, то есть приостанавливают выполнение программы с момента своего появления на экране, и до завершения работы с диалогом. В зависимости от того, выбран ли пользователем какой-либо файл, или нет, метод Execute возвращает значение True или False. Поэтому вызов данного метода обычно выглядит следующим образом:
"Л
If <Кмя - ':>.Kxecut,
Then <Действия в случае корректного -; >
Else <Действия в случае некорректного . . бо; ->;
Если пользователем выбран файл, то есть метод Execute возвратил значение True, то программа может получить доступ к названию выбранного файла через свойство FileName (название файла возвращается с указанием полного пути):
property FileName: T! leN ■ ,
Если в свойстве Options компонента установлен флаг ofAllowMu tiSelcct, то в свойстве FileName содержится название первого файла из списка, а для доступа к названиям всех выбранных файлов следует использовать свойство Files:
property Files:~.
Свойство Files имеет область видимости public, а не published, поэтому может быть доступно только во время выполнения программы.
События файловых диалогов
В диалоговых компонентах, предназначенных для работы с файлами, определены события, позволяющие более гибко контролировать процесс работы пользователя.
Событие OnCanClose возникает для выполнения дополнительной проверки возможности закрытия диалога обработчиком данного события после обычной проверки средствами самих диалогов. Обработчик события OnCanClose имеет возможность обратиться к свойству FileName и Files компонента и вернуть флаг закрытия диалога, передаваемый обработчику через параметр-переменную CanClose:
property OnCanClose: I 1■ . у Event ;
Процедурный тип ТClose QueryEvent описан следующим образом:
Type TCloseQueryEvent = procedure (Sender: TObject; var CanClose: Boolean) of object;
В случае, если диалоговое окно следует закрыть, обработчик должен возвратить значение True в параметре-переменной CanClose, если же по результатам дополнительной проверки диалоговое окно не должно быть закрыто, значение параметра CanClose устанавливается в False.
Событие OnFolderChange возникает при смене пользователем текущего каталога:
propertyin t ;
Событие Onincludeltem возникает при выводе в диалоговое окно очередного имени файла и может использоваться для более сложной фильтрации списка файлов, чем стандартная фильтрация по маске..
property Onincludeitem:1 it -
Механизм фильтрации состоит в следующем. Обработчик вызывается для каждого файла, который диалог собирается вывести на экран
в соответствие с масками, заданными для выбранной пользователем группы. Методу передаются два параметра: один с описанием фай- .1.1, который включается в список, а второй — параметр-переменная, в которой следует вернуть логическое значение, указывающее, включать имя файла в список или нет.
Мы не будем подробно рассматривать использование данного события, но заметим, что оно возникает только если в свойство Options включен элемент ofEnablelncludeNotify.
Событие OnSelectionChange возникает при попытке пользователя изменить список файлов в диалоге, например, создать каталог или изменить его название, выбрать другой файл или изменить состав списка файлов, выбрать новый групповой фильтр, и так далее.
property OnSelectionChange: TNotifyEvent;
В обработчике события возможен доступ к свойствам компонента, чтобы определить, какие именно действия выполняет пользователь с диалогом.
Событие OnTypeChange возникает при выборе пользователем нового группового фильтра.
property OnSelectionChange: TNotifyEvent;
Пример использования файловых диалогов
В качестве примера использования файловых диалогов разработаем программу, позволяющую с помощью диалога Open ia ос; выбрать несколько файлов, а затем выводящую список файлов на экран в визуальный компонент TMemo.
Для этого создадим новый проект и добавим на форму следующие компоненты:
Iс закладки Dialogs,
Button с закладки Standard,
' ■1 ■ с закладки Standard.
Форма с добавленными компонентами представлена на рис. 17.6.
Развернем свойство Options в окне Инспектора объектов, найдем элемент ofAllowMultiselect, ,и присвоим ему значение True, чтобы дать пользователю возможность выбора нескольких файлов одновременно.
Установим свойству ScrollBars компонента Уел э7 значение ssBoth, чтобы пользователь мог просматривать список файлов, даже если он не поместится полностью в окно многострочного редактора.
Рис. 17.6. Форма в процессе разработки
Создадим обработчик события Onclick компонента Rut retи реа
лизуем его, как показано в листинге 17.1.
Листинг 17.1. Использование диалога открытия файлов
procedure TForml.ButtonlClick(Sender: TObject) ;
begin
if not OpenDialogl Execute Then Exit;
(Bbl3ta Метода Д д ОДНОврвМвДМ^ ИК’В^кой результата работы пользователя. Если метод Execute возвратил значение False, то есть пользователь о^^Жлся от B6oei с н^Щогсм, с>@йаМй|чик заканчивается}
Memol.Lines.Assign(OpenDialogl.Files);
(Копирование списка файлов из диалогового компонента (свойство Files) в многострочный редактор (свойство Lines) с помощью метода Assign) end;
Запустим программу и нажмем на кнопку, в результате чего на экран будет выведен диалог (см. рис. 17.7). Поскольку диалог открытия файла является модальным, то пользователь не может переключиться в окно программы и должен работать с диалогом.
Если вместо выбора файла или файлов, или вместе с выбором пользователь нажмет клавишу Отмена, то диалог будет закрыт, а метод Execute, вызванный в обработчике ButtonlClick вернет в вызвавшую подпрограмму значение False, в результате чего метод ButtonlClick завершится вызовом процедуры Exit.
Если же пользователь выберет один или несколько файлов и нажмет кнопку Открыть, то метод Execute, вызванный в обработчике, вернет в вызвавшую подпрограмму значение гие, метод Butt :। не за
вершится процедурой Exit, а выполнит копирование списка файлов в компонент Me г с
*ji fi - AudioTrack 06 507 - AudioTrack 07 5 - AudioTrack 08 *|0»-*HoTf*X09 * | L0 AudioTrack 10 - | lb Aude Track И 517- AudioTrack 12 5 AudioTrack 13 * 114- *j*oTre* 14 *). 5 AudioTrack 15 5 6 AudioTrack 16*ji fi - AudioTrack 06 507 - AudioTrack 07 5 - AudioTrack 08 *|0»-*HoTf*X09 * | L0 AudioTrack 10 - | lb Aude Track И 517- AudioTrack 12 5 AudioTrack 13 * 114- *j*oTre* 14 *). 5 AudioTrack 15 5 6 AudioTrack 16|_J«n*221 ЫЕгмеМвLLlPftw3D5LJRjnd_Jostrogjui -AudtoTrackOI^102 - AudioTrack 023 03 Au*)Tr*kO3CM - AudioTrack 043 05 - AudoT'art 05|_J«n*221 ЫЕгмеМвLLlPftw3D5LJRjnd_Jostrogjui -AudtoTrackOI^102 - AudioTrack 023 03 Au*)Tr*kO3CM - AudioTrack 043 05 - AudoT'art 05
*ji fi - AudioTrack 06 507 - AudioTrack 07 5 - AudioTrack 08 *|0»-*HoTf*X09 * | L0 AudioTrack 10 - | lb Aude Track И 517- AudioTrack 12 5 AudioTrack 13 * 114- *j*oTre* 14 *). 5 AudioTrack 15 5 6 AudioTrack 16
*ji fi - AudioTrack 06 507 - AudioTrack 07 5 - AudioTrack 08 *|0»-*HoTf*X09 * | L0 AudioTrack 10 - | lb Aude Track И 517- AudioTrack 12 5 AudioTrack 13 * 114- *j*oTre* 14 *). 5 AudioTrack 15 5 6 AudioTrack 16
|_J«n*221 ЫЕгмеМв
LLlPftw3D5
LJRjnd
_Jostrog
jui -AudtoTrackOI
^102 - AudioTrack 02
3 03 Au*)Tr*kO3
CM - AudioTrack 04
3 05 - AudoT'art 05
|_J«n*221 ЫЕгмеМв
LLlPftw3D5
LJRjnd
_Jostrog
jui -AudtoTrackOI
^102 - AudioTrack 02
3 03 Au*)Tr*kO3
CM - AudioTrack 04
3 05 - AudoT'art 05
Рис. 17.7. Выполнение программы
Диалоги выбора шрифта и цвета
В Delphi предусмотрены следующие диалоговые компоненты для выбора шрифтового и цветового оформления документов:
" — компонент FontDialog. Диалог выбора шрифта (см. рис. 17.9).
Л — компонент ColorDialog. Диалог выбора цвета (см. рис. 17.8).
Оба рассматриваемых в данном разделе диалоговых компонента независимы друг от друга и объединены в связи с их схожим предназначением — выбором атрибутов представления какой-либо информации (обычно текстовой). Компоненты являются прямыми наследниками класса I ZommonDia < ц переопределяют метод Execute этого класса для вывода диалогового окна на экран, и реализуют свойства, необходимые для настройки самих диалогов и доступа вызывающей подпрограммы к результатам работы пользователя с ними.
Работа с компонентом ColorDialog
Компонент ColorDialog отображает диалоговое окно, в котором пользователь может выбрать один из заданных цветов, разбитых на два набора — «Основные цвета», формируемый операционной системой, и «Дополнительные цвета», формируемый программно.
Также предусмотрена возможность формирования цвета пользователем на основе широкой палитры, представленной в правой части диалогового окна, если это допустимо, в соответствии с настройками компонента, описанными ниже.
Рис. 1 7. 8. Диалог выбора цветаРис. 1 7. 8. Диалог выбора цвета
Рис. 1 7. 8. Диалог выбора цвета
Рис. 1 7. 8. Диалог выбора цвета
Вместо выбора цвета из палитры можно ввести его составляющие на основе одной из двух моделей представления цвета — RGB или HSB.
Если пользователь отказался от работы с диалогом, закрыв его нажатием кнопки Отмена или кнопки закрытия диалога в правом верхнем углу окна, метод Execute возвращает значение False и вызывающая подпрограмма не должна рассматривать результаты работы диалога.
При выборе пользователем цвета и нажатии кнопки ОК, метод Execute возвращает значение True, а выбранный цвет заносится в свойство Color компонента, описанное в классе TColorDialog следующим образом:
property Color: 1.
Для настройки диалога выбора цвета предусмотрено свойство Options:
property Options: I।
Тип TColorDialogOptions является множественным, и аналогичен типу TOpenOptions, используемому для настройки файловых диалогов. Элементы, входящие в данное множество, и влияние, которое они оказывают на функциональность диалога выбора цвета, представлены в табл. 17.2.
Теперь рассмотрим, как можно настроить дополнительную группу цветов, расположенную в левой нижней части диалога. Изначально все цвета в этой группе черные, но их можно переопределить с помощью свойства CustomColors, имеющего тип TStrings, являющегося списком строк следующего вида:
Со1ог<Х>™<Шестнадцатеричное RGB-представление цвета>
14 111 8М
Состав свойства Options диалога выбора цветаТаблица ' 2
Элемент
Изменение функциональности диалога при включении элемента в множество
Примечание
cdFullOpen
Диалоговое окно отображается в расширенном виде — с палитрой для формирования пользовательского цвета
cdPreventFuMOpen
Не разрешается нажатие на кнопку «Определить цвет» для перевода диалога в расширенный или обычный режим
Вцд диалога определяется элементом cdFullOpen
cdShowHelp
Рядом с кнопкой закрытия окна отображается кнопка помощи
cdSolidColor
В диалоге выбирается сплошной цвет, ближайший к выбранному пользователем
cdAnyColor
Разрешает пользователю выбирать любой цвет
Выбранный цвет может быть смешан из нескольких
Шестнадцатеричное RGB-представление цвета является 32-ух битным числом, в котором RGB-составляющие записаны наоборот и на каждую составляющую отводится два разряда, каждый из которых представляется шестнадцатеричной цифрой от 0 до F. Причем признак шестнадцатеричного числа $ при этом не указывается. Например, самый яркий красный цвет будет выглядеть в таком представлении следующим образом: OOOOFF.
Символ <Х> определяет одну из шестнадцати позиций, в которых могут находиться дополнительные цвета. Верхний ряд цветов поименован символами А, В, С, D, Е, F, G и Н, а нижний, символами I, J, К, L, М, N, О и Р:
Для назначения цветов позициям свойство CustomColors может быть использовано как во время разработки программы с помощью Инспектора объектов, так и во время ее работы с помощью методов класса TStrings:
property : : TStrings;
Например, чтобы заполнить v ювыс клетки синим, красным, зеленым и белым цветами, можно задать в Инспекторе объектов следующий список строк для свойства CustomColors:
ColorA=FFOOOO
ColorH=OOOOFF
ColorI=OOFFOO
■*S^xlorP=FFFFFF
Отметим, что использование пробелов в строках недопустимо. Строки, содержащие пробелы и символы названий цветовых ячеек, выходящих за пределы ряда А Р игнорируются.
Работа с компонентом FontDialog
Свойства FontDialog
Диалог выбора шрифта позволяет пользователю указать атрибуты некоторого текстового документа, такие, как шрифт, начертание, размер, цвет и другие.
Диалог тесно интегрирован с операционной системой и самостоятельно выполняет множество функций, облегчающих работу с ним. Например, список шрифтов, доступных системе, определяется автоматически, а в список начертаний и размеров выводятся только те, которые поддерживаются шрифтом, выбранным в списке шрифтов.
В случае выбора пользователем шрифта и нажатия кнопки метод Execute возвращает значение True и фрагмент программы, вызвавший диалоговое окно, может получить доступ к характеристикам шрифта, установленным пользователем, с помощью свойства Font:
property Font: TFont;
Далее это свойство может быть присвоено соответствующему свойству какого-либо другого объекта, либо использовано по частям с помощью свойств и методов класса TFont.
При первом запуске диалогового окна текущими характеристиками шрифта являются те, которые были установлены для свойства Font во время визуального проектирования приложения с помощью Инспектора объектов. При последующих вызовах диалога устанавливаются текущие характеристики, соответствующие последнему сеансу работы диалога, при условии, что пользователь после выбора характеристик шрифта не отказался от работы с диалогом, а нажал на кнопку ок.
Рис. 17.9. Диалог выбора шрифта
В зависимости от назначения документа можно ограничить выбор пользователя наборами шрифтов, применяемыми для вывода только на экран или принтер, либо в списке шрифтов могут присутствовать шрифты для вывода и на экран и на принтер. Формированием списка управляет свойство Device перечислимого типа TFontDialogDevice:
property Device:
Свойство Device может принимать одно из трех значений:
fdScreen — отображать шрифты для вывода на экран (устанавливается по умолчанию);
fdPrinter — отображать шрифты для вывода на принтер;
fdBoth — отображать шрифты для вывода и на экран и на принтер.
Для ограничения размеров шрифта, которые пользователь может выбрать в диалоге,» предусмотрены целочисленные свойства Mini и MaxFontSize:
property MinFontSize: Integer;
property MaxFontSize: Integer;
Помимо того,что эти свойства должны иметь положительные значения, в свойстве Options, аналогичном одноименным свойствам рассматриваемых ранее диалогов, должен быть включен флаг : ;
Другие возможные настройки диалога, доступные через свойство Options, перечислены в табл. 17.3.
Элемент
Изменение функциональности диалога при включении элемента в множество
IdApplyButton
Отображается кнопка «Применить» для подтверждения выбранного шрифта без закрытия диалога. Возникает событие On Apply
fdAnsiOnly
В списке шрифтов отображаются только те, которые поддерживают символьную кодировку Windows
fdNoOEM Fonts
Удаляет OEM-шрифты из списка шрифтов
fdFixedPitchOnly
В списке шрифтов отображаются только те, которые являются моноширинными
fdScalableOnty
Отображает только масштабируемые шрифты в списке шрифтов
f d N oVecto rFo nts
Удаляет векторные шрифты Windows 1 0 из списка шрифтов
fdTrueTypeOnly
Отображает в списке шрифтов только TrueType шрифты
fdWysiwyg
Отображает в списке шрифтов только те, которые могут использоваться одновременно и на экране и на принтере. Шрифты, зависимые от устройства 8 •. вода Лк отображаются
fdNoSimulations
Отображает в списке шрифтов и стилей только те варианты, которые поддерживаются шрифтами напрямую, исходя из их описаний. Программная возможность придания шрифтам начертаний bold и italic не учитывается
fd Effects
Отображаются зависимые переключатели «Зачеркнутый» и «Подчеркнутый»
fdLimitSize
Разрешает использование свойств MinFontSize и MaxFontSize
Таблица 17.3
Состав свойства Options диалога выбора цвета
Таблица 17.3 (продолжение)
Элемент
Изменение функциональности диалога при включении элемента в множество
fdForceFontExist
Не допускает выбор шрифта, название которого не представлено в списке шрифтов. При попытке выбора выдается предупреждение о необходимости выбора шрифта только из списка
fdNoFaceSel
Запрещает автоматический выбор названия шрифта при открытии диалога
fdNoSizeSel
Запрещает автоматический выбор размера шрифта при открытии диалога
IdNoStyfeSei
Запрещает автоматический выбор начертания шрифта при открытии диалога
fdShowHolp
Отображает кнопку помощи рядом с кнопкой закрытия окна
События FontDialog
В диалоговом компоненте FontDialog реализовано событие OnApply, возникающее при нажатии кнопки «Применить» в диалоговом окне, если это допустимо в соответствии со свойс! юм Options данного компонента. Работа этого свойства обычно аналогична обычному анализу диалога, просто в этот момент само диалоговое окно находится на экране, что позволяет пользователю просмотреть результат выбора шрифта, а программе реализовать возможность отката изменений, если после одного или нескольких вызовов обработчика OnApply пользователь отказался от работы с диалогом.
Пример использованиядиалогов выбора цвета и шрифта
В качестве примера использования описываемых диалогов создадим программу, которая будет предоставлять пользователю возможность изменять цвет формы и характеристики шрифта текстовой метки.
Для этого запустим IDE Delphi, создадим новый проект, и поместим на главную форму следующие компоненты:
* текстовая метка Label;
♦ две кнопки Button;
» диалоговый компонент ColorDialog;
» диалоговый компонент-.
Изменим значение свойства Caption текстовой метки Labell на «Текстовая метка», свойство Text компонента Butt . на «Цвет», а свойство Text компонента But» m на «Шрифт». В результате получим форму, представленную на рис. 17.10.
Создадим обработчики событий Onclick для кнопок Buttonl (изменение цвета формы) и В i г 2 (изменение шрифта метки, как показано в листинге 17.2).
7 Form!
Текстовая метка "ду
ЦветШрифт
Рис. 17.10. Форш в разработке
Листинг 17.2. Обработчики событий OnClick для кнопок Button 1
Procedure TForml.ButtonlClick(Sender: TObject);
Beg lit i(ОбребОТЧИКК " к<ага|ента-кнсе^ ButtOrtl)
If ColorDialogl.Execute
Then Color := ColorDialogl.Color;
'{В ‘сдД^ае усДДного завершав! ■ аботы псЯьзИ^^Жля с диалоговым окном выбора цвета, выведенным
метолбе комйо:Я^$та ". rDialogl, ЦВвТ^ИЗ ^ свойеАй* Со^Ж 'ИЙЬлогов^от81 кожицуерЬя
в свойство Color формы}
End;
Procedure TForml.Button2Click(Sender: TObject);
Begini 1-- OnBlick ‘компонента-кндк!1 ButtOhl)
If FontDialogl.Execute
Then Labell.Font.Assign(FontDialogl.Font);
сЯае усйшМВгс* завершения ра®жты|чгользователя с да Дедовым окном выборе шоМЬка, выведенным
Цютэд^^Вм ЕжесКе к^Яо^^^^^^ИпбВ1^йд1, характеристики шрифта из свойства Font диалогового хомп^^нта НоптвЯэтся в свЯствс^^ЯИ^ексЬвой мете-i ИаЬеХй^^^^^рщыэ мДДеа ... i г
end;
Результат работы программы представлен на рис. 17.1 1.
Рис. 17.11. Результат работы программы
Диалоги текстового поиска и замены
В Delphi предусмотрены следующие диалоговые компоненты для реализации поиска и замены текстовых фрагментов в документах:
— компонент FindDialog. Диалог поиска подстроки (см. рис. 17.12 );
у".1 — компонент :। -- Диалог замены подстроки (см. рис. I 7.1 :).
Рассматриваемые диалоги предназначены для предоставления возможности пользователю быстрого поиска подстроки в некотором текстовом документе, либо ее замены на другую подстроку. Сами диалоги не выполняют таких действий, а представляют собой пользовательский интерфейс, позволяющий указать, какую подстроку следует искать в документе, на какую строку следует заменить найденное вхождение (в случае диалога замены), и некоторые полезные характеристики поиска для более удобной работы пользователя. Каким образом использовать информацию, введенную пользователем, решает непосредственно программа, вызвавшая диалог.
далеедалееТолько целикомГ С учетомТолько целикомГ С учетомРис. 17.12. Диалог текстового поискаРис. 17.12. Диалог текстового поискаРис. 17.13. Диалог замены подстрокиРис. 17.13. Диалог замены подстроки
далее
далее
Только целиком
Г С учетом
Только целиком
Г С учетом
Рис. 17.12. Диалог текстового поиска
Рис. 17.12. Диалог текстового поиска
Рис. 17.13. Диалог замены подстроки
Рис. 17.13. Диалог замены подстроки
Диалоги поиска и замены подстроки, в отличие от других описываемых диалоговых компонентов, не являются модальными, то есть вызов диалога не приостанавливает работу программы, а метод Execute сразу же, не дожидаясь окончания работы с диалогом, возвращает значение True. При этом диалоговое окно находится на экране, пока пользователь его не закрое izl
Программа, вызвавшая диалог, также может его закрыть.
Работа с компонентами поиска и замены
Механизм работы с такими компонентами несколько отличен от работы с модальными диалогами, в которых результат действий пользователя рассматривается обычно после закрытия диалогового окна, кроме случаев расширенного программного контроля файловых диалогов. Поскольку диалоги поиска и замены работают параллельно с программой, ее реакция на изменения в них сводится к обработке некоторых событий. '
TComnionDialog
TFindDialog
TReplaceDialog
Рис. 17.14. Иерархия диалогов поиска и замены
В классе TFindDialog реализована поддержка события - - ■ . обработчик которого вызывается при нажатии пользователем на кнопку «Найти далее». Компонент ReplaceDialog наследуется от TFindDialog (см. рис. 17.14), поэтому также имеет это событие. Событие OnFind является чисто уведомительным, то есть в обработчик передаются только данные о его источнике, чего, тем не менее, вполне достаточно для анализа действий пользователя:
property OnFind:.' ent;
В компоненте ReplaceDialog реализовано еще одно событие — OnReplace, вызываемое при нажатии пользователем кнопки «Заменить». Аналогично событию OnFind в обработчик OnReplace также не передается никакой дополнительной информации о событии:
property OnReplace: i i! / " ।
Таким образом, для использования компонента текстового поиска FindDialog необходимо:
Вызвать диалоговое окно методом Execute компонента.
Реализовать обработчик события OnF.ind для реакции на действия пользователя.
При необходимости реализовать обработчик события OnClose, возникающего при закрытии диалогового окна.
Использование компонента ReplaceDialog аналогично, но также следует реализовать обработчик события OnReplace.
Настройка функциональностидиалогов FindDialog и ReplaceDialog
В компоненте FindDialog реализовано множественное свойство Options, аналогичное по сути одноименным свойствам других диалоговых компонентов:
property Options: t ;
Данное свойство используется для настройки внешнего вида диалога, то есть состава элементов управления в нем, а также для анализа состояния введенной пользователем дополнительной информации.
Элементы множества Options приведены в табл. 17.4. Заметим, что компонент ReplaceDialog также использует это свойство, так как является наследником FindDialog, более того, некоторые элементы множества Options используются только в диалоге замены.
Элемент
———'————
Изменение функциональности диалога при включении элемента в множество
Примечание
IrDisableMatchCase
Отключает (не допускает изменение состояния) независимый переключатель «С учетом регистра»
frHideMatchCase
Удаляет независимый переключатель «Сучетом регистра»
bOisabteWholeWord
Отключает (не допускает изменение состояния) независимый переключатель «Только слово целиком»
frHIdeWholeWord
Удаляет независимый переключатель «Только слово целиком»
frD. sableUpDow
Отключает (не допускает изменение состояния) зависимый переключатель «Вверх - Вниз»
Используется только в диалоге поиска
frHideUpDown
Удаляет зависимый переключатель «Вверх - Вниз»
Используется только в диалоге поиска
frDown
Выбирает по умолчанию направление поиска «Вниз», иначе выбирается направление поиска «Вверх»
Используется только в диалоге поиска
fr MatchCase
Определяет состояние независимого переключателя «С учетом регистра». Когда элемент присутствует в множестве, переключатель находится в состоянии «включено»
Используется и во время разработки, и во время работы программы
IrWhoieWord
Определяет состояние независимого переключателя «Только слово целиком». Когда элемент присутствует в множестве, переключатель находится в состоянии «включено»
Используется и во время разработки, и во время работы программы
frFindNext
Элемент включается в множество автоматически во время выполнения программы, когда пользователь первый раз нажимает на кнопку «Найти далее», и исключается из множества после закрытия диалога
frReplace
Элемент включается в множество автоматически во время выполнения программы, когда пользователь нажимает на кнопку «Заменить»
Используется только в диалоге замены
frReplaceAII
Элемент включается в множество автоматически во время выполнения программы, когда пользователь нажимает на кнопку «Заменить все»
Используется только в диалоге замены
fdShowHelp
Отображает кнопку помощи рядом с кнопкой закрытия окна
Состав свойства Options диалогов текстового поиска и замены
Таблица 17.4
Анализ данных компонента FindDialog
В момент вызова обработчика события ОnFind в свойство FindText компонента заносится строка, которую пользователь ввел в соответствующем поле диалога:
property FindText: String;
Остальные настройки диалога, необходимые для выполнения запроса пользователя, обработчик события OnFind может получить из множественного свойства Options, используя обычные методы работы с множественными переменными в Delphi. Например, чтобы определить, включен ли независимый переключатель «С учетом регистра», обработчик может воспользоваться следующей конструкцией:
If frMatchCase in FindDialogl.Options Then begin
end;
Анализ данных компонента ReplaceDialog
Анализ введенных пользователем данных при работе с диалогом замены немного более сложен. Обработчик события OnFind реализуется так же, как и в случае FindDialog, а для события OnReplace метод-обработчик должен проанализировать дополнительные данные, а именно:
♦ тип необходимой операции, зависящий от нажатой пользователем кнопки в диалоге — «Заменить» или «Заменить все»;
* строка, на которую следует заменить найденное вхождение подстроки, заданной свойством FindText.
Строка, на которую следует заменить искомую подстроку, находится в свойстве ReplaceText, описанном в классе TReplaceDialog:
property ^щасеТЯЯЬ: it :ir ;;
Для определения типа операции, которую следует выполнить, необходимо проверить состояние свойства Options на наличие в нем элементов frReplace или ■■ ; :’ Например:
If frReplace in ReplaceDialogl.Options Then begin
{Действия, необходимые при нажатии кнопки «Заменить») end;
If frReplaceAll in ReplaceDialogl.Options Then begin
(Действия, необходимые при нажатии кнопки «Заменить все») end;
17 6.5. Пример использования диалога замены
Диалог замены ReplaceDialog является более сложным, чем компонент FindDialog, и практически полностью включает в себя его возможности. Поэтому мы выбрали именно его для демонстрации работы с компонентами поиска и замены.
Реализуем программу, на главной форме которой находится компонент Мето с названием . и кнопка Button с названием Buttonl. Также добавим на эту форму диалоговый компонент замены ReplaceDialog с названием ReplaceDialogl (см. рис. 17.15).
ШЯЛНЯЯНМЯ#1.:,iqi
Диел-с замены T^eD^c*C'iaiog является более сложным, чем
• смггщит TFr<£uak:$. и прект^ео.и полностью включает в себя его возможности. Поэтому мы выбрали именно его для I демонстрации работы с компонентами поиска и замены.
••!
Поиск и
Рис. 17.15. Форма на этапе разработки
Воспользовавшись Инспектором объектов изменим свойство Lines компонента Мет . добавив в него несколько строк произвольного текста. В диалоговом компоненте отключим зависимый переключатель «Слово целиком», установив флаг frHioeWholeWord свойства Options в значение True.
Реализуем обработчик события Onclick нажатия на кнопку Buttonl, вызвав диалог замены с помощью метода Execute. Так как данный диалог является немодальным, то в обработчике нажатия на кнопку никаких других действий выполняться не будет.
Предусмотрим три метода замены подстроки:
Поиск заданной подстроки, вызываемый в обработчике OnFind компонента ReplaceDialogl;
Замены подстроки на заданную, вызываемый в обработчике OnReplace компонента ReplaceDialogl;
Замена всех заданных подстрок, вызываемый в обработчике OnReplace компонента ReplaceDialogl при установленном флаге frReplaceAll компонента ReplaceDialogl.
Все три разновидности замены основываются на одном и том же механизме поиска подстроки и ее выделения, после чего выделенную подстроку можно заменить на другую, если пользователь выполняет не
поиск, а именно замену. Поэтому поиск и выделение подстроки удобно свести в одну функцию FindAndSelect, возвращающую логическое значение, соответствующее результату поиска.
Для поиска вхождений подстроки в строку будем использовать функций.'. РозЕх, описанную в модуле StrUtils следующим образом:
function(const t S: string;
®4taet : Cardinally ) ^ Sab '
Очередной этап поиска будет начинаться от позиции текстового курсора, которая определяется свойствами SelStart (начало выделения) и SelLength (длина выделенного фрагмента) компонентами
Модуль формы приложения приведен в листинге 17.3.
Листинг 17.3- Использование диалога замены подстрок
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Fоrms,
Dialogs, StdCtris .
Type
TForml = class(TForm)
Memol: TMemo;
Buttonl: TButton;
ReplaceDialogl: TReplaceDialog;
procedure ReplaceDialoglFind(Sender: TObject);
procedure ReplaceDialoglReplace(Sender: TObject);
procedure ButtonlClick(Sender: TObject);
private
Function FindAndSelect(CaseSensitive: Boolean): Boolean;
(В секции private описания класса формы содержит® ВИВция И ® и выделения в к^ШюнентеВИЖо! ЗЯодакд^и, ЛавЙЬной пользователем)
public
end;
var
Formi: TForml;
implementation
($R *.dfm)
Uses StrUtils; I - 1ени модуля '•terUtils, в кодером
оКсана функЕрИ^ Ptu
Function TForml.FindAndSelect(CaseSensitive: Boolean): Boolean; Var
NewPos: Integer;
Str: String;
SubStr String;
Begin
if CaseSensitive
then begin
SubStr := ReplaceDialogl.FindText;
Str := Memol.Text, End else begin
SubStr := AnsiLowerCase(ReplaceDialogl.FindText); Str := AnsiLowerCase(Memol.Text) ;
end;(Определение Отроки И поуйГроки для поиска,
с использ^антяя^арат^мра ЙазеЕмаз 1Й#ев, указывающего, следует ли учитывать регистр символов. Если не следует, то строка и пддЫгр>ока перЛодятсявЗн*жний регистр)
NewPos := PosEx(SubStr, Str, Memol.SeiStart +
Memol.SelLength + 1) ;(Поиск подстроки в строке)
Result := False;
if NewPos > 0 then
begin
Result := True;
Memol.SelStart := NewPos — 1
Memol.SelLength := Length(ReplaceDialogl.FindText) ;
Memol.SetFocus;
end;
end;(Если результат функции PosEx положителен,
то устанавливается выделение подстроки
в компоненте Memol с помощью свойств selStart и ■ ‘.Length)
procedure TForml.ButtonlClick(Sender: TObject);
begin
ReplaceDialogl.Execute;
end;
(Обработчик нажатия на кнопку Buttonl — вызов диалога замены на экран)
procedure TForml.ReplaceDialoglFind(Sender: TObject);
begin
end;end;FindAndSelect(frMatchCase in ReplaceDialogl.Options);
end;
end;
iнажа^ на кнопку «На№и»(*Яеш|алогя
замены -- выКв функции FindAndSeeatiWenei^flaneii параметра, указывающего на необходимость учета регистра символов)
procedure TForml.ReplaceDialoglReplace(Sender: TObject); begin
(Обработчик ^детия "а-^сяДп^^« Заменяв™» Или «Заменить все» в диалоге замены — вызов функции FiifBHlESelaSt с Де^дачей* параДтрД укДывЯящеД на яИжбхдадимость учете р>жмс1^И СМЫВОЛб®) '
if frReplaceAll in ReplaceDialogl. Optionsif frReplaceAll in ReplaceDialogl. Options
if frReplaceAll in ReplaceDialogl. Options
if frReplaceAll in ReplaceDialogl. Options
завис^Лдти dr*ЙэсДояни^ флага ■rReflIKeAll в свойстве Options функция выполняется один или несколько
then while FindAndSelect(frMatchCase in ReplaceDialogl.Options) do Memol.SelText := ReplaceDialogl.ReplaceText
^{ЕСЛММпаг frR®laceAll в сДЦугве^Эр! ions г$Йтан^л$я, ЯгаНувя ДиЛПмрЛшбВ elect Индию л ня И? с я Ия сНт ж. пор, пока возвращает значение True. На каждый вызов ^нкщет^Щ^изво.Иййся завна выВяЛКоЯд фрагм^№аДЬ помо^Ьй'^зменения свойства SelText ^м^даята М< I
else if FindAndSelect(frMatchCase in ReplaceDialogl.Options) then Memol.SelText := ReplaceDialogl.ReplaceText;
(Если флаг frReplaceAll в свойстве Options
отсутствует, т& выполняет» Фшкц^а» FindAndSelect. > В < ..не, цели е&3екиия варнуяЯЬ значени^Ц^йе, производится замена выделенного фрагмента с
пояД^ изменеяяия св Детва SeBext комПояяИЯеГ МеЛЮ1)
end; end.
Диалоги настройкипараметров печати
В Delphi предусмотрены следующие диалоговые компоненты для выбора параметров печати документов:
~ — компонент PrintDialog. Диалог выбора принтера;
3 — компонент PrinterSetupDialog Диалог настройки принтера;
— компонент PageSetupDialog. Диалог настройки страницы при
печати.
Диалоги настройки параметров печати необходимы каждой программе, которая выводит информацию на принтер. Пользователь, работающий с программой, может иметь доступ к нескольким принтерам, в том числе и сетевым, поэтому программный продукт должен предложить возможность выбора места назначения документа.
Современные устройства вывода имеют множество настроек, которые могут изменяться пользователем с помощью программ, поставляемых с такими устройствами. Таким образом, прикладная программа не имеет возможности поддержать все функции, реализуемые устройством, и должна использовать стандартные диалоги.
Необходимо заметить, что получение и изменение даже самой общей информации о печатающем устройстве (например, форматы бумаги, поддерживаемые устройством), является достаточно трудоемкой процедурой. Поэтому стандартные системные диалоги, используемые в Delphi- компонентах настройки параметров печати, существенно облегчают процесс построения качественного программного продукта.
Заметим, что сами диалоговые компоненты не имеют каких-либо возможностей для вывода информации на принтер. Однако они изменяют характеристики объекта типа TPrinter, ссылка на который возвращается функцией Printer, описанной в модуле Printers. Программа использует эту ссылку для непосредственного вывода на печать, а параметры устанавливаются диалогами PrintDialog, PrinterSetupDialog и PageSetupDialog.
Компонент PrintDialog
Компонент PrintDialog предназначен для установки следующих основных параметров печати:
печатающее устройство, выбираемое из списка доступных системе, с возможностью его настройки с помощью специализированного диалога (при использовании кнопки «Свойства»);
часть документа, выводимая на печать — весь документ, несколько страниц, или выделенная область;
число копий и их упорядочивание при печати.
События PrintDialog
Диалог является модальным, поэтому определение настроек, выполненных пользователем, производится после вызова метода Execute. В данном компоненте нет событий, кроме унаследованных от класса ГС. тл :.Г : Г_ : — OnShow и OnClose.
[EPSON I COLOR 680 (Копия 2) 3[EPSON I COLOR 680 (Копия 2) 3Состояние:Состояние:Место:Место:USB001USB001р Печать в файлр Печать в файлКомментарийКомментарийЧисло копий:Число копий:< В ►#;• ■ ч • • Фрагмент< В ►#;• ■ ч • • ФрагментEPSON St*» COLOR 680EPSON St*» COLOR 680Рис. 17.16. Диалог, выводимый компонентом PrintDialogРис. 17.16. Диалог, выводимый компонентом PrintDialog
[EPSON I COLOR 680 (Копия 2) 3
[EPSON I COLOR 680 (Копия 2) 3
Состояние:
Состояние:
Место:
Место:
USB001
USB001
р Печать в файл
р Печать в файл
Комментарий
Комментарий
Число копий:
Число копий:
< В ►#;• ■ ч • • Фрагмент
< В ►#;• ■ ч • • Фрагмент
EPSON St*» COLOR 680
EPSON St*» COLOR 680
Рис. 17.16. Диалог, выводимый компонентом PrintDialog
Рис. 17.16. Диалог, выводимый компонентом PrintDialog
Свойства PrintDialog
Свойства компонента PrintDialog отражают состояние элементов управления в диалоговом окне и введенную пользователем информацию. Рассмотрим эти свойства.
Настройка поддержки печати с множеством копий обеспечивается свойствами Copies и Collate, определяющими соответственно количество копий и состояние зависимого переключателя «Разобрать»:
property Copies: Integer;
property Collate: Boolean; ч
Следует отметить, что обычно нет необходимости в получении такой информации, так как возможность печати множества копий поддерживается печатающим устройством.
Информацию о той части документа, которую следует* ив соответствии с выбором пользователя, вывести на печать|И можно получить из перечислимого свойства Print Range:
property PrintRange:
Значениями данного свойства могут являться константы:
prAIIPages — печатать все страницы документа;
prSelection — печатать выделенную часть документа;
— печатать только некоторый диапазон страниц.
В случае, если в диалоге выбрано положение «Страницы с ... по . номера начальной и конечной страниц можно получить из свойств ■ ■ и ТоРаде:
property FromPage: Integer;
property I । Integer;
Для того, чтобы ограничить пользователя в выборе диапазона страниц, следует использовать свойства MinPage и х- । Эти свойства устанавливают соответственно минимально и максимально возможные страницы диапазона. При попытке пользователя ввести номер страницы, мень ший, чем минимально возможный, или больший, чем максимально возможный номер, при закрытии диалогового окна будет выдано предупреждение о некорректном вводе. Закрытие диалога возможно только при условии безошибочности всех данных, используемом в нем.
property propertyproperty propertyMinPage:МахРаде:MinPage:МахРаде:Integer;Integer;Integer;Integer;
property property
property property
MinPage:
МахРаде:
MinPage:
МахРаде:
Integer;
Integer;
Integer;
Integer;
И, наконец, свойство PrintToFile определяет состояние зависимого пе
реключателя «Печать в файл»:
property PrintToFile: Boolean;
Настройка функциональности
За внешний вид диалога PrintDialog отвечает свойство Options множественного типа TPrintDialogOption, возможные элементы которого приведены в табл. 17.5.
Элемент
Изменение функциональности диалога при включении элемента в множество
Примечание
poDisablePrintToFile
Отключает (не дает изменить состояние) независимый переключатель «Печать в файл»
poPageNums
Разрешает использование положения зависимого переключателя «Страницы с ... по ...»
poSelection
Разрешает использование положения зависимого переключателя «Выделенный фрагмент»
poWarning
Выдает предупреждение при попытке выбора недоступного принтера
poPrintToFile
Отображает независимый переключатель «Печать в файл»
poHelp
Отображает кнопку помощи рядом с кнопкой закрытия окна
Может не работать в некоторых версиях Windows 95
Состав свойства Options диалогов текстового поиска и замены
Таблица 17.5
Компонент PrinterSetupDialog
Компонент PrinterSetupDialog предназначен для установки следующих основных параметров печати:
печатающее устройство, выбираемое из списка доступных системе, с возможностью его настройки с помощью специализированного диалога (при использовании кнопки «Свойства»);
размер бумаги из списка доступных форматов выбранного принтера, и тип подачи;
ориентация печати — книжная или альбомная.
Рис. 1.7.17. Диалог, выводимый компонентом PrunterSetupDialog
В компоненте не определено собственных свойств и событий, а вся введенная пользователем информация используется напрямую печатающим устройством.
Использование данного диалога вместо компонента ТPrint Setup целесообразно при отсутствии необходимости выбора диапазона документа, выводимого на печать. Также в данном диалоге пользователь не может выбрать перенаправление печатаемой информации в файл.
Таким образом, компонент PrinterSetupDialog является дополнительным по отношению к TPrinterDialog.
Компонент PageSetupDialog
Компонент PageSetupDialog сочетает в себе некоторые элементы ранее рассмотренных компонентов, а именно:
выбор ориентации печати (книжная или альбомная);
выбор формата бумаги из списка поддерживаемых выбранным принтером, и типа ее подачи.
Свойства PageSetupDialog
Основным назначением диалога является предоставление пользователю возможности ввода отступов от краев страницы, для чего в диалоговом окне предусмотрены соответствующие поля ввода. После завершения работы диалога значения, введенные пользователем в эти поля, заносятся соответственно в свойства компонента । . MarginTop, MarginRight HMarginBottom:
property property property propertyproperty property property propertyMarginLeft: Integer;
property property property property
property property property property
MarginTop: i ; ;
MarginRight:i ,;
MarginBottom: Integer;
В зависимости от единицы измерения, используемой в диалоге, значения свойств хранятся либо в тысячных долях дюйма, либо в сотых долях миллиметра. Для ограничения пользователя при вводе значений полей документа предусмотрены свойства компонента м ■ ' : , MinMarginTop, MinMarginRightИ MinMarginBottom:
property.- । Lett: Integer;
propertyInteger;
property1 Integer;
property '।। Integer;
Размер:3 > J 7 MMПодача: ..■рг-'-лис eРазмер:3 > J 7 MMПодача: ..■рг-'-лис e
Размер:3 > J 7 MM
Подача: ..■рг-'-лис e
Размер:3 > J 7 MM
Подача: ..■рг-'-лис e
Ориентация —г Поля i>v*il
S Книжная: левое: |25
^ Альбомная i • верхнее: I» *~“ I»
Рис. 17.18. Диалог, выводимый компонентом PageSetupDialog
Единицы измерения, в которых пользователь указывает настройки документа, определяются свойством Units перечислимого типа TPageMeasureUnits:
property Units: i;
Значением этого свойства в каждый момент работы программы может быть одна из констант:
• pmDe fault — использовать единицы измерения, установленные системой;
♦ pmMillimeters — использовать для определения размеров миллиметры;
* pminches — использовать для определения размеров дюймы.
Размер страницы, соответствующий выбранному в диалоге формату, содержится в свойствах PageHeight и ; н 1
property PageHeight: Integer;
property PageWidth: Integer;
Следует отметить, что, в отличие от свойств ранее рассматриваемых диалогов, настройки полей страницы не влияют на печатаемый документ автоматически, а могут быть либо использованы программой, либо игнорироваться.
Настройка функциональности PageSetupDialog
Свойство Options диалогового компонента PageSetupDialog определяет набор элементов управления в диалоговом окне:
property Options: i; !
Элементы, которые могут быть включены в множество типа TPageSetupDialogOptions, перечислены в табл. 17.6.
События PageSetupDialog
В верхней части диалога PageSetupDialog расположен макет страницы, выводимой на печать. Для удобства пользователя на макете отображается расположение страницы, ее размеры, поля и пример изображения. Диалог реализован таким образом, что некоторые из атрибутов макета могут быть выведены программно, а не автоматически, как это происходит по умолчанию.
Для гибкого управления видом макета в компоненте PageSetupDialog предусмотрены соответствующие события. Первым событием такого рода является Before Paint:
property BeforePaint: TPageSetupBeforePaintEvent;
Элемент
Изменение функциональности диалога при включении элемента в множество
psoDefaultMinMargins
Устанавливает минимально возможные поля страницы
psoDisableMargins
Запрещает изменения полей страницы
psoDisableOrientation
Запрещает изменения ориентации печати
psoDisablePagePainting
Запрещает прорисовку образца страницы в верхней части диалога
psoDisablePaper
Отключает группу элементов управления, предназначенных для выбора размера бумаги и типа ее подачи
psoDi sable Pr inter
Скрывает кнопку выбора принтера
psoMargins
Устанавливает начальные значения полей страницы в значения, заданные свойствами 1 Ла ginLeft. MarginRignt MarginBottom, и MarginTop. Иначе все начальные значения устанавливаются в один дюйм
psoMinMar girts
Использует значения свойств MinMarginLeft, MtnMarginRtght, MinMargmBottom, и MinMarginTop для контроля информации, вводимой пользователем. Иначе пользователь имеет возможность вводить значения полей, меньшие, чем заданы данными свойствами
psoWarning
Запрещает вывод предупреждения об отсутствии принтера, выбранного по умолчанию
psoNoNetworkButton
Скрывает и отключает кнопку «Сеть» в дополнительном диалоге, вызываемом при нажатии кнопки «Принтер»
psoShowHelp
Отображает кнопку помощи рядом с кнопкой закрытия окна
• . свойства Options диалога 1
Таблица 17.G
Обработчик события Be fore Paint представляет собой процедуру (метод формы, на которой расположен диалог) следующего вида:
Procedure <Название>(; TObject;
PaperSize: Smelllnt; Orientation: TPrinterOrientation;
PageType: TPageType;
var DoneDrawing:I n) ;
Параметры, передаваемые в обработчик, позволяют подготовить внутренние данные программы, необходимые для вывода макета изображения, и содержат информацию о формате страницы (PaperSize)^ориентации печати (Orientation), типе носителя (PageType). Параметр Done Drawing предназначен дляизменения обработчиком иуказываетна завершенность изображения. Если обработчик события ВеГогеРаш1устанавливает значение этого параметра в True, остальные события компонента не вызываются.
Остальные события компонента PageSetupDialog предназначены для вывода конкретных атрибутов страницы и имеют следующий заголовок:
Procedure <Названиегчи >(:.::: TObject;
Canvas: TCanvas;
PageRect:ect ;
var DoneDrawing: Boole n) ;
Обработчикам передается ссылка на объект типа TCanvas, на который следует вывести соответствующий атрибут макета страницы. Параметр Pagel 1 определяет прямоугольник, в который атрибут должен быть выведен. Любой обработчик может прервать процесс прорисовки макета с помощью установки параметру DoneDrawing значения True. Обработчики вызываются в следующем порядке:
Or. Show.после отображения диалога на экране.
OnBeforePaintперед началом вывода макета.
г 1. . . . для заполнения фона макета.
г iwMi Mar I ... для отображения минимально возможных полей документа.
OnDrawMarginдля отображения установленных полей документа.
iwGreekTcxt для отображения примера текста.
)rawEnvStamp . . . для отображения «почтовой марки», если используется тип бумаги envelop (конверт).
OnDrawRetAddress . для отображения «обратного адреса», если используется тип бумаги envelop (конверт).
OnCloseпосле закрытия диалогового окна.
Механизм программной прорисовки основан на проверке существования обработчика конкретного события. Если обработчик существует, то он будет вызван, если же обработчик отсутствует, то соответствующий атрибут будет прорисован автоматически. Таким образом, прикладная программа может прорисовать только некоторые атрибуты макета (обычно выводится только собственный пример текста), тогда как остальные будут выведены по умолчанию.
Вопросы с ответами для повторения по главе 17
S Поясните понятие диалогового компонента
Ответ: Диалоговые компоненты — это невизуальные компоненты, которые могут во время выполнения программы отображать на экране диалоговые окна для получения от пользователя какой-либо информации.
Все диалоговые компоненты наследуются от класса TCommonDialog, в котором описан метод Execute, предназначенный для вывода диалогового окна на экран. Метод реализован в виде функции, возвращающей логическое значение, используемое некоторыми модальными диалогами для индикации необходимости использования информации по результатам работы пользователя. Например, метод Execute файлового диалога OpenDialog возвращает значение True, если пользователь выбрал какой-либо файл и нажал на кнопку 0k.
Поясните разницу между модальными и немодальными диалогами
Ответ: С точки зрения пользователя, модальные диалоги запрещают переход к любому окну программы, из которой они вызваны, а немодальные диалоги работают параллельно с 1рограммой
С точки зрения разработчика, модальный диалог приостанавливает приложение, которое вызвало этот диалог с помощью метода Execute, до закрытия диалогового окна. Поэтому фрагмент программы, использующий модальный диалоговый компонент, обычно локализован в одной подпрограмме и выглядит в виде последовательности действий:
» отображение диалогового окна с помощью метода Execute;
» анализ значения функции Execute;,
* анализ свойств диалогового компонента;
• действия, необходимые для реакции на информацию, введенную пользователем.
При вызове метода Execute немодального диалога, выполнение программы продолжается, поэтому реакция на действия пользователя основывается, в основном, на обработке событий, предусмотренных данным диалоговым компонентом.
Назовите основные методы и события, описанные в базовом диалоговом компоненте
Ответ: Базовым диалоговым компонентом является класс г : . юг . _. _. в котором описан метод Execute, отображающий диалоговое окно, и два события:
» OnShow, возникающее при выводе диалогового окна на экран;
* .. .. . возникающее при закрытии диалога
Все диалоговые компоненты поддерживают эти события.
Перечислите виды стандартных диалоговых компонентов
Ответ: В стандартной поставки Delphi 7 предусмотрены следующие диалоговые компоненты:
» Модальные диалоги для работы с файлами (открытие или сохранения). В данную группу входят диалоги открытия и сохранения файлов OpenDialog и SaveDialog, а также диалоги открытия и сохранения графических файлов OpenPictureDialog и SavePictureDialog.
♦ Модальные диалоги выбора шрифта и цвета FontDialog и ColorDialog.
» Модальные диалоги настройки параметров печати■ д,
:ги PageSetupDialog.
» Немодальные диалоги текстового поиска и замены^ и
ReplaceDialog.
Расскажите о методах настройки функциональности диалоговых окон
Ответ: Во всех стандартных диалоговых компонентах предусмотрено множественное свойство тип которого отличается для разных компонентов, поэтому данное свойство описано в каждом конкретном компоненте, а не в базовом классе TCommonDialog.
Свойства Options представляют собой множества каких-либо элементов, каждое из которых определяет одну настройку соответствующего диалогового окна. С помощью таких свойств можно:
Управлять наборами элементов управления, размещенными на диалоговых окнах.
Определять состояние (введенную информацию) некоторых элементов управления.
Включать или отключать контроль за действиями пользователя с целью автоматической корректировки диалогом вводимых данных.
Дополнительные возможности настройки функциональности предусмотрены в компоненте PageSetupDialog, позволяющем приложению прорисовывать макет страницы, расположенный на нем, с помощью последовательного вызова обработчиков соответствующих событий.
Формы
Понятие формы.Форма как часть проекта
Форма как Delphi-компонент
Форма — это заготовка для будущего окна приложения и, в то же время, контейнер для всех видов компонентов (визуальных, невизуальных и диалоговых), добавляемых в программу во время визуального построения. Сочетание таких возможностей вытекает из принадлежности формы к классу. что позволяет форме быть оболочкой вокруг
оконного компонента Windows, и соответственно, к классу :■ .
от которого наследуется TWinControl, благодаря чему форма может быть владельцем компонентов.
Форме в Delphi соответствует класс TForm (см. рис. 18.1).
Рис. 18.1. Положение класса TForm в иерархии классов Delphi
Добавим, что форма является не просто оболочкой элемента управления, а еще и контейнером, в котором могут располагаться другие элементы управления.
Так как окно — это основа Windows-программы, то форма выступает в программе как самый крупный интерфейсный элемент. Программа начинает свою работу с создания главного окна и заканчивается, когда это окно разрушается. Таким образом, экземпляр класса формы доступен в любой момент времени выполнения программы, что делает его крайне удобным для размещения программного кода.
Так и происходит на самом деле. Мы уже сталкивались с тем, что обработчики событий компонентов, расположенных на некоторой форме, формируются визуальным построителем в виде методов класса этой формы, а ссылки на эти компоненты доступны в качестве свойств класса формы. Из такого подхода к реализации функциональности приложения вытекает важное отличие использования формы от использования других компонентов Delphi: форма присутствует в программе не как экземпляр класса TForm, а как экземпляр наследника этого класса.
Представление формы в проекте
При добавлении формы в проект автоматически создается модуль формы, в котором описывается наследник класса TForm, и файл описания формы. Модуль формы используется непосредственно для обращения к форме из программы, а описание формы — автоматически для инициализации компонентов добавленных на форму в процессе визуальной разработки. Модуль формы, на которой нет компонентов, приведен в листинге 18.1
Листинг 18.1. Модуль формы, на которой нет компонентов
unit Unitl;ir ;: вс? модуля
interfaceач по интерфейсной екции)
uses Windows , Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
1од? вчение необходимых модулей I
typePa . ■: олис ыия типов интерфейсной ■. .
TForml = class(TForm)
private
Заметим, что действительно необходимым модулем из нее! о представленного списка является только модуль Forms, в котором описан класс TFonn. Этот факт можно проверить, удалив ссылки на все остальные модули. По мере добавления компонентов на форму список будет автоматически расширяться в соответствии с необходимостью конкретных компонентов. Однако избыточность мод улей не влияет на качество приложения, таккак во время компиляции неиспользуемые модули не пристыковываются к программе.
{ Private declarations } public
{ Public declarations }
end;(Описание класса TForml как наследника
ктИсса стан№ртн||НИК|1>мы IFci .
По умолчанию не добавляется никакой дополнительной функциональности)
var(Раздел описания переменных
интерфейсной секции)
Formi: TForml; (Описание ссылки на экземпляр класса TForml, которая будет инициализирована автоматически)
Implementation(Начал описатемйойсекции''
($R *.dfn}(Подключение файла сресурсами,
необходимыми для работы формы)
end.(Окончание модуля)
Файл с ресурсами *.dfm, подключаемый к модулю формы с помощью директивы $R в первой строке описательной части модуля, содержит описание формы — значения ее свойств, а также структуры компонентов и их свойства. Этот файл формируется визуальным построителем в процессе разработки программы и имеет следующий вщ б
object Formi: TForml
Left = 194
Top = 103
Width = 783
Height = 540
Rapt 1о1^*ЖЯГОГЯ1 №
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
nt.Mame = " Sans >erit'
Font.Style = []
Ol'^yeatelirdeb -^S'alse
PixelsPerlnch = 96
TextHeight = 13
«1
' Приведенный пример соответствует описанию формы Delphi, начиная с шестой версии. В более ранних версиях описание формы хранилось в двоичном формате.
Если на форму добавляется какой-либо компонент, то ссылка на него помещается в класс формы. Таким образом, модуль формы автоматически изменяется для обеспечения доступа программы к новому компоненту. Например, если на форму добавить компонент Button, то модуль формы будет выглядеть так, как показано в листинге 18.2.
Листинг 18 2 Модуль с добавленным на форму компонентом Button
unit Unitl;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type
TForml = class(TForm)
Buttonl: TButton;
класс формы добавлено свойство — ссылка на компонент, размещенный на форме с помощью визуального ■1 ;
private
{ Private declarations }
public
{ Public declarations } end;
var
Formi: TForml;
Implementation {$R *.dfm} end..
Описание формы также изменится и будет включать в себя указание компонента, размещенного на форме, и его свойства:
objectTForml
Left = 194
Top = 103
Width = 783
Height = 540
Caption = '
Color = clBtnFace
о t . larset = DEFAULT CHARSET
Font.Color = clWindowText
Font.Height = -11
।= ’ Sans Serif
Font. Style = []
OldCreateOrder = False
1.=96
TextHeight = 13
object Buttonl: TButton
Left = 80
Top = 120
Width = 75
Height = 25
Caption = '. '
TabOrder = 0
end .;компонента Buttonl, расположенного на ; ж]
end
Использование форм
Жизненный цикл формы
Жизненный цикл формы аналогичен жизненному циклу любого экземпляра класса в Delphi и включает в себя создание, обращение к свойствам и (или) методам, в частности к методам отображения формы на экране, и последующее разрушение. Однако в связи с тем, что формы более сложны, чем обычные компоненты, некоторые из этих действий выполняются особым образом. При этом часть механизма обеспечения жизнедеятельности формы может быть выполнена автоматически.
Добавление формы в проект
При создании нового проекта, приложение имеет одну форму, которая будет отображена на экране после его запуска. Эта форма является главным окном программы. В дальнейшем формы могут создаваться с помощью пункта главного меню File->New->Forra среды разработчика Delphi.
Классы форм, добавляемых в проект, получают названия, состоящие из слова Form и порядкового номера формы в проекте. После создания очередной формы ее название можно изменить с помощью свойства Name через Инспектор объектов. При этом файл формы будет соответствующим образом изменен.
Организация структуры форм в приложении
Структурой форм в приложении и вариантами их создания управляет диалог Project Options (см. рис. 18.2), вызываемый с помощью пункта главного меню Pro ject-X)ptions. На закладке Forms этого диалога представлен список форм, добавленных в проект, с указанием формы, которая является главной, то есть выводимой на экран при запуске программы.
Version НоVersion НоPackagesPackagesApplicationApplication■ •'1 >' forms:■ •'1 >' forms:Available 1Available 1Project Options for ■'>(■■ j ■■•Project Options for ■'>(■■ j ■■•Compiler ] Compiler Messages | LinkerCompiler ] Compiler Messages | LinkerMain 1 ' JMainFormMain 1 ' JMainFormРис. 18.2. Диалог управления формами приложенияРис. 18.2. Диалог управления формами приложения
Version Но
Version Но
Packages
Packages
Application
Application
■ •'1 >' forms:
■ •'1 >' forms:
Available 1
Available 1
Project Options for ■'>(■■ j ■■•
Project Options for ■'>(■■ j ■■•
Compiler ] Compiler Messages | Linker
Compiler ] Compiler Messages | Linker
Main 1 ' JMainForm
Main 1 ' JMainForm
Рис. 18.2. Диалог управления формами приложения
Рис. 18.2. Диалог управления формами приложения
В левом нижнем списке (Aut it forms — Автоматически создаваемые формы) представлены формы, которые создаются при старте приложения. Заметим, что создание формы не означает ее автоматическое появление на экране, так как этим свойством обладает только главная форма.
В качестве главной формы может быть выбрана одна из форм, представленных в списке Auto-create forms. Для этого предназначен элемент управления (выпадающий список) Main Form (главная форма). Если после назначения формы главной она будет перемещена из списка Auto-create forms (например, с помощью кнопки ’>'), то вместо нее будет назначена главной другая форма, присутствующая в этом списке. Если из списка удалить все формы, то работа приложения будет невозможна, так как главное окно программы должно быть определено обязательно.
Автоматическое создание формыво время выполнения программы
Рассмотрим; как происходит создание форм при запуске приложения. Допустим, имеется новый проект, в котором по умолчанию присутствует одна форма. Файл проекта, который является в Delphi основной частью программы, будет выглядеть как в листинге 18.3 (текст данного файла доступен с помощью пункта главного меню Pro^ect->Vrew Source)
Листинг 18.3. Файл проекта с одной формой
program Projectl;.ц i I
uses■■ подкЯения ■ и
Гояы> . (Подключение Ьо^ля ■
Unitl in 'Unitl.pas' (Forml);
(Подключение модуля Unitl, в котором описана главная форма,приложения)й
($R *.res)(Подключение файла с ресурсами,
необходимыми приложению в целом}
begin
Application.Initialize ; (Инициализация приложения}
Application.CreateForm(TForml, Forml);
Г (Сляздание Илавни/формы прило®®» jJ’opMa со^аетса на ^Яове ^Н ТРогпД ссылка на форму помещается в переменную ТоМШ , оКсЗшуБэ в мзду ле Unirx* вяДтаж с классом глйнйеи: формы),
Application.Run; (Запуск приложения)
end._(Окончание программы}
Таким образом, ест форма присутствует в списке автоматически создаваемых форм Auto-create forms в диалоге Project Options, ее создание производится в основной части программы, причем необходим й программный код создается автоматически. При удалении данной формы из стека автоматически создаваемых создание формы в основной части программы не щэоизводится (тстит 18.4).
Листинг 18.4. Файл проекта, не соедержащего форму
program Projectl;. л в - лрое? . - :
uses. - п подключ#™! модулей) г
Forms,(Подключение модуля Forms)
Unitl in 'Unitl pas' (Forml);
□ {Подключение Модуля uniMWrзЫВторсИ описана < : i HU. .ДгПрИЛОЖеНИЯ) .
(ФЖ •.*■•)>4 {Подключение |ММи П ресурсами,
необходимыми прД^^^|ф 1Q целом) ■
begin
Application.Initialize; (Инициализация приложения)
Application.Run;(Запуск приложения)
end.(Окончание программы)
Заметим, что ссылка на файл класса формы остается в проекте. Аналогичным образом создаются и все остальные формы, присутствующие в списке Auto-create forms.
Допустим, в приложении, помимо главной формы, создана одна дополнительная. В таком случае основная часть программы будет выглядеть как показано в листинге 18.5.
Листинг 18.5. Файл проекта с двумя формами
program Project!; (Заголовок проекта)
uses(- подключения . й
Forms,|П ik ■ и модуляI
Unitl in 'Unit!.pas' (Forml);
|Пмодуля Unitl, в котором
описана главная форма-
($R *.res)I .। файла с ресурсами,
необходимыми приложению в ।
begin
Application.Initialize; (Инициализация приложения
Application.CreateForm(TForml, Forml);
Application.CreateForm(TForm2, Form2);
- ! ut форм, занесенных в список Auto-create п I
Application.Run;(Запуск приложения)
end.- I i■
Прямое создание формы во время выполнения программы
Прямое создание формы во время выполнения программы может быть произведено аналогично автоматическому созданию форм в основной части программы — с помощью метода CreateForm объекта Application:
procedure CreateForm(FormClass: TFormClass; var Reference);
Переменная Application (ссылка на экземпляр класса TApplication) относится к глобальным переменным проекта и более подробно описана ниже. Метод CreateForm создает экземпляр формы класса и заносит ссылку на созданный экземпляр в переменную, указанную в качестве параметра Reference.
Допустим, в проекте существуют две формы — главная, описанная в модуле Unitl, и вспомогательная, описанная в модуле Unit2 и имеющая название класса TForm2. Тогда создание формы типа TForm2 из какого-либо метода главной формы может выглядеть следующим образом:
unit Unitl;3аголовок модуля Вранной формы
ImplementationНачали описатИлЕой «Акции модуля
Uses Unit2;Подключение модуля вспомогательной формы
procedure TForml.ButtonlClick(Sender: TObject);
ОбраЕмтчик нажатия на кнопке Buttonl главной формы
Var
AForm: TForm2 Описание ссыЖи на;
вспомогательнойформы begin
Application.CreateForm (TForm2, AForm);
Создание Экземпляра вспомогательной формы с помощью метода CreateForm глобальной переменной Application. Ссылка на экземпляр заносится в ссылочную переменную AForm
При создании формы вышеописанным методом свойство принадлежности устанавливается таким образом, что владельцем формы становится объект Application, который является наследником класса TComponent. Данный объект автоматически разрушается при завершении программы, разрушая при этом все формы, созданные его методом CreateForm.
Еще один способ создания формы — это вызов конструктора Create соответствующего класса, однако такой подход обычно не имеет смысла, так как в методе CreateForm класса TApplication выполняются точно такие же действия:
unit Unitl; Заголовок модуля главной формы
Implementation Начало описательной секции модуля
Uses Unit2 /Подключение модуля вспомогательной формы
procedure TForml.ButtonlClick(Sender: TObject);
Обработчик нажатия на кнопку Buttonl главной формы
Var
AForm: TForm2; Описание ссылки на экземпляр вспомогательной формы
Begin
AForm := TForm2.Create(Application) ;
Форма создаетевызЯо|^ конструмваза, в качестве владельца формы указывается глобалвная переменная Application
В качестве компонента-владельца может быть указан любой другой компонент, например, «Экземпляр формы, из которого создается новая форма. В таком случае создаваемая форма будет разрушена при разрушении формы, указанной в качестве параметра конструктора, в соответствии с правилами поведения компонентов Delphi:
unit Unitl .
Заголовок модуля главной формы
Implementation
Uses Unit2,
Начало описательной секции модуля Подключение модуля вспомогательной формы
procedure TForml.ButtonlClick(Sender : TObject);
Обработчик нажатия на кнопку~
главной формы
Var
AForm: TFonn2;
Описание ссылки на экземпляр вспомогательной формы
Begin
AForm := TForm2.Create(Self);
Форма создается прямым вызовом конструктора, в качестве владельца формы указывается форма, которой принадлежит метод : . •_ .
Указание происходит с помощью ключевого Self
В заключение обсуждения создания экземпляров форм во время выполнения программы заметим, что при прямом создании экземпляра формы не важно, является ли форма автоматически создаваемой или нет, так как эта характеристика относится не к классу формы в целом, а только к одной ссылке на него, автоматически добавляемой в модуль этой формы при добавлении формы в проект.
Отображение формы
Окна приложений могут отображаться на экране в модальном режиме — когда пользователь не имеет возможности переключаться между окнами одной программы, или немодальном — когда переключение между окнами допустимо. Для вывода формы на экран используются соответственно методы Show (англ. Show — показать) и ShowModal (англ. Show Modal — показать в модальном режиме) без параметров:
procedure Show;
function ShowModal: Integer;
Немодальные формы
Процедура Show, отображающая форму в немодальном режиме, может применяться следующим образом:
unit Unitl;
Заголовок модуля главной формы
Implementation
Uses Uni t2
Начало описательной секции модуля Подключение модуля вспомогательной формы
procedure TForml.ButtonlClick(Sender: TObject)
Обработчик нажатия на кнопку главной формы
Var
AForm: TForm2;
Описание бсылки^^^еемшЯр вспомогательной формы
Begin
Application.CreateForm(TForm2 , AForm);
AForm.Show;
Создание экземпляра вспомогательной формы с помощью метода CreateForm глобальной переменной Application. Ссылка на экземпляр заносится в ссылочную переменную AForm Отображение окна (экземпляра формы I на который указывает ссылка AForm) на экране врежиме
Формы в немодальном режиме могут применяться для организации окон, доступ к которым должен осуществляться в любой момент времени работы программы наравне с другими. Например, панели инструментов, реализованные в виде отдельных окон, должны быть немодальными.
Модальные формы
Процедура nowK 1. отображающая форму в модальном режиме, мо
жет применяться следующим образом:
unit Unitl;
Заголовок модуля главной формы
Implementation
Uses Unit2;
Начало описательной секции модуля Подключение модуля вспомогательной формы
procedure TForml.ButtonlClick(Sender: TObject);
Обработчик нажатия на кнопку Buttonl главной формы
Var
AForm: TForm2;
Описание ссылки на экземпляр вспомогательной формы
Begin
Application.CreateForm(TForm2, AForm);
Создание экземпляра вспомогательной формы с - помощью методаглобальной
переменной Application. Ссылка на экземпляр Заносится в ссылочную переменную AForm AForm.ShowModal; Отображение окна (экземпляра формы TForm2, на который указывает ссылка AForm) на экране в модальном ■ Выполнение процедуры •. - приостанавливается
до’ завершения метода ShowModal формы AForm
Вызов модального окна на экран приостанавливает выполнение приложения до закрытия формы. Соответственно, такие окна используются для запроса от пользователя данных, необходимых для продолжения выполнения программы. Классическим примером применения модальных окон в программе являются стандартные диалоги, например, диалог открытия файла.
Поскольку обычно пользователю предоставляется возможность отказаться от работы с диалогом, в классе TForm предусмотрено целочисленное свойствов которое может заноситься некоторое значение,
определяющее результат работы:
property ';
Туре
TModalResult = Low (Integer)..High(Integer);
Возможные значения переменных типа TModalResult приведены1' в табл. 18.1.
Возможные значения свойства ModalResult формТаблица : ;
Константа
Значение
Описание
mrNone
0
Устанавливается при отображении формы и означает незавершенность работы
mrOk
tdOK
Пользователь закончил работу с формой нажатием кнопки 1
mrCancel
idCancel
Пользователь закончил работу с формой нажатием кнопки «Cancel»
mr Abort
idAbort
Пользователь закончил работу с формой нажатием кнопки «Abort»
mr Retry
id Retry
Пользователь закончил работу с формой нажатием кнопки «Retry»
mrlgnore
idlgnore
Пользователь закончил работу с формой нажатием кнопки «Ignore»
mrYes
idYes
Пользователь закончил работу с формой нажатием кнопки «Yes»
mrNo
idNo
Пользователь закончил работу с формой нажатием кнопки «No»
mrAII
mrNo + 1
Пользователь закончил работу с формой нажатием кнопки «АИ»
mrNoToAJI
mrAII + 1
Пользователь закончил работу с формой нажатием кнопки «No to АН»
mrYesToAII
mrNoToAII + 1
Пользователь закончил работу с формой нажатием кнопки «Yes to АП»
64 Константы, приведенные в столбце «Константы», описаны в модуле Controls на основе констант (столбец «Значение»), описанных в модуле Windows.
Приведенные константы и их значения могут использоваться на усмотрение разработчика и представляют собой всего лишь некоторое соглашение, в соответствии с которым рекомендуется i рис вое и не каких-либо значений свойству ModalResult. Единственное правило состоит в том, что модальная форма отображается на экране, пока свойство ModalResult имеет нулевое значение. При установке значения, отличного от нуля (то есть любой константы, кроме mrNone), форма будет автоматически закрыта, а вы ю.шснис фрагмента программы, из которого вызван метод продолжится.
Для большего удобства работы со свойством ModalResult формы в классе TButton, а, следовательно, и вкак унаследованном от него,
присутствует одноименное свойство такого же типа, имеющее по умолчанию значение mrNone:
propertyipropertyiTModalResult ;TModalResult ;
propertyi
propertyi
TModalResult ;
TModalResult ;
Если данное свойство имеет значение, отличное от mrNone, то при нажатии пользователем на кнопку оно заносится в свойство ModalResult формы, в результате чего форма закрывается. Таким образом, при использовании кнопок типа Button и BitBtn разработчику прикладной программы не приходится реализовывать обработчики событий их нажатия, так как результат — закрытие формы — достигается автоматически.
Заметим, что свойство ModalResult компонентов-кнопок никак не связано со свойством Kind компонента BitBtn. В соответствии со свойством Kind кнопка может иметь подпись «Ок», при этом значение, которое заносится в свойство ModalResult формы, может быть не . а, например, mrNo.
Управление доступом к форме
Для управления доступом к форме можно использовать свойство Enabled, общее для визуальных компонентов Delphi, и запрещающее пользователю взаимодействие с элементами управления, расположенными на форме' Таким образом, формы по отношению к свойству Enabled ведут себя аналогично обычным компонентам-контейнерам. Однако формы являются не просто визуальными компонентами, а еще и отдельными программными окнами, в результате чего для них предусмотрены дополнительные возможности управления доступом.
Скрытие формы с экрана
Для скрытия формы с экрана применяется метод Hide, не имеющий параметров:
procedure
При этом допустимо перемещение формы по экрану и изменение ее размеров.
Вызов метода Hide эквивалентен установке свойству visible значения False. Заметим, что данный метод не закрывает форму, а просто запрещает ее отображение. Поэтому в случае использования модальных форм программа не сможет нормально функционировать, так как модальность скрытой формы не даст пользователю переключиться в другое окно программы, а сама форма не сможет быть закрыта пользователем, так как 1 с видна ему.
По поводу свойства visible заметим, что установка ему значения True может применяться в качестве замены метода Show, который и реализован на основе этого свойства. Однако в методе Show, описанном в классе TForm, выполняется еще одно важное действие — форма не просто отображается на экране, но и перемещается относительно других окон программы ближе к пользователю (становится самым верхним окном).
Разрушение формы
Для форм, которые созданы автоматически в основной части программы, или при прямом создании которых во время выполнения приложения было установлено свойство шаиости’, не требуется прямого указания о разрушении. Так как формы являются компонентами, то их разрушение производится компонентами-владельцами, обычно объектом Application.
Однако форма, как и любой оконный компонент, требует некоторое" количество системных ресурсов, особенно, если на ней расположено множество других компонентов. Поэтому разрушение форм может быть целесообразно для снижения нагрузки на систему, в случаях, когда в существовании экземпляра формы нет необходимости.
Для разрушения формы используется метод Release, а не Free, как для остальных Delphi-компонентов:
procedure Release;
Наличие специального метода разрушения для форм связано с существованием оконной функции, которой обладает каждое Windows-окно. При вызове метода Free компонент немедленно разрушается, и сообщения, которые находя ся в очереди сообщений, не могут быть обработаны. Использование метода Release гарантирует, что перед разрушением формы будут завершены обработчики сообщений самой формы и подчиненных ей компонентов, а очередь сообщений будет полностью разобрана. Таким образом, уничтожение формы методом Release возможно прямо из какого-либо ее метода:
Procedure TForml.ButtonlClick(Sender: TObject);
(^^абоКЬк Жжвгия на звонку ButpbrjL принадлежащую форме
begin
Release;Разрушение формы методом Е ease. Форма
будет разрушена только после завершения данного метода, а до его завершения ссылка на форму осенся доступной|так Э^'Ве.и ссылки на все компоненты, расположенные на этой форме
end;
После вызова метода формы Release, и до окончания метода ButtonlClick разрешено использование ссылки на форму и ссылок на компоненты, расположенные в ней. Если бы вместо Release был использован метод Free, то разрушение формы произошло бы немедленно, и обращение к компонентам формы могло бы вызвать ошибку нарушения доступа к памяти ‘Access violation ...’.
Закрытие формы
Разрушение формы выполняется в программе в случаях, когда в дальнейшем использовании формы нет необходимости. Также форма, как окно программы, может быть скрыта только на некоторое время, причем сам момент исчезновения формы с экрана обычно представляет собой результат каких-либо действий, обычно действий пользователя.
Например, модальный диалог открытия файла OpenFile разрушается в момент выбора пользователем имени файла или отказа от работы с диалогом. Таким образом, программа обычно должна иметь возможность определить факт скрытия окна, вне зависимости от того, разрушаются ли структуры, связанные с окном, либо просто изменяется его видимость.
Поскольку с точки зрения пользователя разрушение формы и изменение ее видимости не отличаются друг от друга, для форм введено понятие закрытия. Процедура закрытия формы инициируется методом Close класса TForm:
procedure 1 • ;
Так как форма часто является логически законченной единицей программы, то она сама может определять действия, выполняемые при ее закрытии, и возможность собственного закрытия вообще. По умолчанию вызов метода Close приводит к вызову метода Hide, и форма просто
скрывается с экрана. При этом остается доступной ссылка на нее и компоненты, которыми она владеет. Для. указания действий, которые должны быть выполнены с формой в качестве ее закрытия, предусмотрено событие 1 (от англ. On Close — При закрытии), описанное в классе TForm следующим образом:
property OnClose:".;
Type
TCloseEvent = procedure (TObject; var Action
TCloseAction) of object;
Параметр-переменная Action перечислимого типа TCloseAction, передаваемый обработчику, по умолчанию имеет значение caHide, что означает, что для формы должен быть вызван метод Hide. Обработчик события OnClose может изменить значение параметра, если поведение формы должно быть другим. Возможные значения переменных типа TCloseAction перечислены в табл. 18.2.
Константа
Вариант закрытия формы
caNone
Форма не допускает закрытия
caHide
Форма скрывается с экрана
caFree
Форма разрушается
caMlnimue
Форма минимизируется (сворачивается)
Таблица 18 2
Константы типа TCloseAction
Таким образом, если в обработчике события OnClose в параметр Action заносится значение caNone, то форма не сможет быть закрыта ни программно, с помощью метода Close, ни пользователем (с помощью соответствующего элемента управления в правой части заголовка окна). При этом предусмотрен второй вариант запрещения закрытия формы, построенный на обработчике события (от англ. On Close Query — Запрос на закрытие):
property OnCloseQuery: TCloseQueryEvent;
Type
TCloseQueryEvent = procedure! 1 Nr: TObject; var CanClose: Boolean) of object;
Обработчику сообщения OnCloseQuery передается параметр-переменная, имеющая по умолчанию значение True, которое означает, что форма может быть закрыта. Если обработчик события устанавливает данному параметру значение False, то закрытие формы запрещается.
Обработчик OnCloseQuery вызывается перед обработчиком OnClose. Таким образом, если при обработке OnCloseQuery параметру CanClose прн-
। 'em । значение False, то обработчик OnClose вызван не будет, так как в определении способа закрытия формы нет необходимости.
procedure TForml.FormCloseQuery(Sender: TObject; var CanClose:;
begin
CanClose := False;
end;
Организация многооконныхприложений
Виды приложений с точки зрения организации окон
Все приложения, выполняемые в операционной системе Windows, с точки зрения организации оконной структуры можно разделить на две группы:
MD1 -приложения (от англ. Multi Document Interface -- Интерфейс множества документов), окна которых расположены в одном окне, называемом главным. Концепция такого подхода состоит в том, что в программе могут одновременно обрабатываться несколько документов, по одному в каждом окне. Также могут присутствовать окна, предназначенные для вспомогательных операций, например, диалоги и панели инструментов. На рис. IS : представлено окно графического редактора Adobe Photoshop, организованного в форме М DI Для каждого документа — графического изображения — открывается отдельное окно, в котором производится редактирование. Все остальные окна являются различными панелями инструментов, которые отражают состояние активного документа.
SDI приложения (от англ. Single Document Interface — Интерфейс одного документа), окна которых перемещаются по экрану независимо друг от друга. Приложения такого рода подразумевают обработку одного документа в каждый момент времени, а окна, используемые приложением, рассматривают отдельные аспекты этого документа. В качестве примера SDI организации многооконного приложения можно привести среду разработчика Delphi.
Под «документом», с которым работает программный продукт, может подразумеваться не только текстовый или графический документ, но и любой другой набор данных. Например, в среде разработчика Delphi, организованной в виде SDI-приложения, документом считается группа проектов. Все окна, которые входят в состав среды, ориентированы на работу либо с группой проектов в целом, либо с отдельным проектом из группы. При этом окно Инспектора объектов рассматривает данный документ с точки зрения компонентов, расположенных на формах, а, например, редактор исходного текста — с точки зрения программного кода.
Рис. 18.3. Adobe Photoshop организован в виде MDI-приложения
SDI-приложения
По умолчанию в Delphi создаются SDI-приложения. Все формы проекта при выводе на экран получают одинаковые права с точки зрения пользователя, то есть каждая форма проекта может быть развернута на весь экран или минимизирована, а также перемещена в любое место экрана, вне зависимости от положения других форм, в том числе и главной.
Главная форма, тем не менее, имеет особые свойства, а именно:
♦ Если главная форма минимизируется, то минимизируются и все формы приложения. Исключением является какая-либо форма, не являющаяся главной, но выведенная в модальном режиме — при ее минимизации, также минимизируется все приложение полностью.
* При закрытии главной формы, закрывается приложение, следовательно, и все его формы.
В остальном же все формы приложения являются равнозначными.
Заметим, что применение SDI при. ожений должно быть ограниченным, так как работа с ними может вызвать затруднения у неподготовленного пользователя.
MDI-приложения
MDI-приложения состоят из одного главного окна, в пределах которого могут находиться другие (дочерние) окна (см. рис. 18.4). Организация MDI-приложений более сложна, чем построение SDI-систем, и подразумевает некоторую настройку форм, участвующих в программе. Все формы MDI-приложения должны иметь специальный стиль, определяемый перечислимым property-свойством FormStyle:
property FormStyle:-
Одна из форм приложения должна быть выбрана в качестве главной, о чем свидетельствует значение fsMDIFonn свойства FormStyle. Все остальные (дочерние) формы должны иметь в этом свойстве значение fsMDIChild При отображении дочерней формы на экране она будет выведена в пределы главной формы и не может быть перемещена за ее пределы.
ГЛАВНАЯ■
'Дочерняя Дочерняяформа
лсяеевгп : ^ал| ивеееевог
ДочерняяформаДочерняяформаДочерняяформаДочерняяформа
Дочерняяформа
Дочерняяформа
Дочерняяформа
Дочерняяформа
Рис. 18.4. MDI-приложение
По умолчанию свойство FormStyle имеет значение fsNormal, свидетельствующее о том, что форма является частью SDI-при южсния
MDI-приложения имеют ряд особенностей:
При закрытии дочерней формы вместо вызова команды Hide по умолчанию происходит минимизация окна. При этом оно сворачивается в «иконку» на внутреннюю область родительского окна (см. рис. 18.5).
Визуальные компоненты наследники класса TGraphicControl, то есть неоконные элементы управления, не могут быть о ображены* на главной форме MDI-приложения
Рис. 18.5. Дочерние формы могут быть «свернуты»
Приоритетные окна
Свойство । может иметь еще одно значение — fsStayOnTop, показывающее, что данное окно должно быть самым верхним (близким к пользователю) на экране. Использование такого поведения формы возможно только для SDI при южений, так как в MDI-организации программы формы должны иметь стили fsMDIForm и fsMDIChild
Если для какого-либо главного окна SDl-приложения установлен признак f то это окно будет самым верхним, даже если приложение, которое владеет этим окном, неактивно. Окна других приложений будут находиться под этим окном, даже если они в этот момент активны и имеют фокус ввода.
Если атрибут fsStayOnTop назначен дочернему SDI окну, то оно всегда будет находиться выше своего родительского, но может быть перекрыто окнами других приложений, которые имеют в данный момент фокус ввода. При установке активности главному окну приложения такая форма вновь займет самое высокое положение в иерархии окон.
Если дочернему окну МI )!-приложения установлен атрибут fsStayOnTop, то такое окно не принадлежит главному окну, находится выше его и сворачивается не на его внутреннюю область, а на рабочий стол Windows. Заметим, что такое поведение многооконного приложения противоречит М DI-концепции.
С помощью «приоритетных» окон могут быть организованы глобальные панели инструментов (приложения, управляющие группой других приложений), как, например, панель быстрого запуска приложений Microsoft Office.
Организация форм в многооконных приложениях
Если программный продукт построен по принципу SDE то в нем, скорее всего, заранее известен состав окон,, их примерное расположение и размеры. Далее, пользователь может сконфигурировать интерфейс по собственному усмотрению, и программно изменять заданное расположение окон не имеет смысла. Единственное, чем может разработчик SDI- приложения помочь пользователю, это установка атрибута fsStayOnTop для некоторых дочерних окон, доступ к которым осуществляется наиболее часто.
Интерфейс в стиле MDI обычно подразумевает неизвестное заранее количество окон с «документами» на экране, поэтому имеет смысл программно изменять расположение этих окон с помощью какого-либо их автоматического выравнивания в пределах главного окна.
Подходы к автоматическому выравниванию окон условно можно разделить на две группы:
» прямая установка свойств форм;
* автоматическое выравнивание с помощью реализованных в классе TForm методов.
Автоматическое выравнивание может быть выполнено методами Tile (см. рис. 18.6) и Cascade (см. рис. 18.7), применяемыми к развернутым окнам, или методомприменяемым к минимизированным ок
нам:
procedure ';
procedure Cascade;
procedure ’.
Заметим, что выравнивание минимизированных окон происходит и при вызове методов Tile и Cascade.
Рис. 18.6. Выравнивание дочерних форм MDI-приложения по методу Tile
Рис. 18.7. Выравнивание дочерних форм MDI-приложения по методу Cascade
Прямое управление положением и размерами форм может осуществляться с помощью свойств Left, Top, width и Height, обычных для всех визуальных компонентов Delphi, в том числе и форм. Для изменения значений этих свойств следует получить доступ к ссылкам на формы, либо храня их в какой-либо подходящей для этого структуре, либо с помощью свойства XI :. представляющего собой интерфейс к одно
мерному массиву дочерних форм в М DI -прил о ж е ни и:
property I; :■ I i
Количество дочерних форм хранится в целочисленном свойстве MDIChildCount:
propertyInteger;
Таким образом, выравнивание, аналогичное выполняемому методом Cascade, может быть реализовано следующим образом:
unit Unitl .
Implementation
procedure TForml.ButtonlClick(Sender: TObject);
Var
Integer;
begin
For i : = 0 To MDIChildCount-1 Do I о .низацИЯ Цикла по количеству дочерних форм} begin
MDIChildren[i].Left := i * 20;
MDIChildren[i].Top := i * 20;
end;end;{Изменение положения очередной формы, ссылка на которую берется из свойства-массива
end;
end;
MDIChildren. Положение по вертикали
и горизонтали пропорционально номеру формы
end;
Свойства и события класса TForm
События форм
Создание, разрушение и активность
Формы имеют множество событий, позволяющих прикладной программе контролировать их работу. Каждому обработчику передается ссылка Sender на объект, который инициировал событие, а некоторым из обработчиков передаются дополнительные параметры. Описание событий сведено в табл. I S 3
Событие
Дополнительные параметры обработчика
Описание
OnCreate
Вызывается при создании формы после выполнения конструктора
OnShow
Вызывается при отображении формы методами Show и > how Modal
OnActivate
Вызывается при получении формой фокуса ввода (форма становится активной). Автоматически вызывается после отображения формы методами Show и ShowModal, так как после отображения форма активна
OnPaini
Вызывается при необходимости прорисовки формы, например, при затирании области формы другим окном
OnHide
Вызывается при скрытии формы с экрана методом Hide или установкой свойству Visible значения False
OnDeactivate
Вызывается при потере формой фокуса ввода, например, при переключении на другую форму, а также сворачивании формы или приложения. Автоматически вызывается после скрытия формы с экрана методом Hide
OnCloseOuery
var CanClose Boolean
Вызывается для проверки возможности закрытия, вне зависимости от действий, которые следует произвести при закрытии. Критерий возможности закрытия возвращается в параметре CanClose
OnClose
var Action: TCIoseAction
Вызывается для определения действий, которые следует произвести при закрытии формы. Указание на вид закрытия возвращается в параметре Action
OnDestroy
Вызывается при разрушении формы перед вызовом деструктора
События формы
Таблица 18.3
События создания и разрушения предназначены для выполнения каких- либо специфических действий при переходе формы из одного состояния в другое. Большинство таких событий образуют пары, например, при получении фокуса ввода вызывается обработчик события OnActivate, а при его потере — OnDeactivate. Такая структура событий позволяет гибко управлять ресурсами, выделяемыми и освобождаемыми при смене состояния формы. Также имеют место пары OnCreate-OnDestroy и
События OnPaint, и OnClose парными не являются, так как предназначены для настройки поведения формы, а не для реакции на ее изменения.
При создании формы, ее отображении на экране (вне зависимости от используемого метода), и последующем закрытии, события инициируются в следующей последовательности:
OnCreate.
OnShow.
OnAcCivaGe.
О n С1 о s AQu «Sp ..
Яс1-^№;»
OnHide.
Hngactivate.
OnDestroy.
Перемещение и изменение размеров
При перемещении формы и изменении ее размеров последовательно инициируются два события: OncanResize И OnConstrainedResize:
property OnCanResize: TCanResizeEvent;
property OnConstrainedResize: TConstrainedResizeEvent; Type
TCanResizeEvent = procedure (: I t .
var,Integer;
var Resize: Boolean ) of object;
TConstrainedResizeEvent = procedure (:.
var', MinHeight,
,। Integer
) of object;
Обработчик события OnCanResize вызывается при попытке пользователя изменить размеры окна, либо при программной установке свойств width и Height. В качестве параметров данному обработчику передают-
ся новые значения ширины (NewWidth) и высоты it . q г) формы, изменив которые обработчик может повлиять на размеры, которые будут реально установлены.
Параметр Resize определяет, следует ли вообще изменять размеры формы. Если данный параметр после свершения обработчика будет иметь значение False, то размеры окна не изменятся, и остальные события, связанные с изменением размеров, вызваны не будут.
Вне зависимости от установленных в обработчике события OnCanResize значений параметров NewWidth и NewHeight, размеры формы, которые будут установлены, ограничены свойством Constraints. Также учитываются результаты работы обработчика второго события — OnConstrainedResize.
Параметры MinWidth, leight, MaxWidth и MaxHeight, передаваемые в этот обработчик, при вызове содержат значения, хранимые в свойстве Constraints, однако при изменении значений этих параметров ограничения, установленные свойством Constraints, обходятся. При этом? если новые размеры формы выходят за пределы старых ограничений Constraints, то ограничения обновляются в соответствии с размерами формы, а не в соответствии со значениями параметров MinWidth, MinHeight, MaxWidth и MaxHeight.
Заметим, что вне зависимости от установленных пределов, размеры клиентской части окна (доступной для расположения элементов управления) не могут превышать размеров рабочего стола Windows. Данное ограничение определяется операционной системой.
После вызова обработчиков событий OnCanResize и OnConstrainedResize размеры формы могут либо остаться без изменения, либо измениться. Во втором случае будет инициировано событие OnResize, уведомляющее о факте изменения размеров.
property OnResize: . . - ' ;
В большинстве случаев для эффективного управления размерами формы достаточно использования свойства Constraints и обработчика события OnResize. Обработка событий OncanResize и г Re : : необходима только в случаях, когда концепция изменения размеров формы зависит от хода выполнения программы.
И, наконец, отметим, что описанные события возникают не только при изменении размеров формы, но и при ее перемещении по экрану. Естественно, что событие OnResize при этом инициируется, так как изменения размеров формы не происходит. Никаких других событий, которые можно было бы использовать для определения перемещения формы, не предусмотрено.
Манипуляции с мышью в области формы
Сообщения о манипуляциях пользователя с мышью, производимых в пределах окна программы, унаследованы классом TForm от его родителя TControl, и являются общими для всех элементов управления Delphi. Данные события позволяют определить факт перемещения мыши в пределах компонента (событие пи ' ). нажатия или отпускания какой-либо кнопки мыши (события пи ■ D >wi и 1 . . ). а также нажатие кнопки мыши (событие Onclick) и двойное нажатие (событие OnDblClick):
property OnMouseMove: I'M।
property OnMouseDown: TMouseEvent; property OnMouseUp: TMouseEvent; property OnClick: .! I;
property OnDblClick::
Процедурные типы для обработчиков событий описаны следующим образом:
Туре
TMouseMoveEvent = procedure! *: TObject;
Shift: TShiftState;
X, Y: Integer) of object;
TMouseEvent = procedure (51 r i : TObject;
Button:1'..
Shift: TShiftState;
X, Y: Integer) of object;
Параметр Button определяет, какая именно кнопка мыши была нажата: левая (значение mbLeft), правая (значение mbRight) или центральная (значение ।:) В параметре shift указывается, удерживалась ли
в момент перемещения мыши какая-либо управляющая клавиша на клавиатуре. Данный параметр может иметь значения ssShift, ■ и ssctrl, что означает соответственно нажатие клавиш shift, Alt и Ctrl во время манипуляций с мышью.
Помимо перечисленных событий, общих для всех визуальных компонентов, для форм доступны события, возникающие при вращении колеса мыши (англ. Wheel — Колесо):
property OnMouseWheel: TMouseWheelEvent;
property OnMouseWheelDown: TMouseWheelUpDownEvent;
property OnMouseWheelUp: TMouseWheelUpDownEvent;
Процедурные типы для обработчиков таких событий описаны следующим образом:
Туре
TMouseWheelEvent = procedure(Sender: TObject;
Shift: TShiftState;
WheelDelta: Integer;
MousePos: TPoint;
var Handled: Boolean
) of object;
useWheeltjpDownEvent = procedure (Sender: TObject;
Shift: TShiftState;
MousePos: TPoint;
var Handled: Boolean ) of object;
При вращении пользователем колеса мыши инициируется сообщение в которое передается параметр-переменная Handled, содержащая значение False. Если значение данного параметра не изменится, или событию вообще не назначен обработчик, то данное событие считается необработанным, и будет инициировано одно из двух событий ■ или OnMousewheelDown, в зависимости от направления вращения колеса (соответственно, от себя или к себе).
Следует заметить, что события OnMouseWheel, OnMouseWheelUp и OnMousewheelDown описаны в классе ", и, соответственно, мог
ли бы быть доступны вообще всем элементам управления. Однако в секцию published они перенесены только в классе ГЕогт, а для поддержки их в других визуальных компонентах следует создать наследника соответствующего компонента, в котором ссылки на обработчики событий будут иметь более широкую область ви и мост и--
Вернемся к механизму обработки сообщений. Итак, если не обработано событие OnMouseWheel, то инициируются события OnMouseWheelUp и OnMousewheelDown. Если же и эти события не обработаны (параметр Handled не получил значение True, либо обработчик не реализован), то обработка передается контейнеру, в котором находится данный компонент. Таким образом, если форма является дочерним MD1 -окном, то обработка вращения колеса будет передана родительской форме. Если же окно является частью SDl-приложения, то событие останется не обработанным.
Клавиатурные события
И еще одна группа событий унаследована формами от визуальных компонентов-оболочек, наследников класса 7WnДанные события
позволяют установить факт нажатия пользователем кнопок клавиатуры, причем определяются три раздельных процесса: нажатие на клавишу без
69 Например, компоненты Мето и RichEdit используют события вращения колеса мыши для прокрутки текста.
ее отпускания (событие OnKeyDown), отпускание клавиши (событие On I | i и нажатие на кнопку (событие OnKeyPress):
property OnKeyDown: TKeyEvent;
property OnKeyUp: TKeyEvent;
property OnKeyPress:" ■I ;
Процедурные типы обработчиков данных событий имеют следующие описания:
Туре
TKeyEvent = procedure (Sender:" ; var Key: Word;
Shift:.) of object;
TKeyPressEvent = procedure (Sender: TObject;
var Key: Char) of object;
В обработчиках OnKeyDown и OnKeyUp имеется возможность проверки нажатия на клавишу совместно с некоторой управляющей клавишей (параметр shift). Сама клавиша, нажатие которой инициировало событие, задается параметром Key, в котором передается так называемый виртуальный код клавиши. Виртуальный код используется для идентификации клавиш-стрелок, управляющих клавиш и некоторых других, не представленных в таблице символов в явном виде. Например, при нажатии клавиши значение параметра Key будет равно константе . описанной в модуле Windows7
Еще одно событие, связанное с клавиатурой, реализовано только для форм:
property ':1;
Туре
TShortCutEvent = procedure (var :- : var Handled:
Boolean) of object;
Данное событие предназначено для просмотра нажатой клавиши до обработки этого события другими системами компонента, в том числе и до вызова обработчиков OnKeyDown, OnKeyUp и OnKeyPress. С помощью OnShortCut можно изменить обычное поведение формы по отношению к стандартным комбинациям клавиш, используемым, например, для быстрого доступа к пунктам меню.
Данное событие возникает, когда значение, соответствующее нажатой клавише? попадает в буфер клавиатуры, и, обычно, появляется сразу же после OnKeyDown.
Список констант можно найти в разделе справочной системы «Virtual key codes». Для этого необходимо запустить справочную систему с помощью пункта главного меню среды разработчика Help- I )clphi Help, и в появившемся окне на закладке «Предметный указатель» ввести словосочетание «Virtual key codes», после чего нажать на кнопку «Показать».
Заметим, что, если на форме расположен какой-либо компонент, который имеет фокус ввода, то все перечисленные обработчики, кроме OnShortCut, вызываться не будут. Однако если существует такая необходимость, форма может получить доступ к потоку ввода раньше, чем ее компоненты. Для этого следует свойству KeyPreview установить значение True:
property KeyPreview: .
Такая возможность позволяет фильтровать входной поток символов. Например, обработчик события OnKeyPress, заменяющий символ S на символ Ф' («русификатор»), может выглядеть следующим образом:
procedure TForml.FormKeyPress(Sender: TObject; var Key: char); begin
if Key = 1 1 Then Key := ’ : ‘ ; end;
Для того, чтобы данный обработчик всегда получал управление при нажатии клавиши, вне зависимости от наличия на форме компонентов, имеющих фокус ввода, следует установить значение True свойству KeyPreview.
.4.2. Свойства форм
Расположение и размеры
Расположение и размеры форм задаются обычными для визуальных компонентов свойствами Left, Top, Width и Height. При этом могут быть использованы свойства ограничения минимальных и максимальных размеров окна Constraints, а также свойство Align, выравнивающее окно формы по заданной стороне контейнера, в котором она находится. Для MDI-окон таким контейнером является родительская форма, а для SDI- форм — все поле экрана.
Помимо свойств width и Height, определяющих размер окна с учетом всех его атрибутов (заголовка и рамки), возможно использование свойств Clientwidth и ClientHeight, указывающих размер клиентской (доступной для размещения компонентов) области окна:
property Clientwidth: Integer;
property: Integer;
Для повышения удобства пользователя при размещении окна на экране предусмотрено свойство автоматического выравнивания («прилипания») окна относительного краев экрана. При приближении окна к границе
экрана, оно будет расположено вплотную к ней, если свойство ScreenSnap формы имеет значение True:
property ScreenSnap: Boolean;
Свойство г. арЗ _fer указывает, на каком расстоянии (в точках экрана) должна находиться форма от края экрана, чтобы быть выровненной по этому краю:
propertyInteger;
При выводе окна на экран оно может принять положение и размеры, которые рекомендованы операционной системой для текущего состояния рабочего стола. Такое поведение окон установлено для дочерних MDI- окон по умолчанию, однако в большинстве случаев это приводит к непредсказуемым последствиям для пользовательского интерфейса. Начальным расположением окна и его размерами управляет свойство Position:
property Position:.
Возможные значения свойства Position перечислены в табл. 18.4/
И, наконец, последний параметр, управляющий положением и размерами окна на экране, называется г ^ < и определяет, в каком состоянии находится окно:
property Windowstate: TKindowState;
Значение
Положение и размеры окна
poDesigned
Такие же, как в процессе визуальной разработки. При таком способе расположения могут возникнуть проблемы, связанные с разницей в разрешениях экрана разработчика и пользователя, вплоть до того, что форма полностью будет находиться за пределами экрана
poDetault
Устанавливаются автоматически операционной системой
poDefaultPosOnly
Размеры соответствуют свойствам Width и Height, положение определяется автоматически
poDefaultSizeOnly
Положение соответствует свойствам Left и Тор, размеры определяются автоматически
poScr ее r>C<?nter
Размеры соответствуют свойствам Width и Height, положение устанавливается таким образом, чтобы форма находилась по центру экрана. Данная возможность удобна для создания так называемых Splash-Window - приветственных окон, отображаемых во время загрузки основной части приложения
po Desktopcenter
Аналогично poScreenCenter, однако используется другой механизм расположения при работе в системе, имеющей вывод на несколько мониторов
poMainFormCenter
Аналогично poDesktopCenter, но дочерние MDf-формы располагаются по центру родительского окна, а не по центру экрана
poOwnerFormCenter
Аналогично poMainFormCenter, но расположение определяется формой, указанной в свойстве Owner, если в нем действительно задана ссылка на форму
Таблица 18.4
Возможные значения свойства Position формы
Данное перечислимое свойство может иметь следующие значения:
'— положение и размеры определяются свойствами фор
мы Left, Top, Width, Height;
wsMinimized — форма минимизирована;
:ed — форма развернута на весь экран.
Управление атрибутами окна
Каждое окно в Windows может иметь определенный набор атрибутов. Рассмотрим некоторые из них с точки зрения возможностей управления этими атрибутами:
Заголовок предназначен для идентификации окна с помощью подписи, выводимом на нем (подпись хранится в свойстве Caption формы), а также для перемещения окна по экрану.
Кнопки управления окном «Свернуть», «Развернуть на весь экран» и «Помощь» отображаются в заголовке окна в соответствии с набором элементов множественного свойства Bordericons типа TBorderl i : Для каждой кнопки управления окном предусмотрен свой элемент данного множества (biMinimize, biMaximize и biHelp).
Системное меню окна располагается в левой части заголовка и дублирует кнопки управления окном отображение иконки системного меню определяется в соответствии с наличием элемента biSystemMenu в свойстве Bordericons. Изображение иконки хранится в свойстве ICOn типа 1 п. При отсутствии системного меню не выводятся кнопки управления окном и кнопка закрытия окна.
Подробного рассмотрения заслуживает такой атрибут окна, как рамка (бордюр), определяющий не только вид самой рамки и возможности, которые он i предоставляет пользователю, но и наличие заголовка окна. Рамка предназначена для визуального отделения окна от других окон, расположенных на экране, и для изменения размеров окна
Вид бордюра задается перечислимым свойством BorderStyle типа TFormBorderStyle, возможные значения которого представлены в табл. 18.5.'
property Borderstyle: TFormBorderStyle;
Закончим обсуждение атрибутов окна рассмотрением целочисленного свойства, указывающего величину отступа клиентской части окна от рамки:
property
Прозрачностьокна
Windows, начиная с версии 2000? поддерживает организацию полупрозрачных программных окон (см. рис. 18.8). Delphi, начиная с версии 6.0
Виды рамки окна в соответствии со свойством BordeiStvItТаблица 18.5
Значение
Вид рамки
Наличие и вид заголовка
bsDialog
Трехмерная рамка без возможности изменения размеров окна. Данный вид окна является стандартным для использования в диалогах, в которых количество и расположение элементов управления обычно заранее известно
Присутствует, размер обычный
bsSingle
Рамка без эффекта трехмерности и возможности изменения размеров окна
Присутствует, размер обычный
bsNone
Рамка не выводится
Отсутствует
bsSlzeable
Трехмерная рамка с возможностью изменения размеров окна. Используется по умолчанию
Присутствует, размер обычный
bsToolWindow
Аналогично bsSingle
Присутствует, уменьшенного размера
bsSizeToolWin
Аналогично bsSizeable
Присутствует, уменьшенного размера
Рис. 18.8. Полупрозрачное окно текстового редактора на фоне Рабочего стола Windows
учитывает данную возможность с помощью свойств AlphaBlend и AlphaBlendValue:
property AlphaBlend: Boolean;
propertyendByte;
Свойство AlphaBlend указывает, следует ли (значение True) выводить форму в полупрозрачном режиме, а свойство AlphaBlendValue задает степень ее непрозрачности целочисленным значением от 0 (полностью прозрачна) до 255 (полностью непрозрачна).
Атрибуты прозрачности устанавливаются не только для окна, но и для всех элементов управления, которые в нем расположены. Причем при значениях непрозрачности, больших нуля, сохраняется возможность взаимодействия с окном и визуальными компонентами в полном объеме, даже когда окна не видно на экране (например, когда свойство "-имеет значение 1).
Полупрозрачные окна могут быть применены для организации панелей инструментов, сквозь которые видно редактируемые документы.
Также предусмотрена возможность полной прозрачности точек формы, имеющих один цвет, задаваемый свойством TransparentColorValue:
property
Все точки формы, которые имеют заданный этим свойством цвет, могут быть полностью прозрачны, причем не только визуально, но также и для событий, связанных с манипуляциями мышью. Для включения такого поведения окна предназначено свойство TransparentColor:
propertyi : Boolean;
На рис. 18.9 показано окно, в котором находится визуальный компонент Shape, отображающий эллипс белого цвета. Белый цвет также установлен в > ачес не значения свойства TransparentColorValue формы, а свойству TransparentColor присвоено значение True. При выводе формы над приложением Microsoft Word пользователь имеет возможность видеть часть окна редактора сквозь область компонента, имеющую белый цвет. Также при щелчке мышью в эту область, активным станет приложение MS Word.
Заметим, что подпись формы ■■■. выведенная белым цветом, также
является прозрачной.
Возможность использования «прозрачного цвета» для формы позволяет легко создавать окна приложений непрямоугольной формы. Для этого
■ачные окна могут быть использованы для организации
в котором находится визуальный ко;
Рис. 18.9. Окно с прозрачной областью
следует присвоить одинаковые цвета форме (с помощью свойства Color) и свойству pai t ■ v i . расположив при этом на форме изображение, в котором не используется такой цвет. В результате область, занятая изображением, будет выводиться на экран, а остальная часть окна будет скрыта. При изменениях в изображении, происходящих во время выполнения программы, соответствующим образом будет изменяться форма окна.
И, наконец, отметим, что полупрозрачность формы и полная прозрачность ее цвета не исключают друг друга, что позволяет реализовывать различные графические эффекты, например, плавную потерю видимости окна, имеющего непрямоугольную форму.
Особенности визуальногопроектирования форм
Расположение компонентов на форме
В настоящем разделе мы обсудим некоторые аспекты визуального проектирования форм, предназначенных для работы в условиях размеров, изменяющихся по желанию пользователя. Такие формы наиболее часто используются в приложениях различного рода, поэтому данный вопрос заслуживает внимания.
Организация контейнеров переменного размера.Компонент Splitter
Автоматическое изменение положения и размеров элементов управления формы было рассмотрено ранее. Напомним, что такое поведение визуальных компонентов обеспечивается свойствами Align и Anchors, описанными в классе TControl. Не все визуальные компоненты имеют доступ к данным свойствам, однако все компоненты-контейнеры, а именно их мы и собираемся рассматривать, могут использовать и свойство Align и свойство Anchors.
Размеры контейнеров, расположенных на форме, могут изменяться в соответствии со свойствами Align и Anchors пропорционально изменению размеров формы. Однако такое поведение не всегда оправдано, так как для пользователя может быть более приоритетно увеличение размеров одного контейнера в ущерб другим.
Для добавления в программу такой возможности предусмотрен стандартный компонент Splitter (англ. Splitter — делитель), расположенный на закладке Additional Палитры компонентов. Компонент Splitter яв-
ляется легковесным элементом управления и представляет собой прямоугольную область, залитую сплошным цветом, который задается свойством Color:
property i :
Splitter предназначен для разделения клиентской области окна на две части, представленной двумя компонентами, и работает с компонентами, использующими выравнивание вдоль края своего контейнера с помощью свойства Align.
Splitter должен иметь такое же выравнивание, как у одного из компонентов, в результате чего он располагается вдоль его границы, противоположной, той, по которой он выровнен сам. Например, на рис. 18.10 панель Panell имеет выравнивание по верхнему краю и компонент 1 имеет аналогичное выравнивание.
Во время работы программы пользователь имеет возможность перемещения компонента Splitter в направлении, перпендикулярном стороне, по которой он выровнен. Для расположения, показанного на рис., таким направлением будет вертикальное, то есть делитель можно перемещать вверх и вниз. Одновременно с перемещением компонента Splitter будет изменяться высота панели Panell.
Если с другой стороны компонента Splitter будет присутствовать какой-либо компонент, имеющий аналогичное выравнивание, либо выравнивание по клиентской области .■ - 1 . то его размеры будут изме
няться соответственно перемещению делителя, так как это обусловлено правилами выравнивания компонентов. На рис. 18.11 панель Panell и компонент Splitter имеют выравнивание а панель Рапе12 — выравнивание aiciient. При перемещении делителя вниз размер верхней панели увеличивается, а нижней, соответственно, уменьшается.
При последующих изменениях размеров формы будут изменяться размеры нижней панели, так как именно она выравнивается по клиентской области окна, а выравнивание Panell подразумевает неизменность высоты.
Рис. 18 10. Использование компонента Splitter
^dQiJSJ
р«п
Ре^2
Рис. 18.11 Изменение размеров панелей с помощью компонента Splitter
Дополнительные свойства компонента Splitter определяют методы изменения размеров зависимых компонентов. Свойство Resize Style определяет, в какой момент должно происходить обновление размеров контейнеров:
property ResizeStyle:.
Данное свойство может иметь следующие значения:
Li !— запрещает перемещение делителя.
rsLine и rsPattern — разрешают перемещение делителя. Размеры компонентов обновляются после отпускания пользователем кнопки мыши. Разница между этими двумя значениями состоит во внешнем виде делителя во время его перемещения.
। траа' — разрешает перемещение делителя. Размеры компонентов обновляются немедленно в процессе перемещения.
Также предусмотрена возможность скрытия одного из зависимых компонентов (первого), если его размеры не превышают значения, задаваемого целочисленным свойством !< г
property:(:}
Необходимость такого поведения определяется логическим свойством Auto Snap:
property AutoSnap: Boolean;
Скрытие одного из взаимозависимых компонентов можно применять для форм, организованных по принципу «Список — подробности», для поочередного скрытия либо списка, представленного обычно в табличной форме, либо детальной информации, представленной набором параметров, в зависимости от того, какая часть окна более необходима пользователю в данный момент.
Открепление элементов управления
Механизм открепления элементов управления позволяет автоматически создать инструментальное окно (окно, имеющее стиль рамки ;7), перемещаемое по экрану, и содержащее элемент управ
ления, который во время визуальной разработки приложения находился на форме. Открепление является частью технологии Drag-And-Drop (от англ. Drag And Drop — Перетащить и бросить) и имеет название Drag \ d Dot Г (от англ. Drag And Dock — Перетащить и прикрепить).
Все действия, необходимые для поддержки открепления, поддерживаются компонентами автоматически. Включение данной возможности производится с помощью установки значения dmAutomatic свойству - . /' (от англ. Drag Mode — Режим перетаскивания):
property DragMode:■' i :
Второе возможное значение данного свойства — dmManual (установлено по умолчанию) — запрещает автоматическое открепление компонента от своего контейнера.
По умолчанию компоненты находятся не в режиме Drag And-Dock, а в режиме Drag-And-Drop, что определяется свойством DragKind:
property DragKind:
Данное свойство может иметь одно из двух значений:
.— перетаскиваемый компонент участвует в операции Drag-
And-Drop (установлено по умолчанию).
■ - — перетаскиваемый компонент участвует в операции Drag-
And-Dock.
Итак, для того, чтобы пользователь мог открепить элемент управления от его контейнера, следует установить свойству DragMode значение dmAutomatic, а свойству DragKind — значение dkDock. После открепления компонента для него создается отдельное окно, которое всегда находится выше главного окна программы и его дочерних окон. При этом инструментальные окна могут покидать пределы главного окна программы, даже если интерфейс приложения организован в MD1-стиле.
Пользователь имеет возможность вставить открепленный компонент обратно в контейнер, либо в какой-либо другой контейнер этого же приложения. Контейнер может принять открепленный компонент, если для его свойства DockSite (от англ. Dock Site — Место для прикрепления) установлено значение True:
property DockSite: ._;
В качестве примера открепления элементов управления модифицируем приложение — текстовый редактор, разработанное при обсуждении ви-
цалы ых компонентов. Назначим подпанелям, входящим в панель управления, характеристики, позволяющие откреплять их от родительской панели (DragMode = ; = dkDock), а самой панели инструментов установим значение True для свойства DockSite, чтобы открепленные элементы управления можно было прикрепить обратно.
Результат работы пользователя с модифицированной программой показан на рис. 18.12. Пользователь открепил панели управления характеристиками шрифта и отмены, и переместил их в другое место. При этом панель управления шрифтом частично покинула пределы родительского окна. Панель инструментов уменьшилась в соответствии с текущим содержанием.
Рис. 18.12. Открепление подпанелей панели инструментовРис. 18.12. Открепление подпанелей панели инструментов
Рис. 18.12. Открепление подпанелей панели инструментов
Рис. 18.12. Открепление подпанелей панели инструментов
При попытке размещения какой-либо из открепленных панелей над панелью инструментов размещаемая панель будет автоматически к ней прикреплена.
Для контроля за открепленными компонентами предусмотрено несколько событий, которые могут быть обработаны обычным образом. Их рассмотрение не имеет смысла в связи с узкой применяемостью.
Использование фреймов
На разных формах одного приложения могут использоваться одинаковые группы элементов управления. Для копирования такой группы можно воспользоваться буфером обмена с помощью команд главного меню среды разработчика Edit->Copy и Edit->Paste. Однако при дальнейших изменениях группы компонентов данную операцию придется повторить снова. Тем более, что при копировании информации таким образом не исключены ошибки вследствие неправильного выбора копируемых компонентов.
Delphi имеет возможность автоматизации использования одинаковых групп компонентов для решения как задачи копирования, так и возможности совместного изменения нескольких копий группы компонентов. Для этого предназначены специальные структуры времени построения и выполнения программы — фреймы (англ. Frame — фрейм — охватывающий, система).
Понятие фрейма
Фрейм является визуальным компонентом и наследуется от класса Т / :(см. рис. 18.13), также, как и формы, что обеспечивает ос
новы его поведения. Фрейм реализован классом ТFrame
Фрейм представляет собой контейнер, аналогичный в процессе разработки форме, однако его экземпляр не может быть создан в программе вне контекста формы или какого-либо другого контейнера. Для фрейма, так же, как и для формы создается модуль и файл описания. Так же^как и форма, фрейм, реализованный классом TFrame, не имеет смысла, а в процессе визуальной разработки формируется новый класс, который является его наследником:
' '=;1 // Новый класс — наследник TFrame
.TButton;
11: TButton;
TButton;
private
Private dll^^Wions } public
{ Public declarations } end;
Фрейм является частью проекта Delphi и может быть размещен на любой форме этого проекта.
Рис. 18.13. Положение класса TFrame в иерархии компонентов Delphi
Создание фрейма
Для создания фрейма следует выбрать пункт главного меню среды разработчика File->New >Frame. после чего на экране появится форма, на которую можно добавлять элементы управления, настраивать их характеристики с помощью инспектора объектов, а также реализовывать обработчики собьи ий добавленных на фрейм компонентов.
При этом доступны все возможности, аналогичные используемым при работе с формами. Ссылки на компоненты, добавленные к фрейму, заносятся в описание класса фрейма (см. пример выше), а обработчики событий реализуются в виде методов фрейма.
Добавление фрейма на форму
После создания фрейма его можно расположить в любом контейнере, например, на форме, или в панели, принадлежащей какой-либо форме. Сделать это можно, выбрав на закладке standard Палитры компонентов иконку ~ . и расположив новый экземпляр фрейма в нужном месте, как обычный компонент. При этом на экран будет выведен диалог со списком фреймов, доступных проекту, в котором следует выбрать тот фрейм, экземпляр которого необходимо добавить на форму.
Ссылка на фрейм будет добавлена в описательную часть класса формы, и с помощью нее можно получить доступ к компонентам фрейма.
procedure TForml.ButtonlClick(Sender: TObject);
। . i . i нажатия на кнопку Buttonl ; v begin
Frame21.Labe 11.Caption := 'Нажата кнопкаC;
:к свойству Caption метки Labell
фрейма me (экземпляра фрейма .. I }
end;
Связи экземпляров фреймов
Экземпляр фрейма имеет связь со своим классом по свойствам и событиям компонентов, расположенных на фрейме. Изменения в классе фрейма немедленно отражаются на всех его экземплярах, если соответствующие свойства не были изменены в экземпляре фрейма после его добавления на форму.
Это правило касается каждого свойства в отдельности. Допустим, в проекте создан фрейм, содержащий панель с некоторыми координатами и каким-либо заголовком. При создании экземпляра фрейма на форме данный экземпляр будет реагировать на любые изменения в его классе. Если
изменить положение панели в описании фрейма, то положение изменится и в его экземпляре, расположенном на форме. Если теперь изменить положение панели в экземпляре фрейма, то изменения координат панели в классе фрейма больше не будут влиять на состояние экземпляра. Однако изменение заголовка панели в описании фрейма вызовет соответствующее изменение заголовка в его экземпляре.
Механизм обработки событий также подчиняется приведенному правилу. Обработчик события, созданный в экземпляре фрейма подменяет обработчик самого фрейма, если такой существует. При созданиЬ обработчика события Delphi автоматически формирует вызов обработчика, реализованного в классе фрейма, например:
procedure TForml.Frame31ButtonlClick(Sender: TObject);
begin
Frame31.ButtonlClick(Sender);
end;
Как видно из обработчика события, данный обработчик является методом формы Formi, вызывается при нажатии (click) кнопки Buttonl, принадлежащей экземпляру г - . фрейма 7 шеЗ, и внутри обработчика вызывается обработчик, реализованный во фрейме. Обработчику фрейма пересылается источник возникшего сообщения.
Депозитарий форм
Фреймы удобны для использования логически законченной группы элементов управления внутри одного проекта, тогда как иногда бывает необходимо использовать целую форму в нескольких разных проектах. Если использование нескольких одинаковых форм в одном i роек re можно реализовать с помощью их динамического создания, то разделение форм между проектами крайне неудобно. Для автоматизации использования нескольких копий формы одного класса в разных проектах в Delphi предусмотрен депозитарий форм.
Добавление формы в депозитарий
Для добавления готовой формы в депозитарий следует воспользоваться пунктом главного меню среды разработчика Project->Add to Repository, в результате выбора которого на экране будет отображен диалог, показанный на рис. 18.14.
Данный диалог вызывается для текущей формы и предназначен для ввода характеристик, идентифицирующих форму в депозитарии. Форма будет отображена иконкой, выбранной с помощью кнопки Browse (на рисунке не видна, так как скрыта выпадающим списком). Страница депозитария, на которой будет располагаться форма, задается в выпадающем спис-
Рис. 18.14. Диалог добавления формы в депозитарий
ке Page. Заголовок Title, описание формы (примечание) Description и указание автора формы Author используются для получения информации о форме при выборе ее в депозитарии.
Построение формы на основе хранимой в депозитарии
Для добавления в проект формы, хранимой в депозитарии, следует выбрать пункт главного меню среды разработчика File->New->Other. и в появившемся диалоге открыть страницу депозитария, на которой расположена искомая форма (см. рис. 18.15).
Рис. 18.15. Депозитарий
Для добавления формы в проект следует выбрать ее иконку и нажать кнопку Ок, предварительно установив переключатель «Сору-:по t -, распо
ложенный в нижней части диалогового окна, в необходимое положение.
Данный переключатель определяет степень связи формы в проекте с ее шаблоном, хранящимся в депозитарии:
Сору (копирование). При таком положении переключателя форма из депозитария копируется в проект, и связи между ними не устанавливаются. Изменения формы в депозитарии не влияют на форму проекта, а изменение формы в проекте не изменяет форму депозитария.
Inherit (наследование). Форма из депозитария копируется в проект, и между ними устанавливается односторонняя связь. Изменение формы в депозитарии влияет на форму проекта, но изменение формы в проекте не изменяет форму депозитария.
Use (использование). Форма из депозитария копируется в проект, и между ними устанавливается двухсторонняя связь. Изменение формы в депозитарии влияет на форму проекта, и изменение формы в проекте влияет на форму, хранимую в депозитарии что сказывается на всех формах во всех проектах, которые используют данную форму не в режиме Сору.
Вопросы с ответами для повторения по главе 18
@ Поясните понятие формы и основы использования форм в Delphi
Ответ: Форма является визуальным контейнерным компонентом Delphi, предназначенным для самостоятельного использования в виде отдельного окна на экране.
Форма является элементом проекта и для нее создается два файла:
Модуль формы, содержащий описание класса формы, в виде модуля (Unit) приложения.
Файл описания формы на языке XML, содержащий описание компонентов, добавленных на форму в процессе ее визуальной разработки.
Формы реализованы классом TForm, но он не используется в программных продуктах в явном виде. Вместо этого при добавлении формы в проект создается класс-наследник формы, в который в процессе визуальной разработки автоматически добавляются ссылки на компоненты формы и методы, которые являются обработчиками событий формы и ее компонентов.
Формы также часто используются в качестве носителей функциональности программного продукта, то есть в них размещается программный код, связанный с работой не только данной формы, но и всего программного приложения в целом.
Опишите жизненный цикл формы
Ответ: Форма является экземпляром класса TForm, поэтому ее жизненный цикл во многом аналогичен жизненному циклу обычного объекта. Форма создается конструктором Create или методом CreateForm глобального объекта Application (более предпочтительный способ).
Далее, форма может быть отображена на экране с помощью метода show (немодальное отображение) илиi •. (модальный режим).
Временное скрытие формы осуществляется методом Hide, либо установкой свойству Visible значения False.
Для формы введено понятие «закрытия». Закрытие формы производится методом Close, во время которого форма может быть либо скрыта методом Hide, либо разрушена. Способ закрытия формы определяется обработчиком события OnClose, вызываемом перед выполнением Close.
Разрушение формы производится методом Release, который помимо очистки памяти, занятой под структуры формы, ждет завершения очереди сообщений и обработчиков событий зависимых компонентов, что обеспечивает корректное закрытие формы без ошибок нарушения доступа к памяти.
Расскажите об основах организации многооконных приложений в Delphi
Ответ: Для создания многооконного приложения в Delphi следует добавить одну или более дополнительных форм в проект и отобразить их во время выполнения программы. Все формы такого приложения будут иметь возможность независимо друг от друга перемещаться по экрану. Организация многооконного интерфейса в таком стиле носит название SDI — Single Document Interface — Интерфейс одного документа. При закрытии формы, которая указана в качестве главной в диалоге Project Options интегрированной среды разработчика, будут автоматически закрыты все формы приложения.
Второй подход к организации многооконных приложений называется М DI — Mu t Document Interface — Интерфейс нескольких документов. Окна такого приложения визуально принадлежат главному окну, имеющему стиль fsMDt устанавливаемый свойством Остальные формы имеют стиль fsMI I Дочерние окна не могут выходить за пределы главного окна, за исключением инструментальных окон, автоматически создаваемых при откреплении элементов управления от форм.
Приложения, организованные в соответствии с концепцией SDI, могут содержать окна со стилем fsStayOnTop, которые всегда находятся выше остальных окон.
Поясните понятие фрейма
Ответ: Фреймом называется специальный элемент проекта Delphi, представляющий собой контейнерный компонент-наследник TFrame, в который, аналогично формам, можно добавлять компоненты. Экземпляр фрейма может быть создан во время визуального проектирования приложения с
помощью Палитры компонентов, либо во время выполнения программы.
При использовании фреймов создаются не экземпляры класса , а экземпляры наследников этого класса, которые подготавливаются с помощью визуального построителя среды разработчика. Таким образом, технология использования фреймов в этом смысле аналогична использованию форм.
Экземпляры фреймов поддерживают связь со своими классами по значениям свойств и методам-обработчикам сообщений. При изменении значения какого-либо свойства в описании фрейма, это изменение отразится на экземплярах фрейма, расположенных в формах или других контейнерах. Связь между экземпляром класса и его описанием по какому-либо свойству нарушается, если значение этого свойства изменено в экземпляре фрейма.
Расскажите о депозитарии форм
Ответ: Депозитарий форм предназначен для обмена формами между проектами с возможностью сохранения связей между ними, аналогично тому, как это реализовано для фреймов. В депозитарий можно добавить любую форму из любого проекта, а затем скопировать ее в этот же или другой проект.
При копировании формы из депозитария можно задать вариант наследования свойств: простое копирование без возможности наследования, копирование с поддержкой изменений формы депозитария, копирование с сохранением двухсторонней связи, то есть с возможностью изменить форму депозитария, изменяя форму-копию в проекте.
ЧАСТЬ VЧАСТЬ VВЗАИМОДЕЙСТВИЕ ПРИЛОЖЕНИЯ С ОПЕРАЦИОННОЙ СИСТЕМОЙ
ЧАСТЬ V
ЧАСТЬ V
ГИБКОЕ УПРАВЛЕНИЕ
I ОКРУЖЕНИЕМ
20ВЫВОД ИНФОРМАЦИИ ЗА ПРЕДЕЛЫ
ПРОГРАММЫ. ТЕХНОЛОГИЯ СОМ
УПРАВЛЕНИЕ ВЫПОЛНЕНИЕМ ПРИЛОЖЕНИЯ
ОСНОВЫ DELPHI.
Профессиональный подход
7\а6д 19
Гибкое управление окружением
.Введение
Программа, выполняемая в операционной среде Windows, тесно взаимодействует с ней через вызов API-функций для реализации собственной функциональности. Характеристики, используемые системой пользователя, могут отличаться от тех, которые были установлены при разработке приложения, что вы ^ывасч непредвиденные эффекты поведения программы.
Настройки различных аспектов операционной системы описывают понятием окружения программы, которое имеет следующие группы характеристик:
♦ характеристики самого приложения, построенные на некоторых настройках операционной системы;
, ♦ характеристики экрана, установленные пользователем;
• параметры мыши;
» параметры принтера.
Для перечисленных групп параметров окружения программы в Delphi реализованы классы, предоставляющие интерфейс к ним. Так, для работы с настройками приложения предусмотрен класс TApplication, а для доступа к характеристикам экрана и мыши — классы TScreen и TMouse.
Поскольку в системе в каждый момент времени работы программы может использоваться только одна мышь и один экран, то на старте программы автоматически создаются экземпляры классов TMouse и TScreen — объекты Mouse и Screen. Также программа имеет доступ к автоматически создаваемому экземпляру класса TApplication по ссылке Application. Описанные объекты доступны в любом фрагменте програм-
ме, создаются автоматически, и могут существовать только в единственном экземпляре, поэтому их называют глобальными объектами или глобальными переменными.
Все, что необходимо сделать фрагменту программы для доступа к глобальным переменным — подключить модули, в которых эти переменные описаны (модуль Forms для доступа к Application и Screen, и модуль Controls для доступа к Mouse). В модулях форм, создаваемых визуальным построителем, все эти модули подключаются автоматически.
Глобальная переменная Application
Глобальный объект Application содержит некоторые характеристики приложения, применяемые во всех его частях, и позволяет изменять некоторые из них. Данный объект интенсивно используется в основной части Delphi-программы, в частности, для создания форм приложения, указанных в списке Auto-create Forms диалога Project Options.
Далее рассмотрены основные возможности объекта Application.
Управление быстрыми подсказками
Для быстрых подсказок, всплывающих при наведении курсора мыши на
можно ус-можно ус-всплытиявсплытияShowHint.ShowHint.элемент управления, с помощью свойств объекта Application тановить такие характеристики, как:
можно ус-
можно ус-
всплытия
всплытия
ShowHint.
ShowHint.
• цвет фона подсказки - свойство Hintcolor;
♦ время от наведения мыши на элемент управления до подсказки — свойство Hint Pause;
» длительность подсказки — свойство Hint Hide Pause;
* возможность отображения подсказок вообще — свойство
Описаны эти свойства следующим образом:
property property property propertyproperty property property propertyHintColor:;
property property property property
property property property property
HintPause: Integer;
I: Integer;
ShowHint: Boolean;
Все перечисленные параметры подсказок влияют на все подсказки приложения и могут изменяться в процессе выполнения программы. Время присутствия подсказок на экране и время до их появления указывается в миллисекундах.
Если по какой-либо причине следует прекратить демонстрацию подсказки, выведенной в данный момент, можно воспользоваться методом CancelHint
procedure CancelHint;
Взаимодействие с пользователем через простейшие диалоги
Большинство диалогов с пользователем в программных продуктах строится по принципу «Вопрос — ответ», когда на экран выводится некоторое сообщение, а пользователь должен отреагировать на него,, выбрав нужный вариант ответа с помощью одной из кнопок диалога. Набор вариантов ответа также достаточно ограничен и практически одинаков для приложений различной направленности.
Для реализации подобных диалогов в объекте Application предусмотрен метод 1. описанный следующим образом:
function(const Text, Caption:
; Longint =j Integer;
Диалоговое окно, выводимое на экран при выборе данной команды, имеет заголовок, указанный в качестве параметра Caption и текст вопроса, заданный параметром Text. Параметр Flags определяет состав кнопок диалога для выбора пользователем ответа и может иметь одно из значений, перечисленных в табл. 19 I
Флаги наличия кнопок в диалоге MessageBoxТаблица 19.1
Значение
Набор кнопок
MBABORTRETRYIGNORE
At II I «Retry», и 1 i ' *
МВ ОК
«ОК» (такое значение имеет параметр по уюлчанию)
MBOKCANCEL
•ОК и «Cancel»
MBRETRYCANCEL
«Retry" и «Cancel»
MB.YESNO
«Yes" и «No»
MB YESNOCANCEL
«Yes», «No», и «Cancel»
Диалог MessageBox является модальным и приостанавливает выполнение фрагмента программы, из которого он вызван. Значение, возвращаемое функцией MessageBox, определяет, какая кнопка нажата пользователем для закрытия диалога (см. табл. 19.2).
Таблица 19.2
Значения, возвращаемые функцией MessageBox
Значение функции
Нажатая кнопка
IDOK
«ок»
IDCANCEL
«Cancel»
IDABORT
«Abort
IDRETRY
«Retry»
IDIGNORE
«Ignore»
IDYES
«Yes»
IDNO
«No»
Константы, представленные в обеих таблицах, описаны в стандартном модуле Windows.
Для отображения диалога, представленного на рис. 19.1, следует вызвать функцию MessageBox следующим образом:
Application.MessageBoxt'Файл не перемещен, повторить операцию?', ’ ....: 1 перемещения ?айлс ! ’ ,
МВ. .
Если ответ пользователя имеет значение, то следует сохранить значение, которое вернула функция MessageBox и проанализировать его с помощью констант, представленных в табл.
Рис. 19.1 Диалог MessageBox
Идентификация приложения в системе
В каждый момент времени системой может выно шиться несколько приложений, одно из которых активно. Пользователь имеет возможность переключаться между приложениями с помощью комбинации клавиш Alt-Tab или через Панель задач. При этом пользователь ориентируется на название программы и иконку, которая ей сопоставлена. Для этих двух атрибутов приложения предусмотрены свойства Title и г объекта Application:
property Title: string;
property Icon:;
Свойства Title и доступны во время выполнения программы и при их изменении сразу же обновляются соответствующие атрибуты приложения. Таким образом, с помощью этих свойств можно организовать простейшую анимацию значка приложения и, например, прокрутку названия приложения. Изменения свойств можно произвести в обработчике события OnTimer компонента Timer:
procedure TForml.TimerlTimer(Sender: TObject);
begin
Application.Title := AnsiMidStr(Application.Title, 2,
Length(Application.Title) - 1)
+ Application.Title[1];
В приведенном обработчике в свойство Title объекта Application заносится его же значение, начиная со второго символа, с помощью функции AnsiMidStr модуля StrUtils:
function A i I (const AText: AnsiString;
const AStart, ACount: Integer
) : AnsiString;
Далее, в конец строки добавляется первый символ предыдущего значения свойства Title с помощью доступа к данному свойству через индекс:
Application.Title[1]
Таким образом, название приложения в панели задач Windows будет циклически прокручиваться влево.
Информация об исполняемом файле
Для определения каталога, из которого запущена программа, и имени исполняемого файла приложения, в объекте Application предусмотрено свойство ExeNar е, содержащее полное имя файла, с помощью которого запущена программа:
property ExeName: string;
Поскольку разбор такой строки может представлять некоторые трудности, в Delphi реализовано множество функций, упрощающих работу с именами файлов. Так, функции ExtractFilePath и ExtractFileName, описанные в модуле SysUtils, возвращают строки, содержащие соответственно, путь к файлу и его имя на основе полного имени:
function ExtractFileName(const FileName: string): string;
function ExtractFilePath(const FileName: string): string;
Определение названия исполняемого файла может использоваться при построении защиты программы для запрета выполнения приложения, запущенного из ехс файла с измененным именем. Такая проверка может быть вставлена в модуль проекта после вызова метода initialize объекта Ас с :1 э.-., но до создания форм приложения. Также следует добавить
ссылку на модуль SysUtils, в котором описана функция ExtractFileName в список подключаемых модулей. Код модуля приведен в листинге 19 1.
Листинг 19 1 Обработка информации об исполняемом файле
program г;
uses
Forms,
Unitl in 'Unitl.pas' (Formi},
SysUtils; // Ссылка на модуль добавлена разработчиком
($R *.res)
begin
Application.Initialize;
// Проверка названия файла, из которого запущено приложение if ExtractFileName(Application.ExeName) О
'AMTAutomate exe' Then
begin
Application.MessageBox('Изменено название приложения.
Продолжение работы невозможно', 'Ошибка в системе защиты') .
Application.Terminate;
end;
Application.CreateForm (TForml, Formi);
Application.Run;
end,
В случае запуска такой программы из файла, название которого отлично от \М I Automate.exe», на экран будет выведен диалог MessageBox с предупреждением о невозможности продолжения работы. Появление диалога приостановит работы программы до нажатия пользователем на кнопку 0k диалога, после чего будет вызван метод; объекта
Application, и приложение завершится.
Управление состоянием приложения
С помощью методов объекта Application можно изменить остояние приложения, например, свернуть его и сделать неактивным (метод Minimize), развернуть и сделать активным (метод Restore), переместить выше относительно других окон (метод ;). а также закрыть прило
жение (метод Terminate, использованный в примере выше):
procedure Minimize;
procedure;
procedure: I
procedure Terminate;
Особенности обработки событий в Windows и Delphi
Обработка сообщений в Delphi-программах устроена таким образом, что до завершения обработки какого-либо события разбор очереди сообщений прекращается. При этом подавляющее большинство методов, которые работают в приложении, являются обработчиками событий.
С другой стороны, изменение свойств компонентов часто бывает построено на использовании сообщений, например, изменение положения элемента управления выполняется не прямо, а уведомлением его об изменении через очередь сообщений.
Таким образом, многократное изменение свойства компонента внутри одного метода, который является обработчиком события, может не иметь смысла. Обусловлено это тем, что до завершения данного метода компонент не сможет получить доступ к очереди сообщений и отреагировать на изменение значения свойства.
Рассмотрим пример, в котором обработчик сообщения Onclick кнопки изменяет подпись на текстовой метке Labell в цикле 100000 раз:
procedure.::• .
Var
Integer;
begin
For i := 0 To 100000 Do
Labell.Caption := IntToStr (i) ;
end;
При нажатии на кнопку в такой программе будет вызван обработчик нажатия ButtonlClick, который приостанови! нормальное выполнение программы на некоторое время, так как внутри него выполняется длительная операция -- многошаговый цикл. При этом подпись на метке Labell изменяться в процессе выполнения обработчика не б уде! . а после его завершения примет последнее установленное значение (‘100000’).
Вообще, такой организации программы следует избегать, гак как во время выполнения длительной процедуры невозможно не только обновление подписи на метке, но и манипуляции с окном, например, его перемещение.
Частично решить проблему длительных обработчиков позволяет метод ProcessMessages объекта Application, прерывающий на время выполнение текущего обработчика, и позволяющий разобрать очередь сообщений. После того, как в очереди не останется сообщений, управление снова вернется в прерванный обработчик.
procedure;;
На самом деле, значение свойства Caption будет изменяться, так как сообщение об изменении подписи посылается в обход очереди сообщений Windows с помощью команды Perform. Однако для отображения измененной подписи форма должна обработать сообщение WN1 PAINT о перерисовке окна (этому сообщению соответствует событие OnPaint формы), а это может произойти только после завершения обработчика нажатия на кнопку.
Исправленный обработчик будет выглядеть следующим образом:
procedure TForml.ButtonlClick(Sender: TObject);
Var
Integer;
begin
For i := 0 To 100000 Do
begin
Labell.Caption : = IntToStr(i);
Application.ProcessMessages;
end;
end;
При вызове метода ProcessMessages выполнение обработчика будет приостановлено до полного разбора очереди сообщений, что обеспечит корректную перерисовку компонента Labell. Заметим, что если во время выполнения такого обработчика пользователь нажал на кнопку ■ .
еще раз, то будет выполнен сначала обработчик второго нажатия, затем управление вернется к обработке первого нажатия7’.
Однако при использовании второго варианта обработчика в приложении также присутствует один недостаток, который заключается в том, что форма не сможет быть закрыта до завершения всех обработчиков. Более того, даже после нажатия на системную кнопку ‘ Закрыть' в правой части заголовка окна, приложение может работать сколь угодно долго, если пользователь периодически нажимает на кнопку, запускающую снова длительный обработчик. Это происходит несмотря на то, что событие закрытия стоит в очереди раньше, чем очередные нажатия на кнопку.
Такое поведение программы связано с функциональностью метода Release, используемого для разрушения формы, и ожидающего завершения очереди сообщений. Пока пользователь поддерживает наличие сообщений в очереди, метод Release не сможет разрушить форму, и приложение не завершится.
Описанный недостаток можно исправить, воспользовавшись логической переменной, описанной в классе, и устанавливаемой в значение True при вызове обработчика события OnClose. Обработчик события Onclick, в свою очередь, должен проверять состояние данного флага, и в случае обнаружения значения True прерывать свою работу:
Таким образом, ме об[ |ботчики событий в Delphi являются реентерабельными, что следует учитывать при разработке приложений. Если обработчик должен выполняться последовательно, а именно это обычно и требуется, в его начале можно запретить взаимодействие пользователя с элементом управления, который вызывает обработчик. После завершения обработчика состояние Мемента управления можно восстановить, если это требуется.
TForml = class(TForm)
private
CloseFlag: Boolean; // описани4*ременно|, которая // может использоваться во всех // методах формы end;
procedure TForml.ButtonlClick(Sender: TObject);
Var
Integer;
begin
For i := 0 To 10000 Do begin
Labell.Caption := IntToStr(i);
Application.ProcessMessages;
If CloseFlag Then Exit; // Проверка состояния флага и end;
end;
procedure TForml.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFlag := True; // Взводим флафй end;
Распределение вычислительной нагрузки на приложение
Несмотря на то, что проблемы длительных обработчиков решаются тем или иным способом, такая организация программы крайне не рекомендуется. Для реализации длительных вычислений в операционной системе предусмотрены различные механизмы, одним из которых является обработка события Onldle, описанного в классе д .'■
property Onldle: TIdleEvent;
Type
TIdleEvent = procedure ( i : TObject;
var Done: Boolean) of object;
Событие Onldle возникает всегда, когда приложение не выполняет какой-либо фрагмент кода. Таким образом, обработчик данного события выполняется в так называемом фоновом режиме и не снижает производительность основного приложения.
Так как событие описано не в классе формы или какого-либо другого компонента, участвующего в процессе визуальной разработки, обработчик события г i 1 устанавливается во время выполнения программы. Для таких действий подходит любое место программы, например, обработчик события OnCreate формы, в котором данный обработчик реализован (обычно для этого используется главная форма, как первая из создаваемых):
ТForMl = class(TForm)
procedure FormCreate(Sender: TObject);
private
(метода-обработчика, добавлен
Procedure GlobalOnldle(Sender: TObject;
var Done-. Boolean) .
end;
(Обработчик события формы OnCreate, создан визуальным построителем)
procedure TForml.FormCreate(Sender: TObject); begin
Application.Onldle := GlobalOnldle; ■ обработчика ! end;
(Обработчик события приложения Onidle, создан разработчиком)
Procedure TForml.GlobalOnldle(Sender: TObject;
var Done: Boolean); begin
end;
С момента назначения обработчика событиюданный обработ
чик будет вызываться с некоторой периодичностью, в зависимости от общей нагрузки на приложение и систему в целом. Например, при перемещении формы по экрану Odd не происходит.
Обратим внимание на параметр Done обработчика, который указывает системе^ завершены ли действия, которые следует выполнить в фоновом режиме. Значение, которое содержится в данном параметре после завершения обработчика, в существенной мере определяет интервал времени, который пройдет до следующего вызова обработчика. Также, значение
параметра Done определяет, следует ли инициировать событие : г когда приложение неактивно.
Таким образом, если обработчик события ■ ■ заносит в параметр Done значение True, то следующий вызов обработчика происходит через некоторое время (порядка половины секунды), а, если приложение неактивно, то не происходит вообще. Если же параметр имеет значение False, то обработчик будет вызван и для неактивного приложения с частотой порядка пятьсот раз в секунду 1
Событие Onldle ничем не отличается от других событий в Windows. В частности, сообщение о данном событии приходит в приложение через очередь сообщений, и следующее сообщение очереди будет обработано только после завершения обработчика Onldle. В результате обработчики таких сообщений должны следовать обычным правилам реализации, а именно, не использовать длительных циклов, приостанавливающих обработку очереди сообщений.
Распространенным подходом к снижению вычислительной нагрузки в методах-обработчиках Onldle является разбиение долговременных операций на несколько шагов. Выполнение одного такого шага происходит при обработке одного события Onldle.
Допустим, имеется обработчик следующего вида:
Procedure TForml.GlobalOnldle(Sender: TObject; var :. ‘.,
Var
Integer;
begin
for i := 0 To 100000 do
Labell.Caption : = IntToStr ( i);
end;
Такой обработчик приостанавливает разбор очереди сообщений и делает пользовательский интерфейс крайне неудобным для работы. Одним логическим шагом данной । inie шюй процедуры является установка свойства Caption компонента Labell:
:= IntToStr (г) ;
Для правильной организации обработчика следует модифицировать программу, убрав из нее использование цикла. Для этого вынесем описание переменной i из обработчика в описание класса формы, и реализуем обработчик следующим образом:
74 Следует отметить, что эти значения могут существенно отличаться в зависимости от различных условий, причем необходимость вызова обработчика для неактивного приложения также определяется системой.
Procedure TForml .Global On I die (Sender: TObject;
var Done: Boolean);
begin
Labell.Caption := IntToStr(i);
i := i + 1;
if, i > 100000 then i := 0; end;
В результате предложенного подхода длительные вычисления в программе управляются системой автоматически и распределяются по отрезкам времени наименьшей нагрузки на систему.
Для увеличения частоты вызовов обработчика, если это допустимо с точки зрения системы, можно установить параметру Done значение False, указывающее на незавершенность длительной операции:
Procedure TForml . G1 obalOnldle (Sender : TObject;
var Done: I ■■ ■:
begin
Labell.Caption := IntToStr(i);
i : = i + 1 ;
if i > 100000 then i := 0;
Done := False;// "Операция не завершена"
end;
Событие необработанного исключения
Если в каком-либо фрагменте программы возникает исключение, система пытается найти обработчик данного класса исключений в этом фрагменте, либо в вызывающих его фрагментах вверх по стеку вызовов подпрограмм. Если исключение не обработано ни в одной из этих подпрограмм, то сообщение о нем выдается пользователю.
С помощью объекта Application можно изменить поведение программы, обработав событие OnException:
property OnException: TExcept i г ■ t ;
Процедурный тип, определяющий сигнатуру обработчика события OnException, описан следующим образом:
Туре
TExceptipnEvent = procedure (Sender: TObject;
E: Exception) of object;
Как видно из описания, обработчику передается ссылка на объект, в котором произошло исключение, и ссылка на объект исключения. Если
обработчик события OnException назначен, то сообщение пользователю не выдается, а действия, выполняемые при появлении «не пойманного» исключения, определяются самим обработчиком.
После завершения обработчика объект исключения автоматически разрушается.
Глобальная переменная Screen
Переменная Screen является экземпляром класса TScreen, создается при старте приложения и содержит информацию о следующих параметрах окружения:
оконная структура приложения (количество форм, отображенных на экране, и ссылки на них);
ссылка на активную форму и компонент, имеющий фокус ввода в данный момент времени выполнения программы;
размеры экрана и его цветность;
набор курсоров и шрифтов, доступных в системе;
список мониторов, используемых в системе, и их характеристики.
Мы не будем подробно останавливаться на данном объекте, а рассмотрим основную возможность, предоставляемую приложению — возможность определения размеров экрана для более эффективного управления размером окон приложения и их расположением.
Характеристики экрана представлены свойствами width и Height, определяющими, соответственно ширину и высоту экрана. Данные свойства являются целочисленными и доступны только для чтения, как и большинство свойств объекта Screen. Таким образом, управление экраном с помощью данного объекта производить невозможно.
property Width: Integer;
property Height: Integer;
Заметим, что рабочий стол Windows может быть больше размеров экрана, однако в свойствах Width и Height содержатся именно размеры рабочего стола. Приложение не может получить доступ к размерам экрана, и в этом нет необходимости.
Также в объекте Screen нет возможности получения цветности экрана, однако операционная система автоматически преобразует цвета, указанные программой, под любую цветность, заданную в системе, поэтому в определении этой характеристики также нет необходимости.
Параметры представления рабочего стола, на котором выполняются приложения в Windows, устанавливаются пользователем, и он сам несет от-
ветственность за некорректные настройки операционной системы, не позволяющие ему воспользоваться всеми возможностями, которые предоставляет программный продукт.
Глобальная переменная Mouse
Глобальный объект Mouse — экземпляр класса— содержит ин
формацию о характеристиках мыши. Рассмотрим основные возможности данного объекта.
Положение указателя мыши на экране
Положение указателя мыши находится в свойстве CursorPos объекта Mouse и доступно как для чтения с целью определения положения, так и для изменения, с целью перемещения указателя в другую точку экрана.
property CursorPos: TPoint;
Для присвоения значения свойству CusorPos можно использовать функцию Point, описанную в модуле Types:
function Point: AY:; ): TPoint;
Для перемещения мыши можно использовать конструкцию такого вида:
Mouse.CursorPos := Point(Random(800) , Random(600));
Захват мыши окном приложения
Окно приложения начинает реагировать на сообщения от мыши, когда указатель находится в пределах его клиентской части. Однако некоторым формам необходимо получать полную информацию о перемещении мыши. Например, выпадающие списки должны иметь возможность определить факт нажатия кнопки мыши за пределами списка, чтобы закрыть свою выпадающую часть.
В любой момент времени выполнения программы можно получить ссылку на окно, монополизирующее получение сообщений мыши, с помощью свойства Capture объекта Mouse:
property:г1 ;
С другой стороны, если в это свойство занести ссылку на какое-либо окно, то все сообщения мыши будут приходить именно в него. Напомним, что ссылка на окно хранится в свойстве Handle каждого оконного (являющегося наследником класса : и г ■1 ) компонента:
Mouse.Capture : = Forml.Handle;
Заметим, что при изменении значения свойства Capture окно, которое монопольно владело мышью, не получает никаких сообщений, что мо-
жет нарушить его нормальную работу. Таким образом, при использовании захвата мыши следует учитывать возможные потребности других окон, или, даже, других приложений. За основное правило можно принять то, что захват мыши возможен в обработчиках событий мыши, так как, возникновение таких событий для какого-либо окна возможно только, если мышь не монополизирована другим окном
Исключением из правила являются события вращения колеса мыши, так как они могут передаваться средствами Delphi в родительские окна без учета свойства Capture. Заметим, что такой подход реализован не только в Delphi. Во многих программных продуктах вращение колеса мыши приводит к прокрутке какой-либо информации в окне, находящемся под выпадающими списками, которые всегда захватывают сообщения мыши.
Настройки колеса мыши
Характеристики прокручивания колеса мыши полезно использовать при организации прикладной программы. Объект Mouse предлагает два свойства, определяющие такие характеристики:
♦ факт наличия колеса мыши вообще - свойство ?:г -..
* количество «строк», прокручиваемых за один шаг колеса — свойство
Описание свойств выглядит следующим образом:
property /.!л: Boolean;
property .Integer;
Скорость вращения колеса WheelscrollLines устанавливается в операционной системе и должна учитываться в прикладных программах для соответствия предпочтениям пользователя.
75 Монополизировать события мыши могут не только программные окна, то есть формы, но и любые оконные компоненты (наследники класса IV.mi untrol)
Тлаба 20 V
Вывод информации за пределы программы, Технология СОМ
В результате работы прикладного программного продукта, рано или поздно, должен появиться какой-либо документ, представленный в некоторой переносимой форме. Наиболее распространенными "документами являются файлы и так называемые «твердые копии», то есть напечатанные документы. В настоящем разделе мы рассмотрим возможности печати в Delphi, а также такой интересный процесс, как передача информации в другие приложения, на примере Microsoft Word и Excel.
Вывод информации на печать
Вывод информации на печатающее устройство производится в Delphi с помощью переменной типа TPrinter (описана в модуле Printers), экземпляр которой можно получить с помощью функции Printer, также описанной в модуле Printers:
function Printer: TPrinter;
Объект, возвращаемый функцией Printer, соответствует текущему принтеру и содержит всю необходимую информацию о его параметрах. Выбор текущего приложения для принтера и его характеристик осуществляется с помощью диалогов настройки печати, описанных выше, при этом в анализе введенной пользователем информации нет необходимости, так как все настройки производятся автоматически.
Если перед получением объекта TPrinter диалоги настройки печати не вызывались, то текущим принтером считается принтер, установленный в системе по умолчанию.
Формирование задания для печати является многошаговым процессом, выполняемым с использованием свойств и методов экземпляра TPrinter, и включающим в себя следующие этапы:
Открытие задания. Новое задание содержит одну страницу, имеющую характеристики (размеры, ориентацию, и т.д.), соответствующие настройкам принтера.
Вывод информации на текущую страницу.
Открытие новой страницы, если это необходимо, и возврат к пункту 2.
Закрытие задания. В этот момент документ будет отправлен на принтер.
На каждом этапе формирования задания программа имеет возможность контролировать процесс печати, а также может прервать формирование задания без передачи его на печатающее устройство, в случае обнаружения, например, каких-либо внутренних ошибок.
Управление структурой документа
Под управлением структурой документа подразумевается создание документа для печати, определение количества страниц в нем, и пересылка документа печатающему устройству.
Для открытия нового задания на печать используется метод BeginDoc без параметров. Если в момент вызова метода BeginDoc задание на печать уже открыто, то возбуждается исключительная ситуация с сообщением "Printing in progress" — "Задание на печать уже открыто".
procedure В д n Do ;
После вызова метода BeginDoc задание на печать сразу же отображается в окне свойств принтера с пометкой «Постановка». После завершения формирования документа следует вызвать метод EndDoc, который запустит процесс печати:
procedure EndDoc;
При вызове метода EndDoc в отсутствие открытого задания возбуждается исключительная ситуация с сообщением "Printer is not currently "Отсутствует задание для печати".
Если формирование очередной страницы закончено, и требуется добавить в документ еще одну страницу, следует вызвать метод NewPage:
procedure- :
Напомним, что после создания документа методом BeginDoc в него автоматически добавляется одна страница.
Для идентификации задания в списке заданий печати Windows используется одна строка, которая хранится в свойстве Title объекта TPrinter:
property Title: string;
Таким образом, формирование структуры задания для печати выглядит как показано в листинге 20 I
Листинг 20.1. Формирование структуры задания для печати
Uses Printers;
(Подключение модуля Printers)
Var
ThePrinter: TPr inter;
(Описание ссылки на экземпляр TPrinter}
ThePrinter := Printer;
(Получение объекта -- текущего принтера}
ThePrinter.Title := ’Печать из Delphi'
, идентифицирующая задание в очереди
ThePrinter.BeginDoc;
(Открытие задания печати)
(Формирование первой страницы)
ThePrinter.NewPage;
.■■ дополнительной страницы
и ее у.■ . Может выпол
няться несколько [
ThePrinter.EndDoc;
-। задания и вывод на
Разрушение экземпляров TPrinter производится системой автоматически и не может быть вызвано приложением. В противном случае, при попытке разрушения возникнет исключительная ситуация нарушения доступа к памяти.
Вывод информации
Формирование каждой страницы печатаемого документа производится с помощью свойства Canvas типа TCanvas:
property Canvas: TCanvas;
В каждый момент времени имеется доступ только к одной странице печатаемого документа, и свойство Canvas отражает именно эту страни- 11 > После добавления очередной страницы доступ к ранее изменяемой невозможен.
Использование свойств типа TCanvas подробно рассмотрено в разделе, посвященном областям отображения. С помощью свойства Canvas можно вывести на печатающее устройство самую разнообразную графическую информацию. Параметры, необходимые для вывода, можно определить с помощью свойств используемого экземпляра TPrinter.
Размеры страницы, на которую выводится изображение, содержатся в свойствах■ и PageHeight, (размеры страницы задаются в точках):
property PageWidth: Integer;
property PageHeight: Integer;
Вообще область отображения представляет ту часть страницы, на которую действительно может быть выведена информация. Соответственно, размеры области существенно зависят не только от выбранного формата носителя, но еще и от характеристик печатающего устройства.
Ориентация страницы (книжная или альбомная) может быть установлена пользователем в диалоге печати, и определена программой с помощью свойства Orientation, аналогичного одноименному свойству диалогов настройки печати. Однако свойства PageWidth и PageHeight учитывают текущую ориентацию, например, при альбомном расположении страницы, ее ширина больше высоты.
Свойство Orientation, таким образом, используется в основном для изменения с целью вывода страницы соответствующим обра юм
property Orientation:1
V
Контроль за процессом формирования документа
Программа, использующая экземпляр класса TPrinter, может:
определить наличие незавершенного задания с помощью свойства Printing;
прервать процесс построения документа вне зависимости от стадии с помощью метода Abort;
определить, является ли задание прерванным пользователем или методом Abort с помощью свойства Aborted.
Описание перечисленных свойств таково:
property Printing: Boolean;
procedure Abort;
property Aborted: Boolean;
Пример вывода информации на принтер
В качестве примера приведем обработчик нажатия на кнопку Button, в котором на принтер выводятся две страницы, каждая из которых обведена рамкой. На первой странице рамка выводится красным цветом, а на втором — синим. Код обработчика приведен в листинге 20.2.
Листинг 20.2. Вывод на печать графической информации
procedure TFonnl.ButtonlClick(Sender: TObject) ;
Var
ThePrinter: TPrlnter; (Описание усылки на объектИ
■'екупвго рию ;
Begin
ThePrinter := Printer; Полученле ссжК &i объе^ текущего принтера)
ThePrinter.Title := 'Печать из Delphi';
। (СтоокаайюйентиФДдс>Д|шаЯ заданий « в очереди заданий)
ThePrinter.BeginDoc; (Открытие задания на печать) ThePrinter.Canvas.Pen.Color ;= clRed;
ThePrinter . Canvas . Pen/Width := 5;
1 -г:.--я цвета толлИИ ОбВОДЦИИ
ThePrinter.Canvas.Rectangle(Rect(0, 0 ,
ThePrinter.PageWidth, ThePrinter.PageHeight )) ; (Вывод рамки)
ThePrinter.NewPage;(Создание новой страницы)
ThePrinter.Canvas.Pen.Color := clBlue;
ThePrinter.Canvas.Pen.Width := 5;l
- .। . - - цвета и толщины 1
ThePrinter.Canvas.Rectangle(Rect(0, 0 ,
ThePrinter.PageWidth, ThePrinter.PageHeight )) ;(Вывод рамки)
ThePrinter.EndDoc;(Закрытие ^дания и отправка
на принтер)
end;
Рамки выводятся таким образом, что охватывают всю область страницы, на которой может быть расположена информация.
Функции печати стандартных компонентов
Некоторые стандартные компоненты поддерживают возможность печати в своей изначальной реализации. Например, компонент RichEdit имеет метод Print, с помощью которого можно напечатать документ, редактируемый в этом компоненте.
procedure(•-ons- Caption: string);
В качестве параметра caption передается строка, которая будет идентифицировать печатаемый документ в очереди заданий на печать Windows.
Формы также имеют возможность печати своего изображения с помощью метода Print:#
procedure 1■
Размеры изображения формы на бумаге определяются свойством PrintScale класса TForm:
property PrintScale: - ।,
Свойство PrintScale может иметь одно трех значений:
♦ poNone — размеры формы при печати не изменяются,' результат печати непредсказуем;
». I :..-— размеры напечатанной формы соответствуют
размерам формы на экране;
♦ poPrintToFit — форма растягивается, чтобы занять лист полностью. Приведенные возможности вряд ли могут быть использованы при построении качественных программных продуктов в связи с полным отсутствием каких-либо параметров автоматической печати из данных компонентов, позволяющих настроить атрибуты внешнего вида получаемых печатных документов.
20.2. Вывод информации в другиеприложения. Основы технологии СОМ
Общие положения
Отображение информации на принтере с помощью объекта TPrinter обладает высокой гибкостью, однако большинство задач печати сводится к выводу текста или таблиц. При этом, с одной стороны, в программах приходится реализовывать сложные алгоритмы форматирования текста при выводе, а с другой стороны, такие задачи дублируют широко распространенные пакеты, в которых данные возможности уже реализованы.
Более то гр, вывод информации на печатающее устройство жестко определяет вид получаемых документов, на который пользователь не может повлиять. При этом с развитием компьютерной техники печатные документы становятся все менее востребованными в связи с широким использованием для обмена информацией электронной почты и факсов.
В таких условиях целесообразно наделять программные продукты возможностями сохранения информации в общепринятых форматах, таких, например, как формат текстовых документов RTF, тем более, что Delphi частично поддерживает такие возможности. Однако работа с такими форматами все-таки не проста, и требует от разработчика дополнитель-
ных усилий, особенно в условиях быстрого обновления стандартов на форматы представления данных.
Второй подход к повышению гибкости вывода информации поддерживается наличием в Windows технологии OLE (Object Linking and : mbedding связывание и внедрение объектов), позволяющей запускать сторонние приложения и передавать им данные, вызывая методы этих приложений. Технология OLE является частью технологии СОМ — признанного стандарта для выполнения подобных операций, и все больше программных продуктов поддерживают такие возможности. Исключением не является и группа продуктов Microsoft office, каждое приложение которой может быть использовано из Delphi-приложений для передачи в них данных.
В настоящем разделе мы кратко рассмотрим основы технологии СОМ на примере автоматического создания документов в Microsoft Word и Excel из программы, реализованной в Delphi.
Основы СОМ-технологии
Основные ПОНЯТИЯ СОМ. СОМ-обьеК1ы
СОМ — Component Object Model — Модель многокомпонентных объектов является объектно-ориентированной концепцией, описывающей правила построения классов, называемых ( ОМ объектами, с целью обеспечения взаимодействия между ними вне зависимости от языка, на котором реализованы данные классы, и среды, в которой выполняются приложения, содержащие их.
Объекты СОМ реализуются в специальном двоичном формате, являющимся фактически описанием класса, и не зависящем от языка разработки, и предоставляют свою функциональность (позволяют вызывать свои методы) через набор и < терфей сов Каждый COM-объект реализует как минимум один интерфейс IUnknown, аналогичный рассмотренному выше интерфейсу : - i и выполняющий следующие действия:
Поддержка счетчика экземпляров объекта с помощью методов AddRef, вызываемого при создании экземпляра класса для увеличения значения счетчика, и Release, вызываемого при разрушении экземпляра для уменьшения значения счетчика;
. Предоставление ссылки на интерфейс, заданный его уникальным идентификатором, и поддерживаемый COM-объектом, с помощью метода Queryinterface
76 Речь вдет об объектных интерфейсах, рассмотренных нами выше.
Для идентификации С ОМ-объектов применяются глобальные уникальные идентификаторы, представляющие собой 128-разрядные целые числа, записываемые в следующем формате, где вместо символа 'х' указывается шестнадцатеричная цифра (от 0 до F):
[*(хххххххх-хххх-хххх-хххх-хххххххххххх)']
Например, главное приложение графического редактора Adobe Photoshop имеет такой идентификатор:
(43191d98-5d34-4103-be42-226aS5c2312a|
Вызов методов COM-объектов. Интерфейс IDispatch
( ОМ-объекты могут использоваться либо внутри приложения (такие СОМ-объекты называются внутрипроцессными) либо в виде исполняемых модулей (внешние COM-объекты). На рис. 20.1 представлена схема работы приложения с разными видами СОМ-объектов.
Приложение-Клиент
ВызовВызовРезультатРезультатСОМобъектСОМобъект
Вызов
Вызов
Результат
Результат
СОМобъект
СОМобъект
Приложение-Клиент
СОМобъектСОМобъектВызов
СОМобъект
СОМобъект
Результат
Рис. 20.1. Взаимодействие приложения с внутрипроцессными (а)и внешними (б) СОМ-объек тами
Приложение (приложение-клиент), использующее COM-объект, вызывает метод, заявленный в каком-либо интерфейсе этого COM-объекта (объекта-сервера). Вызов производится по имени с передачей необходимых параметров, вне зависимости от типа используемого COM-объекта (внешний или внутрипроцессный) Связывание вызова метода с его адресом может быть выполнено двумя способами:
Через интерфейс IDispatch.
Через таблицу виртуальных методов.
Таблица виртуальных методов строится для COM-объекта на этапе компиляции программы, которая его использует, и обладает такими достоинствами, как высокая скорость работы и отсутствие ошибок в передаче параметров, так как синтаксис вызова проверяется компилятором. Такой
вид связывания называется ранним, по аналогии с ранним связыванием вызовов методов для экземпляров обычных классов Delphi. Для раннего связывания необходимо наличие библиотеки типов, содержащей информацию о сигнатуре методов.
На рис. приложение клиет «Приложение 1» обращается к методу «Метод 2» COM-объекта напрямую, используя механизм раннего связывания. Для этого адрес метода должен быть внесен в таблицу виртуальных методов приложения.
Второй вариант связывания — позднее связывание — осуществляется с помощью использования интерфейса IDispatch. COM-объекты, реализующие интерфейс IDispatch, называются серверами автоматизации. Именно серверы автоматизации и интересуют нас в контексте вывода информации за пределы программы.
Заметим, что принадлежность COM-объекта к серверам автоматизации не запрещает возможность раннего связывания, наоборот, интерфейс IDispatch предоставляет необходимую приложению информацию о типах.
Интерфейс IDispatch предназначен для использования сервера автоматизации в условиях позднего связывания и имеет несколько методов для определения информации о типах. Также в интерфейсе IDispatch заявлен метод Invoke, которому передается имя метода для вызова и список необходимых параметров. На этом методе и построен механизм использования серверов автоматизации из Delphi-программ. Механизм вызова метода объекта через метод Invoke интерфейса IDispatch, реализованного этим объектом, показан на рис. Приложение-клиент Приложение 2 обращается к методу invoke, который определяет метод («Метод 2»), запрошенный приложением, и вызывает его
Метод invoke имеет множество сложных параметров, однако он не используется напрямую разработчиком прикладного программного обеспечения. Вызовы данного метода добавляются в программу автоматически во время компиляции.
СОМ-обхект Метод / Метод 1 N 1
Метод N
IDkpaichJnvoke
Рис. 20.2. Различные механизмы вызова методов СОМ-объекта
Создание и использование экземпляров серверов автоматизации
Для создания сервера автоматизации используется функция ■'■■
описанная в модуле Comobj следующим образом:
function CreateOleObject (const ClassName: string): IDispatch;
Функция выдает ссылку на интерфейс IDispatch объекта, зарегистрированного в реестре Windows под именем ClassName. Для определения названия класса следует изучить документацию к программному продукту, предоставляющему сервер автоматизации. Для приложения Microsoft Word таким именем является ♦ Word.Apj . -। -. а для Microsoft Excel —
•'Excel.Арр 1'I" Аналогичные названия классов имеют и другие ком
поненты Microsoft Office.
Если сервер автоматизации уже запущен, то ссылку на него можно получить с помощью функции GetActiveOleObject:
function GetActiveOleObject (const ClassName: string): IDispatch;
Если при вызове метода GetActiveOleObject система не может обнаружить запущенную версию заданного сервера автоматизации, то будет возбуждена исключительная ситуация класса EOleError.
Ссылки, которые возвращают функции : i t с 0 Obj ect и GetActiveOleObject, следует сохранять в переменных для дальнейшего доступа к созданному или полученному объекту. Несмотря на то, что i1 ссылки определен как IDispatch, переменная, в которую эта ссылка сохраняется, должна иметь тип Variant. Это связано с тем, что из данной переменной будут вызываться методы сервера автоматизации, которые не описаны в интерфейсе I Di
Var
Object: Variant;
Object := CreateOleObject('Word.Application');
Использование экземпляра сервера автоматизации, то есть вызов его методов, осуществляется с помощью конструкций, обычных для вызова методов в Delphi:
<Ссылка на сервер>.<Название метода*«Список параметров*) ;
Однако механизм, используемый для реального вызова, существенно отличается от вызова методов Delphi-классов. Название метода и список
77 Присвоение ссылки на интерфейс IDispatch корректно, так как в вариантной переменной может храниться ссылка на такой интерфейс. Tim вариантной переменной, возвращаемый функцией VarType, будет в таком случае соответствовать константе varDispatch.
его параметров запаковываются в специальную структуру, которая затем передается методу invoke COM-объекта через ссылку, полученную при вызове функции CreateOleObject. Метод invoke определяет, какой именно его метод должен быть вызван, выполняет его, запаковывает результат и возвращает его в вызвавшую программу.
Объекты автоматизации поддерживают также и доступ к свойствам через специальным образом описанные методы. Работа со свойствами объектов автоматизации, с точки зрения разработчика прикладного программного обеспечения, аналогична использованию property-свойств объектов Delphi, хотя и отличается в корне по механизму.
Для разрушения структур данных, связанных с использованием СОМ- объекта в программе, следует присвоить ссылке на него шаченис Unassigned. Данная операция не закрывает запущенный сервер автоматизации:
Var
Object: Variant;
Object := CreateOleObject('Word.Application');
Object := Unassigned; // Разрушение программных структур
Экспорт информации в приложенияMicrosoft Office
Приложения, входящие в состав Microsoft. имеют иерархическую
объектную структуру. Структура каждого приложения сложна и существенно отличается от структуры других приложений, что обусловлено различной направленностью самих приложений.
Иерархическая структура объектов отражает представление данных, редактируемых в том или ином приложении. Например, структура Microsoft Word включает в себя объект верхнего уровня Application, управляющий непосредственно приложением, и вложенные в него объекты типа Document, предоставляющие доступ к документам, открытым в данный момент. При добавлении очередного объекта Document сторонним приложением с помощью методов сервера автоматизации Microsoft Word открывает очередной документ.
Аналогично объекты типа Document могут содержать в себе объекты типа Paragraph, представляющие собой ссылки на абзацы текста.
Доступ к объектам различного уровня из программы-клиента, реализованной, например, на Delphi, осуществляется единообразно, через ссы -
к и на вышестоящие в иерархии объекты. Объекты одного уровня и назначения, например, объекты типа Document, объединяются в одно свойство, так называемое семейство, которое имеет название типа объектов во множественном числе. Таким образом, объекты типа Document объединяются в свойство Documents.
Такие свойства являются, фактически списками, для которых можно определить количество элементов в каждом из них (свойство Count) и получить доступ к элементу с помощью функции Item, получающей в качестве параметра номер объекта в списке. Элементы нумеруются от единицы.
Интересной особенностью семейств есть то, что они поддерживает те же свойства и методы, которые поддерживаются объектами, входящими в семейство. Обращение к семейству эквивалентно обращению ко всем элементам семейства по очереди.
Для передачи параметров в методы объектов автоматизации и присвоение значений их свойствам используется специальный тип данных OleVariant, основное отличие которого от типа Variant состоит в его совместимости с операционной системой, которая и поддерживает технологию СОМ. Таким образом, чтобы получить доступ к документу с номером 1, открытому в данный момент в редакторе Microsoft Word, следует выполнить следующие действия:
Vat
OV: OLEVariant;
WordApp: Variant;
WordApp := GetActiveOleObject('Word.Application');
OV : = 1 ;
Documents.Item(OV);
Заметим, что обычно такой подход не применяется, так как сканирование объектов семейства может привести к непредвиденным результатам, если во время такого сканирования пользователь, имеющий доступ к открытому окну Microsoft Word, вносит в документы какие-либо изменения. Поэтому обычно работа с объектами автоматизации Microsoft О i строится на основе жестких ссылок, возвращаемых при создании объектов документной иерархии.
Объекты иерархий Microsoft Off ic содержат в себе методы, количество которых приблизительно равно количеству действий, поддерживаемых при редактировании документов, поэтому мы будем рассматривать только их небольшую часть, относящуюся к возможностям экспорта информации из Delphi-программы.
Экспорт информации в Microsoft Word
Итак, для экспорта информации в Microsoft Word с использованием сервера автоматизации следует:
I Создать экземпляр сервера автоматизации «/■A pl i _ ■- (за
пустить Word) или получить ссылку на уже запушенный экземпляр.
Создать новый документ.
Вывести информацию в созданный документ.
Разрушить структуры, связанные с экземпляром сервера автоматизации в программе, а также ссылки на элементы его объектной иерархии.
Запуск сервера
Создание или получение ссылки на экземпляр сервера автоматизации выполняется с помощью функций CreateOleObject или _; . Ole i ■
соответственно. Создание нового объекта необходимо, если сервер автоматизации еще не запущен, а получение ссылки на запущенный сервер существенно ускоряет процесс экспорта информации, так как системе не требуется запускать еще одно приложение. Таким образом, в некоторых случаях целесообразно сначала пытаться подключиться к существующему серверу, а в случае неудачи запустить собственную версию:
var
. I Variant;
// Получаем копию Word'а, если он уже запущен
WordApp := GetActiveOleObject('Word.Application');
except
// Произошло исключение, значит Word не запущен try
запудрить Word
WordApp := CreateOleObject('Word.Application');
except
цу /■■Пдаиз1^И|^сключение , зрШчит fiord'а нет вообщ^Л Application.MessageBox('Microsoft Word не установлен.' ,
’Внимание1') ;
Exit;
end;
end;
// Ссылка на объект автоматизации Word получена тем // или иным образом, значит можно начинать процесс // непосредственного вывода информации
try
// Вывод информации
finally
WordApp := UnAssigned;
end;
Заметим, что если Microsoft Word не запущен а данный момент и ссылка на объект автоматизации не может быть получена методом >г : ,
то будет выброшена исключительная ситуация eOleSysError, которая прервет выполнение программы на переходе в первый блок Except. После возобновления программы произойдет обращение к функции CreateOleObject.
При запуске программы не из пределов среды разработчика, пользователь не увидит какого-либо сообщения об ошибке, так как исключение обработано в защищенном блоке Try..Exc pt Однако отладка такой программы неудобна.
В качестве решения проблемы можно отключить обработку ошибок типа еOleSysError в диалоге Tools->Debugger Options (см. рис. 20.3) на закладке Language Exceptions. Для этого следует нажать на кнопку Add данного диалога и в появившейся строке ввода набрать название исключения I.' Г»)
После этого исключение eOleSysError появится в списке Exception Types to ignore («игнорировать следующие типы исключений»). Разработчик должен проконтролировать наличие признака «включено» напротив нужного
Рис. 20.3. Диалог отключения отладки исключительных ситуаций
ЧастьV. Взаимодействие приложения с операционной системой сообщения, после чего приостановка работы программы из-за возникновения исключений, представленных в списке, производиться не будет.
Взаимодействие с сервером на уровне документа
Для создания нового документа следует добавить элемент в семейство Documents объекта « J ^рр 1 at » с помощью функции Add, которая вернет ссылку на созданный документ:
Add(Template: String, NewTemplate: Boolean): Document;
Строковый параметр Template определяет, на основе какого шаблона должен быть создан новый документ, а параметр NewTemplate указывает на то, что создаваемый документ сам должен являться шаблоном. Если метод вызывается без параметров, то новый документ создается на основе шаблона Normal («обычный») и является обычным документом.
Ссылку на вновь созданный документ, возвращаемую методом Add, следует сохранить в переменной типа Variant для дальнейшего доступа к документу с целью вывода информации в него:
Var
*WOrdt>OCi Warrant ;
WordDoc := WordApp.Documents.Add;
При необходимости вывода информации в сложные формы новый документ можно создать на основе некоторого «шаблона» — ранее созданного и сохраненного документа. Параметры могут передаваться методу Add в обычной форме:
Var
WordDoc: г ant ,
WordDoc := WordApp.Documents.Add('Template.doc');
Также можно использовать название параметра в строке вызова, что обычно более удобно при наличии в вызываемых методах параметров по умолчанию:
Var
WordDoc: Variant;
WordDoc := WordApp.Documents.Add(Template := 'Template.doc');
Закрыть документ после окончания вывода информации в него можно с помощью метода close:
WordDoc.Close;
WordDoc := UnAssigned;
Непосредственный вывод информации. Объект Selection
Вывод информации в Microsoft Word аналогичен работе пользователя в редакторе и некоторым образом эмулирует ее. Так, с помощью объекта Selection, отражающего текущее выделение в документе, поддерживаются команды ввода текста и настройки его параметров. Если явного выделения не присутствует, то объект Selection отражает местонахождение текстового курсора. Заметим, что объект Selection принадлежит объекту «И i-App .-, а не объекту Document.
Для вывода информации в объект Selection используется его метод TypeText:
WordApp.Selection.TypeText(Text: String);
Для ввода символа перевода строки можно воспользоваться методом TypeParagraph объекта Selection:
WordApp.Selection.TypeParagraph;
При последовательном выводе информации изменение автоматически установленного выделения обычно не требуется, однако, если возникнет такая необходимость, можно установить параметры выделения с помощью методов Move, MoveR (сместить выделение вправо) и MoveLef г (сместить выделение влево):
Move(Unit: Integer, Count: - t :> ) ;
MoveRight(Unit: Integer, Count: Integer, Extend: Boolean = False);
Movei (: Integer, Count: Integer, Extend: Boolean = Fai ),
Методы сдвигают выделение на заданное параметром Count количество единиц. Значение параметра может быть положительным, либо отрицательным. В случае метода Move знак параметра Count определяет направление смещения выделения. Отрицательное значение параметра указывает на смещение влево, а положительное — вправо.
Методы MoveRight и MoveLeft изначально настроены на смещение выделения в заданную сторону (вправо и влево соответственно), поэтому
отрицательное значение параметра Count в их вызове просто меняет направление смещения выделения.
При использовании методов Move, MoveLeft и Move Right, выделение, если оно существовало до их вызова, снимается. Этого можно избежать в функциях MoveLeft и MoveRight, если в качестве значения необязательного параметра Extend задать значение True (по умолчанию устанавливаетсяг . )
Параметр Unit определяет единицу смещения выделения и может принимать значения, указанные в табл. 20.1 (в таблице представлены не все возможные значения).
Значения параметра UnitТаблица 20 1
Значение
Единица сдвига
1
Один символ
2
Одно слово
3
Одно предложение
4
Один абзац
5
Одна строка
9
Один столбец таблицы, если выделение находится в таблице
10
Одна строка таблицы, если выделение находится в таблице
12
Одна ячейка таблицы, если выделение находится в таблице
11 наконец, чтобы просто сбросить выделение, не изменяя его начального положения, можно воспользоваться методом Collapse объекта Selection:
WordApp.Selection.Collapse;
Форматирование текстовой информации
Для форматирования текущего выделения через объект Selection можно получить доступ к объекту Font, определяющему характеристики шрифта данного выделения. Основные свойства объекта Font перечислены в табл. 20.2.
Документ, с точки зрения текстовой информации, состоит из набора (семейства) абзацев, представленных объектами Paragraph, доступ к каждому из которых возможен через функцию - m объекта-семейства Paragraphs. Форматирование параграфа, редактирование которого производится в данный момент, осуществляется через свойство ParagraphForraat объекта St ect а для объектов типа Paragraph возможности форматирования доступны напрямую.
Основные свойства объекта Font
Таблица 20.2
Название свойства
Тип
. Описание
Name
String
Название шрифта
Size
Integer
Размер шрифта
Bold
Boolean
Наличие атрибута «Полужирный»
Italic
Boolean
Наличие атрибута и «ионный
StrikcThrOuQh
Boolean
Наличие атрибута «Перечеркнутый»
Subscript
Boolean
Символы в режиме «нижний индекс»
Superscript
Boolean
Символы в режиме «верхний индекс»
SmallCaps
Boolean
Все символы строчные
AllCaps
Boolean
Все символы заглавные
Доступные для изменения настройки абзаца включают выравнивание, наличие буквицы (первой буквы абзаца специального начертания), отступы первой строки от границы абзаца и отступы самой границы абзаца от краев страницы, название стиля абзаца, и множество других параметров, используемых в Word. Мы рассмотрим две часто используемых настройки абзаца — отступы абзаца и его выравнивание.
Отступы абзаца задаются свойствами ^ ndcnt (отступ слева), Rightindent (отступ справа) и FirstLinelndent (отступ первой строки от левой границы абзаца) объекта I ;, < — п Значения отступов
задаются вещественными числами в условных единицах, которые можно получить из сантиметров или дюймов с помощью методов объекта
..:!■’ р .: CentimetersToPoints и InchesToPoints.
Таким образом, установка отступа текущего абзаца слева выглядит следующим образом:
WordApp.Selection.ParagraphFormat.Leftindent :=
WordApp.CentimetersToPoints(2);
Установка отступов для всех абзацев в документе может быть выполнена так:
WordDoc.Paragraphs.Leftindent :■ 10;
Выравнивание редактируемого (текущего) абзаца выполняется с помощью свойства Alignment объекта ParagraphFormat. Выравнивание всех абзацев документа можно выполнить через одноименное свойство объема семей ства Paragraphs. В качестве значений, определяющих выравнивание, могут использоваться: 0 (выравнивание по левому краю), 1 (выравнивание по центру), 2 (выравнивание по правому краю) и 3 (выравнивание по ширине). Например, для выравнивания текущего абзаца по центру следует установить свойству Alignment объекта ParagraphFormat значение 1:
WordApp.Selection.ParagraphFormat.Alignment := 1;
Для установки одинакового выравнивания для всех абзацев можно воспользоваться объектом-семейством Paragraphs:
WordDoc.Paragraphs.Alignment := 2;
Использование закладок
Microsoft Word поддерживает возможность работы с закладками — неотображаемыми атрибутами документа, управление которыми (добавление, удаление и переход на закладку) осуществляется с помощью диалога пункта главного меню Встажка->3акладка. Приложение, которое является OLE-клиентом, может обратиться к семейству Bookmarks закладок для доступа к каждой из них, или к объекту Selection для перехода (перемещения выделения) на закладку, заданную именем.
Для перехода на закладку следует использовать метод Goto объекта Selection:
Selection.GoTo (What: Integer; Name: String);
Параметр what указывает тип элемента, на который следует переместиться. В случае использования закладок значением данного параметра должно быть — 1. Параметр Name задает название закладки, указанное при ее добавлении в документ.
Таким образом, для перемещения на закладку с названием «Имя пользователя», следует выполнить следующую команду:
WordApp.Selection.GoTo(What := -1, Name :■ 'Имя пользователя');
Использование закладок существенно упрощает подготовку унифицированных документов, например, анкет, в которых большая часть информации является вспомогательной, а на ее основе следует заполнить какие-либо поля данных. Места, куда должна быть введена информация, можно пометить закладками, по которым Delphi-программа будет перемещать выделение с целью вывода информации методом уре ext объекта Selection.
Например:
Var
WordDoc: Variant;
// Создание документа на основе шаблона «Анкета. doc», Ц содержащего закладку с названием «ФИО»
WordDoc := WordApp.Documents.Add(Template := 'Анкета.doc');
WordApp.Selection.GoTo(What := -1, Name := 'ФИО');
WordApp.Selection.TypeText('Ольга Тихонова');
Управление приложением Microsoft Word
Приложение Microsoft Word, которое является сервером автоматизации, mi 1 *с । присутствовать на экране в момент обращения к нему клиента, а может быть скрыто. Видимость приложения определяется логическим свойством Visible.
Управление видимостью приложения может быть необходимо, чтобы пользователь не смог помешать процессу экспорта информации. Приложения • устроены таким образом, что им все рано, кто вводит информацию — стороннее приложение через сервер автоматизации или пользователь с помощью интерфейса. Таким образом, если Delphi-npu- ложение осуществляет длительный экспорт информации, используя метод TypeText объекта Selection, пользователь имеет возможность переключиться в окно Word и, например, изменить положение текстового курсора. В результате таких действий изменится состояние объекта Selection, и информация будет выведена не по порядку, а из того места, которое указал пользователь.
Для того, чтобы запретить пользователю изменять выделение во время процесса экспорта информации, можно скрыть окно приложения с экрана на это время:
::= False;
Еще одна интересная особенность использования сервера автоматизации Microsoft Word вытекает из принадлежности объекта Selection к объекту а не к объекту Document, с которым работает программа. Если ссылка на сервер автоматизации не создана в программе функцией CreateOleObject, а получена из функции GetActiveOleObject, то переключение пользователем в другое окно приложения Word, используемого программой, также приведет к изменению смысла свойства Selection. После переключения в другой документ данное свойство будет определять выделение в этом документе, что является недопустимым, так как в него будет осуществляться вывод информации.
Для избежания таких проблем не следует использовать сервера автоматизации, полученные функцией GetActiveOleObject, если вывод информации может занять длительное время. Заметим, что даже вывод нескольких строк может дать пользователю возможность переключения между приложениями, поэтому более правильно создавать новый сервер автоматизации при использовании методов объекта «Word.Application» вообще.
Вышесказанное не относится к объектам Document, так как пользователь не может изменить их ссн гояние
78 На самом деле может с помощью закрытия документа. Поэтому вывод в Microsoft Word следует производить, скрыв его с экрана.
Экспорт текстовой информации из компонента RichEdit
В качестве примера приведем процедуру переноса текстового документа из компонента RichEdit в Microsoft Word. Для этого модифицируем текстовый редактор, разработанный в главе, посвященной использованию визуальных компонентов (рис. 20.4). Добавим лишь кнопку г . *t on с заголовком «Экспорт в Word» в панель управления файлом. Кнопке присвоим имя sbExportToWord.
Размер и^ирта 118 г В / у S Цве' II Custom... < jРазмер и^ирта 118 г В / у S Цве' II Custom... < ji Undoi UndoRTF Demo!!!RTF Demo!!!RTF епю"1RTF епю"1
Размер и^ирта 118 г В / у S Цве' II Custom... < j
Размер и^ирта 118 г В / у S Цве' II Custom... < j
i Undo
i Undo
RTF Demo!!!
RTF Demo!!!
RTF епю"1
RTF епю"1
rti Demdlt!
RTF Demo! Ill
Сояронибмк и ечать—
Фарнет <• F-chText Fam* ГМ) С ТсхшкотекстПй]
Передать документ в Word
ЗагрузитьСояреешгьПечатать
Рис. 20.4. Интерфейс приложения подготовлендля экспорта информации в Microsoft Word
Для простоты не будем реализовывать все возможности форматирования, доступных редактору. Текст, экспортируемый в Microsoft Word, будет иметь атрибуты полужирности и размера шрифта, там, где это необходимо, а абзацы сохранят выравнивание и настройки отступов. Все остальные атрибуты, такие, как цвет символов, переносятся аналогично, поэтому здесь рассмотрены не будут.
Для модификации программы следует внести ссылку на модуль поддерживающий работу с COM-технологиями в Delphi-программах, в раздел подключения модулей описательной части модуля главной формы:
implementation
Uses i ;
Также необходимо реализовать обработчик события с i. к для новой кнопки sbExportToWord. Код обработчика приведен в листинге 20.3.
Листинг 20.3. Обработчик события ОпЯФсИ,' для кнопки sbExportToWord
procedure TForml.sbExportToWordClick(Sender; TObject) ;
Var
WordApp, WordDoc: Variant;
CurrPos: Integer;
CurrParPos: Integer;
CurrParNumber: Integer;
NeedUpdatePar: Boolean;
begin try
// Создаем сервер автоматизации
// «Word.Application*
WordApp := CreateOleObject('Word.Application') ;
// Скрываем -окно- припомнил fcrd WordApp.Visible := False;
// Добавляем документ на основе шаблона // по умолчанию
WordDoc := WordApp.Documents Add:
// Инициализация вспомогательных переменных
CurrPos:=
0;
//
//
Положение выделения относительно документа
CurrParPos : =
0;
//
Положение выделения
//
относительно текущего абзаца
CurrParNumber
:= 0;
//
Номер текущего абзаца
NeedUpdatePar
: = True;
//
Необходимость переноса
@1
атрибутов абзаца
// Отключаем автоматическое разбиение
// абзацев, чтобы каждый абзац находился
, /X у °Дой строке свойШва ' .
reEditor.Wordwrap := False;
While CurrParPos < Length(reEditor Text) — 1 do begin
// Устанавливаем выделение относительно
// документа
reEditor.SelStart := CurrPos;
reEditor.SelLength := 1;
// Если взведен флаг необходимости переноса // настроек абзаца (выполняется при входе // для первого абзаца)
i f NeedUpdatePar then
begin
// Переносим атрибуты абзаца в Word // — отступы
WordApp.Selection.ParagraphFormat.Leftindent : ■ reEditor.Paragraph.Firstlndent + reEditor.Paragraph.Leftindent;
WordApp.Selection.ParagraphFormat.FirstLinelndent : = -reEditor.Paragraph.Leftindent;
WordApp.Selection.ParagraphFormat.Rightindent := reEditor.Paragraph.Rightindent; // —■
if reEditor.Paragraph.Alignment = taLeftJustify
Then WordApp.Selection.ParagraphFormat.Alignment := 0;
if reEditor.Paragraph.Alignment = taCenter
Then WordApp.Selection.ParagraphFormat.Alignment := 1; if reEditor.Paragraph.Alignment = taRightJustify
Then WordApp.Selection.ParagraphFormat.Alignment := 2# // Атрибуты перенесены, скидываем флаг
NeedUpdatePar := False; end ;
/7 П@;^д*а<дм вт<|Д|иД| символ (выделение)
■ П' — устанавл^Лк^/ атЕИидГ ПбЛУЖИрНРСТИ ,
if fsBold in reEditor.SelAttributes.Stylethen WordApp.Selection.Font.Bold := Trueelse WordApp.Selection.Font.Bold := False;// — устанавливаем размер шрифта
WordApp.Select!on.Font.Size := reEditor.SelAttributes.Size; // — пеатаей симИЯЯИ
WordApp.Selection.TypeText(reEditor.SelText);
// Если выделение достигло окончания абзаца if CurrParPos =
Length(reEditor.Lines.Strings[CurrParNumber]) — 1 then
begin // Начинаем новый абзац
WordApp.Selection.TypeParagraph;
H Сбрасываем положение выделение 'fl* ожосиельнс» абз^И!
CurrParPos := -1,
// Учтываем в счетчике выделения // относительно документа символы // перевода строки '
CurrPos = CurrPos + 2;
// Изменяем номер абзаца
CurrParNumber : = CurrParNumber + 1 ; end;
// Изменяем счетчик положения выделения // относительно документа
CurrPos := CurrPos + 1;
. // Изменяем счетчик положения выделения // относительно абзаца
CurrParPos := CurrParPos + 1;
// Взводим флаг необходимости переноса // настроек абзаца
NeedOpdatePar := True ;
end;
finally
// Если после выполнения всех действий
// имеется ссылка на сервер автоматизации, // то есть не произошло ошибок во время // его инициализации, то выводим // на экран окно приложения word
if not VarlsEmpty(WordApp) Then WordApp.Visible := True;
// Разрушаем структуры программы, связанные // с объектом .I.'■'
WordApp := Dnas signed ;
// Разрушаем структуры программы, связанные // с создаваемым документом
WordDoc := Unassigned;
// Восстанавливаем автоматическое разбиение // абзацев по словам
reEditor .Wordwrap := True ;
end;
end;
В качестве решения поставленной задачи выбран не самый быстрый, но, по нашему мнению, самый понятный способ. Обработчик события нажатия на кнопку i !■. отключает автоматическое разбиение
абзаца по словам на границе компонента, заставляя, таким образом, хранить каждый абзац в одной строке свойства Lines. Далее, с помощью вспомогательных переменных происходит последовательное перемещение выделения текста по одному символу от первого до последнего. При этом отслеживается положение выделения, как относительно всего документа, так и относительно текущего абзаца.
На основе номера выделенного символа внутри абзаца CurrParPos и длины абзаца, которую можно получить из соответствующего элемента свойства Lines компонента -можно определить факт окончания
абзаца. В этот момент процедура выводит в Word символ перевода строки с помощью метода Гу; Paragraph и устанавливает внутренний флаг необходимости переноса атрибутов абзаца в Word. Непосредственно пс-
ренос атрибутов абзаца происходит на с щдуюшем проходе цикла, отслеживающем перемещение выделения относительно документа.
Окно редактора Microsoft Word после экспорта в него информации из Delphi-программы показано на рис. 20.5.
Рис. 20.5. Документ в Microsoft Word создан программно
С увеличением количества поддерживаемых атрибутов существенно увеличится и объем процедуры экспорта данных. Однако преимущества, которые дает такой подход к выводу информации за пределы программы, однозначно оправдывает трудоемкость ее разработки. Сама же процедура может быть значительно упрощена за счет использования вспомогательных подпрограмм, причем такие подпрограммы могут использоваться в нескольких программных продуктах без изменения.
Экспорт информации в Microsoft Excel
Для экспорта информации в Microsoft Excel с использованием сервера автоматизации следует:
Создать экземпляр сервера автоматизации «Excel.A licat ■ (запустить Excel).
Создать новый документ (рабочую книгу).
Произвести вывод информации.
Разрушить структуры, связанные с экземпляром сервера автоматизации в программе.
Excel обладает не менее развитой объектной иерархией, чем Word, однако использование его в качестве сервера автоматизации немного проще, в связи с логичной системой позиционирования внутри документа, представляющего собой таблицу с индексным доступом к столбцам, строкам и отдельным ячейкам.
Управление сервером автоматизации Excel
Управление приложением Excel аналогично управлению приложением Word. Создание сервера автоматизации Excel производится вызовом функции г ?ate ile в качестве параметра которой указывается название класса «Excel.Application»:
Var
ExcelApp: Variant***
■ SL
// Пробуем запустить Excel
ExcelApp := CreateOleObject('Excel.Application' ) ;
- — Ape.V sible := False;
Finally
if not VarlsEir.pty (ExcelApp: then ExcelApp.Visible := True;
ExcelApp := L'nAssigned;
end;
Управление документами Excel
Документы, редактируемые в некотором экземпляре приложения Excel, доступны через семейство Workbooks объекта «Excel.Application». Ссылку на каждый элемент (документ) семейства можно получить с помощью метода Item, который возвращает объект типа Workbook. Добавление документа осуществляется методом Add, в качестве параметра которого может быть указано название шаблона:
function Add(Template: String) : WorkBook;
Если шаблон Template не задан, то документ создается на основе шаблона по умолчанию.
Документ в Excel состоит из набора рабочих страниц (листов), каждой из которых сопоставляется объект типа Worksheet, причем объекты объединены в семейство Worksheets. Соответственно для определения количества листов в документе можно использовать свойство Count данного семейства, а для добавления нового листа — метод Add без параметров.
Адресация элементов документа на рабочем листе
Вывод информации в ячейки рабочей страницы производится с помощью свойства Range объекта Worksheet возвращающего ссылку на прямоугольное выделение ячеек на данной странице:
property [: String, Се112:1 i ] Cells;
Прямоугольное выделение задается левой верхней ячейкой выделения и правой нижней ячейкой выделения Cel 12. Для установки выделения на одну ячейку, параметры Cell! и Cel 12 должны совпадать:
Worksheet.Range!'D6', 'D6’J
Далее, со ссылкой на прямоугольную область ячеек допустимы следующие действия:
Выделение области методом Select без параметров.
Занесение (вывод) информации.
Вывод информации в ячейки рабочего листа
Для вывода информации в ячейки или одну ячейку документа следует получить ссылку на набор ячеек с помощью свойства Range и присвоить данному свойству необходимое значение:
Worksheet.Range['AI', ’AS'] := ’Текст';
Если значение ячейки должно быть автоматически вычисляемым по заданной формуле, то первым символом значение должен быть знак = «равно».
Простейшее форматирование ячеек может быть произведено с помощью подсвойства (объекта) Font свойства Range:
WorkSheet.Range[’Al' , ’AS'].Font.Bold := True;
Пример вывода информации в приложение Excel
В качестве примера разработаем приложение для контроля знаний пользователем таблицы умножения. Для этого откроем в Delphi новый проект и разместим на его главной форме компоненты stringGrid и кнопку Button с заголовком ‘СЕчс (см. рис. 20.6).
Рис. 20.6. Форма в процессе разработки
С помощью свойств компонента StringGridl установим количество столбцов и строк, равными десяти. В обработчике события OnCreate формы занесем подписи в ячейки верхней строки и левого столбца, а также во всё остальные ячейки, причем при выводе произведений будем автоматически добавлять погрешность с помощью функции Random: (листинг 20.4).
Листинг 20.4. Заполнение таблицы
procedure TForml.FormCreate(Sender: TObject);
Var
C. R: Integer;
begin
П Заполняем верхний заголовок
For С := 1 To StringGridlHColCount-1 Do StringGridl.Cells[C, 0] := IntToStr(C+l);
II Заполняем левый ’заголовок
For R := 1 To StringGridl. RowCount-1 Do StringGridl.Cells[0, R] := IntToStr(R+l);
II Заполняем ячейки с небольшой погрешностью
For С := 1 То StringGridl .ColCount-1 Do
For R := 1 To StringGridl.RowCount-1 Do StringGridl.Cells[C, R] := IntToStr((C+l) * (R+l) +
10 - Random(20)); end;
Далее в обработчике Onclick нажатия на кнопку Buttonl реализуем экспорт информации в Excel, во время которого состояние таблицы stringGrid на момент вызова обработчика будет переноситься в новый рабочий лист нового документа, созданного программно в приложении Excel. Код обработчика приведен в листинге 20.5
Таким образом, пользователь сможет запустить программу, исправить ошибки в таблице умножения, и вывести полученный результат в Excel (см. рис. 20.7).
Листинг 20.5. Экспорт информации в Excel
procedure TForml.Bi tBtnlClick(Sender: TObject);
Var
ExcelApp: Variant;
ExcelDoc: Variant;
ExcelSht: Variant;
C, R: Integer;
begin try
// Созем сервер №даки®1ЦиЙ «cel
ExcelApp := CreateOleObject('Excel.Application');
И Временно скрываем приложение Excel
-с. ц-с. цРис. 20.7. Результат работы программы •Рис. 20.7. Результат работы программы •
-с. ц
-с. ц
Рис. 20.7. Результат работы программы •
Рис. 20.7. Результат работы программы •
ExcelApp.Visible : = False;
/7 Добав^ейК^ИбЕит^Дза основ Д*яЯКщартногс> Шаблона
ExcelDoc ::= ExcelApp. Workbooks .Add;
// Добавляем рабочую страницу в созданный документ
ExcelSht :■ ExcelDoc.Worksheets.Add;
// Переносим|(информац^Й<из кс>@е™емДгвб rinpi:]M®Q^^™5xcel
For С := 0 To StringGridl ColCount-1 Do
For R := 0 To StringGridl.RowCount-1 Do ExcelSht.Range[Chr(ord('A') + R) + IntToStr(C+l), Chr(ord('A') + R) + IntToStr (C+l)] : = StringGridl.Cells[C, R] ;
*34* УстаиЗЯриваеВ верхнфбрвй'роКе атрибут полужир-носок
ExcelSht.Range['Al', 'A10'].Font.Bold : = True;
//'УстанадиваЖлевому дмолбжу атрибу^ИтолужиИесК ExcelSht.Range[’Al', ’KI'].Font.Bold := True;
finally
/7’Если пвАлЯ выпол^Куя (всех Дсвисттерюв^ная
// ExcelApp содержит какое-либо
// знавиг Я®чит Чриложени<а Excel было- №шуЯ$о*® *
/л можно»И "экранаВ
if not VarlsEiapty (ExcelApp) then ExcelApp. Visible := True; // Разрушение структур в программе, связанных с сервером / / автоматтЕации
ExcelApp := UnAssigned;
end;
end;
Т'^лйй, 211▲
Управлениевыполнением
I приложения
Управление выполнением приложения, а именно, определение, каким образом и в какой последовательности вызываются подпрограммы приложения, является одной из основных функций операционной системы, однако в некоторых случаях разработчик может существенно повлиять на ход выполнения своей программы для повышения оптимальности ее работы в смысле быстродействия и ресурсоемкости, либо для достижения каких-либо специализированных задач, например, оптимизации распределения вычислительной нагрузки.
Создание и использованиеDLL-библиотек
Понятие и назначение DLL-библиотек
По умолчанию построение программного продукта производится таким образом, что все фрагменты кода находятся в одном исполняемом ехе- файле. Однако программа может выполнять в каждый момент времени различные задачи, и некоторая часть подпрограмм, загруженных в память при старте приложения, не будет использоваться. С усложнением приложения неэффективный расход памяти в таких случаях может стать серьезной проблемой.
С другой стороны, несколько приложений могут использовать одинаковые фрагменты кода. Соответственно, при построении программных продуктов с полным включением в исполняемый файл всех подпрограмм, один и тот же набор подпрограмм будет храниться в двух разных файлах, а при одновременном запуске этих приложений еще и существовать в памяти в нескольких версиях. Аналогична ситуация и с запуском одного приложения несколько раз — все его подпрограммы будут загружены отдельно для каждой копии выполняемого приложения.
Для оптимизации программ с точки зрения описанных проблем применяются динамически компонуемые библиотеки (от англ. DLL — Dynamic - Link Library — Динамически компонуемая библиотека). DLL-библиотеки являются программными модулями, аналогичными по своей структуре исполняемой программе, и могут содержать подпрограммы, а также различные ресурсы, например, изображения.
При построении приложения, функции, входящие в состав DLL, не заносятся в ехе-файл, а доступ к ним обеспечивается на этапе выполнения программы через подключение DLL-библиотеки и получение ссылки на необходимую подпрограмму. Все эти действия выполняются с помощью специальных API-функций.
Любое приложение может получить доступ к библиотеке, при условии, что известно название файла с библиотекой и название подпрограммы, которую следует вызвать, а также список ее параметров и тип возвращаемого значения. При этом библиотека является откомпилированным программным модулем и не содержит исходного программного кода. Таким образом, помимо снижения нагрузки на память, динамические библиотеки могут использоваться для сокрытия реализации подпрограмм, передаваемых сторонним разработчикам.
Создание DLL-библиотеки
LibraryUsesLabelConstType .VarLibraryUsesLabelConstType .VarДинамические библиотеки описываются в отдельных файлах, аналогичных по своей структуре основной части программы, за исключением того, что вместо ключевого слова Program используется ключевое слово Library. Программный продукт, который подключает DLL-библиотеку, может обратиться не ко всем се подпрограммам, а только к тем, которые указаны в разделе exports модуля DLL. Остальные подпрограммы, таким образом, могут использоваться только для внутренних целей библиотеки.
Library
Uses
Label
Const
Type .Var
Library
Uses
Label
Const
Type .Var
^голоЖ *5иЬ>Ш1отеки
Разде" подключения модулей (библиотек)
Ра^ф-яЦажисания ъ^т-Аа бз5услс^6д>го нереида
Раздел описания констант
РаздММ описанжЯ не ЯанжИгньн! ИроН данньЯ 1
Раздел описания переменных
Procedure
Function
Описание подпрограмм, входящих в библиотеку exports
.. Список экспортируемых подпрограмм
BeginНачало раздела описания логики программы
Раздел описания логики программы
EndКонец раздела описания логики программы
DLL-библиотека создается в отдельном проекте, имеющем соответствующий тип. Для создания проекта динамической библиотеки следует воспользоваться пунктом главного меню File—>New—»Other и в появившемся диалоге на странице New выбрать пункт «DLL wizard» (см. рис. 21.1).
New J ActiveX j MJ>’e<| Rofeci2) Forms | PH - j ' *!
I Name |Рф>оф6оп
IУ Lcrird Panel Module Creates a new Control Panel Applet Module DataModule—
О Form
: Frame
OKCancel Help
Рис. 21.1. Диалог создания элемента проекта
Данный диалог можно вызвать и из диалога управления группой проектов, воспользовавшись кнопкой New, а также с помощью пункта главного меню I ' • • New Project. В этих случаях новые DLL-проекты будут добавлены в текущую группу проектов, тогда как при использовании для добавления DLL-проекта пункта меню : : . *Add • ■ : будет создана новая группа проектов.
Новому DLL-проекту присваивается название Projectl.dll (см. рис.
, которое может быть изменено при сохранении проекта.
] -. ,,п ..,] -. ,,п ..,■7| I > Л— ~ New Remove■7| I > Л— ~ New Remove
] -. ,,п ..,
] -. ,,п ..,
■7| I > Л
— ~ New Remove
■7| I > Л
— ~ New Remove
. J, pafh
L ® Pf*clGia»l£ VNogiw ГЪдеЫанММеЮЧМкй
^ (ДЩЗДП£>\Plo»am Fi«\B<rfand\D*htf\PtaiecU
।I
Рис. 21.2. DLL-проект в диалоге управления группой проектов
После нажатия на кнопку ОК создается новый щюект, содержаний один файл — шаблон описания DLL-библиотеки, содержащий следующий код:
library Project
(Inportant note about DLL memory management: ShareMem must beTtHe BibSt Knit in . ur 1 i bra ry' S MbES clause
ДАЙЯ your ргсИИ|' s igal e с ИИ|К о с e c t - VijSs^.j Source) -VSES cMuse youf^glL exports anytg^Wcedur& ter functions that pass strings as parameters or function results. This '^PP^^^3 ■ aHstrings pBsed to aeB eiwm |мййг DLL-even B^to^ey,, thatам^ь-деste#mresH‘i™@ords
and claBs. Sl^KMem^s the intajface 1Кб the', .^BQRIiNDMM, DLL£:XL5 ry дйШЮйкt whKh be '
dep№yed aloM w^t^y^surTo Soz^gjusing
BORLNDMM.DLL, pass string information using PChar or Shortstring parameters.)
uScS.
SysUtils,
Classes;
($R ‘.res)
begin end.
Особенности передачи строковыхпараметров в подпрограммы DLL-библиотек
Обратим внимание на предупреждение, оформленное в виде комментария, в котором описываются правила использования строковых параметров в подпрограммах, включенных в динамические библиотеки. Особенности работы со строками связаны с их представлением в Delphi, нехарактерным для других языков программирования. Для передачи параметров типа String в подпрограммы библиотеки следует подключить модуль ShareMem в разделе Uses. Модуль ShareMem должен быть первым и $ списка
uses ShareMem, SysUtils, ’ - - ,
Однако при подключении к библиотеке модуля ShareMem для работоспособности программы, подключающей данную библиотеку, понадобится наличие еще и библиотеки borlndmm.dll, поставляемой с Delphi (она расположена в подкаталоге Bin каталога, в который установлена Delphi). Если использование дополнительной библиотеки нежелательно, то параметры типа string использовать не следует, а текстовую информацию можно передавать в подпрограммы библиотеки с помощью типа PChar, характерного для работы в Windows.
Указанное правило касается не только передачи строковых значений в качестве параметров, но и получения строк в качестве результата работы подпрограмм библиотеки, а также использования строковых значений в составе записей. Во всех этих случаях следует подключать модуль — и, соответственно, прилагать к программному продукту библиотеку ■ к:: "' ’ и . либо вместо значений типа string использовать данные типа pchar.
Наполнение библиотек подпрограммами
Подпрограммы — процедуры и функции описываются в модуле библиотеки, а затем, часть из них может быть заявлена для экспорта в вызывающие приложения в разделе exports..
Список экспортируемых подпрограмм определяет, какие именно подпрограммы данной библиотеки могут быть доступны приложениям, подключившим библиотеку, и имеет следующий вид:
exports
<Внутреннее имя П0ДПр0Граммы> name <Внешнее имя подпрограммы^
<Внутре^@ее имя .< : < _ ■_ -> name ^Внешее имя 1 . У 1>;
Внутреннее имя подпрограммы — это название подпрограммы, с которым она описана в модуле library, либо в одном из модулей, подключаемых в разделе 1 Внешнее имя подпрограммы, указываемое после ключевого слова name, не является обязательным, и используется для назначения псевдонима подпрограмме, который должен быть указан в качестве ее имени при подключении сторонним модулем.
Если псевдоним подпрограммы не указан, то он считается совпадающим с названием этой подпрограммы. Если для экспортируемой подпрограммы не указывается псевдоним, то ключевое слово name также не используется.
Приведем пример описания модуля динамической библиотеки, содержащей три подпрограммы prod, Ргос2 и РгосЗ, двеиз которых 1 и РгосЗ) заносятся в раздел exports для обеспечения доступа к ним сторонними приложениями (см. листинг 21.1). Процедуре Prod назначим псевдоним i я _ About
” Речь идет о том, что в раздел export можно внести не только подпрограммы, описанные в модуле динамической библиотеки, но и подпрограммы, содержащиеся в модулях, подключаемых в разделе Uses.
/ Часть V. Взаимодействие приложения с операционной системой х
Листинг 21.1. Пример описания модуля динамической библиотеки
library Projectl; uses
SysUtils, Classes; ($R *.res}
I пис кие процедуры 1 Procedure Procl;
begin end;
(описание процедуры Proc2) Procedure Proc?;
begin end;
(описание процедуры РгосЗ) Procedure РгосЗ, begin end;
(Заявка на экспорт подпрограмм) exports
Процедура №с|:<1 4^^>ртируется с псевдонимом PrintAbout)
Procl name 'PrintAbout' ,
[Пр цсдура РЯЕЗ ^Жс^НтВуеВЯ^без пснв дсНРа,с Шим име ) • м
РгосЗ;
begin end.
Использование DLL-библиотек.Виды динамической компоновки
Для вызова подпрограмм динамической библиотеки, следует получить ссылки на них. Это действие называется динамической компоновкой (связыванием приложения и подпрограммы, реализованной в библиотеке) и может быть выполнено двумя способами — явно, когда название DLL- библиотеки и подпрограммы задается на этапе разработки приложения, а связывание производится автоматически при старте приложения, и неявно, когда загрузка библиотеки и связывание с подпрограммами производится отдельными запросами по ходу выполнения приложения.
Неявная компоновка
Для неявной компоновки используются следующие описания nomipoi рамм в модулях, где производится их вызов:
Оаголовок подпрограммы»; external <Название библиотеки» пате <Псевдоним подпрограммы»; •
Заголовок подпрограммы, заявленный в приложении должен соответствовать по сигнатуре заголовку этой подпрограммы, описанной в динамической библиотеке. Если название подпрограммы, по которому она будет использоваться в приложении, отлично от ее библиотечного псевдонима, то следует использовать конструкцию name ; Например, подпрограмму Prod, описанную в приведенном выше DLL-модуле, можно неявно скомпоновать с приложением следующим образом:
Procedure " ; external ' : ' ;
Так как использованное название PrintAbout соответствует псевдониму данной подпрограммы в библиотеке, то дополнительного указания псевдонима и ключевого слова name не требуется. Если бы подпрограмма описывалась с другим именем, например М ti то потребовалось бы дополнительное указание псевдонима:
Procedure AboutPrinting; external ’ : ' name '
При неявной компоновке динамические библиотеки, указанные после ключевого слова external автоматически загружаются в память, после чего происходит связывание их подпрограмм с идентификаторами, заявленными в приложении. Разрушение связей с подпрограммами и закрытие используемых DLL-библиотек производится также автоматически, при завершении приложения.
Отметим, что неявное связывание применяется, обычно, в случаях, когда все подпрограммы, получаемые из библиотек, вызываются на протяжении всей работы программы, иначе существование загруженной библиотеки не является целесообразным.
Например, библиотека может содержать сотни функций, которые используются приложением только для начальной инициализации. При загрузке приложения автоматически будет загружена и библиотека, которая будет находиться в памяти до окончания приложения, хотя обращений к ее подпрограммам из приложения уже не будет выполняться. Выгрузить динамическую библиотеку принудительно невозможно при использовании неявного связывания, поэтому в таких ситуациях лучше использовать другие механизмы подключения библиотеки.
Явное связывание
Явное связывание подразумевает собой прямое указание на загрузку динамической библиотеки с помощью API-функции Loadl ibrary, и последующее связывание переменной процедурного типа, описанной в приложении, с адресом подпрограммы, хранящейся в библиотеке, с помощью API-функции GetProcAddress. Перечисленные функции описаны следующим образом:
function LoadLibrary (IpLibFileName: PChar) : HMODULE; stdcall;
function ■'( [ od HMODULE;
IpProcName:):: ::. stdcall;
Параметры IpLibFileName и IpProcName задают названия динамической библиотеки и подпрограммы, на которую приложение получает ссылку. Значение, возвращаемое функцией LoadLibrary, используется в функции GetProcAddress для идентификации загруженной библиотеки
В момент, когда работа с библиотекой завершена, то есть в подпрограммах, содержащихся в этой библиотеке, больше нет необходимости, ее можно выгрузить из памяти с помощью функции FreeLibrary, описанной следующим образом:
function FreeLibrary(hLibModule: HMODULE): BOOL; stdcall;
Приведем пример явного связывания:
Type
(Описание процедурного типа, соответствующего по сигнатуре используемой подпрограмме
(процедура без параметров)) TProc = Procedure ;
Var
-(Описание ссылки на библиотеку)
DLLLibrary: HModule;
(Описание процедурной переменной
для связывания с подпрограммой библиотеки)
Proc: TProc;-
begin
I । • ■• ■ библиотеки и пДВчНпЯ ссылки н5‘иее)' LLibrary := LoadLibrary(’PROJECT1.DLL');
।л ссылки на ^Егод Ж имени^жтода и с сыл®яна [ библиотеку)
Proc := GetProcAddress(DLLLibrary, 'PrintAbout') -'
■ Ж’бЗйТениаГ стоки да ■
Proc := nil;
'{Выгрузка Виблиотот^ез мн и FreeLibrary(DLLLibrary);
Соглашения о вызовах подпрограмм
При вызове подпрограмм параметры могут передаваться им разными способами, например через стек или регистры процессора, в прямом порядке (слева направо в порядке описания) или в обратном (справа налево). Если подпрограмма вызывается в приложении, созданном в той же среде разработки, где создана подпрограмма, то проблема несовместимости способов передачи параметров при вызове не возникает, так как используется одно и то же соглашение о вызове (англ. Calling convention — Соглашение о вызове).
Однако динамические библиотеки могут быть разработаны с использова нием Microsoft Visual C++, Delphi, либо какого-либо другого языка программирования. При этом в разных языках используются разные соглашения о вызовах — в Delphi параметры передаются через регистры процессора в прямом порядке, а в C++ через стек в порядке справа налево.
Для того чтобы правильно осуществлять вызовы процедур и функций, хранимых в DLL, а также создавать DLL, которые могут быть использованы разработчиками, применяющими не Delphi, а другие инструменты, следует описывать подпрограммы с указанием соглашения о вызове, называемым стандартным, принятым в C++. Для этого после описания процедуры указывается ключевое слово stdcall:
<0писание ;:;,■■:>; stdcall;
При неявном связывании указание стандартного соглашения может выглядеть следующим образом:
Procedurestdcall; external
name; i
При явном связывании указание соглашения производится при описании процедурного типа:
Туре
’ о = Procedure; stdcall;
Остальные модификаторы соглашений о вызове приве гены в табл. 21.1
Модификаторы соглашений о вызовеТаблица 21 1
Модификатор
Порядок параметров
Область памяти, через которую передается параметр
Освобождение памяти, занятой параметрами
register
Прямой(слеванаправо)
Регистры процессора
Подпрограмма
pascal
Прямой(слеванаправо)
Стек
Подпрограмма
cdecl
Обратный (справа налево)
Стек
Вызывающая подпрограмма
si deal
Обратный (справаналево)
Стек
Подпрограмма
safecall
Обратный (справа налево)
Стек
Подпрограмма
21.2. Многопоточность
Понятие и назначение потоков
Поток — это последовательность каких-либо команд и вызовов подпрограмм. В каждой программе, таким образом, имеется как минимум один поток, называемый основным, однако могут быть созданы и дополнительные потоки, выполняемые параллельно основному*'
Потоки внутри программы работают совместно, конкурируя между собой в отношении процессорного времени. Какому потоку следует передать управления за счет другого потока, определяет операционная система на основе важной характеристики потока — его приоритета. Повышенный приоритет потока указывает системе на его большую необходимость для приложения, и такой поток имеет большую вероятность получить управление.
Потоки предназначены для решения двух задач. Первой является выполнение мощных фоновых процессов, аналогично распределению вычислительной нагрузки на систему с помощью обработки события ■ I Однако использование On "j не гарантирует вызова обработчика, так как при высокой нагрузке на систему это событие может быть не инициировано, тогда как поток получает управление в зависимости от его приоритета. Еще одно достоинство потока по сравнению с обработчиком Onidle состоит в том, что поток не может монополизировать вычислительные ресурсы системы — управление будет отобрано у него в соответствующий момент в соответствии с его приоритетом и передано другому потоку. Таким образом, даже если поток выполняет бесконечный цикл, он не может «подвесить» систему или снизить скорость ее работы.
Потоки иногда называют нитями.
Вторая задача, решаемая потоками — одновременное выполнение нескольких процессов таким образом, чтобы каждый из них мог выполнить свои функции. В качестве примера можно привести приложение, кото- рос юлучаез данные, например, через COM-порт, сохраняет их в файле на диске, и выводит информацию на экран. В приложении, таким образом, организовывается три равнозначных процесса — получение информации и два вида ее вывода. При этом получение информации является приоритетной задачей, вывод на экран — менее приоритетной, а сохранение в файл вообще может быть отложено, если данные могут храниться в памяти.
Такое приложение можно организовать с помощью двух потоков — потока получения информации, потока вывода информации на экран с меньшим приоритетом, а сохранение в файл вообще может выполняться в фоновом режиме при обработке события t г Сохранение в файл также можно реализовать в дополнительном потоке с самым низким приоритетом, тогда в приложении будет три потока.
Еще один интересный нюанс многопоточных приложений состоит в том, что при некоторых долгосрочных операциях не используются ресурсы процессора. Такой операцией, например, является запись информации на диск. Многопоточные приложения в таких случаях более оптимально расходуют ресурсы компьютера, так как когда одна нить (поток) ожидает завершения операции записи или чтения, другая в этот момент может производить какие-либо вычисления. Если бы эти операции выполнялись последовательно в одном потоке, то вычисления не могли бы производиться во время процесса ввода/вывода, а были бы выполнены после его завершения.
Описание потока
Поток выполнения является системным понятием и поддерживается непосредственно средствами Windows. В Delphi свойства и методы потоков инкапсулированы в класс Tthread (англ. Thread — нить, поток), в котором заявлен абстрактный метод Execute без параметров, как раз и представляющий собой последовательность команд, выполняемых в потоке:
procedure Execute; virtual; abstract;
Для создания дополнительного потока в программе следует реализовать класс-наследник TThread, переопределив метод Execute. Допустим, в программе необходимо произвести вычисление некоторого параметра по рекуррентной формуле:
A[i] := A[i-1] * tg(A(i-l]),
где i изменяется от 1 до заданного значения.
Опишем потоковый класс для вычисления такого значения, переопределив метод Execute базового потока TThread (см. листинг 21 .2)
Листинг 21.2. Потоковый класс
(Описание главной формы приложения)
TForml = class(TForm)
Buttonl: TButton;
Editl: TEdit;
Labell: TLabel;
(Описание класса потока) TCalcThread = class (TThread) protected
Count: Integer;
dResult: Double;
procedure Execute; override; end;
ссылки на главную ; var Forml: TForml;
procedure TCalcThread Execute; Var
Integer; begin (Начальное значение) dResult := 1;
. i значения длительным i м for i := 2 to iCount do
dResult := dResult + Sin (dResult) / Cos(dResult); ।. i значения в текстовую метку di 11
Forml.Labell.Caption := FloatToStr(dResult); end;
Описание потока не приводит к выполнению каких-либо действий. Для того чтобы потоку было передано управление, должен быть создан экземпляр потокового класса, заполнены внутренние свойства, необходимые для выполнения вычислений, после чего поток запускается.
.1.2.3. Создание потока/правление его выполнением
t v . i потока используется конструктор Create, опи. уют им образом:
,tructor :' (CreateSuspended:)
, фаметр[ . । i определяет, следует ли создать поток в не
активном состоянии (от англ. Create Suspended — Создавать приостанов- 1снн|.1м) Если конструктору передается значение False, то поток немедленно после создания запускается и работает, пока не закончится метод Execute. Если же поток создан в приостановленном состоянии, то его можно принудительно запустить, использовав метод Resume (англ. Resume — Возобновлять, продолжать):
procedure Resume;
Для того чтобы приостановить поток, следует воспользоваться методом Suspend:
procedure Suspend;
Приведем пример использования потока ' - - read, описанного выше:
Var
(Описание, ссылки на Яъект п : -
Thread: TCalcThread;
begin
j объекта потока.
Поток создается в приостановленном:и
Thread := TCalcThread.Create(true);
тройка свойств объекта пс i
Thread.iCount := StrToInt(Editl.Text);
(Запуск потока)
Thread.Resume;
(Приостановка потока)
Thread.Suspend; (■■ ■ запуск ■
Thread.Resume;
Обратим внимание на одну существенную деталь. Несмотря на простоту класса TThread в нем инкапсулированы довольно сложные процессы
Часть V. Взаимодействие приложения с операционно^, по созданию и разрушению потока, а такжл t, Execute имеет область видимости protected для выполнения из любого фрагмента кода, раш модуле, где описан класс потока. Однако при пр Execute, он выполняется & том потоке, который ert в основном потоке приложения, что противоречит см/< токового объекта. Для запуска метода Execute < ie 1, ^. только метод Resume.:
Разрушение потока
Потоковый объект самостоятельно разрушает все структуры дан . ■.. связанные с использованием ресурсов операционной структуры, после завершения метода Execute. Для того чтобы разрушить данные, связанные с потоком в программе, следует установить факт завершения потока, что является непростой задачей, так как после запуска потока методом Resume управление сразу же возвращается в вызвавшую этот метод подпрограмму, и она выполняется дальше. При этом метод Execute, возможно, еще не завершен.
В классе PThread предусмотрено событие OnTerminate, обработчик которого, если он назначен, вызывается при завершении метода Execute:
property OnTerminate: 1: t ,
Заметим, что поскольку класс TThread не является компонентом и не участвует в визуальной разработке приложения, для назначения обработчика событию OnTerminate следует самостоятельно реализовать соответствующий метод в основном потоке приложения, например в классе формы, и присвоить ссылку на него свойству OnTerminate потокового объекта. Данный метод должен принимать один параметр типа
Создание такого рода обработчиков подробно описано при обсуждении события 1 nld.e класса TApplication.
Однако разрушение потокового объекта в обработчике события OnTerminate некорректно, так как сам обработчик вызывается из этого объекта’", соответственно, при разрушении объекта теряется точка возврата, необходимая для передачи управления. Для решения проблемы разрушения объекта потока в классе TThread предусмотрен механизм, который делает это автоматически. Для включения данного механизма следует установить значение True свойству FreeOnTerminate, описанному в классе TThread:
property F ' е е 0r.Te г m■ , Boo1 о а ;
Обработчик события OnTerminate вызывается из потокового класса, однако его вызов реализован так, что обработчик выполняется в основном потоке. Дтя этого в описании класса TThread применен метод Synchronize, описанный ниже.
Установку значения свойства FreeOnTerminate можно выполнить в любом месте программы, при условии, что поток еще не завершен. Если потоковый объект создается в приостановленном состоянии, то установить значение можно в вызывающем фрагменте сразу же после создания:
объекта потока. Поток создается
в приостановленном<
Thread := TCalcThread.Create(true);
i :* - свойства FreeOnTerminate объекта i Thread FreeOnTerminate := True;
, .! других свойств объекта i ,
Если же поток начинает работу немедленно после создания, то установку значения свойству FreeOnTerminate можно выполнить в начале метода Execute самого объекта:
procedure TCalcThread.Execute;
begin
I Я свойства ■- ■ ■'■
FreeOnTerminate : = True ;
Для завершения потока можно воспользоваться методом Terminate, описанным в классе- i
procedure Terminate;
При вызове данного метода не производится каких-либо действий, реально влияющих на выполнение потока, а просто устанавливается значение свойства Terminated, которое может быть проверено методом Execute, который должен самостоятельно решить, как следует завершить свое выполнение:
property Terminated: Boolean;
Модифицируем описанный ранее вариант метода Execute таким образом, чтобы он реагировал на вызов метода Terminate:
procedure TCalcThread.Execute;
Var
i Integer;
dResult: Double;
begin (Начальное значение} dResult :■ 1;
(Вычисление значения длительным циклом) for i : = 2 to iCo un t do begin (Если установлен флаг Terminated, ® > Г^лМУ c ■преррать} В
if Terminated then break; dResult := dResult + Sin(dResult) / Cos(dResult); end;
(Занесение значения в текстовую метку Labell} Forml Labell.Caption := FloatToStr(dResult);
end;
Получение результата работы потока
Если поток создается с целью получения какого-либо результата, то следует предусмотреть механизм его возврата в приложение, создавшее поток. Для этого можно использовать несколько различных подходов, каждый из которых обладает своими особенностями.
Использование VCL
Теоретически, поток может использовать ссылки на интерфейсные компоненты для того, чтобы отображать в них свои внутренние данные. В нашем примере в качестве последней команды метода Execute используется вывод на экран строки с помощью текстовой метки, расположенной на форме. Ссылка на форму может быть получена с помощью переменной модуля Form), а ссылка на метку доступна как свойство этой формы:
Forml.Labell.Caption := FloatToStr(dResult);
Однако библиотека визуальных компонентов (VCL) реализована таким образом, что доступ к интерфейсным компонентам из разных потоков может вызвать конфликт между ними. Таким образом, корректное изменение свойств визуальных компонентов возможно только из того потока, который ими владеет, то есть из основного. Для того чтобы выполнить какой-либо метод потокового объекта из основного потока для получения доступа к визуальным компонентам, в классе '_ i пре
дусмотрен метод Synchronize:
procedure Synchronize (Method: ГI . г •) ;
На время выполнения метода, указанного в качестве параметра, работа потока приостанавливается. Метод, который должен быть выполнен, передается по имени, является элементом экземпляра ПОТОКОВОГО класса, и не имеет параметров:
Type 'Th г adMe i = procedure of object;
Модифицируем метод Execute таким образом, чтобы текущее значение отображалось в текстовой метке без вероятности появления конфликтов (см. листинг 21.3).
Листинг 21.3. Использование VCL
(Описание Яетсща потоковйМ^ЧяпасВкф
изменяющего состояние визуального компонента}
procedure TCalcThread.SetResultToCaption;
begin
Forml.Label1.Caption := FloatToStr(Self.dResult);
end;
Me . д, выполняемый в качестве -
procedure TCalcThread.Execute;
Var
Integer;
begin
(После завершения метода Execute следует
автоматически разрушить потоковый 1)
FreeOnTerminate := True;
dResult : = 1;
for i : = 2 to iCount do
begin
(Если установлен флаг Terminated,выполнение цикла следует прервать)
if Terminated then break;
(Расчет текущего значения) dResult := dResult + Sin(dResult) / Cos(dResult), ы - метода SetSesultTofcption таким об - чтобы он выполнялся в основном потоке}
Synchronize(SetResultToCaption);
end;
end;
/Использование обработчика OnTerminate
Обработчик события OnTerminate является удобным местом для получения результатов работы нити, так как вызывается после завершения метода Execute, но до разрушения экземпляра потокового класса. В обработчике доступны свойства потокового объекта, в которых и должны храниться результаты работы потока.
Так как обработчик события OnTerminate принадлежит основному потоку, то из него возможен доступ к визуальным компонентам.
Сочетание этих двух свойств обработчика OnTerminate делает его самым привлекательным способом получения результатов работы потока.
Использование дополнительных событий
Если поток должен взаимодействовать с другим потоком для передачи ему текущих данных, то использование обработчика события OnTerminate невозможно, так как он вызывается после завершения потока. Однако потоковый класс полностью реализуется разработчиком программного продукта, который можеч добавить в него собственные события.
Модифицируем наш пример таким образом, чтобы при расчете очередного значения вызывался обработчик дополнительного события OnCurrentValue (листинг 21.4). Для этого в классе TCalcThread опишем свойство■и организуем на его основе property-
свойство OnCurrentValue. В качестве типа данного свойства используем стандартный тип для простых обработчиков TNotifyEvent.
Листинг 21.4. Использование дополнительного события OnCurrentValue .класса
TCalcThread = class (TThread) protected
iCountInteger;
dResult: Double;\
fOnCurrentValue: TNotifyEvent; procedure Execute; override; published
property OnCurrentValue: TNotifyEvent read fOnCurrentValue write fOnCurrentValue;
end;
■ г л, выполняемый в качестве ■ окн procedure ТСа1clhread.Execute;
Var
i Integer;
begin
in завершения метода Execute следуетавтоматически разрушить потоковый о: .। 1
FreeOnTerminate := True; dResult := 1 for i := 2 to iCount do begin
IE ли установлен флаг i - । г, ed, выполнение цикла следует прерва™ if Terminated then break; . текущего . . i - dResult := dResult + Sin (dResult) / Cos(dResult); . назначен обработчик событию rer , то есть ссылка в свойстве -- - не равна nilp то вызовем
этот обработчик}
if fOnCurrentValue О nil then fOnCurrentValue(self ); end;
end;
Назначение обработчика такому событию аналогично назначению обработчика событию -
Использование глобальных переменных
Результаты работы потока могут быть сохранены и в глобальных переменных модуля, однако это противоречит концепции объектно-ориентированного программирования. Соответственно, такой метод взаимодействия потока и создавшего его приложения не рекомендуется.
Еще одна причина, которая заставляет отказываться от использования глобальных переменных несколькими модулями одновременно — это возможность появления несогласованности данных. Несколько потоков выполняются параллельно, причем, в какой момент поток потеряет управление,"''неизвестно. Соответственно, при длительном формировании данных, которые должны быть согласованы между собой, появляется вероятность того, что сформирована только часть данных, согласованность между ними на время потеряна, а формирующий поток потерял управление, и к данным обращается поток, использующий их. Таким образом, использующий поток получает некорректные данные.
Решение описанной проблемы возможно с помощью применения методов синхронизации потоков, однако проще отказаться от передачи данных через глобальные переменные вообще.
21.2.6. Приоритеты потоков
Для указания приоритетов потоков используется свойство Priority, определяющее приоритет данного потока относительно других потоков приложения:
property।'
Значения, которые можно использовать для установки приоритета потокам, перечислены в табл. 21.2.
Приоритеты потоковТаблица 21.2
Приоритет
Описание
tpldle
Поток -гг-лняется только если система не выполняет каких-либо действий. Передача управления потоку с таким приоритетом не может прервать выполнения других потоков
tpLowest
Поток имеет приоритет существенно ниже среднего
tpLower
Поток имеет приоритет ниже среднего
tpNormal
Поток имеет нормальный приоритет
tpHigher
Поток имеет приоритет выше среднего
tpHighesl
Поток имеет приоритет существенно выше среднего
ipTimcCritical
Поток является наиболее приоритетным
Свойство Priority доступно для изменения во время выполнения потока, что позволяет гибко управлять приоритетами потоков, изменяя их в зависимости от контекста выполнения программы.
Вопросы с ответами для повторения по части V
Опишите основные методы, применяемые в Delphi для управления окружением программы
Ответ: Для управления окружением программа Delphi может использовать следующие глобальные объекты, создаваемые автоматически при запуске приложения!
...... типа TApplication используется для управления дан
ным экземпляром приложения и позволяет определить его основные характеристики, управлять состоянием приложения (сворачивать, разворачивать и закрывать), распределять вычислительную нагрузку на
приложение (через обработку события i а также изменить стандартное поведение программы в отношении:
» отображения быстрых подсказок пользователю (hints);
» идентификации приложения в системе с точки зрения пользователя (через изменение значка приложения и его заголовка);
» реакции на исключительные ситуации, которые не были обработаны ни одним методом программы;
Screen типа TScreen используется для определения текущих характеристик рабочего стола Windows, например, разрешения экрана;
Mouse типа 1• используется для определения характеристик ма
нипулятора мышь, используемого в системе, а также для выполнения некоторых специфических действий, таких как монополизация (захват) мыши окном.
QR Дайте определение динамически компонуемой библиотеки и рас-
| скажите о возможных мотивах применения DLL
Ответ: Динамически компонуемая библиотека — Dynamic Link Library — представляет собой программный модуль, содержащий подпрограммы и или какие-либо данные, которые могут быть подключены во время выполнения программы и не линкуются к ней во время построения.
При использовании динамических библиотек их наличие обязательно для нормального функционирования приложений, которые на них ссылаются.
Динамические библиотеки помогают решать задачи разделения одних и тех же фрагментов кода между различными приложениями, снижая тем самым объем памяти, необходимый для хранения приложений и их загрузки. В качестве еще одного достоинства динамических библиотек можно назвать возможность скрытия реализации подпрограмм, включаемых в библиотеку, при передаче их сторонним разработчикам.
Расскажите про использование DLL в программных продуктах
Ответ: Для вызова подпрограммы, расположенной в динамической библиотеке, следует загрузить необходимую библиотеку с помощью API- функции Load Library и получить ссылку на подпрограмму с помощью функции ' : . : Такой подход к получению доступа к библиотеке называется явным связыванием приложения и подпрограммы библиотеки.
Неявное связывание подразумевает указание названия динамической библиотеки при описании метода, в результате чего, вся функциональность, необходимая для получения адреса метода будет добавлена в программу автоматически при компиляции. Это не отменяет требования к наличию динамической библиотеки в области видимости программного продукта, использующего неявное связывание.
Применение неявного связывания целесообразно в случаях интенсивного использования динамической библиотеки в течение всего времени работы приложения, в остальных случаях рекомендуется применение явного связывания. ,
Расскажите про многопоточные приложения
Ответ: В каждом приложении существует как минимум один поток выполнения — главный, однако с помощью наследников класса ■ можно создать один или несколько дополнительных потоков для оптимизации выполнения приложения в целом и более гибкой настройки взаимодействия фрагментов программы, которые выполняют разные задачи.
Для создания потока следует реализовать класс-наследник TThread, поместив последовательность команд потока в метод Execute. Далее, создавшая поток программа может управлять им, приостанавливая и возобновляя его работу, а также завершая его в случае необходимости.
При окончании выполнения метода Execute поток завершается автоматически.
Расскажите об особенностях модели СОМ
Ответ: СОМ — Component Object Model — Модель многокомпонентных объектов является объектно-ориентированной концепцией, описывающей правила построения классов называемых COM-объектами, с целью обеспечения взаимодействия между ними вне зависимости от языка, на котором реализованы данные классы, и среды, в которой выполняются приложения содержащие их.
Механизм работы СОМ построен на использовании объектных интерфейсов, и каждый СОМ объект поддерживает как минимум один интерфейс — . задачей которого является контроль количества созданных экземпляров объекта и выдача информации о других интерфейсах, реализованных СОМ-объектом.
СОМ-обье> ы могут применяться как в составе программного продукта (в I этом случае они называются внутренними), так и за его пределами (внешние COM-объекты). Связывание методов, которые предоставляет СОМ- объект, с вызывающей программой может быть реализовано двумя путями — через таблицу виртуальных методов на этапе компиляции программного продукта (раннее связывание) и через вызов метода Invoke интерфейса IDispatch, если такой интерфейс поддерживается СОМ- объектом (позднее связывание).
; . Опишите возможности Delphi в области вывода информации у за пределы приложения
Ответ: Delphi поддерживает вывод информации на печать с помощью объекта класса TPrinter, использование которого сводится к отображению графических данных на его свойстве Canvas. Для вывода информации используется принтер, установленный в системе по умолчанию, одна-
ко настройки печатающего устройства могут быть изменены с помощью соответствующих диалоговых компонентов.
Некоторые стандартные компоненты Delphi поддерживают также печать своего контекста, однако такие возможности могут быть использованы только в целях разработки и отладки программного продукта, в силу отсутствия каких-либо настроек для повышения качества получаемых документов.
Второй подход к выводу информации за пределы программы подразумевает использование OLE-технологии — взаимодействии приложения с СОМ- объектами, реализующими интерфейс IDispatch, и зарегистрированными в операционной системе. Такие объекты называются OLE-серверами (серверами автоматизации) и используются для передачи в них информации.
Примерами OLE-серверов являются Microsoft Word или Excel. Данные сервера автоматизации имеют иерархическую объектную структуру, в которой объект верхнего уровня владеет несколькими объектами более низкого уровня. Объекты реализованы таким образом, что отображают некоторый атрибут документа или приложения, и имеют методы для изменения состояния данного атрибута.
ЧАСТЬ VIЧАСТЬ VIСОЗДАНИЕ КОМПОНЕНТОВСОЗДАНИЕ КОМПОНЕНТОВ
ЧАСТЬ VI
ЧАСТЬ VI
СОЗДАНИЕ КОМПОНЕНТОВ
СОЗДАНИЕ КОМПОНЕНТОВ
7х4&* 22 I I ОСНОВЫ ИСПОЛЬЗОВАНИЯ1 КОМПОНЕНТОВ
23ЖИЗНЕННЫЙ ЦИКЛ КОМПОНЕНТА
В СРЕДЕ РАЗРАБОТКИ
РАЗРАБОТКА КОМПОНЕНТОВ
| ОС НОВЫ DELPHI.
Профессиональный подход
Vvt<xwi 2 21
Основы использования компонентов
Понятие компонента
Компонентом в Delphi называется любой наследник класса г . который может быть интегрирован в среду разработки для использования его в визуальном построителе. В этом случае, в результирующий программный продукт автоматически добавляется функциональность, необходимая для создания компонента во время выполнения программы, обращения к нему, и разрушения.
Наряду с этим, экземпляр компонента может быть создан непосредственно, в нобом месте программы, причем, в зависимости от параметра Owner, переданного в его конструктор, разрушение компонента после работы программы, также может произойти автоматически.
Термин «компонент» используется не только в отношении классов-компонентов, но и для указания экземпляра компонента.
Назначение компонентов
Повторная используемость
Компоненты используются для локализации некоторой программной логики внутри одного класса, экземпляры которого можно использовать в различных программных продуктах. Такой подход существенно упрощает разработку, используя ранее реализованные и отлаженные компоненты. Итак, одним из предназначений компонентов является их повторная используемость.
Заметим, что повторная используемость может быть достигнута и с помощью обычных классов, хранимых в модулях, однако компонент имеет существенное преимущество перед классами — возможность интеграции со средой разработки, что позволяет использовать его в визуальном проектировании.
Еще один аспект повторной используемости состоит в том, что компонент может быть унаследован не только от класса TComponent, но и от побого его наследника, в результате чего довольно сложный компонент может быть создан небольшими усилиями.
Функциональность
Данное назначение компонентов вытекает из их сущности — компоненты являются классами Delphi, поэтому несут в себе функциональность. Однако заметим, что использование компонентов только ради локализации в них функциональности не имеет смысла, если разрабатываемые компоненты используются только один раз и не принимают участия в визуальной разработке.
Унификация программных продуктов
Компоненты, расположенные на формах различных приложений являются всего лишь экземплярами класса компонента, хранящегося в среде разработки. В связи с этим, изменения, производимые в классе компонента, незамедлительно отражаются на экземплярах компонентов. Фиксация состояния компонента происходит во время компиляции, то есть изменения в компоненте не могут повлиять на ранее построенное приложение.
Для согласования различных программных продуктов, после изменения кода компонента следует заново откомпилировать проекты, в которых компонент используется. Этим и достигается унификация программных продуктов — сохранение общих черт, например, интерфейса, в различных программах за счет использования одного и того же компонента.
Описание компонента
Реализация модуля компонента
Описание компонента производится в отдельном модуле, построенном по обычным правилам Delphi, и представляет собой описание одного или нескольких классов компонентов, а также процедуру регистрации компонента в среде разработчика (листинг 22.1).
Листинг 22.1. Модуль компонента
unit Му Сотрип 1 L :
interface
uses
SysUtils, Classes;
type
TntbComponent = class(TComponent) end;
procedure Register;
implementation
procedure Register
begin
Registercomponents('My Components', [TntbComponent]);
end;
end.
Описание компонента произведено в интерфейсной части модуля и не добавляет функциональности в родительский класс TComponent:
TntbComponent = class( г ■ 1 )
end;, -
Обратим внимание на процедуру регистрации Register, которая является «узнаваемой» для среды разработки и устанавливает компонент или набор компонентов в Палитру. Для указания, какие именно компоненты должны быть инсталлированы, и на какой закладке Палитры компонентов они должны располагаться, в процедуре Register вызывается процедура Reg is ter Components, описанная в модуле Classes:
procedure Registercomponents(const Page: string;
const Componentclasses: array of TComponentClass);
В качестве значения параметра Page передается строка, содержащая название закладки Палитры компонентов, на которой следует расположить компонент или группу компонентов. Добавление компонентов возможно на любую существующую закладку. Если же указано название, которое не соответствует ни одной закладке Палитры, то автоматически будет создана новая закладка. В примере при вызове процедуры Registercomponents указано название закладки «Му Components».
Так как названия классов устанавливаемых компонентов обычно заранее известно, то для передачи массива ссылок на них можно воспользоваться конструктором массива, как и сделано в рассмотренном примере:
Registercomponents('Му Components', [TntbComponent]);
При необходимости установить несколько компонентов на одной странице Палитры, следует воспользоваться конструкцией следующего вида:
5 [TntbCWiponentHhg:bButton, TntbGri<®J
Если существует необходимость установить несколько компонентов на разные страницы Палитры, то процедуру Register :ompc ; nts можно вызвать несколько раз:
procedure Register;
begin
Registercomponents('NTS Buttons', [TntbButton]);
Registercomponents('NTB Grids', [TntbGrid, TntbComponent]); end;
Инсталляция компонентов возможна только в контексте среды разработчика, которая обладает средством автоматизации создания модулей компонентов, использование которого более предпочтительно по сравнению с созданием модуля вручную и описано ниже.
Использование пакетов компонентов
Пакеты компонентов (англ. Package — пакет) используются для объединения компонентов схожей направленности. Например, для хранения набора интерфейсных компонентов можно использовать один пакет, а для объединения компонентов, предназначенных для работы с данными, — другой.
Помимо хранения компонентов, пакеты могут выполнять еще одну важную функцию — разделение компонентов между приложениями. Пакеты компонентов имеют структуру динамически компонуемых библиотек DLL и могут быть использованы для разделения программного продукта на несколько частей — собственно приложение, и набор компонентов. В результате такого разделения при компиляции приложения в него не добавляются описания компонентов, а обращения к ним происходит во время работы программы, что снижает размер исполняемых файлов и позволяет использовать один и тот же пакет компонентов несколькими программными продуктами одновременно.
Для создания пакета следует воспользоваться пунктом главного меню File—»New—>Other и в появившемся диалоге выбрать страницу New В списке объектов необходимо выбрать пункт Package (см. рис. 22.1).
Созданный пакет не содержит компонентов, но они могут быть добавлены в него с помощью диалога,, аналогичного диалогу управления проектом (см. рис. 22.2). С помощью данного диалога можно добавить модуль компонента в пакет (кнопка Add), удалить компонент из пакета
atogs Iatogs IGroup<4n*»^*r* пмGroup<4n*»^*r* пм~ 1 s Modules | h 1ЦWebSnap j Web Da~ 1 s Modules | h 1ЦWebSnap j Web Da11Cancel j ti* ICancel j ti* I
atogs I
atogs I
Group
<4n*»^*r* пм
Group
<4n*»^*r* пм
~ 1 s Modules | h 1Ц
WebSnap j Web Da
~ 1 s Modules | h 1Ц
WebSnap j Web Da
1
1
Cancel j ti* I
Cancel j ti* I
Рис. 22 1. Диалог создания элемента проекта
(кнопка Remove), а также откомпилировать компоненты, входящие в пакет, без их инсталляции в Палитру компонентов (кнопка Compile), либо с последующей инсталляцией (кнопка Install)’2
После того, как пакет сформирован, его следует сохранить командой главного меню File -Save Описания пакетов сохраняются в файлы с расширением dpk (от англ. DPK — Delphi PacKage — Пакет Delphi). Описания пакета могут быть включены в группы проектов (пункт главного меню Project >Add Existing Project) или открыты для индивидуальной работы с ними (пункты главного меню File—>Ореп или File >Open Project).
Delphi хранит компоненты в откомпилированном виде. Это касается и компонентов, представленных отдельными модулями (соответственно, такие компоненты хранятся в файлах компилированных модулей с расширением dcu), и компонентов, включенных в пакеты. Пакеты компилируются в файлы с расширениями I ; , соответствующими формату динамических библиотек, и dcp, содержащих описание пакета для линковки пакета с приложением.
Рис. 22.2. Диалог управления пакетом компонентовРис. 22.2. Диалог управления пакетом компонентов
Рис. 22.2. Диалог управления пакетом компонентов
Рис. 22.2. Диалог управления пакетом компонентов
82 Инсталлируются все компоненты, входящие в пакет.
М1Ш1
Жизненный цикл компонента в среде разработки
Среда разработки тесно взаимодействует с компонентами во время визуального проектирования приложения, создавая их экземпляры на формах и фреймах с помощью вызова конструкторов, обращаясь к свойствам компонентов при отображении и изменении их в Инспекторе объектов, и, наконец, разрушая экземпляры компонентов при закрытии проектов. Эта часть взаимодействия среды и компонента касается процесса разработки и аналогична работе компонента во время выполнения программы.
С другой стороны, среда разработки хранит ссылки на модули компонентов и пакеты, в которых они находятся, представляет компоненты постранично в палитре компонентов и обеспечивает доступ разработчика к ним с целью создания экземпляров. Разработчик может добавлять компоненты в Палитру, перемещать компоненты на разные страницы, а также удалять компоненты из Палитры, в случае необходимости.
Взаимодействие среды разработчика и компонентов накладывает некоторые требования на реализацию компонентов. Эти требования рассмотрены немного ниже, а сейчас мы рассмотрим механизм управления компонентом в палитре компонентов среды.
Создание компонентов
Под созданием компонента в контексте его жизненного цикла в среде разработчика мы подразумеваем создание модулей, необходимых для хранения класса компонента и инсталляции компонента в Палитру компонентов среды разработчика.
1. Создание компонентов вручную
Создание компонента вручную рассмотрено выше и основано на создании нового модуля с помощью пункта главного меню • :. ^ ■ > . реализация в этом модуле класса компонента и процедуры Register, размещение модуля в пакете компонентов и инсталляция компонента с помощью диалога управления пакетом.
Создание компонентов средствами средыразработчика
Второй вариант создания компонента состоит в вызове диалога New Component с помощью пункта главного меню Component—>New Component (см. рис. 23 I ).
New ' ■ j
Itype:
J Dau Name: USupnC «1
i P*#e Rage: iMy CompomNi
;j J ri file name:[ГЗ^Г^кГёооГТ'^Г»^| i
| Search oath. [WlWiAlA«6ElPWI j
I
I
■1 - eHelp
Рис. 23.1. Диалог создания компонента
Данный диалог является частью диалога, вызываемого при нажатии на кнопку Add в диалоге управления пакетом компонентов и позволяет выбрать:
компонент, от которого наследуется создаваемый (выпадающий список Ancestor type);
название класса нового компонента (строка ввода Class Name);
закладку Палитры компонентов, на которой будет размещен создаваемый компонент (строка ввода с выпадающим списком Palette Page);
название файла модуля описания компонента (строка ввода Unit : . name с возможностью вызова диалога открытия файла);
После нажатия на кнопку install или Ок будет создан модуль компонента, аналогичный приведенному выше^причем при нажатии кнопки install, компонент будет установлен в Палитру. Модуль компонента содержит описание класса компонента и процедуры Register.
Если при работе с диалогом была нажата кнопка Ок, а не install, то компонент не будет добавлен в Палитру81 В дальнейшем, инсталляцию можно выполнить с помощью диалога Install Component (см. рис. 23.2), вызываемого пунктом главного меню 1 пропел >Tr.s > Component.
Рис. 23.2. Диалог инсталляции компонента
Диалог install Component предназначен для инсталляции одного или нескольких компонентов, задаваемых файлами модулей, которые можно указать в строке ввода Unit ; name. Для облегчения ввода имен файлов можно использовать диалог открытия файла, вызываемый при нажатии кнопки Browse справа от строки вводам.
Для указания, в каком пакете должен находиться компонент используется строка ввода Package f 11 е name, причем, если инсталляция компонента производится на странице Into existing package, то следует указать действительно существующий пакет. Если же выбрана страница Into new package, то будет создан новый пакет.
Управление компонентами
Управление компонентами, содержащимися в Палитре компонентов среды разработчика производится с помощью диалога Palette Properties (см. рис. 23.3). Данный диалог вызывается с помощью пункта главного меню।• Qi . Palette и позволяет выполнять следую
щие настройки Палитры компонентов:
» Добавление страницы (кнопка Add);
* Удаление страницы, если она не содержит компонентов (кнопка Delete);
” Инсталляция компонента имеет смысл, если он полностью разработан и отлажен, так как, в противном случае, некорректно работающий компонент может вызвать крах среды разработки. Более детально подробности отладки компонентов обсуждаются ниже.
Возможен выбор нескольких файлов одновременно.
’ Возможен выбор нескольких файлов одновременно.
Рис. 23.3. Диалог настройки Палитры компонентов
Переименование страницы (кнопка Rename);
Изменение порядка страниц в Палитре путем последовательного перемещения выбранной страницы вверх (кнопка Move Up) или вниз (кнопка Move Down) в списке страниц;
* Временное скрытие компонента из Палитры (кнопка Hide).
23.3.Удалениекомпонентовиз Палитры компонентов
Использование диалогауправления проектом
Удаление компонентов из палитры компонентов среды разработчика производится с помощью диалога управления проектом Project Options, вызываемым с помощью пункта главного меню Р oject—»Opti cns. Заметим, что этот пункт меню доступен даже при отсутствии открытого на данный момент проекта.
На закладке Packages диалога управления проектом (см. рис. 23.4) представлен список (Design Packages - Пакеты для проектирования) пакетов, установленных в данный момент в Палитре компонентов. Для удаления какого-либо пакета из списка его следует выбрать и нажать кнопку Remove, расположенную под списком.
Pio)ect Option* for РгойтИ^мг
Foimt | Application | Compiler } Compiei Messages i Linker |
Dr^danM/ConciiioriefcVersion Wo
" r Design [ ■ > jes " ’
i - r< < 1.0 С у ; ati - I r one menJ - ; . .. . 14 • j . 4 V -’^-H .. ' E ♦-. • !- .1) :.- :i - r< < 1.0 С у ; ati - I r one menJ - ; . .. . 14 • j . 4 V -’^-H .. ' E ♦-. • !- .1) :.- :]-; 1 < 1.0. '. ।. • .- ,
i - r< < 1.0 С у ; ati - I r one men
J - ; . .. . 14 • j . 4 V -’^-H .. ' E ♦-. • !- .1) :.- :
i - r< < 1.0 С у ; ati - I r one men
J - ; . .. . 14 • j . 4 V -’^-H .. ' E ♦-. • !- .1) :.- :
i IriwBese Data Access Componentsi IriwBese Data Access Componentsi
i IriwBese Data Access Components
i IriwBese Data Access Components
V: Internet Direct fl"*! for D7 Pi open, and Component Editors—*I
i : j Internet Explorer Components
। i e Kprogien Sei\bQiiN4Met^ARoieot$XBpM,eckeQe1. b^
Add flemcrv*
Г й /tme packages~
I Г BuW with runtime packages
OKCancel
Рис. 23.4. Закладка управления пакетами компонентовдиалога управления проектом
После подтверждения удаления ссылка на пакет будет утеряна, а все компоненты, входящие в пакет исчезнут из Палитры компонентов. При этом разработка приложений, в которых использованы удаленные компоненты, станет невозможной, так как в файлах описания форм хранятся только названия к 1ассов компонентов, а не их код.
Обратим внимание на нижнюю часть закладки Packages. Независимый переключатель «Build with runtime packages», указывает на то (во включенном состоянии), что в исполняемый файл приложения не должны включаться пакеты компонентов. Приложение во время выполнения получает описание компонентов динамически из bpl биб шотек
Если переключатель находится в состоянии «не выбрано», то к приложению будут при гинкованы все пакеты компонентов, которые необходимы для его работы, в результате чего будет получен полностью независимый программный продукт.
Если же переключатель выбран, то приложение должно иметь доступ к hpl библиотекам. Также необходим доступ и ко всем библиотекам, которые заявлены как необходимые в библиотеках, перечисленных в списке. Например, все библиотеки используют библиотеку RTL, а те компоненты, которые являются визуальными, должны иметь доступ к библиотеке VCL.
Программный продукт, к которому не прилинкованы пакеты компонентов, с которыми он работает, не является полностью самостоятельным, но имеет существенно меньший размер. Таким образом, при использовании одного и того же пакета компонентов несколькими приложения- 564
ми на одном компьютере, можно достичь экономии дискового пространства за счет разделения пакетов компонентов.
Удаление компонентов с помощьюдиалога управления пакетами компонентов
При использовании диалога управления проектом из Палитры компонентов удаляется весь пакет компонентов. Для выборочного удаления компонентов из пакета и, соответственно, Палитры, следует использовать диалог управления пакетами компонентов (см. выше ).
При нажатии на кнопку Remove данного диалога, компонент удаляется из состава пакета, в результате чего при последующей компиляции он будет удален и из Палитры компонентов.
Вне зависимости от метода удаления компонентов из Палитры, среда разработчика перестает хранить ссылки на их описания, то есть дальнейшее их использование в визуальном проектировании невозможно. Однако, подключив модуль описания компонента, например, к модулю формы, остается возможность создания экземпляра компонента во время 1^1 по тения программы.
7"ла6<1 241
Разработка компонентов
Итак, мы довольно подробно рассмотрели основы интеграции среды разработчика и компонентов,м ознакомились с возможностями управления компонентами внутри IDE, а также рассмотрели, какими способами компоненты могут подключаться к программному продукту.
Настоящий раздел посвящен особенностям создания компонентов с точки зрения программирования, то есть реализации классов компонентов. Создание компонентов не совсем относится к прикладному программированию, что в некоторой степени оправдывает сложность этого процесса, обусловленную, в основном, полным отсутствием каких бы то ни было визуальных инструментов, привычных для разработчика Delphi-приложений.
Соглашение об именованиикомпонентов и их элементов
Именование компонентов
Именование компонентов не отличается от назначения имен любым идентификаторам в программе. Однако предусмотрены некоторые правила, использование которых не обязательно, но рекомендуемо.
Итак, компонент является классом, поэтому его название должно начинаться с заглавного символа «т». При этом название компонента, которое разработчик видит в Палитре компонентов, указывается без этого префикса. Например, класс стандартного диалогового компонента открытия файла имеет название TOpenFileDialog, а в Палитре компонентов он отображается как OpenFileDial'og.
Поскольку несколько разных компонентов могут иметь одинаковую направленность, то имена компонентов могут пересекаться, что недопус-
тимо. Например, при создании компонента, который представляет собой кнопку, было бы логично назвать его Button, однако в этом случае, его имя войдет в конфликт со стандартным компонентом Button и компонент невозможно будет добавить в Палитру компонентов. Поэтому при создании собственных компонентов рекомендуется снабжать их названия условно-уникальными префиксами. Например, компонент, разработанный фирмой «АМ1 -. может иметь префикс ■■
Использование префикса не гарантирует уникальность имен, однако в существенной степени повышает ее вероятность.
Именование свойств
Компоненты, как и все остальные классы Delphi, могут использовать два вида свойств — обычные и property-свойства.
Property-свойства могут иметь различные названия, отражающие их назначение, и, обычно, именуются без использования каких-либо префиксов.
Обычные свойства компонентов предназначены для внутреннего использования, и при назначении им имен рекомендуется использовать префикс «■ (от англ. Field — Поле). Использование такого префикса удобно, также, с учетом того, что внутреннее свойство компонента часто является отражением его property-свойства, что неминуемо вызывает конфликт имен внутри класса. В остальном же, именование внутренних полей является личным делом разработчика компонента и определяется здравым смыслом.
При создании сложных компонентов с большим количеством свойств и методов, особенно если создаваемые компоненты предназначены для построения на их основе других компонентов, можно применять так называемую венгерскую нотацию, являющуюся стандартом именования идентификаторов в Windows. Однако заметим, что разработчиками Delphi, например, данное правило не используется.
Жизненный цикл компонентав программе
Вне зависимости oi метода создания компонента во время выполнения программы, компонент является классом Delphi и проходит обычные для экземпляров класса стадии жизненного цикла:
Создание экземпляра с помощью вызова конструктора;
Использование свойств (установка значений) и методов (вызов), производимое по ссылке на экземпляр компонента;
Разрушение с помощью вызова метода Free и, далее, деструктора.
Однако при разработке компонента, который будет в дальнейшем помещен на форму или фрейм в визуальном построителе, в жизненном цикле его экземпляра могут присутствовать некоторые особенности. С другой стороны, если компонент создается в программном коде, то к создавшему его модулю также могут предъявляться специфические требования.
Компоненты,созданные в визуальном построителе
При добавлении компонента на форму в визуальном построителе описание компонента заносится, затем, в файл формы. Для каждого компонента указывается принадлежность к классу, а также запоминаются значения property свойств и, возможно, простых свойств, в зависимости от внутренней реализации компонента.
При инициализации формы каждый компонент, находящийся в ее описании, создается, и его свойства автоматически настраиваются. Этим и достигается удобство визуальной разработки, позволяющей не просто создать компонент, но привести его к виду, который он имел в процессе визуального построения формы. Более того, так как property-свойство может иметь любой тип данных, в частности являться ссылкой на другой компонент, то возможно визуальное построение не только интерфейса, но частичной логики приложения.
При автоматическом создании компонентов на основе файла описания формы, в конструкторы создаваемых компонентов передается ссылка на форму, которой они принадлежат. Соответственно, разрушение компонентов будет также произведено автоматически, при разрушении формы-владельца.
Компоненты, созданные программно
Компоненты, которые создаются внутри программного кода во время выполнения программы, ничем не отличаются от компонентов, созданных автоматически, однако, в зависимости от параметра, переданного в конструктор (ссылки на владельца), может быть необходимо прямое разрушение компонента методом Free. Этот вопрос подробно освещен ранее, поэтому в настоящем разделе не рассматривается.
24.3. Структура компонента
Компонент имеет точно такую же структуру, как и любой класс в Delphi, то есть имеет конструктор, деструктор, свойства, методы и property-свойства. В дополнение к этому, компонент обладает всеми возможностями, реализованными в классе 7 огт.р . так как является его наследником. Рассмотрим особенности структуры компонентов.
Конструктор и деструктор
Как и экземпляры других классов, компоненты разрушаются методом Free (за исключением форм, которые разрушаются методом Release). Перед реальным разрушением компонента разрушаются все его дочерние компоненты. Особенности разрушения компонентов были рассмотрены при обсуждении архитектуры компонентов Delphi в соответствующем разделе.
Компонент предназначен для использования в среде разработки, которая создает во время проектирования его экземпляр и может вызывать только один, известный ей, конструктор:
constructor Create(AOwner: TComponent); virtual;
Заметим, что конструктор является виртуальным, что определяется особенностями регистрации компонентов в Палитре компонентов. При инсталляции компонента процедуре RegisterComponents передается массив метаклассов — ссылок на объекты, которые являются описаниями классов:
procedure Registercomponents(const Page: string;
const Componentclasses: array of TComponentClass);
Метакласс предоставляет возможность вызова конструктора класса, который он описывает, чем и пользуется среда разработки Delphi при создании экземпляров компонентов во время визуального построения при- южения. Поясним механизм использования метаклассов на примере. Откроем новый проект и добавим на главную форму две кнопки, например, типа Button.
В описательной части модуля заявим метакласс с помощью следующего описания:
TButtonMetaClass = class of TButton;
Переменные-ссылки такого типа будут иметь методы, описанные в классе TObject и конструктор Create, свойственный классу, на основе которого создается метакласс. Вызов этого конструктора приведет к созданию компонента TButton или его наследника, в зависимости от того, какой именно класс присвоен данной ссылке. Реализуем функцию, получающую в качестве параметра метакласс, создающую экземпляр компонента и возвращающую его в качестве значения:
Function TForml.CreateButton(ButtToCreate:
TButtonMetaClass) : TButton;
begin
Result := ButtToCreate.Create(self) ;
Result. Parent := Self;
end;
Итак, из ссылки типа TButtonMetaClass вызывается конструктор того класса, который был передан в качестве параметра. Например, возможен вызов данной функции с параметром те 11 ot
var
Button: TButton;
Button := CreateButton(TButton);
Но также возможна и передача наследника класса TButton, например, TBitBtn:
var
Button: TButt®;
Button = CreateButton(TBitBtn);
В этом случае функцией CreateButton будет создан экземпляр класса TBitBtn, ссылка на который будет также возвращена в качестве значения.
Реализуем обработчики нажатия на кнопки Butt 1 и Button2 разрабатываемой формы таким образом, чтобы при нажатии кнопки Е 1 в произвольном месте формы создавался компонент типа Button, а при нажатии на кнопку Button2 - компонент TBitBtn. Модуль главной формы приложения будет иметь следующий вид, приведенный в листинге 24 I
Листинг 24.1. Модуль главной формы
unit Unitl; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons; type
TButtonMetaClass = class of TButton;
TForml = class (TFonn)
But ton 1: TButton;
Button2: TButton;
procedure ButtonlClick(Sender: TObject);
procedure Button2Click(Sender TObject)
private
Function CreateButton(ButtToCreate: TButtonMetaClass) : TButton;
end;
van
Formi: TForml;
imp 1 ement aQ on
($R *.dfm)
Function TForml.CreateButton(ButtToCreate:
TButtonMetaClass): TButton;
Van
tmpButt: TButton;
begin
tmpButt := ButtToCreate.Create(self);
tmpButt.Parent := Self;
tmpButt.Width : = 30 + Random(100);
tmpButt.Height : = 10 + Random(30);
tmpButt.Left : = Random(Clientwidth - tmpButt.Width);
tmpButt.Top := Random(ClientHeight — tmpButt.Height);
pjl^ult := tmpBupg ;
end;
procedure TForml.ButtonlClick(Sender: TObject);
Var
tmpButt^ .Пв#Ъоц;« begin tmpButt := CreateButton(TButton); tmpButt.Caption := 'TButton' ;
end;
procedure TForml.Button2Click(Sender: TObject);
V<T
tmpButt: TButton;
bed in
tmpButt := CreateButton(TBitBtn);
tmpButt.Caption := 'TBitBtn';
end;
end.
В заключение отметим, что раз конструктор является виртуальньм, то при его переощеделении слезет указывать ключевое слово override, а первой командой в переопределенном конструкторе должен быть вызов его родительской версии с помощью ключевого слова Inherited.
Описание конструктора должно находиться в секции public компонента, так как его вызов производится из-за пределов модуля с его описанием:
Туре
TntbButton = class(TBitBtn)
public^
constructor Create(AOwner: TComponent); overrride;
end;
constructor TntbButton.Create(AOwner: TComponent);
begin Inherited;
end;
Простые свойства
Простые свойства компонентов обладают всего одной существенной особенностью — они могут быть записаны в файл описания формы или фрейма с помощью метода DefineProperties, описанным в классе TPersistent:
procedure ::( let: TFiler) ; virtual;
Переопределив данный метод, можно также записать в файл формы какую- либо другую информацию, не имеющую свойства автоматического сохранения, например property-свойства, являющиеся массивами. Рассмотрение таких возможностей выходит за рамки нашего издания, поэтому для более глубокого их изучения следует обратиться к справочной системе Delphi.
Property-свойства
Property-свойства классов Delphi довольно разнообразны и имеют следующий формат описания:
property -о нис>[ Index. <Тип дапиых>] :
<Тип> index <Целочисленная константа>
read <Мс,1 .. ч^№ияЯ write <М г > записиД”
Stored < гич кая - । :танта>
default <3н ;., по умолчаник» или nodefault;
default;
Н72
Модификаторы Read и Write
Модификаторы Read и Write уже были описаны выше. Напомним, что они определяют, соответственно, методы чтения или сохранения значения при обращении к property-свойству, причем вместо указания метода может быть использовано название внутреннего поля, подходящего property-свойству по типу. Если для получения или установки значения property-свойству используются методы, то они должны являться процедурами (для установки значения), принимающими параметр соответствующего типа, или функциями (для получения значения), возвращающими значение соответствующего типа:
Туре
TntbButton = class(TBitBtn)
protected
fBorderColor: TColor;
Procedure SetBorderColor(NewBorderColor: TColor)
published
property BorderColor: TColor read fBorderColor write SetBorderColor;
end;
В приведенном примере значение, возвращаемое property-свойством BorderColor, получается напрямую из простого свойства fBorderColor, тогда как его установка производится с помощью protected-процедуры SetBorderColor.
Заметим, что для подобных процедур установки существует некоторый шаблон, основанный на предварительной проверке нового значения на его равенство старому. Необходимость таких действий связана с частым наличием ресурсоемких операций, выпЬлняемых при изменении свойств. Например, при установке свойства BorderColor, как видно из его названия (цвет окантовки), необходимо перерисовать компонент. Однако этого не следует делать, если новый цвет не отличается от старого:
Туре
TntbButton = class (TBitBtn)
protected
fBorderColor:TColor;
Procedure SetBorderColor (NewBorderColor: TColor)
published
property BorderColor: TColor read IBorderColor write SfetBordexColor;
jpnd;
Procedure TntbButton.SetBorderColor(NewBorderColor: TColor); begin
новый цвет отличается от >
If NewBorderColor <> IBorderColor Then begin
{ . . . тогда запомним его во. . }
IBorderColor := NewBorderColor;
{... и перерисуем --
Invalidate;
end;
end;
Методы, используемые для получения и изменения значений property- свойств, не могут быть виртуальными и динамическими.
Модификатор Index
Модификатор property-свойства index предназначен для объединения методов доступа (чтения и установки) к значениям нескольких однотипных property-свойств. После модификатора указывается целочисленное значение, которое является, фактически номером свойства. Методы доступа модифицируются добавлением параметра типа integer, в котором передается номер этого свойства.
При обращении к свойству по имени автоматически вызывается метод чтения или записи, которому передается индекс свойства. Этот индекс анализируется методом доступа для выполнения соответствующих действий.
Представим себе компонент ■■ . предназначенный для хране
ния координат точки в трехмерном пространстве. Такой компонент должен иметь три property-свойства — х, Y и z ддя установки и получения координат. Для каж юго из них можно создать внутреннее свойство, например, fx, и fz, и реализовать отдельные методы чтения и записи.
Однако с помощью индексации свойств можно хранить информацию о положении точки в массиве из трех элементов, а методы чтения и записи объединить (см. листинг 24.2):
Листинг 24.2. Использование индексации
TntbSDPoint = class(TComponent)
protected
fPointCoordinates: Array[13] of Double;
Procedure SetPointCoordinate(Index: Integer; Value: Double);
Function GetPointCoordinate (Index: Integer): Double;
published
property X: Double index 1 read GetPointCoordinate^ write SetPointCoordinate;
property Y: Double index 2 read GetPointCoordinate ^arite SetPointCoordinate;
ptopejti Z: Double indgti; 3 readAG^aPaintCcya3.ina№ write SetPointCoordinate;
end;
Procedure Tntb3DPoint.SetPointCoordinate(Index: Integer;
Value: Double);
b^jin
координаты точки по
fPointCoordinates[Index] := Value;
end;
Function Tntb3DPoint.GetPointCoordinate(Index: Integer): Double;
begin
(Выдача координаты точки по индексу)
Result := fPointCoordinates[Index]; end;
В приведенном примере property-свойства х, ¥ и z проиндексированы значениями, соответственно, 1, 2 и 3. Для хранения координат используется внутреннее свойство-массив fPointCoordinates, в котором последовательно хранятся координаты по осям х, ¥ и Z. Таким образом, индексы property-свойств х, Y и z соответствуют индексам в массиве fPointCoordinates, что существенно упрощает реализацию методов доступа.
Property-массивы
Для доступа к массивам информации используются property-свойства, тип данных которых аналогичен описаниям массивов. Методы доступа в этом
случае модифицируются дополнительным параметром, определяющим номер Элемента в массиве, к которому производится обращение.
Изменим предыдущий пример так, чтобы координаты можно было получать не только по отдельности через property-свойства х, Y и Z, но и через дополнительное property-свойство Coords, которое будет являться отражением внутреннего массива IPointCoordinates (см. листинг . ■
Листинг 24.3. Property-массивы
Tntb3DPoint = class (TComponent) protected
Procedure SetCoordinates (Index: Integer; Value: Double);
Function GetCoordinates (Index: Integer): Double;
public
(Описание property-массива)
property Coords[Index: Integer): Double read
* rtetCoordinates write SetCoordinates; published
end;
implementation
Procedure Tntb3DPoint.SetCoordinates(Index: Integer;
Value: Double);
begin fPoint[Index] := Value; end;
Function TntbSDPoint.GetCoordinates(Index: Integer): Double; begin Result := fPoint(Index]; end;
Property-свойство Coords описано в секции public, а не published, так как доступ к нему из Инспектора объектов невозможен в силу нестандартности типа данных, использованного при описании этого свойства.
Заметим, что пары методов SetPointCoordinate, GetPointCoordinate, использованные для работы с вещественными свойствами х, Y и z, и SetCoordinates, GetCoordinates не просто имеют одинаковую сигна-
туру, но и выполняют абсолютно одинаковые действия. Этот факт позволяет не вводить новые методы для доступа к свойствам-массивам, а использовать уже описанные SetPointCoordinate и GetPointCoordinate:
Tntb3DPoint = class(TComponent)
protected
fPointCoordinates: Array[1..3] of Double;
Procedure SetPointCoordinate(Index: Integer; Value: Double); Function GetPointCoordinate(Index: Integer): Double;
public
property Coords[Index: Integer]: Double read GetPointCoordinate write SetPointCoordinate;
published
property X: Double index 1 read GetPointCoordinate write SetPointCoordinate;
property Y Double index 2 read GetPointCoordinate write SetPointCoordinate;
property Z: Double index 3 read GetPointCoordinate write SetPointCoordinate;
end;
Procedure Tntb3DPoint.SetPointCoordinate(Index: Integer;
Value: Double);
begin
:l . координаты точки по.
fPointCoordinates [Index] := Value; end;
Function Tntb3DPoint.GetPointCoordinate(Index: Integer): Double;
begin . координаты го по.
Result := fPointCoordinates [index]; end;
Таким образом, совместное использование property-массивов и индексированных property-свойств позволяет создавать компоненты с гибким программным интерфейсом к внутренним свойствам при минимальных затратах труда.
Модификаторы stored и default
Модификаторы stored, default и nodefault настраивают среду разработчика в отношении сохранения property-свойств и указывают, следует ли сохранять значение property-свойства, и в каких случаях.
Если после ключевого слова stored указано логическое значение False, то такое свойство не сохраняется в файле формы, то есть теряется при закрытии проекта. Применение свойств такого рода имеет смысл, если значение свойства не устанавливается вызывающей программой, а рассчитывается на основе других свойств, либо может быть рассчитано.
Добавим, например, в компонент Ti tb3DPoint property-свойства Xview, Yview и Zview, определяющие положение точки взгляда в трехмерном пространстве для проецирования трехмерной точки, хранимой в компоненте на некоторую плоскость. Для этих property-свойств следует указать методы доступа и обеспечить хранение заносимых значений, например во внутренних свойствах fxview, fYview и fZview. Сохранение этих данных в модуле формы не имеет значения, так как они существенно зависят от хода выполнения программы, и могут быть установлены в начале ее работы. Для отключения сохранения, к описанию свойств следует применить модификатор stored с указанием значения False:
property Xview: Double read fXview write _/.: w stored False; property Yview: Double read fYview write fYview stored False; property Zview: Double read 1 1 • write . w stored ■ - ,
Модификатор default рассматривается только, если в описании property- свойства используется модификатор stored с указанием значения True, либо модификатор stored не используется вообще, что эквивалентно указанию «stored True». После ключевого слова default указывается значение «по умолчанию», которое применяется к описываемому свойству. Если в момент записи компонента в файл описания формы* его значение совпадает со значением по умолчанию, то значение свойства не записывается.
Можно изменить описания свойств х, Y и z таким образом, чтобы в файл формы не записывались нулевые значения, и так устанавливаемые при создании экземпляра компонента. Такой подход позволит ускорить инициализацию компонента и уменьшить файл формы:
property X: Double index 1 read GetPointCoordinate write SetPointCoordinate default 0;
Однако приведенное описание некорректно, так как значение по умолчанию может использоваться только для свойств так называемых порядковых (англ. Ordinal — порядковый) типов данных, например, integer.
Отметим интересную особенность модификатора default. Дело в том, что данный модификатор управляет только сохранением значения свой-
ства, но не влияет на чтение этого значения. Таким образом, если при сохранении компонента в файл описания формы, значение какого-либо свойства не сохраняется, так как это значение эквивалентно значению по умолчанию, то при чтении компонента, значение данного свойства не устанавливается автоматически вообще. Соответственно, все свойства, помеченные модификатором и , должны получать значения в конструкторе компонента, либо следует использовать в качестве значений по умолчанию нулевые значения, присваиваемые всем свойствам при создании экземпляра класса.
Tntb3DPoint = class(TComponent)
protected
fColor: Tcolor;
public
Constructor Create(aOwner: TComponent); override;
(Propety-свойство описывается co значением n^ ум-зд^^ивз, ку^|^рсй|#уя^йуддт з а<мюв a в файл формы (clRed)}
property Color: TColor read fColor write fColor
default clRed;
Constructor Create(aOwner: TComponent);
begin
Inherited;
. i? какЦ^Ичени^вЬо умолчанивэ||^^ЙЯваЬсо^:>1! RjoTj^eW от ^IHMKsil (нул^ое Иначеда# для
ив, та), то в к<^^щ^кт<э2>е сл^дуеу призМИть.^ ему ДЙалИс* значение *clRed, зантенн ^Д|У6Ж значение по' Дюлчанию в описании
property-свойства! CtiW) ■
fColor := clRed;
end;
Если свойство Color во время сохранения будет иметь значение clRed, то оно не попадет в файл формы. При последующем чтении компонента из файла формы, значение свойства Color устанавливаться автоматически не будет, и значением данного свойства будет являться значение, присвоенное ему в конструкторе. Если же при сохранении значение свойства Color будет отличаться от clRed, то такое значение будет записано в файл формы. При чтении компонента, значение данного свойства будет сначала установлено в конструкторе в clRed, а потом ему будет присвоено значение, прочитанное из файла формы.
Для property-массивов модификатор i - имеет совсем другой смысл, и позволяет обратиться к свойству-массиву без указания его имени. Например, пометим этим модификатором свойство Coords компонента Tntb3DPoint следующим образом:
property' tex: I г] Double read
GetPointCoordinate writei . default;
Тогда обращение к свойству Coords может быть произведено так:
Var
Point3d: Tntb3DPoint;
Point3d[l] : =
Отметим, что в данном случае перед модификатором default ставится разделитель — точка с запятой.
Переопределение property-свойств. Модификатор nodefault
В процессе построения иерархии компонентов в пакете могут изменяться требования к функциональности свойств. Так, подавляющее большинство стандартных визуальных компонентов наследуется не прямо от классов TWinControl или TGraphicControl, а через вспомогательный класс, имеющий, обычно в своем названии префикс Custom.
Например, класс TGroupBox строится на основе класса TCustomGroupBox, в котором и реализована вся функциональность этого компонента. Однако в классе TCustomGroupBox нет property-свойств, описанных в секции published. Более того, данный класс вообще не содержит property-свойств. Все свойства, доступные компоненту TGroupBox описаны еще в классе TWinControl, но находятся, в основном, в секции protected.
Для того чтобы расширить область видимости свойств в Delphi предусмотрен механизм переопределения property-свойств. Каждый класс может перенести property-свойство в область .I । или public, указав его название после ключевого слова property без каких-либо дополнительных описаний. Например, класс TGroupBox реализован в модуле stdctrls следующим образом:
TGroupBox = class(TCustomGroupBox)
published
property Align;
property Anchor s, property BiDiMode;
property Caption;
property Color;
property Constraints;
property Ct13 D
property Docksite;
property DragCursor;
end ;
Изменение типов свойств, методов доступа и других атрибутов при переопределении невозможно, однако, если в описании родительского класса property-свойство было описано с использованием значения по умолчанию, то такое поведение можно отменить, указав после описания свойства модификатор i-
property Color nodefault;
Сообщения и события в компонентах
Модель сообщений в компонентах
При описании класса TObject было указано, что объекты Delphi поддерживают обработку сообщений. Модель сообщений в компонентах является отражением системы сообщений в Windows, соответственно, используется аналогичный формат сообщения, включающий в себя код сообщения, идентифицирующий его, и вспомогательную информацию.
Появление сообщения в контексте какого-либо объекта вызывает поиск его обработчика -- метода, построенного по определенным правилам Если такой метод не найден, то сообщение считается необработанным и вызывается обработчик, принятый по умолчанию.
Большинство сообщений инициируется операционной системой для компонентов, которые являются оконными. Сообщения передаются в оконные функции компонентов для обработки, после чего вызывается метод Dispatch, описанный в классе TObject, и предназначенный для диспетчеризации сообщения — поиска для него метода-обработчика.
Понятием «событие» описывается факт появления сообщения в компоненте, поэтому, термины «событие» и «сообщение» отчасти взаимозаменяемы. Однако в Delphi событием (англ. Event — событие) описывается обычно ссылка на некоторый метод объекта, реагирующий на сообщение. Например, событие Onclick кнопки Button - это свойство процедурного типа TNotifyEvent, в которое может быть занесена ссылка на метод, *что и делается с помощью Инспектора объектов во время визуальной разработки приложения.
Сообщения Windows
Для обработки события в компонентах организуются методы, помеченные специальной директивой message, после которой указывается идентификатор сообщения — не очис ichhoc значение в интервале от 1 до 49151:
■- message <Идентификатор>
Для удобства в Delphi описаны константы, соответствукш не некоторым сообщениям Windows, например константа Jиспользуется для
идентификации сообщения о необходимости перерисовки окна и имеет шестнадцатеричное значение $000F. Список констант можно найти в стандартном модуле Messages.
Метод, описываемый с использованием модификатора message, должен являться процедурой и иметь один параметр-переменную типа TMessage. Также, методы-обработчики событий не должны указывать модификатор override при переопределении родительского метода, однако могут использовать вызов родительской версии метода с помощью ключевого слова Inherited (см. листинг 24.4).
Листинг 24.4. Вызов родительской версии метода
TntbPanel = class(TCustomPanel)
protected
Procedure ntbPaint(var Message: TMessage); message wm PAINT;
end;
Procedure TntbPanel.ntbPaint(var Message: TMessage); begin (Установка цвета)
Color := clWhite родительской версии
Inherited;
end;
События компонентов
Сообщения, которые имеют префикс WM, относятся к сообщениям Windows (от англ. WM — Windows Message — Сообщение Windows), и появляются в методе Dispatch компонента по инициативе onepai ион
ной системы через оконную функцию компонента. Однако в Delphi существует целый пласт легковесных визуальных компонентов, которые не имеют окна, но должны вести себя так же, как и обычные компоненты, например, реагировать на перемещение мыши в их пределах.
Для унификации модели сообщений для разных видов компонентов и реализован метод Dispatch, который не зависит от системного механизма рассылки сообщений и может быть использован для внутрипрограммно- го обмена сообщениями между компонентами. Более того, сообщения, передаваемые компонентами друг другу, не накладывают ограничений на сами компоненты, поэтому возможна передача сообщений не только между визуальными компонентами. Напомним, что метод Dispatch реализован в классе TObject, следовательно, доступен всем объектам.
Еще одно удобство в модели обмена сообщениями Delphi состоит в i) сутствии необходимости обработки всех сообщений, передаваемых в метод Dispach, что просто невозможно. Таким образом, компоненты обрабатывают только те сообщения, которые необходимы им для реализации собственной функциональности.
Описанный механизм используется для рассылки сообщений оконными компонентами-контейнерами легковесным компонентам, которые вставлены в них. Так, например, рассылаются события входа и выхода указателя мыши в пределы компонента cm_MouseEnter и cm_MouseLeave. Далее, эти события могут быть обработаны компонентом для выполнения каких-либо специфических действий при входе и выходе мыши. В качестве примера приведем компонент ;। , который является
наследником компонента । (Ви , и меняет цвет подписи при входе мыши в пределы компонента (см. листинг 24.5). Для этого определим методы-обработчики данных сообщений, в которых будем изменять подсвойство Color свойства Font, что автоматически вызывает перерисовку компонента.
Листинг 24.5. Компонет TntbButton
TntbButton = class(TSpeedButton)
protected
(Заголовок метода-обработчика сообщения cm_MouseEnter) Procedure MouseComeln(var Message: TMessage);
message cm MouseEnter;
{Заголовок метода-обработчика сообщения cm_MouseLeave} Procedure MouseComeOut(var Message: TMessage);
message cm MouseLeave;
end;
(Реализация метода-обработчика сообщения cm_MouseEnter) Procedure TntbButton.MouseComeln (var Message: TMessage) ; begin
■: м шрифту подписи красный
Font.Color := clRed; end;
(Реализация метода-обработчика сообщения cm_MouseLeave} Procedure TntbButton.MouseComeOut(var Message: TMessage) ; begin
Ia ■ шрифту ПОДПИСИ ЧерНЫЙ IB ' :
Font Color := clBlack;
end;
Отметим, что константы, идентифицирующие сообщения компонентов, имеют префикс см (от англ. СМ — Component message — компонента) и описаны в модуле Controls.
Делегирование событий
При создании компонентов, часто бывает заранее известно, каким именно образом должно быть обработано то или иное сообщение. Например, при получении сообщения WM Р/ ПИ многие компоненты автоматически перерисовывают свое изображение, а некоторые, - как, например, формы могут делегировать выполнение необходимых действий с помощью организации события. Некоторые сообщения вообще не могут быть обработаны автоматически, например, обработчик сообщения нажатия на кнопку полностью зависит от контекста программы, использующей компонент, и, фактически, не имеет к компоненту никакого отношения, за исключением того, что компонент должен делегировать событие.
Так как обычно обработчики событий являются методами формы, то при описании свойства-события используется конструкция of Object, например:
Туре
v еЯр р г б^^вйг е = Procedure (ЗвЙег: TObject) of Object;
property OnjMMt :'- v-< f ~ - ed e;
Если описание такого свойства OnEvent поместить в секцию published, то во время визуального построения оно будет отображено на странице Events Инспектора объектов, и при двойном щелчке мышью напротив него в текущей форме или фрейме будет создаваться метод-обработчик.
Использование событии ,ix свойств основывается на проверке, установлен ли обработчик событию, и вызове метода-обработчика по ссылке, хранимой в свойстве:
If OnEvent О nil Then Ever) .
Основы отладки компонентов
Отладка компонентов происходит в интегрированной среде разработчика по обычным правилам, но является намного более сложной. При создании компонента во время визуального проектирования, Delphi создает экземпляр компонента и располагает его на форме или фрейме. Далее, с помощью обращения к методам, возвращающим К 111 информацию, визуальный построитель считывает список свойств и событий, описан- II \ в секции published и заносит их в Инспектор компонентов. Инспектор компонентов обращается к экземпляру компонента и получает значения всех необходимых свойств, так же, как это происходило бы при создании компонента из программного кода во время выполнения программы.
Если метод, возвращающий значение property-свойства реализован некорректно, и вызывает исключительную ситуацию, то во время выполнения программы, это исключение обрабатывается программой, так как именно программа работает с экземпляром компонента.
Однако при работе с визуальным построителем, обращение к property- свойству производится Инспектором объектов, который является частью среды разработки, следовательно исключительная ситуация обрабатывается средой.
Представим себе метод, возвращающий значение property-свойства Scale Factor на основе деления других свойств друг на друга:
Function TntbButton.GetScaleFactor: Integer; begin
Result := Round(fA / fB) ;
end;
Приведенный метод может работать корректно, пока свойство fB не примет нулевое значение. Тогда при попытке обращения к property-свойству ScaleFactor будет вызван метод GetScaleFactor, в котором возникнет исключение — ошибка деления на ноль. Сообщение об исключении будет выдано разработчику, после чего Инспектор объектов обратится к property-свойству ScaleFactor еще раз. При возникновении повторной исключительной ситуации опять будет выдано сообщение, и так далее, пока свойство fB не примет корректное значение.
Поскольку в компонентах редко используются свойства с самопроизвольно изменяющимися значениями, то сообщение об ошибке будет выводиться непрерывно. Данное сообщение отображается в модальном диалоге, который запрещает использование интерфейсных элементов, пока сам присутствует на экране. Таким образом, разработчик теряет возможность сохранения проекта и выхода из среды разработки каким-либо штатным способом.
Более того, даже при повторном открытии Delphi после принудительного закрытия, например, через Диспетчер задач Windows, в зависимости от настроек среды, редактируемый проект может быть автоматически открыт. Если при этом некорректный компонент попадет в фокус, будет произведено чтение свойства через метод, вызывающий исключение, и работа с Delphi станет невозможной вообще.
Таким образом, визуальный построитель Delphi не может являться средством отладки компонентов. Каждый компонент должен разрабатываться отдельно,^ отлаживаться с помощью создания его во время работы какого-либо вспомогательного приложения, и уже после этого инсталлироваться в Палитру компонентов интегрированной среды.
И даже использование этого правила не снимает с разработчика обязанности предусматривать возможные исключительные ситуации и заключать критичные в смысле возможности появления ошибок фрагменты кода в защищенные блоки типа Тгу..Rx ' . . ! Вообще, все методы, которые выдают значения property-свойств или устанавливают их можно заключать в защищенные блоки, тогда как методы, реализуемые в классах могут возбуждать исключительные ситуации, в том числе и целенаправленно, для извещения вызывающих фрагментов о некорректном использовании экземпляра класса.
Пример разработки компонента
Постановка задачи
Требуется модифицировать компонент । таким образом, чтобы при наведении на него мыши изменялся цвет подписи кнопки. Цвета, используемые для активного (когда мышь находится над компонентом) и неактивного (мышь находится за пределами компонента) состояния кнопки следует задавать property-свойствами, доступными при визуальной разработке через Инспектор объектов.
Создание группы проекта
Для разработки необходимого компонента создадим группу проектов, состоящую из пакета компонентов, в котором находится разрабатываемый компонент, и тестового приложения, во время выполнения которо го создается экземпляр компонента.
Для создания группы проекта откроем новое приложение с помощью пункта главного меню • .. —' Вне зависимости от состояния среды разработчика на момент запуска будет создана группа проектов, в которой содержится один проект с названием по умолчанию: ■ . (см. рис. 24.1). Мы будем использовать его в качестве тестового приложения.
Рис. 24. 1. Создана группа проектов и тестовое приложение
Далее, добавим в группу проектов пакет компонентов с помощью пункта - : New Project главного меню или кнопки New диалога управления группой проектов. Вне зависимости от способа добавления нового проекта на экране появится диалог New на закладке New которого следует выбрать пункт «Package» (рис. 21.2).
В группу проектов будет добавлен пакет компонентов (см. рис. 24.3). Если он не является активным, то выделим его двойным щелчком мыши. По умолчанию пакету компонентов присвоено название Packagel.bpl.
Сохраним группу проектов со всеми добавленными в нее проектами с помощью пункта главного меню г: : - г < АП. При этом на экран будет выведена последовательность диалогов сохранения файлов для каж-
/% New Item'
s Pio»Ki Group■Resource Dll Wizard Reroutes Dll Wizards Pio»Ki Group■Resource Dll Wizard Reroutes Dll WizardData Modules IntraWeb | C -t- | *'*э«|**:е$ | *'et -n, Business j New | ActiveX | Mutant | Peckege! | Fount | Dohgi ) Plofedt | Name:| Deecripbon*|Control Panel Appfcah Creates a new Control Panel Applet Application 1 DLL WizardData Modules IntraWeb | C -t- | *'*э«|**:е$ | *'et -n, Business j New | ActiveX | Mutant | Peckege! | Fount | Dohgi ) Plofedt | Name:| Deecripbon*|Control Panel Appfcah Creates a new Control Panel Applet Application 1 DLL WizardРис. 24.2. Добавление в группу проектов пакета компонентовРис. 24.2. Добавление в группу проектов пакета компонентов
s Pio»Ki Group
■Resource Dll Wizard Reroutes Dll Wizard
s Pio»Ki Group
■Resource Dll Wizard Reroutes Dll Wizard
Data Modules IntraWeb | C -t- | *'*э«|**:е$ | *'et -n, Business j New | ActiveX | Mutant | Peckege! | Fount | Dohgi ) Plofedt | Name:| Deecripbon*|
Control Panel Appfcah Creates a new Control Panel Applet Application 1 DLL Wizard
Data Modules IntraWeb | C -t- | *'*э«|**:е$ | *'et -n, Business j New | ActiveX | Mutant | Peckege! | Fount | Dohgi ) Plofedt | Name:| Deecripbon*|
Control Panel Appfcah Creates a new Control Panel Applet Application 1 DLL Wizard
Рис. 24.2. Добавление в группу проектов пакета компонентов
Рис. 24.2. Добавление в группу проектов пакета компонентов
Hies»■ j
* (2^^5551 Е \ЬсчМ® Fie-$\Bortar<5D*hi7V)tofect$
55 Ptetectl еме Е \P»ogr«n Fiei\Bortend4)*hi7\Pio|ec»t
ijl Package1 byi Е АРюдгвп Fte$'BortanAD<N)hi7^roieots
Рис. 24.3. Б группу проектов добавлен пакет компонентов
дого элемента проекта. Не будем изменять названия файлов, предлагаемые по умолчанию, и сохраним все файлы в один и тот же каталог.
После выполнения процедуры сохранения в диалоге управления группой проектов будут отображены названия каталогов, в которых хранятся файлы элементов проекта (см. рис. 24.4).
Project Manager
IbplX
New Remove
Path
RoiectGeMil•i —1 1 >*c<1 c>^*- 5 Unit!Д 1X1 twFotmlВ #RoiectGeMil•i —1 1 >*c<1 c>^*- 5 Unit!Д 1X1 twFotmlВ #P.M-k.^wJ ht.lP.M-k.^wJ ht.lE \Mch«^tr JODKJi^og^V^xnponwt^
RoiectGeMil
•i —1 1 >*c<1 c>^
*- 5 Unit!
Д 1X1 tw
Fotml
В #
RoiectGeMil
•i —1 1 >*c<1 c>^
*- 5 Unit!
Д 1X1 tw
Fotml
В #
P.M-k.^wJ ht.l
P.M-k.^wJ ht.l
E' XMchwM T_BOOK_D ^ogten*\Canponerits\E «ample EAMchasANT BOOK, D^PtogtweeXComponentt^E vampte E: \M<hwAN r _BOUI'_D ^орвп^ХСотрапег^Е «ample EAMchaeANT _BOOK_DSPio»amtVCoTWKrwr**\Ew* E \M< haeAN Г _BOOK_D^iogarM^orr<>aner*$VE кап*
Рис. 24.4. Гоуппа проектов после сохранения
С помощью пункта главного меню tonpor ent <i w Component выведем на экран диалог создания компонентов New Component. В поле ввода Ancestor Туре введем название базового класса для нашего компонента: ■< г 1В । ’ В качестве названия класса в поле ввода Class Name наберем: ■■ bButton». В качестве названия закладки Палитры компонентов в поле ввода Palette Page введем строку *ntb Components». С
Чен ComponentЧен ComponentС v type: jС v type: j'I [Buttons]'I [Buttons]Class Name: jTmteutonClass Name: jTmteutonРис. 24.5. Создание нового компонентаРис. 24.5. Создание нового компонентапомощью кнопки, расположенной справа от поля ввода Unit file name, вызовем диалог сохранения файла и укажем имя файла модуля компонента. При этом лучше указывать имя файла, который еще не существует. Каталог, куда будет помещен файл, лучше задать тот, который был использован при сохранении группы проектов (рис. 24.5).
Чен Component
Чен Component
С v type: j
С v type: j
'I [Buttons]
'I [Buttons]
Class Name: jTmteuton
Class Name: jTmteuton
Рис. 24.5. Создание нового компонента
Рис. 24.5. Создание нового компонента
Search pMhc |«DELPHI]4bKD€LPHir^nK)ELPHINrTixx _
Далее, нажатием на кнопку Ок создадим компонент. Заметим, .что мы не используем кно ik> install, так как это приведет к инсталляции компонента, что нежелательно. Проверим, в какой из проектов группы помещен новый компонент. Название файла с его описанием должно отображаться в дереве проекта Packagel i . Если это не так, то компонент следует удалить с помощью кнопки Remove диалога, сделать активным проект Packagel . и создать компонент заново.
В диалоге управления группой проектов сделаем активным проект I ■. дважды щелкнув по нему мышью. Перейдем в модуль глав
ной формы этого проекта i ) и добавим ссылку на модуль компонента в список подключаемых модулей интерфейсной секции. Если при указании названия модуля компонента имя, предложенное по умолчанию, не изменялось, то модуль компонента называется ntbButton
unit Unitl;
interface
uses
Windows, Messages* SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ntbButton;
Сохраним внесенные изменения командой Save А. 11. Окно диалога управления группой проектов представлено на рис. 24.6.
Рис. 24.6. Группа проектов после создания тестового приложения, пакета компонентов и компонента ntbButton
Реализация компонента
Дополнительная логика, вносимая в компонент SpeedButton, основывается на обработке сообщений cm_MouseEnter и cm_MouseLeave входа и выхода указателя мыши за пределы компонента. Аналогичные обработчики уже были приведены выше. Внутри данных обработчиков определяется состояние внутреннего логического protected-свойства ' . уЛ'у. определяющего, находится ли указатель мыши в пределах компонента.
Также реализуются два property-свойства ActiveColor и InActiveColor, предназначенных для изменения цветов подписи кнопки в активном и неактивном состояниях. Эти свойства будут доступны через Инспектор объектов, либо программно. При использовании компонента в визуальной разработке, значения этих свойств будут автоматически сохраняться в файле формы при сохранении проекта.
Для изменения цвета подписи после установки новых значений свойств ActiveColor и InActiveColor, а также при вызове обработчиков сообщений cm_MouseEnter и cm_MouseLeave, реализуем вспомогательную Процедуру : ।.:
Procedure TntbButton.UpdateColour;
begin
{Установка значения полсвойству color свойства Font для отображения подписи необходимого цвета, в зависимости от активности компонента
if fMouseOnMe
then Font.Color := fActiveColor
else Font.Color := fInActiveColor;
end;
Модуль огжсания кожонента будет иметь ввд, гдриведенньй в листинге 24.6.
Листинг 24.6. Модуль описания компонента
unit ntbButton, interface
uses
(Дополнительно подключаются модули Buttons (содержит описание класса TSpeedButton) , Messages (содержит описание констант-идентификаторов сообщений), и Graphics (содержит описание типа данных TColor) )
Sys-Eti5s, Classes, Controls, ExtCtrls, Messages, Buttons, Graphics;
type
TntbButton = class (TSpeedButton)
protected
fActiveColor: TColor;
fInActiveColor: TColor;
, fMouseOnMe: Boolean;
(Метод обновления цвета подписи компонента) Procedure UpdateColour;
{Метод Яйсан№ки'двна1ения свсй-Ява ". tiveColoi
Procedure SetActiveColor(NewColor: TColor);
(МетОД установки значения рвойаТва , InActiveColor}1
Procedure SetlnActiveColor(NewColor: TColor);
(Метод обработки сообщения cm_MouseEnter}
Procedure MouseComeln(var Message: TMessage);
message cm_MouseEnter;
(Метод обработки сообщения cm_MouseLeave)
Procedure MouseComeOut(var Message: TMessage);
message cm_MouseLeave;
public
(Конструктор переопределяется для установки начальных значений свойствам fA^BveColor ж ofInActiveColor
Constructor Create(aOwner: TComponent); override;
published
(Описание property-свойства ActiveColor, несохраняемое значение — clRed)
property ActiveColor: TColor read fActiveColor write SetActiveColor default clRed;
(Описание property-свойства InActiveColor, жохранжмое Значение — Blah™
property InActiveColor: TColor read fInActiveColor write SetlnActiveColor default clBlack;
end;
(Процедура регистрации компонента)
procedure Register;
implementSQSon
(Процедура НегистДции ■.
procedure Regia ter; I
begin
Registercomponents('NTB Components', [TntbButton]);
end;
Constructor TntbButton.Create(aOwner: TComponent) ;
begin
•(Вызов додиВельской в®сщц крнструктора1 ■
Inherited;
(Установка начального значения свойству fActiveColor) fAct^veCofer : = с 1 Re d.
fInActiveColor := clBlack;
UpdateColour;
end
Procedure TntbButton.UpdateColour;
begin
(Установка значения подсвойству color свойства
ForB для tooСражения подписи СЕР бДиимс>гс> цвета, в яНисим|Й®И ж ЯетивЯсти■■
if fMouseOnMe
then Font.Color := fActiyBColo:|^
else Font.Color := fInActiveColor;
.end;
Procedure TntbButton.SetActiveColor(NewColor: TColor);
begin
(Если новое значение цвета отличается от текущего, тс> с$№ "Жринимается и выилняетс! 0|®н-5^^Еи^П1вета подписи череу метод
в NewColog о fActiWQploEL then
begin
fActiv^^S or : = NewColor;
UpdateColour ;
end;
end;
Procedure TntbButton.SetlnActiveColor(NewColor : TColor);
begin
- - новоe ц||Да|1№ливб|тся оД^йкуп^го, тс> онГ ЖЙинимДт^Еми выполняется «”новлдниеЬ«ета подписи через метод UpdateColour)
if NewColor о fInActiveColor *then
begin fInActiveColor := NewColor; UpdateColour;
end;
end;
Procedure TntbButton.MouseComeln(var Message: TMessage) ; begin (Установка флага активности компонента) fMouseOnMe := True;
(Обновление цвета подписи через вызов метода UpdateColour}
UpdateColour; end;
Procedure TntbButton.MouseComeOut(var Message: TMessage); begin
{Установка Длага активности ' fMouseOnMe := False;
(Обновление цвета подписи через вызов метода UpdateColour) UpdateColour ;
end;
end.
Отладка компонента
Для отладки компонента с помощью тестового приложения добавим на главную форму этого приложения стандартную кнопку Button, в обработчике нажатия на которую создадим компонент п tьв . и настроим ею свойства:
procedure nul.ButtonlC] ck(Sender: TObject) ;
Var
^^^itt on: TntbButton;
begin
ButtM#er TntbButton.Create(Self) ;
В . ■ rent := Self;
Buttidn.Left : 'l
Button.Top := 50;
Button.Width := 80;
< But ЦДЛ. He ightr . |8wfe
Button.Caption : = 'Текст подписи';
end;
Такой подход позволяет увидеть как создается кнопка и настраиваются ее свойства. При этом визуальный построитель не участвует в процессе тестирования, поэтому в нем не могут возникнуть исключительные ситуации, критичные для работы среды. В случае, если после запуска приложения и нажатия на кнопку -. компонент . появил
ся на форме, можно немного модифицировать тестовую процедуру и изменить цвета подписи в активном и неактивном состояниях с помощью свойств Active Color и
procedure TForml.ButtonlClick(Sender: TObject);
Var
Button: TntbButton;
begin
Button :=:
Button.Parent := Self;
< ft := 50;
Button.Top := 50;
I t ■ ।.।:= 80;
Button.Height := 30;
Button.Caption := 'Текст подписи';
Button.ActiveColor := clRed;
Button.InActiveColor := clMaroon;
end;
Теперь в неактивном состоянии подпись кнопки должна быть темно красная, а в активном — ярко красная. Если компонент ведет себя некорректно, то есть не обладает необходимой функциональностью, либо генерирует исключительные ситуации, можно начать его отладку с помощью установок в его модуле точек останова, использования пошагового выполнения приложения с помощью клавиш и и других методов отладки, которые имеются в Delphi.
Инсталляция компонента
После того, как компонент полностью отлажен, его можно установить в Палитру компонентов. Для этого в модуле описания компонента уже создана автоматически процедура Rog : содержащая код, необходимый для инсталляции.
С помощью правой клавиши мыши вызовем контекстное меню проекта Packagel в диалоге управления группой проектов. В контекстном меню выберем пункт Build, в результате чего компонент будет откомпилирован и установлен в Палитру.
При необходимости можно переместить его на другую страницу Палитры, или изменить положение страницы в Палитре с помощью диалога управления компонентами, описанного выше.
Использование компонента в визуальной разработке
После того, как компонент появился в Палитре компонентов, его можно использовать в визуальной разработке обычными способами.
Отобразим главную форму тестового приложения и добавим на нее компонент nt Butt । со страницы NTB Components. Обратим внимание на Инспектор объектов, который содержит все методы компонента SpeedButton, от которого унаследован ntbButton, а также два дополнительных — ActiveColor И InActiveColor.
Значения этих свойств изменяются с помощью выпадающего списка, и могут быть установлены с помощью диалога выбора цвета, как и все свойства типа TColor в Delphi. Это связано с тем, что Delphi имеет набор стандартных редакторов для свойств некоторых типов. Такое поведение среды разработки очень удобно и существенно упрощает разработку компонентов,
Вопросы с ответами для повторения по части VI
- Поясните понятие компонента
■ Ответ: Компонентами называются наследники класса TCompqnent, которые предназначены для интеграции в среду разработчика Delphi для использования их в процессе визуальной разработки.
Приведите основные особенности компонентов, как классов Delphi
Ответ: Компонент имеет точно такую же структуру, как и любой класс в Delphi, то есть содержит конструктор, деструктор, свойства, методы и property-свойства. В дополнение к этому, компонент обладает всеми возможностями, реализованными в классе TComponent, так как является его наследником.
Компоненты имеют виртуальные конструкторы, которые должны переопределяться в классах-наследниках с обязательным указанием ключевого слова override после описания. Также необходим вызов родительского варианта конструктора, для того, чтобы не нарушить жизненный цикл компонента.
РТ") Расскажите про возможности property-свойств
v^$ Ответ: Property-свойства являются интерфейсом к внутренним данным экземпляра класса и могут быть доступны Инспектору объектов для изменения их значений во время визуальной разработки приложения.
Данные свойства используют сложные описания, основанные на применении набора следующих модификаторов:
Модификаторы Read и Write определяют, соответственно, методы чтения или сохранения значения при обращении к property-свойству, причем вместо указания метода может быть использовано название внутреннего поля, подходящего property-свойству по типу. Если для получения или установки значения property-свойству используются методы, то они должны являться процедурами (для установки значения), принимающими параметр соответствующего типа, или функциями (для получения значения), возвращающими значение соответствующего типа.
Модификатор property-свойства index предназначен для объединения методов доступа (чтения и установки) к значениям нескольких однотипных property-свойств. После модификатора указывается целочисленное значение, которое является, фактически номером свойства. Методы доступа модифицируются добавлением параметра типа, в ко
тором передается номер этого свойства.
Модификаторы stored, default и nodefault настраивают среду разработчика в отношении сохранения property-свойств и указывают, следует ли сохранять значение property-свойства, и в каких случаях.
Модификатор nodefault отменяет действие модификатора default при переопределении property-свойства.
Для доступа к массивам информации могут использоваться property-свойства, тип данных которых аналогичен массивам. Методы доступа в этом случае модифицируются дополнительным параметром, определяющим номер элемента в массиве, к которому производится обращение.
| Расскажите про модель сообщений компонентов
, Ответ: Модель сообщений компонентов позаимствована из операционной системы Windows и позволяет компонентам обмениваться между собой сообщениями, упакованными в структуры типа TMessage.
События, используемые в Delphi, делятся на две группы:
сообщения для оконных компонентов, полученные из системной очереди сообщений Windows;
и сообщения, созданные внутри программного продукта для передачи информации между компонентами смешанного типа.
Подарок оптовикам Украины!
Почему все оптовые покупатели технической книгиУкраины теперь обращаются только к нам?
полный accofttniLUeHhi
© 75ЯВ32
^оапцпкыецены
Как издатели мы предоставили:
тысячи книг по радиоэлектронике и ПК ведущих издательств
наборы и альбомы схем бытовой радиоэлектронной техники
подписку на прайс-листы с рассылкой по E-mail и по почте
привлекательную систему скидок, не уступающую московской
е возможность приема заказа по прайсам любых издательств
удобство подбора товара в нашем офисе при личном визите
оперативное комплектование и оформление Вашего заказа
срочную доставку в регионы Украины за счет издательства
Украинский лидер оптовой торговлииздательство НАУКА и ТЕХНИКА, город КиевКниги по радиоэлектронике и компьютерным технологиям
Интернет-магазин: www.nit.com.ru E-mail: nits@voliacable.com02166 Киев, ул. Курчатова, 9/21. Тел.(044)-516-38-66, 559-27-40
Наш партнер в России: 000 "Наука и Техника" (г. Санкт-Петербург)E-mail: ni№mailwplus.net Тел.(812)-56 7-70-25,567-70-26
Книги и Наборы схем ПОЧТОЙ
ИздательствоткНаука и Техника' принимает заказы на продажу печатнойпродукции по почте наложенным платежом.
Оплата производится на почте при получении книг, для организаций возможнаоплата по безналичному расчету после выставления счета.
Для этого Вам необходимо оформить бланк заказа и отправить его нам.
Для жителей России: 193029 Санкт-Петербург, а/я 44, ООО «Наука и Техника» тел/факс(812)-567-70-26, 567-70-25 nit@mail. wplus. net
Для жителей Украины:
02/66 Киев-/66 ул. Курчатова, 9 2/
«Наука и Техника»
тел/факс (044J-516-38-66, 559-27-40
E-mail: nits@voliacable.com
Перечень рассылаемых книг размещен насайте издательства: www.nit.com.ru
Вы также можете приобрести книги других издательств по тематикам:
Радиоэлектроника Компьютерные технологии Техника безопасности на предприятиях Транспорт. ,: имеч тчие Заказанные бесплатные каталоги высылаются по электронной почте или вкладываются в посылку с книгами (отдельно письмом каталоги не рассылаю: се)
Заполняйте поля аккуратно большими отдельными буквами.
Информация для приобретения книг почтой частными лицами
Фамилия, имя, отчество
Почтовый адрес: индекс страна
область город, поселок
улица дом корпус _
телефон ()
адрес электронной почты (если он у Вас е< ть) E-mail:
Информация для выставления счета организациям
Название ИНН
Телефон/факс ()
Контактное лицо для отправки заказа: индекс страна"
область город, поселок
XXулица дом
X
X
адрес электронной почты (если он у Вас есть) E-mail:
.. Цене ....Цене ..„Год.. ОвьемЗаказРоссияУкраина(экз.)(руб.)(грн.)127 00 ..1800 .2003С 176. 109,0019,00 ....2003С 400. 132.00 .27,00 ...2004С 272160.CG32,00 ...С38476.00 .12,00 ...2002М 946154 00 ..26,00 ..2004С 384193,00..39,00 ...2004. С 70488.0018,00 ...2002С 768135,00 ..27,00 ...2004С 49674,00 ....15,00 ...2004М 288159 0032,00 ...2004С 56015^ 1 Г40 ОО. 2004169 0034,00 ...2004.41.00-.—. 2004- М 12839,00 .8,002003М. 106,00..21,00 .... 2004. С 368.110 0022,00 ...2003С 336. 110,00 .22,00 ....2003.С 352.. 165,00.33,00 .... 2004С 64033 ОО ...6,002001С 256. 33,00 ..6,00.200!.С 35218.004.00С 19244.00...9,00.2001.. М22443.00...9,00.2001.. С 14439,00 —8,002000.С 144.. 18,004,002000. С 1 28105 00.. 22,00 —Л ОО.2001.50.00 ...2001.. С 240.6.0033,006,00.2001М 22444 00 —9,00.2001. С51233.006,00.2001 ..С 192. 102,00.20,00 ...2003.. М 400.. 102,00.20,00 ....2001. М36849.00...10,00 ....2003.. М 240.61,00...12,00 .... М 176. 44,00 ...9,002003.. М 112130 СИ) .97 ОО. 2004Л 80, 123^00 .2003f—* 4 1 668,00 ...14,00.2003.. С 144. 123,00.25,00 ...2004.. С_352. 77.00 .,15,00 ...2003. М 22355 00 ....11 ОО2003М 144105 0016,00 ..2004. М4ОО87 00 , .2004М 994. 87,00 ...17,00.. 2004. М 288. 60,0012,002004. М 192.60,00 ..12,00 .... 2004. М 144.. Цене ....Цене ..„Год.. ОвьемЗаказРоссияУкраина(экз.)(руб.)(грн.)127 00 ..1800 .2003С 176. 109,0019,00 ....2003С 400. 132.00 .27,00 ...2004С 272160.CG32,00 ...С38476.00 .12,00 ...2002М 946154 00 ..26,00 ..2004С 384193,00..39,00 ...2004. С 70488.0018,00 ...2002С 768135,00 ..27,00 ...2004С 49674,00 ....15,00 ...2004М 288159 0032,00 ...2004С 56015^ 1 Г40 ОО. 2004169 0034,00 ...2004.41.00-.—. 2004- М 12839,00 .8,002003М. 106,00..21,00 .... 2004. С 368.110 0022,00 ...2003С 336. 110,00 .22,00 ....2003.С 352.. 165,00.33,00 .... 2004С 64033 ОО ...6,002001С 256. 33,00 ..6,00.200!.С 35218.004.00С 19244.00...9,00.2001.. М22443.00...9,00.2001.. С 14439,00 —8,002000.С 144.. 18,004,002000. С 1 28105 00.. 22,00 —Л ОО.2001.50.00 ...2001.. С 240.6.0033,006,00.2001М 22444 00 —9,00.2001. С51233.006,00.2001 ..С 192. 102,00.20,00 ...2003.. М 400.. 102,00.20,00 ....2001. М36849.00...10,00 ....2003.. М 240.61,00...12,00 .... М 176. 44,00 ...9,002003.. М 112130 СИ) .97 ОО. 2004Л 80, 123^00 .2003f—* 4 1 668,00 ...14,00.2003.. С 144. 123,00.25,00 ...2004.. С_352. 77.00 .,15,00 ...2003. М 22355 00 ....11 ОО2003М 144105 0016,00 ..2004. М4ОО87 00 , .2004М 994. 87,00 ...17,00.. 2004. М 288. 60,0012,002004. М 192.60,00 ..12,00 .... 2004. М 144Кузнецова.. Подольский. Пестри коа.Кузнецова.. Подольский. Пестри коа.Есипов Есипов . .Есипов Есипов . .армвтика (учебник), изд 3армвтика (учебник), изд 3\\СауловСемьян.. ^ ШмыревСауловСемьян.. ^ Шмырев
.. Цене ....
Цене ..„
Год
.. Овьем
Заказ
Россия
Украина
(экз.)
(руб.)
(грн.)
127 00 ..
1800 .
2003
С 176
. 109,00
19,00 ...
.2003
С 400
. 132.00 .
27,00 ...
2004
С 272
160.CG
32,00 ...
С384
76.00 .
12,00 ...
2002
М 946
154 00 ..
26,00 ..
2004
С 384
193,00..
39,00 ...
2004
. С 704
88.00
18,00 ...
2002
С 768
135,00 ..
27,00 ...
2004
С 496
74,00 ....
15,00 ...
2004
М 288
159 00
32,00 ...
2004
С 560
15^ 1 Г
40 ОО
. 2004
169 00
34,00 ...
2004
.41.00-.—
. 2004
- М 128
39,00 .
8,00
2003
М
. 106,00..
21,00 ...
. 2004
. С 368.
110 00
22,00 ...
2003
С 336
. 110,00 .
22,00 ...
.2003.
С 352
.. 165,00.
33,00 ...
. 2004
С 640
33 ОО ...
6,00
2001
С 256
. 33,00 ..
6,00
.200!.
С 352
18.00
4.00
С 192
44.00...
9,00
.2001.
. М224
43.00...
9,00
.2001.
. С 144
39,00 —
8,00
2000
.С 144.
. 18,00
4,00
2000
. С 1 28
105 00
.. 22,00 —
Л ОО
.2001.
50.00 ..
.2001.
. С 240.
6.00
33,00
6,00
.2001
М 224
44 00 —
9,00
.2001
. С512
33.00
6,00
.2001 .
.С 192
. 102,00.
20,00 ...
2003.
. М 400
.. 102,00.
20,00 ...
.2001
. М368
49.00...
10,00 ...
.2003.
. М 240
.61,00...
12,00 ...
. М 176
. 44,00 ...
9,00
2003.
. М 112
130 СИ) .
97 ОО
. 2004
Л 80
, 123^00 .
2003
f—* 4 1 6
68,00 ...
14,00
.2003.
. С 144
. 123,00.
25,00 ..
.2004.
. С_352
. 77.00 .,
15,00 ..
.2003
. М 223
55 00 ....
11 ОО
2003
М 144
105 00
16,00 ..
2004
. М4ОО
87 00 , .
2004
М 994
. 87,00 ...
17,00
.. 2004
. М 288
. 60,00
12,00
2004
. М 192
.60,00 ..
12,00 ..
.. 2004
. М 144
.. Цене ....
Цене ..„
Год
.. Овьем
Заказ
Россия
Украина
(экз.)
(руб.)
(грн.)
127 00 ..
1800 .
2003
С 176
. 109,00
19,00 ...
.2003
С 400
. 132.00 .
27,00 ...
2004
С 272
160.CG
32,00 ...
С384
76.00 .
12,00 ...
2002
М 946
154 00 ..
26,00 ..
2004
С 384
193,00..
39,00 ...
2004
. С 704
88.00
18,00 ...
2002
С 768
135,00 ..
27,00 ...
2004
С 496
74,00 ....
15,00 ...
2004
М 288
159 00
32,00 ...
2004
С 560
15^ 1 Г
40 ОО
. 2004
169 00
34,00 ...
2004
.41.00-.—
. 2004
- М 128
39,00 .
8,00
2003
М
. 106,00..
21,00 ...
. 2004
. С 368.
110 00
22,00 ...
2003
С 336
. 110,00 .
22,00 ...
.2003.
С 352
.. 165,00.
33,00 ...
. 2004
С 640
33 ОО ...
6,00
2001
С 256
. 33,00 ..
6,00
.200!.
С 352
18.00
4.00
С 192
44.00...
9,00
.2001.
. М224
43.00...
9,00
.2001.
. С 144
39,00 —
8,00
2000
.С 144.
. 18,00
4,00
2000
. С 1 28
105 00
.. 22,00 —
Л ОО
.2001.
50.00 ..
.2001.
. С 240.
6.00
33,00
6,00
.2001
М 224
44 00 —
9,00
.2001
. С512
33.00
6,00
.2001 .
.С 192
. 102,00.
20,00 ...
2003.
. М 400
.. 102,00.
20,00 ...
.2001
. М368
49.00...
10,00 ...
.2003.
. М 240
.61,00...
12,00 ...
. М 176
. 44,00 ...
9,00
2003.
. М 112
130 СИ) .
97 ОО
. 2004
Л 80
, 123^00 .
2003
f—* 4 1 6
68,00 ...
14,00
.2003.
. С 144
. 123,00.
25,00 ..
.2004.
. С_352
. 77.00 .,
15,00 ..
.2003
. М 223
55 00 ....
11 ОО
2003
М 144
105 00
16,00 ..
2004
. М4ОО
87 00 , .
2004
М 994
. 87,00 ...
17,00
.. 2004
. М 288
. 60,00
12,00
2004
. М 192
.60,00 ..
12,00 ..
.. 2004
. М 144
Кузнецова.. Подольский. Пестри коа.
Кузнецова.. Подольский. Пестри коа.
Есипов
Есипов . .
Есипов
Есипов . .
армвтика (учебник), изд 3
армвтика (учебник), изд 3
\
\
Саулов
Семьян.. ^ Шмырев
Саулов
Семьян.. ^ Шмырев
Профи
Вебер ......„,.... Knowledge-техн. ■ консалтинге и упр предпр ♦ СО ....
Гурте кидзеМультисервисныв сети и услуги широкопол, доступа..
КучерявыйПакетная сеть связи общего пользования
НазаровНейросетевые алгоритмы ia и оптимизации
Мнслмин Цифровая тяукимпись Технологии и стандарты
Щеглов -.Hw—« Защита компьютер информ от месанкциюн доступа
Секреты мастерства
Колисниченко .. unux сервер своими руками, изд. 2-е, перераб. и доп.
Интернат. Шег агорой: от польз, к проф ♦ СО
Просто о сложном
ГерасимовAutoCAD 2002. Популярный самоучитель,
ДмитриевНастрой ки BIOS
ЖаркоеAutoCAD2004 Эффективный самоучитель
Колисниченко . Самоумтеле PHP 5
Установка и переустановка Window изд. 2-е .Печать на ПК слепым 10-лальц методом, 2-е + макет клав. Turbo Pascal 7.0. Изучаем на примерах
Серогпдский .... Excel 2002. Популярный самоучитель
ТиПю Paacai 7.0. Таор. и преет. программно., изд 2-
Конспект программиста
БудиловJavaScript XML и объектная мпдаг.и до»умп»па ..
Будилов „.—. Првк!ические многие по HTML Краткий курс * лек .
БудиловПреет инее, кие заннтил по РМР4 * CD ....,—..,„„
Картузов Программирование ив языке Java краткий курс , . КостельцевПостроение интерпретаторов и компиляторов + CD ....
КуправаСамоучитель Access 97/2000 + дек НиколенкоMIDI - язык богов + CD
НиколинлаПрактические занятия no JavaScript + дек
Николенко.Самоучитель noVis-jai С* «6
Цеховой . Web дизайн и коммерция
Библиотека пользователя
БудиловБудиловРаботаем с Finale 2001 + CD....
Будилов
Будилов
Просто о слоеном Windows 98
Серогояский.... Просто о сложном. Word 2000
ЦеховойЭнциклопедия дизайнера CorelDRAW Ю + CD
ЦеховойMacromedia Flash 5 + дек
Популярный учебник
. Информатика (задачник) ...
Домашний мастер
БалясниковОбувь. Выбор, уход, ремонт
Бирюков , Защита автомобиля от утоми
БогдановУмный дом
клрям^Чоряес . Справ, домашнего электрика, изд. 2-е, перераб. идол. ..
Корякин-Черняк . Холодильники от А до Я, изд. 2-е, перераб. и доп
Пестриков,Пестриков,Азбука илинт- трпрфснт изд. 2-е, перераб. и доч ...
Пестриков,
Пестриков,
Радиолюбитель
ВиноградовМикропроцессорное управление телевизорами
Петров Звуковяа схемотехника аля радио любите чей
.. Металлоискатели для любителей и профессионалов .. ... Телевизоры: ремонт, адаптаций, модернизация ... .500 схем для радиолюбителей. Приемники Радиостанция своими руками + вклейки
Автор
. .Миелине
Россия (руб.)
Украина (грн.)
• Год .,
.. Объем
Заказ 1 1« 1 |
Радио мастер
102.00.
49.00... 55,00
20 00 .. 10,00 ... 10,00 ... 10 00 ..
10 00 .
1
Виноградов,...
Виюградое „.^.
Вимсх радов ...
Вики радов ■
.Источники питания видеомагнитофонов
Сервисные режимы телевизоров-1
.2001 .
.2002.
. Б.
. С 208 .
Сервмсх*1е режимы тевежмзоров-2 . .........
Сервисные режимы телевизоров3 .
55.00 - 55,00
2001 . 2001
С_208
С 208
1
Виноградов....
.Сервисные режимы теле визоров-4
55,00.
10,00 ...
2002
. С 208 .
Корякин-Черняк хСдртае»-Чадхж
Сервисные режимы телевизоров-5
Сервисные режимы телевизоров-6 ...........
55,00 ...
10,00 ...
10 00 ..
■ 2.
. Юб .
. С_208.
. . . . ,
Виноградов.... Корякин-Черняк Виноградов.... Кпряпв»Чадх* КорвмеМюмас Жура■лее ... .
Сервисные режимы телевмэорое-7 . . ...
Сервисные режимы телевизоров-8
Сервисные режимы телевизоров-9
Сервисные режимы телевизоров -10
Сервисные режимы телевизоров- И
55 00
55.00 . 55,00 55,00 .
10 00 ..
10,00 ...
10,00 ...
10,00 ...
10 00 ..
2002
С. 208.
. С 708 .
. С 208.
.С 208.
Сервисные режимы тогепизирои-12
Телееиаион»ш«е процессоры системы упревлени*
55,00
10,00 ...
13 00 ..
.2001 .
. С 20В.
. С 512
Заикин
Соареыехвтме радаютелефоны * схемы ..
26 00 .
.2003.
С 352.
Корякин-Черняк
Абонентские телефонные аппараты
121.00
20,00 ...
. с368.
Корякин-Черняк
Корнсин-Чиркж
Котенко. .......м
АОН в телефонных аппаратах
Автосигнализации от Адо/, изд. 2-е, перераб. и доп.
Электронные тжлефотвтые апгхарвхы, изд. 3-е, перераб ..
109.00 127.00
106 оо
18,00 ...
25,00 ....
16.00
.2003.
.2003.
2003
. С_288 .
. С 336 .
. С 272.
Кучеров .. . .
Мухин
Истотнмки питание моим торов .Энциклопедия мобильной связи Видеокамеры ♦ (оклейки: 13 схем)
66 00
63,00...
56 G0
10.00 .
10,00 ...
10 00
2001 .2001 .
2000
С 240 .С 240.
Перхала
Цифровав электроника. им 2-е. перераб и дол ,
70.00
10 00
2001
С 224
"1
Пашкевич
Пестри ков
Пестр и ков
Пес трихов .
.Модернизация телевизоров 3 ЬУСЦТ, изд. 2-е
Домашний электрик и не только... Книга 1
Домашний электрик и не только... Книга 2 .Радиоэлектроника в конструкциях и увлечениях Энцимл радиолюбителе Работаем с компьютером
76.00
76,00 ..
87.00...
87.00 ...
13,00 ...
15,00 ...
15,00 ...
18,00 ...
1800 ..
.2001 . 2003
. 1901.
.2004.
.2004.
. С 320.
. С20В.
. С_208.
.С.240
. С 272 .
Янковский
.Видеомагнитофоны серии ВМ + (вклейки: 18 схем)
р и Энциклопедия телемастера .Телевизоры DAEWOO и SAMSUNG + схемы .Импульсные источники питания видеомагнитофонов ..
Применение тепевнзномных микросхем Том 1
66,00 ...
120 00
55.00 ...
142,00 .
13,00 ...
2400 ..
9,00 ...
29,00 ..
.2001 .
Б 272.
Телемасте
Безверхиий.... Виноградов....
Коржоех-Чермег
2003.
.2003.
. С 144. с 160 . С 320.
Кирадех-Чадеж
Применение телевизионных микросхем Том 2 .
142 00
63 00
109.00
70 00
29 00 ..
2004. йм.
. С.304
Телевизоры LO на 1ыесии МС-51В/74Д^9* А * схемы Видоолроцпссоры сомейстжа UOC ♦ сломы.
18.00
11 00
25 00
ЯнсовСКИЙ
Имгулъсныв исхочниги питании телевизоров .
127.00..
2003
. С 384.
Электронные компоненты
18 00
2004
С 256
Герасимов
Никамин
.Интегральные УНЧ, изд. 2-е, перераб. и доп
Микросхемы для CD-проигрывателей. Сервосистемы ..
. 120,00.
13,00 ...
24,00 .,. >5 00 .
.2003.
.2003.
Перхала .
Цифровые КМОП-микросхема,.
С 400
Микроконтроллеры PC 16Х7ХХ ■ •
99 00 ■
2002
М 320
ТВ микросхемы. Том 1 ИМС обработки ТВ сигналов ... Зарубежные микросхемы траэисхоры, диоды A Z .
3aov6 мЛоемы хпмистоом лиооы 0 9 мм 2-е ..
109 оо.,
2004
202 00
1Ь4,00
40 00
2004
М 590
Зарубежная электроника
Авраменко. Ремонт и регулировка CD-проигр. + (вклейки: 26 схем) БрускинЗарубежные резидентные радиотелефоны, изд. доп. ...
. 58,00 . . 48,00...
18,00 ..
40,00.
.66,00 ..
12,00 ...
10,00 ...
4,00 . .
8,00
13,00 ...
4,00
. 1999 .2000 . IW 2000
h 160.
I 176.
. Б_176.
. С 352 .
. С752 .
Б 192
Кульсжмй.
Куприянов .. ..
Лаврус
КВ-прием ни к мирового уровня (для радиолюбителей) . Тех. обеспечение цифровой обработки сигналов
..Практика измерений в телевизионной технике
Тепееизооы ближнего лапхбежьв
. 2000 1998
Справочник рабочего
ШевченкоЧтение машиностроительных чертежей. Спрее пособие
54.00 . .
11,00 ...
2003.
М.1В2
}. В колонке «Овмм** буквой указан размер книги в см: М — 14x21, С — 16x23, Б — 20x28.
'СО— шменвег. что к книге прилагается <d*#-v?* - а-*;' * док— означает, что к книге прилагается дискета.
Цены розничные, указаны без учета почтовых расходов. Цены приведены по состоянию на сентябрь 2004 года.
35 Заметим, что члены класса, не помеченные спецификатором области видимости, имеют область видимости public или published, в зависимости от состояния флага условной компиляции SM. Свойства, автоматически добавляемые Delphi — ссылки на интерфейсные элементы — как раз не имеют ограничения области видимости.
45 Элементы управления имеют для этого свойство Enabled, описанное ниже, при обсуждении визуальных компонентов.'
м.в. Сухарев
Профессиональныйподход
иТ
Наука и Техника, Санкт-Петербург2004
М.В.Сухарев
Основы Delphi. Профессиональный подход — СПб.: Наука и Техника, 2004. — 600 । ил.
Под редакцией М.В. Фи#кова
ISBN 5-94387-129-2
Серия «Секреты мастерства»
Эта книга является превосходным учебным пособием, дающим наиболее полное и системное понимание основополагающих механизмов Delphi. Цель книги — помочь программистам, начинающим работать с Delphi, сделать первый шаг в ее изучении так, чтобы не возвращаться к пройденному материалу в дальнейшем для углубления знаний. В то же время книга будет интересна и опытным программистам, благодаря своему обобщенному изложению.
Основная часть материала описывает фундаментальные основы Delphi, структуру компонентов и правила их использования. Подробно рассмотрено объектноориентированное программирование в Delphi. Описываются технологии взаимодействия приложений с операционной системой.
Книгу отличает глубокий, системный подход и, в то же время, доступное изложение материала. Используется большое количество наглядных примеров. Лучший выбор для всех, кто хочет получить серьезные знания и грамотно работать с Delphi.
Контактные телефоны издательства (812) 567-70-25, 567-70-26 (044) 516-38-66, 559-27-40
Официальный сайт www.nit.com.ru
© Сухарев М.В.
© Наука и Техника (оригинал-макет), 2004
ООО «Наука и Техника».
Лицензия №000350 от 23 декабря 1999 года.198097, г. Санкт-Петербург, ул. Маршала Говорова, д. 29.Подписано в печать 16.08.04. Формат 70x100 1/16.Бумага газетная. Печать офсетная. Объем 37,5 п. л.
Тираж 3000 экз. Заказ № 867
Отпечатано с готовых диапозитивов в ОАО «Техническая книга»
190005, Санкт-Петербург, Измайловский пр., 29
Содержание
Введение:13
Общая характеристика Delphi13
Место Delphi в современном программировании14
Задачи издания15