32 пиксела
96 пикселей
Рис.22.2. Пример картинки для кнопки TBitBtn
22.2. Компоненты TDrawGrid и TStringGrid
Компонент TDrawGrid представляет собой универсальную таблицу. Таблица делится на две области: фиксированную и подвижную. Фиксированная область предназначена для заголовков строк и столбцов.
Рис.22.3. Вид компонента TDrawGrid Основными свойствами этого компонента являются:
•Property ColCount:Integer; – количество столбцов;
•Property RowCount:Integer; – количество строк;
•Property Col:Integer; – текущая колонка;
•Property Row:Integer; – текущая строка;
•Property FixedCols:Integer; – число фиксированных столбцов;
•Property FixedRows:Integer; – число фиксированных строк;
•Property DefoultDrawing:Boolean; – если это свойство задать равным False,
то программист должен предусмотреть отрисовку содержимого компонента в обработчике события:
•Property OnDrawCell:TDrawCellEvent; – в нем следует предусмотреть отрисовку каждой ячейки таблицы.
Рассмотрим пример отрисовки в компоненте DrawGrid1 шахматной доски:
Procedure TForm1.DrawGrid1DrawCell(Sender:TObject; Col,Row:Longint; Rect:Trect; State:TGridDrawState);
Begin
With DrawGrid1.Canvas do Begin
If not Odd(Col+Row) then Brush.Color:=clBlack else Brush.Color:=clWhite; // Выбор цвета кисти
FillRect(Rect); // Закраска текущей ячейки
109
End;
End;
Здесь Col и Row определяют номер текущей ячейки таблицы, Rect – прямоугольник текущей ячейки, State – состояние текущей ячейки, которое может быть следующим:
gdSelected |
– текущая выбранная ячейка, |
gdFocused |
– текущая ячейка имеет фокус, |
gdFixed |
– текущая ячейка принадлежит фиксированной области. |
Компонент TStringGrid наследует компонент TDrawGrid и все его свойства. Этот компонент используется для отображения таблицы строк. Его основным свойством является:
•Property Cells[ACol, ARow:Integer]:String; – в этом свойстве хранят значения всех строк таблицы.
22.3. Компонент TPageControl
Компонент TPageControl со страницы Win32 используется для организации многостраничного блокнота, каждая страница которого представляется объектом типа TTabSheet ( рис.22.4).
Рис.22.4. Вид компонента TPageControl
В приведенном выше примере компонент TPageControl имеет три страницы с именами A, B и C. Он позволяет на одной форме разместить достаточно большое количество разных компонентов. На каждой странице размещается свой набор компонентов. Переключение между страницами осуществляется щелчком мыши по соответствующей закладке. На этапе проектирования можно щелкнуть над компонентом правой кнопкой мыши, и появится всплывающее меню с описанием возможных действий. Основными свойствами этого компонента являются:
• |
Property ActivePage:TTabSheet; |
– текущая страница блокнота, |
• |
Property PageCount:Integer; |
– число страниц в блокноте, |
•Property TabIndex:Integer; – номер выбранной странички блокнота. Странички нумеруются с нуля.
22.4. Компонент TTimer
Данный компонент со странички System. Это не визуальный компонент, он используется для отсчета интервалов реального времени:
Его основные свойства:
•Property Interval:word; – задает интервал времени в миллисекундах, который проходит между событиями OnTimer. Величина этого интервала реально
110
всегда будет кратна 55 мс. Это определяется системными часами, которые вызывают прерывания по времени через каждые 55 мс;
•Property Enable:Boolean; – включает и выключает таймер.
Вобработчике события OnTimer определяются те действия, которые должны быть выполнены через каждые Interval миллисекунд, например перемещение движка в компоненте TGauge.
22.5. Компонент TGauge
Он предназначен для отображения процесса изменения какой–либо величины, находится на страничке Semple и имеет несколько вариантов отображения, что определяется свойством ( рис.22.5):
• Property Kind:TGaugeKind;
Рис.22.5. Варианты отображения TGauge Остальные свойства имеют следующие значения:
•Property BackColor: TColor; – цвет незакрашенной части индикатора;
•Property ForeColor: TColor; – цвет закрашенной части индикатора;
•Property MaxValue: Longint; – максимальное значение диапазона изменения свойства Progress;
•Property MinValue: Longint; – минимальное значение диапазона изменения свойства Progress;
•Property PercentDone: Longint; – текущее значение Progress в процентах от его диапазона изменения;
•Property Progress: Longint; – текущее значение изменяющейся числовой величины;
•Property ShowText: Boolean; – если содержит True, в центре компонента выводится строковое представление значения PercentDone.
Метод Procedure AddProgress(Value: Longint); добавляет к текущему значению Progress величину Value. Аналогичные функции выполняют компоненты TProgressBar и TtrackBar.
22.6. Компонент TСolorGrid
Этот компонент со страницы Samples предназначен для выбора цветов из 16–цветной палитры:
111
Основной цвет выбирается щелчком левой кнопки мыши и отображается символами FG, фоновый цвет выбирается правой кнопкой мыши и отображается символами BG, при совпадении цветов отображаются символы
FB.
Выбранные цвета определяются свойствами:
•Property BackGroundColor:TColor; – цвет фона,
•Property ForeGroundColor:Tcolor; – основной цвет.
При смене цветов вызывается событие OnChange.
23.СТАНДАРТНЫЕ ДИАЛОГОВЫЕ ОКНА И ТИПОВЫЕ ДИАЛОГИ
23.1. Стандартные диалоговые окна
Стандартные диалоговые окна находятся на страничке Dialogs, на форме они отображаются ввиде значков и видны только на этапе проектирования программы. Все диалоговые окна вызываются в процессе работы программы с помощью метода Execute.
Для начала рассмотрим возможности компонента TOpenDialog 
. Этот диалог предназначен для выбора файлов на диске. Основными его свойствами являются:
• Property Filter:String; – определяет фильтр для отбора файлов.
Он состоит из набора сдвоенных полей. В первом определяется имя фильтра, а во втором – его реализация. Все поля фильтра разделяются вертикальной чертой – |. Например, можно задать фильтр следующим образом:
OpenDialog1.Filter:=’Графические файлы | *.bmp, *.gif, *.jpg ’+ ’| Текстовые файлы | *.txt, *.pas ’;
Здесь фильтр состоит из двух возможных фильтров: первый фильтр – для выбора графических файлов, а второй – для выбора текстовых файлов.
•Property FileName:WideString; – определяет имя выбранного файла.
•Property Options:TOpenOptions; – определяет множество возможностей выбора файлов.
Например, значение множества ofAllowMultiSelect позволяет выбрать не один, а произвольное множество файлов, имена которых размещаются в свойcтве:
•Property Files:TStrings;
Для выбора нескольких файлов следует удерживать клавишу Ctrl и мышью
отмечать выбранные файлы.
Рассмотрим пример обработчика события нажатия кнопки с надписью «Открыть файл», который производит поиск файла с расширением *.pas и затем воспроизводит содержимое этого файла в компоненте Memo1:
Procedure TForm1.Button1Click(Sender:TObject);
112