Объект ToolBar

End

Begin

Begin

Begin

Begin

Begin

Begin

Практическая работа

Создадим программу просмотра AVI файла С:\Program Files\Borland\Delphi6\Demos\CoolStuf\cool.avi. Расположим на форме компоненты Timer, Animate, ProgressBar, BitBtn.

Установите в свойство Enabled компонента Timer значение False, а в свойство Interval – 100. В свойство Visible компонента ProgressBar значение False.

Опишите следующие процедуры.

procedure TForm1.BitBtn1Click(Sender: TObject);

animate1.FileName:='D:\Program Files\Borland\Delphi6\Demos\CoolStuf\cool.avi';

animate1.Active:=true;

progressbar1.Show;

timer1.enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

progressbar1.position:=progressbar1.position+1;

if progressbar1.position>=progressbar1.max then

timer1.Enabled:=false;

progressbar1.position:=0;

progressbar1.hide;

animate1.Stop;

end;

end;

20.2. Игра «УГАДАЙ ЧИСЛО»

Программа загадывает случайное число в интервале от 0 до 100. Если введенное пользователем число совпадает с загаданным, то проигрывается файл Cool.avi, в метку выводится «Угадал!!!» и количество попыток, использованных игроком.

В противном случае число выводится в мемо поле с сообщением о результате сравнения: «больше» или «меньше» загаданного.

Организуйте главное меню игры: Игра/(Новая, Выход) и О программе.

Игра/Новая

procedure TMainForm.N2Click(Sender: TObject);

Memo.Visible:=True;

Animate.Visible:=False;

Randomize;

a:=Random(100);

Memo.Clear;

end;

procedure TMainForm.BitBtn1Click(Sender: TObject);

//Если нет входного текста, выводим

//на экран сообщение.

If Length(Trim(MaskEdit1.Text))=0 then

ShowMessage('Вы забыли ввести число!') else

//Сравниваем загаданное компьютером число с введенным с клавиатуры

Ifa=StrToInt(Trim(MaskEdit1.Text)) then

Label1.Caption:='Угадал за'+inttostr(memo.lines.count+1)+ ‘попыток!’;

Label1.Visible:=True;

Animate.Visible:=True;

Animate.Active:=True;

else

If a<StrToInt(Trim(MaskEdit1.Text)) then

Memo.Lines.Add(Trim(MaskEdit1.Text) + ' больше загаданного!')

else Memo.Lines.Add(Trim(MaskEdit1.Text)+меньше загаданного!');

MaskEdit1.Clear;

MaskEdit1.SetFocus;

end;

Самостоятельно опишите пункты меню «Выход», «О программе…».

Глава XXI. Панели инструментов

Панели инструментов представляют собой управляющий элемент, предназначенный для выбора часто используемых команд. Обычно выбираемые с помощью панели инструментов команды дублируют часто используемые команды главного или локального меню. Панели инструментов содержат такие управляющие компоненты, как кнопки и списки. Многие Windows-приложения имеют одну или более панелей инструментов (например, MsWord предоставляет более 10 панелей инструментов, облегчающих работу пользователей).

Для создания панелей инструментов Delphi предоставляет компоненты ToolBar и CoolBar, находящиеся на странице Win32 палитры компонентов.

Компонент ToolBar содержит специальные кнопки ToolButton и позволяет манипулировать ими. Кроме кнопок ToolButton, на панель инструментов можно помещать и другие компоненты, например, редактируемый список ComboBox или редактор Edit.

При разработке приложения для добавления к панели инструментов новой кнопки нужно щелкнуть как компоненте ToolBar правой кнопкой мыши и выбрать пункт контекстного меню New Button (новая кнопка) или New Separator (новый разделитель), для вставки промежутка между кнопками.

На кнопке ToolButton можно вывести изображение. Рисунок для кнопки определяется свойством ImageIndex. Перечень рисунков содержится в контейнере картинок ImageList.

Свойство	Значение
AutoSize	Если содержит True, высота компонента будет автоматически согласовываться с высотой кнопок
ButtonCount	Содержит количество вставленных в инструментальную панель дочерних компонентов (не только кнопок TollButton)
ButtonHeight	Определяет высоту кнопок
DisableImages	Определяет контейнер для изображений запрещенных кнопок
Flat	Если true, панель и кнопки на ней прозрачны для фона и вокруг кнопки появляется граница только когда над ней располагается указатель мыши
HotImages	Определяет контейнер изображений для кнопок в момент, когда над кнопкой расположен указатель мыши
Images	Определяет контейнер для изображений кнопок в обычном состоянии
Indent	Определяет отступ в пикселях от левого края компонента для дочернего элемента
List	Если true, изображение прижимается к левой границе кнопки, а текст к правой
RowCount	Содержит количество рядов кнопок
ShowCaptions	Разрешает/Запрещает показ на кнопках текста
Wrapable	Разрешает/Запрещает располагать

Свойства кнопок ToolButton

Свойство	Значение
AllowAllUp	Если True, синхронизирует свое состояние с состоянием других кнопок в той же группе: в любой момент может быть нажата только одна кнопка группы
Grouped	Разрешает/запрещает учитывать свойство AllowAllUp
Style	Вид кнопки. tbsButton – кнопка ведет себя как обычная быстрая кнопка; tbsCheck – кнопка работает как переключатель; tbsDropDown – кнопка отображает стрелку, указывающую вниз,
Down	Определяет состояние утопленности кнопки
ImageIndex	Определяет индекс связанного с кнопкой изображения

Для того, чтобы кнопка на панели инструментов выполняла тоже действие что и пункт меню нужно выделить кнопку, перейти на вкладку Events Инспектора Объектов, и в раскрывающемся списке события OnClick найти и указать название пункта меню данного пункта меню. Такие действия избавят от необходимости писать одну процедуру дважды.

Дата добавления: 2015-05-09