Задание 2. В приложение из лабораторной работы №12 добавим на форму компонент StatusBar.

В приложение из лабораторной работы №12 добавим на форму компонент StatusBar.

Компонент StatusBar можно поделить на любое количество отдельных мини-статусных окон (Ins), для этого нужно два раза щелкнуть по нему на форме приложения (Form1), после чего появится окно, представленное на рис2.

Рис. 2 Окно, появляющееся при двойном щелчке по омпоненту StatusBar

В этом окне, единственная доступная иконка с надписью — Add new Ins, предназначенная для деления компонента StatusBar. Нажав на данную иконку несколько раз видно, что появляются строки в последовательном порядке 0 — TStatusPanel и так далее (см. рис. 3).

Рис. 3 Деление компонента StatusBar

А на форме (Frorm1), область компонента StatusBar, поделена теперь на пять частей, размеры которых можно изменять с помощью окна Инспектора объектов (Object Inspector), где в дальнейшем изменяются свойства всех компонентов добавляемых в приложение.

1. Чтобы увеличить размер первой части компонента StatusBar -> TStatusPanel [0], нужно выбрать сначала его с помощью мышки: в окне Инспектора объектов (Object Inspector), вкладке Properties, появятся все свойства для первой части StatusBar1 -> Paneles[0].

Напротив надписи Width, вместо стандартного значения 50, вводим любое число, например — 150, нажимаем на клавиатуре Enter. При этом на форме приложения (Form1) будет видно, что первая часть StatusBar1 -> Paneles[0] увеличилась.

2. Аналогичным образом, настраиваем все остальные части компонента StatusBar1 -> Paneles[1] и так далее. После чего рекомендуется выполнить перекомпоновку программы, для этого нужно нажать на инструментальной панели на кнопку «Run (F9)», с изображением зеленого треугольника. Если ошибок нет, то запустится наше разрабатываемое приложение.

3. В свойствах формы Form1 -> Caption введем Video.

Получится такой вид формы, представленный на рис. 4.

Рис. 4 Измененный вид формы

При этом, программный код теперь будет выглядеть следующим образом:

void __fastcall TForm1:: SpeedButton2Click(TObject *Sender)

{

if(Form1-> SpeedButton4-> Down==true)

Form1-> SpeedButton4-> Down=false;

if(Form1-> SpeedButton5-> Down==true)

Form1-> SpeedButton5-> Down=false;

if(Form1-> SpeedButton1-> Down==true)

Form1-> SpeedButton1-> Down=false;

if(Form1-> SpeedButton3-> Down==true)

Form1-> SpeedButton3-> Down=false;

Label1-> Caption=" Информация";

Form1-> StatusBar1-> Panels-> Items[0]-> Text = " Стоп....";

}

void __fastcall TForm1:: SpeedButton4Click(TObject *Sender)

{

Label1-> Caption=" Информация";

Form1-> StatusBar1-> Panels-> Items[0]-> Text = " Вперед....";

}

void __fastcall TForm1:: SpeedButton5Click(TObject *Sender)

{

Label1-> Caption=" Информация";

Form1-> StatusBar1-> Panels-> Items[0]-> Text = " Назад....";

}

void __fastcall TForm1:: SpeedButton1Click(TObject *Sender)

{

Label1-> Caption=" Информация";

Form1-> StatusBar1-> Panels-> Items[0]-> Text = " Влево....";

}

void __fastcall TForm1:: SpeedButton3Click(TObject *Sender)

{

Label1-> Caption=" Информация";

Form1-> StatusBar1-> Panels-> Items[0]-> Text = " Вправо....";

}