Бильфельд Н.В., Затонский А.В. Основы разработки интерфейсов: Реализация в системе Borland Delphi
Подождите немного. Документ загружается.
30
Рис. 14. Внешний вид формы примера № 2
Назначим свойству Tag компонентов Edit значения 1, 2 и 3
соответственно.
Объявим константу:
Const N=3 {Число используемых компонентов}
Опишем в разделе глобальных переменных массив:
var
B:Array[1..N] Of Boolean;
Данный массив необходим для анализа ввода запятой, как разделителя
между целой и дробной частью действительных чисел. Если разделитель
введен, не допускается повторный его ввод в данном компоненте. Если
разделитель удален, его можно заново ввести в другом месте.
В процедуре создания формы установим элементы массива в истину.
Var I:Integer;
begin
For I:=1 To N Do B[I]:=True;
end;
Выделим все компоненты Edit и активизируем событие OnChange. В
обработчике данного события напишем следующий код:
Var E:TEdit;I,P:Integer;
begin
E:=Tedit(Sender);
I:=E.Tag; E.ReadOnly:=True;
Case Key Of
{Разрешаем ввод чисел}
‘0’..’9’:E.ReadOnly:=False;
{Разрешаем удаление символов и проверяем, была ли удалена запятая}
31
#8:Begin E.ReadOnly:=False; P:=E.SelStart;If E.Text[P]=’,’Then B[I]:=True;
End;
{Разрешаем ввод запятой, при условии, что она отсутствует (была ранее
удалена)}
‘,’:Begin If B[I] Then E.ReadOnly:=False; B[I]:=False;End;
End;
end;
Как видно из приведенного фрагмента код программы не измениться,
не зависимо от того, сколько компонентов будет использоваться. Одно, что
необходимо сделать, это изменить значение константы N.
Создание массивов из компонентов
В отличие от Visual Basic, в Delphi и C++ нет готового механизма
создания массива из компонентов, хотя такая потребность возникает
достаточно часто. Это позволяет значительно сократить код программы за
счет обработки данных массивов в циклах. Создать такой массив можно с
помощью не сложного фрагмента кода.
Пример № 3
В компоненты Edit (рис. 15) введен небольшой двумерный массив
целых чисел (три столбца и пять строк). Необходимо выделить другим
цветом компонент, в который введено максимальное число.
Рис. 15. Внешний вид формы примера № 3
Не используя массивы определить максимум, перебирая все
компоненты достаточно трудоемко.
Создать массив из компонентов можно следующим образом.
Назначим свойствам Tag компонентов Edit значения:
для первой строки 11, 12, 13;
32
для второй строки 21, 22, 23 и так для всех строк.
Опишем глобальную переменную:
Var E:Array[1..3,1..5] Of TEdit;
Для процедуры создания формы напишем следующий код:
Var I:Integer;
begin
For I:=0 To ComponentCount-1 Do Begin
If Components[i].tag>0 Then Begin
E[Components[i].Tag Mod 10, Components[i].tag Div 10]:=
(Components[i] as TEdit);
End;
End;
end;
В принципе, массив из компонентов создан. Теперь к каждому
компоненту Edit можно обращаться по индексам.
Для тестирования программы напишем для кнопки небольшой
фрагмент кода:
Var I,J:Integer;X,Y,K:Integer;
begin
For I:=1 To 3 Do For J:=1 To 5 Do E[I,J].Text:=IntToStr(Random(60));
K:=StrToInt(E[1,1].Text);
For I:=1 To 3 Do For J:=1 To 5 Do Begin
If StrToInt(E[I,J].Text)>K Then Begin
K:=StrToInt(E[I,J].Text);X:=I;Y:=J;
End;
End;
E[X,Y].Color:=ClGreen;
end;
Результат тестирования приведен на рис. 16
33
Рис. 16. Результат тестирования
Пример № 4
В данном примере рассмотрим еще одну возможность. Это создание
таких массивов из компонентов, которые в статическом режиме на форму не
помещены.
Существует ряд задач, где такой подход себя оправдывает и визуально
выглядит достаточно эффективно. Например, ввод коэффициентов полинома,
при различной степени полинома, ввод ингредиентов различных блюд
питания и т.д. Другими словами сначала необходимо ввести количество, а
затем в зависимости от введенного значения на форме должно
сгенерироваться заданное число компонентов.
Рис. 17. Внешний вид формы примера № 4
34
Создадим форму (рис. 17). В разделе глобальных переменных опишем
массив на класс TEdit и переменную целого типа:
Var
E:Array[1..10] Of TEdit; N:Integer;
Занесем в компонент ComboBox список из целых чисел, например 1, 2
..8.
Так как компоненты на форме не присутствуют, и нельзя
воспользоваться инспектором объектов для активизации обработчика
событий для компонентов массива, до создания массива нужно написать свой
обработчик. При создании массива в дальнейшем мы сошлемся на уже
созданный обработчик.
Пишем процедуру обработчика.
Procedure TForm1.EChange(Sender:TObject);
Var I:Byte;
Begin
{Определяем индекс элемента}
I:=(Sender As TEdit).Tag;
{Выполняем необходимые действия}
Label1.Caption:=IntToStr(I)+' > '+E[I].Text;
End;
Пишем код для компонента ComboBox:
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);E[I].Parent:=Self;
{Располагаем компоненты вертикально друг над другом}
E[I].Top:=(32*I)+8;
{Назначаем основные свойства компонентам}
E[I].Tag:=I;E[I].Left:=8;
{Ссылаемся на ранее созданный обработчик}
E[I].OnChange:=EChange;
End;
end;
В процедуре создания формы необходимо обнулить переменную N:
begin
N:=0;
end;
35
Рис. 18. Фрагмент, демонстрирующий работу программы
После запуска программы в ComboBox будем выбирать необходимое
количество компонентов. При вводе значений в любой компонент
информация будет дублироваться в компоненте Label с указанием номера
компонента, что демонстрирует функционирование нашего обработчика
события (рис. 18).
Основные компоненты разработки интерфейсов
Рассмотрим ряд компонентов, расположенных на странице Win32
палитры компонентов. К ним относятся следующие компоненты:
• ImageList (список пиктограмм);
• Animate (анимация);
• PageScroller (прокрутка страниц);
• HeaderControl (панель заголовков);
• StatusBar (строка состояния);
• ToolBar (панель инструментов);
• TActionList (список действий):
• ControlBar (панель управления – страница Addition)
• CoolBar (расширенная панель управления)
До рассмотрения данных компонентов необходимо рассмотреть
специальный класс (TCollection) являющийся основой многих из
перечисленных компонентов.
36
Класс TCollection (коллекция)
Класс предназначен для работы с элементами одинаковой структуры –
указателями конкретного типа. Коллекция хранит объекты типа
TCollectionItem.
Рассмотрим основные свойства и методы данного класса.
Свойства класса TCollection
Collection – ссылка на коллекцию, где хранится данный объект.
DisplayName – текст, отображаемый для данного объекта в редакторе
коллекции.
ID – уникальный цифровой идентификатор каждого объекта в коллекции.
Index – номер элемента внутри коллекции (в массиве Items).
Count – число элементов в коллекции.
ItemClass – тип хранимого класса.
Items – массив элементов коллекции с возможностью доступа к ни по
индексу.
Методы класса TCollection
Add – создание нового элемента и добавление его в конец коллекции.
Clear – удаление всех элементов коллекции.
Delete (Index:Integer) – удаление конкретного элемента.
FindItemID (ID:Integer) – возвращает элемент коллекции с идентификатором
ID.
Insert (Index:Integer) – добавление нового элемента в указанную позицию.
Для работы с коллекциями имеется специальный редактор. Он встроен
в ряд компонентов и позволяет выполнять единообразное формирование и
редактирование коллекции (рис. 19).
Рис. 19. Редактор коллекции
Редактор активизируется при щелчке по компоненту и имеет
контекстное меню, из которого можно выполнить основные методы по
37
редактированию элементов коллекции. Выбрав конкретный элемент
коллекции в инспекторе объектов можно установить его свойства и
посмотреть имеющиеся события.
Компонент ImageList
Представляет собой коллекцию пиктограмм. Пиктограммы
добавляются из редактора коллекций и могут использоваться в различных
объектах (кнопках, пунктах меню и т.д.)
Основные свойства
BkColor – фоновый цвет пиктограммы.
BlendColor – цвет переднего плана.
Count – число пиктограмм в списке.
ImageType – тип изображения (ItImage – пиктограмма, ItMask – маска).
Основные методы
Add – добавление пиктограммы в конец списка.
Clear – очистка списка.
Insert – вставка пиктограммы.
Move – перемещение пиктограммы.
Пример № 5
3
Создадим форму (рис. 20а). Поместим на форму компоненты MainMenu
и ImageList. Создадим систему меню, приведенную на рис. 20б.
Рис. 20а. Внешний вид формы
Рис. 20.б. Система меню
Откроем редактор коллекций компонента ImageList и добавим
пиктограммы из файлов Arrow1L.bmp; Arrow1R.bmp; Arrow1D.bmp;
Arrow1U.bmp. (Пиктограммы находятся в папке «Programm Files\Common
Files\Borland Shared\Images\Buttons»). При открытии файла в редактор
коллекций добавляются сразу две пиктограммы – яркая и бледная. В данном
случае бледные пиктограммы необходимо удалить (рис. 21).
3
Рабочий вариант и исходный текст в папке ImageList.
38
Рис. 21. Редактор коллекции пиктограмм
Для компонента MainMenu установим Image = ImageList1. Назначим
пунктам меню свойство ImageIndex равным 0, 1, 2 и 3 соответственно. После
запуска программы рядом с пунктами меню появятся соответствующие
пиктограммы (рис. 22).
Рис. 22. Вид меню после запуска программы
Компонент Animate
Компонент позволяет воспроизвести на форме небольшую анимацию –
клип в формате AVI (Audio Video Interleaved).
Основные свойства
FileName – имя файла.
CommonAVI – стандартный клип Windovs (например, AviCopyFiles –
копирование файла).
FrameCount – число кадров в клипе.
Repetitions – число повторов клипа.
Active – начать (завершить) демонстрацию клипа.
Основные методы
Stop – прервать показ.
39
Reset – показать конкретный кадр (нумерация с единицы).
Seek – показать конкретный кадр.
Пример № 6
4
Воспользуемся предыдущим проектом с созданным меню.
Поместим на форму компонент Animate. С помощью свойства File
загрузим анимационный файл Cool.avi. Изменим названия двух последних
пунктов меню на «Пуск» и «Стоп» (рис. 23)
Рис. 23. Внешний вид формы примера № 6
Напишем для соответствующих пунктов меню следующий код. Для
меню «Пуск»:
begin
Animate1.Active:=True;
end;
Для меню «Стоп»:
begin
Animate1.Active:=False;
end;
Для меню «Вверх»:
Var I:Integer;
begin
For I:=Animate1.FrameCount DownTo 1 Do Begin
Animate1.Seek(I); Animate1.Update; Sleep(50);
End;
End;
Для меню «Вниз»:
Var I:Integer;
begin
For I:=1 To Animate1.FrameCount Do Begin
Animate1.Seek(I); Animate1.Update; Sleep(50);
End;
end;
4
Рабочий вариант и исходный текст в папке Animate.