Реализация. C++Builder в современном программировании

При разработке интерфейса главной формы использованы следующие компоненты (рис. 3 1).:

• 1)MainMenu1 — применяются для создания вкладок;
• 2)Web Browser1 — для отображения страниц;
• 3) Bit Btn — для функциональных кнопок ;
• 4) Edit — поле для ввода;
• 5) Button — кнопки закладок;
• 6) List box — поле для закладок;
• 7) Open dialog — использовался для открытия закладок из файла;
• 8) Save dialog — для сохранения закладок;

Рисунок 3.1 Главная форма Компонент «Меню» на форме содержит следующие вкладки (рис. 3.2).

Рисунок 3.2 Пункт «Разработчик».

Когда нажать на пункт «О программе» тогда открывается меню состоящее из двух пунктов «Справка» и «Разработал». При нажатии на пункт «Справка» появляется новая форма, которая содержит информацию по пользованию и применению данной программы, а при нажатии на пункт «Разработал» появляется информация о разработчике.

После запуска приложения на экране появляется главное окно (рис 3.3):

Рисунок 3.3 Главное окно Для того, чтобы начать работать нужно просто написать адрес требуемого сайта в поле адреса, или же открыть готовый адрес из закладок (рис 3.4):

void __fastcall TForm1: BitBtn1Click (TObject *Sender).

{WebBrowser1->Navigate (StringToOleStr (Edit1->Text));} //навигатор по страницам Поле адреса Закладки.

Рисунок 3.4 Начало работы Адрес страницы, на которой предполагается работать должен быть введён коректно иначе будет выдана ошибка. Это делается таким образом: нажимаем на поле ввода и вводим данные с клавиатуры, затем нажимаем на кнопку с изображением лупы. Если надо перейти вперёд или назад нажимаем на соотвествующие кнопки (рис 3.5):

void __fastcall TForm1: BitBtn3Click (TObject *Sender).

{WebBrowser1->GoForward (); } //кнопка вперёд.

void __fastcall TForm1: BitBtn4Click (TObject *Sender).

{WebBrowser1->GoBack ();} //назад Назад Вперёд.

Рисунок 3.5 Веб-браузер «Гамбит».

Рисунок 3.6 Обновление страницы Если пользователь хочет обновить страницу, либо прекратить загрузку страницы то в этом ему помогут кнопка с изображением крестика — для прекращения загрузки, и кнопка с изображением вращающихся стрелочек для обновления (рис 3.6):

void __fastcall TForm1: BitBtn2Click (TObject *Sender).

{WebBrowser1->Stop ();} //прекращение загрузки.

void __fastcall TForm1: BitBtn5Click (TObject *Sender).

{ WebBrowser1->GoHome ();} //обновление страницы Можем пользоваться функцией добавления, удаления и открытия из файла вкладок. Закладки можно добавлять из поля адреса нажав на кнопку Past, или удалять, нажав кнопку Del. (рис 3.7).

void __fastcall TForm1: Button1Click (TObject *Sender).

{ListBox1->Visible=True;

Button1->Visible=False;

Button2->Visible=True;

Button3->Visible=True;

Button4->Visible=True;

Button5->Visible=True;

Button6->Visible=True;}.

void __fastcall TForm1: Button2Click (TObject *Sender).

{ListBox1->Visible=False;

Button2->Visible=False;

Button1->Visible=True;

Button3->Visible=False;

Button4->Visible=False;

Button5->Visible=False;

Button6->Visible=False;}.

void __fastcall TForm1: ListBox1Click (TObject *Sender).

{Label1->Caption = ListBox1->Items->Strings [ListBox1->ItemIndex];

Edit1->Text =Label1->Caption;

Label1->Caption=Edit1->Text;}.

void __fastcall TForm1: Button3Click (TObject *Sender).

{ListBox1->Items->Add (Edit1->Text);

ListBox1->Items->Add (Edit1->Text);

while (FindNext (sr) == 0) ListBox1->Items->Add (Edit1->Text);}.

if (ListBox1->Items->Count ≠ 0).

{ Label1->Caption = ListBox1->Items->Strings [1] ;

Edit1->Text = Edit1->Text + ListBox1->Items->Strings [1]; }}.

void __fastcall TForm1: Button4Click (TObject *Sender).

{SaveDialog1->Execute ();

ListBox1->Items->SaveToFile (SaveDialog1->FileName);}.

void __fastcall TForm1: Button5Click (TObject *Sender).

{ OpenDialog1->Execute ();

ListBox1->Items->LoadFromFile (OpenDialog1->FileName);

ListBox1->Items->Add (Edit1->Text);

while (FindNext (sr) == 0) ListBox1->Items->Add (Edit1->Text);}.

if (ListBox1->Items->Count ≠ 0).

{ Label1->Caption = ListBox1->Items->Strings [1] ;

Edit1->Text = Edit1->Text + ListBox1->Items->Strings [1]; }}.

void __fastcall TForm1: Button6Click (TObject *Sender).

{ListBox1->Items->Delete (1);}.

Рисунок 3.7 Добавление закладок Есть возможность добавления закладок из файла нажав на кнопку Open, также можно сохранить эти закладки, нажав на кнопку Save. (рис 3.8).

void __fastcall TForm1: Button5Click (TObject *Sender).

{ OpenDialog1->Execute ();

ListBox1->Items->LoadFromFile (OpenDialog1->FileName);{.

ListBox1->Items->Add (Edit1->Text);

while (FindNext (sr) == 0) ListBox1->Items->Add (Edit1->Text);}.

if (ListBox1->Items->Count ≠ 0).

{ Label1->Caption = ListBox1->Items->Strings [1] ;

Edit1->Text = Edit1->Text + ListBox1->Items->Strings [1] ;}}.

void __fastcall TForm1: Button1Click (TObject *Sender).

{ListBox1->Visible=True;

Button1->Visible=False;

Button2->Visible=True;

Button3->Visible=True;

Button4->Visible=True;

Button5->Visible=True;

Button6->Visible=True;}.

void __fastcall TForm1: Button2Click (TObject *Sender).

{ListBox1->Visible=False;

Button2->Visible=False;

Button1->Visible=True;

Button3->Visible=False;

Button4->Visible=False;

Button5->Visible=False;

Button6->Visible=False;}.

Рисунок 3.8 Сохранение и открытие из файла закладок.