Бильфельд Н.В., Затонский А.В. Основы разработки интерфейсов: Реализация в системе Borland Delphi
Подождите немного. Документ загружается.
40
Компонент PageScroller
Позволяет задавать видимую область для различных компонентов
управления, например для панелей.
Основные свойства
AutoScroll – автоматическая прокрутка при наведении мыши.
ButtonSize – размер кнопки со стрелкой.
Margin – расстояние между прокручиваемой областью и границами объекта.
Orientation – направление прокрутки.
Position – величина сдвига прокручиваемой области/
Пример № 7
5
Поместим на форму компонент RadioGroup. Назначим 10 радиокнопок
(с текстами «0» – «9»). Установим Height = 300, Width = 50, Caption = ’’.
Поместим на форму компонент PageScroller. Установим Height = 105;
Width = 54; ButtonSize = 16; Orientation = Vertical; Control = RadioGroup1.
В результате форма будет выглядеть следующим образом (рис. 24).
Рис. 24. Внешний вид формы примера № 7
После запуска программы можно выбрать необходимый фрагмент
компонента RadiоButton и, тем самым, сэкономить место на форме, не
показывая его весь.
Пример № 8
6
Данный компонент очень удобно использовать при генерации массивов
компонентов. Допустим, что максимально возможное число коэффициентов
полинома может равняться 20. В этом случае на форме необходимо
зарезервировать место под 20 компонентов Edit, которые необходимо
сгенерировать (см. рис. 20), что будет занимать достаточно много пустого
5
Рабочий вариант и исходный текст в папке PageControl.
6
Рабочий вариант и исходный текст в папке ArrayMas1.
41
места. Намного удобнее, если генерировать данные компоненты не на форме,
а на обычной панели, которую предварительно поместим в компонент
PageScroller. В этом случае можно использовать под ввод фиксированное
место на форме.
Поместим на форму компоненты PageScroller и СomboBox. Установим
следующие свойства для PageScroller: Width = 120, Height = 120,
Orientation = soVertical. Поместим на PageScroller компонент Panel (рис. 25).
Рис. 25. Внешний вид формы примера № 8
Опишем константу:
Const K=30;
Объявим массив:
var
E:Array[1..K] Of TEdit;N:Integer;
Для процедуры создания формы напишем следующий код:
Var I:Integer;
begin
N:=0;ComboBox1.Clear; Panel1.Caption:='';
For I:=1 To K Do ComboBox1.Items.Add(IntToStr(I));
end;
Для ComboBox напишем следующий код:
procedure TForm1.ComboBox1Change(Sender: TObject);
Var I:Integer;
begin
For I:=1 To N Do E[I].Destroy;
N:=StrToInt(ComboBox1.Text);
For I:=1 To N Do Begin
E[I]:=TEdit.Create(Self.Panel1); E[I].Parent:=Self.Panel1;
If I=1 Then E[I].Top:=10 Else E[I].Top:=E[I-1].Top+E[I-1].Height+10;
E[I].Tag:=I;E[I].Left:=8; E[I].Width:=100;
42
E[I].Text:='Ввод '+IntToStr(I);
End;
Panel1.Height:=N*(E[1].Height+10)+10;
end;
В данном примере в отличие от предыдущего примера формирования
массива необходимо после параметра Self указать имя компонента, на
котором будет формироваться массив: TEdit.Create (Self.Panel1).
Также здесь более оптимально формируется расстояние между
компонентами по вертикали. После завершения цикла генерации массива
устанавливается необходимый размер панели в зависимости от количества
сгенерированных компонентов, но на форме размер окна ввода всегда будет
фиксированным Рабочий вид программы приведен на рис. 26.
Рис. 26. Рабочий вид программы примера № 7
Компонент HeaderControl
Позволяет разместить на форме заголовки произвольных элементов.
Порядок и размеры этих заголовков можно менять. Простой алгоритм работы
компонента позволяет подстраивать размеры других объектов под размеры
заголовков.
Основные свойства
DragRecover при True – позволяет менять порядок заголовков
перетаскиванием мышью.
FullDrag при True – при перетаскивании рисуется не граница раздела, а весь
раздел.
HotTrac при True – при наведении мыши заголовок выделяется другим
цветом.
Images – ссылка на компонент ImageList .
Сами разделы задаются из контекстного меню редактора коллекций,
который активизируется при щелчке по компоненту.
43
Основные свойства разделов
AllowClick при True – раздел может работать как кнопка (реагировать на
щелчок).
ImageIndex – номер картинки.
Width – ширина раздела.
Основные события компонента
OnSectionClick – щелчок мыши на разделе.
OnSectionDrag – перетаскивание раздела в новую позицию.
OnSectionResize – произошло изменение размера раздела.
OnSectionTrak – идет процесс изменения размера раздела.
Пример № 9
7
Поместим компонент на форму. Откроем редактор коллекций и
создадим два раздела со следующими свойствами:
Width = 100;
Allignment = taCenter;
Text = «Выбор 1» – для первого раздела;
Text = «Выбор 2» –для второго раздела.
Разместим под заголовками два компонента PageScroller с шириной,
равной ширине заголовков. Поместим на форму два компонента RadioGroup.
Назначим по 10 радиокнопок. Установим свойство Columns=10, чтобы
кнопки расположились горизонтально. Установим ширину компонентов,
равным 400.
Для компонентов PageScroller установим свойства Control равным
RadioGroup1 и RadioGroup2 соответственно. При этом форма будет иметь
следующий вид, представленный на рис. 27.
Рис. 27. Внешний вид формы примера № 9
Для события OnSectionTrack напишем следующий код:
begin
Section.Width:=Width;
PageScroller1.Width:=HeaderControl.Sections.Items[0].Width;
PageScroller2.Width:=HeaderControl.Sections.Items[1].Width;
7
Рабочий вариант и исходный текст в папке HeaderControl.
44
PageScroller2.Left:=HeaderControl.Sections.Items[1].Left;
end;
Для события OnSectionClick напишем следующий код:
begin
If Section=HeaderControl1.Sections.Items[0] Then PageScroller1.Position:=0;
If Section=HeaderControl1.Sections.Items[1] Then PageScroller2.Position:=0;
end;
После запуска программы, меняя ширину соответствующих разделов,
будет меняться ширина соответствующих компонентов. В пределах
компонента видимую область также можно изменить т.к. они расположены
на панелях PageController (рис. 28).
Рис. 28. Внешний вид программы примера № 8 после запуска.
Компонент StatusBar
Используется для вывода подсказок и служебной информации. Строка
состояния обычно делиться на несколько панелей. Панели назначаются из
контекстного меню редактора коллекций командой Add, которая открывается
при щелчке по компоненту (рис. 29).
Рис. 29. Помещение в редактор коллекций панелей
Текст в соответствующую панель помещается как:
StatusBar1.Panels[0].Text:='Пример’;
45
Основные свойства панели
Alignment – способ выравнивания текста на данной панели.
Bevel – вид панели (выпуклая, вдавленная или обычная).
Text – текст панели.
Width – ширина панели.
Пример № 10
8
Создадим форму (рис. 30).
Рис. 30. Внешний вид формы примера № 10
В свойстве Hint компонентов Edit напишем какие-нибудь подсказки,
например, «Подсказка 1», «Подсказка 2» и т.д.
Напишем свою процедуру:
Procedure TForm1.Status(Sender: TObject);
Begin
StatusBar1.Panels[0].Text:=Application.Hint;
End;
Поместим заголовок в интерфейсную часть. Для процедуры создания
формы запишем код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint:=Status;
end;
Для события OnMouseMove формы запишем код:
begin
StatusBar1.Panels[1].Text:='X='+IntToStr(X)+' Y='+IntToStr(Y);
If ssLeft in Shift Then StatusBar1.Panels[2].Text:='Нажата'
Else StatusBar1.Panels[2].Text:='Отжата';
end;
Компонент ToolBar
Используется для управления быстрыми командными кнопками.
Позволяет формировать многостраничные наборы инструментов. После
8
Рабочий вариант и исходный текст в папке StatusBar.
46
помещения на форму он автоматически располагается у верхнего края
формы.
Основные свойства компонента ToolBar
EdgeBorders – сложное свойство. Определяет наличие или отсутствие
видимых краев (полосок) с каждой из четырех сторон панели.
EdgeInner, EngeOuter – вид окаймляющих полос (вдавленный, выпуклый) с
внутренней и внешней стороны.
ButtonWidth, ButtonHeight – ширина и высота (в пикселях) элементов
управления, располагаемых на панели.
DisablebImages – указывает на объект типа TImageList (список картинок),
который содержит изображения кнопок, отображающих их “отключенное”
состояние. Если значение для данного свойства не задано, используются
обычные картинки кнопок, преобразованные к палитре, содержащей только
тона серого.
Flat – имеет значение True, если используется стиль «прозрачных» кнопок,
когда фон панели и кнопок не рисуется.
HotImages – указывает на объект типа TImageList (список картинок), который
содержит изображения кнопок, появляющихся при наведении на кнопку
указателя мыши. Подобный стиль характерен для кнопок броузера Microsoft
Internet Explorer версии 4 и выше.
Images – указывает на объект типа TImageList (список картинок), который
содержит рабочие изображения кнопок.
Indent – сдвиг левой границы панели в пикселях.
List – имеет значение True, если необходимо показывать заголовки кнопок
справа от изображений, а не под ними.
ShowCaptions – имеет значение True, если текстовые заголовки кнопок
должны отображаться на панели.
Transparent – имеет значение True, если панель – прозрачная. Это свойство
не влияет на прозрачность объектов на панели.
Wrapable – имеет значение True, если элементы управления на панели
должны автоматически образовывать новые строки, при условии, что им не
хватает пространства формы.
Панель может работать с кнопками ToolButton, которые не
присутствуют на палитре компонентов Delphi. Они добавляются на
компонент из контекстного меню командами:
• NewButton – добавить кнопку;
• NewSeparator – добавить разделитель.
Массив таких кнопок храниться в свойстве Buttons. Их текущее число
определяется значение свойства ButtonCount.
47
Основные свойства класса ToolButton
AllowAllUp – имеет значение True, если все компоненты группы, к которой
относится данная кнопка, могут одновременно находиться в отжатом
состоянии.
Down – состояние кнопки (True – кнопка отжата).
DropdownMenu – ссылка на меню кнопки (Popup Menu). Дополнительно, для
свойства кнопки Style надо задать значение tdsDropDown. При этом к правой
части кнопки добавляется небольшая панель со стрелкой, при щелчке на
которой и открывается меню.
Grouped – имеет значение True, если данная кнопка входит в состав группы.
Режим работы в группе задается значением tdsCheck для свойства кнопки
Style. В группе может быть нажата только одна кнопка, при щелчке на
отпущенной кнопке все остальные отжимаются, а она остается в нажатом
состоянии. Такой режим действует только в диапазоне смежных кнопок,
которые не отделены друг от друга разделителями и все имеют значение True
для свойства Grouped и значение tdsCheck для свойства Style.
ImageIndex – номер картинки из списка картинок, на который ссылается
родительский объект (TToolBar).
Ideterminate – имеет значение True, если кнопка находится в
«промежуточном» состоянии. Это позволяет показывать «частичность»
выполняемых функций. Свойство Down при этом автоматически принимает
значение False.
Index – порядковый номер кнопки.
Marked – имеет значение True, если кнопка изображается как отключенная
(покрыта мелкой сеткой).
MenuItem – если в данном свойстве указан один из доступных на форме
пунктов любого из существующих меню, то щелчок на данной кнопке
приведет к выполнению действия, связанного с этим пунктом.
Style – стиль кнопки. Возможные значения: tdsButton (командная кнопка),
tdsCheck (кнопка-переключатель), tdsDropDown (кнопка-меню), tdsSeparator
(кнопка-разделитель), и tdsDivider (широкий разделитель).
Wrap – имеет значение True, если требуется, чтобы следующая кнопка
размещалась на новой строке панели.
Пример № 11
9
Поместим на форму компоненты ToolBar, Label, PopupMenu и три
компонента ImageList. Из контекстного меню компонента ToolBar выполним
последовательность команд:
NewButton – 4 раза
NewSeparator
NewButton – 3 раза
NewSeparator
9
Рабочий вариант и исходный текст в папке ToolBar
48
NewButton
NewSeparator
NewButton
Загрузим в ImageList1 бледные пиктограммы: Arrow1L.bmp;
Arrow1R.bmp; Arrow1D.bmp; Arrow1U.bmp; Bulbon.bmp. Загрузим в
ImageList2 яркие пиктограммы этих же кнопок. Загрузим в ImageList3 яркие
пиктограммы: Arrow2L.bmp; Arrow2R.bmp; Arrow2D.bmp; Arrow2U.bmp. В
результате получим (рис. 31):
Для ImageList1 Для ImageList2 Для ImageList3
Рис. 31. Пиктограммы, помещенные в компоненты ImageList
Создадим в PopupMenu следующую систему меню:
Кн.1, Кн.2, Кн.3, Кн4
Установим следующие свойства компонента ToolBar:
Autosize=True
ButtonHeight=36
ButtonWidth=40
DisabledImage=ImageList3
Flat=True
HotImages= ImageList2
Images= ImageList1
ShowCaptions=True
Transparent=True
Установим следующие свойства кнопкам (табл. 2).
Таблица 2
Установленные свойства компонентам ToolButton
AllowAllUp Caption Down DropDownMenu Grouped Style
ToolButton1 True Кн. 1 False True tbsCheck
ToolButton2 True Кн. 2 False True tbsCheck
ToolButton3 True Кн. 3 False True tbsCheck
ToolButton4 True Кн. 4 False True tbsCheck
ToolButton6 False Active True False tbsCheck
ToolButton8 True Ж False False tbsCheck
ToolButton9 True К False False tbsCheck
ToolButton10
True Ч False False tbsCheck
ToolButton12
False Font False False tbsButton
ToolButton14
False Кн. False PopupMenu1 False tbsDropDown
49
В результате должен получиться следующий вид формы (рис. 32)
Рис. 32. Внешний вид формы примера № 10
Напишем для пунктов меню следующий код:
Begin ToolBar1.Buttons[0].Down:=True; end;
begin ToolBar1.Buttons[1].Down:=True; end;
begin ToolBar1.Buttons[2].Down:=True; end;
begin ToolBar1.Buttons[3].Down:=True; end;
Напишем для отдельных кнопок следующий код
procedure TForm1.ToolButton6Click(Sender: TObject);
{ Для кнопки Button6}
Var I:Integer;
begin
For I:=0 To 3 Do Begin
ToolBar1.Buttons[I].Down:=False;
ToolBar1.Buttons[I].Enabled:=Not ToolBar1.Buttons[I].Enabled;
End;
end;
procedure TForm1.ToolButton12Click(Sender: TObject);
{ Для кнопки Button 12}
Var I:Integer;S:String;B:Boolean;
begin
S:='';B:=True;
For I:=7 To 9 Do Begin
If ToolBar1.Buttons[I].Down Then Begin
Case I Of
7:S:=S+':Жирный ';
8:S:=S+' Курсив ';
9:S:=S+' Подчеркнутый';
End;
B:=False;
End;