ля відкриття закладок з файлу;
) Save dialog - для збереження закладок;
Малюнок 2 - Головна форма
Компонент «Меню» на формі містить наступні вкладки (рис. 3).
Коли натиснути пункт «Про програму» тоді відкривається меню, що складається з двох пунктів «Довідка» і «Розробив». При натисканні на пункт «Довідка» з'являється нова форма, яка містить інформацію щодо користування та застосуванню даної програми, а при натисненні на пункт «Розробив» з'являється інформація про розробника.
Малюнок 3 - Пункт «Розробник»
Після запуску програми на екрані з'являється головне вікно (рис. 4):
Малюнок 4 - Головне вікно
Для того, щоб почати працювати потрібно просто написати адресу необхідного сайту в поле адреси, або ж відкрити готовий адреса із закладок (рис. 5):
void __fastcall TForm1 :: BitBtn1Click (TObject * Sender)
{WebBrowser1- gt; Navigate (StringToOleStr (Edit1- gt; Text));}//навігатор по сторінках
Малюнок 5 - Початок роботи
Адреса сторінки, на якій передбачається працювати повинен бути введений конкретно інакше буде видана помилка. Це робиться таким чином: натискаємо на поле введення і вводимо дані з клавіатури, потім натискаємо на кнопку із зображенням лупи. Якщо треба перейти вперед або назад натискаємо на соотвествующие кнопки (рис. 6):
void __fastcall TForm1 :: BitBtn3Click (TObject * Sender)
{WebBrowser1- gt; GoForward (); }//Кнопка вперёд__fastcall TForm1 :: BitBtn4Click (TObject * Sender)
{WebBrowser1- gt; GoBack ();}//назад
Малюнок 6 - Веб-браузер «Гамбіт»
Малюнок 7 - Оновлення сторінки
Якщо користувач хоче оновити сторінку, або припинити завантаження сторінки то в цьому йому допоможуть кнопка із зображенням хрестика - для припинення завантаження, і кнопка із зображенням обертових стрелочек для поновлення (рис. 7):
void __fastcall TForm1 :: BitBtn2Click (TObject * Sender)
{WebBrowser1- gt; Stop ();}//припинення загрузкі__fastcall TForm1 :: BitBtn5Click (TObject * Sender)
{WebBrowser1- gt; GoHome ();}//оновлення сторінки
Можемо користуватися функцією додавання, видалення і відкриття з файлу вкладок. Закладки можна додавати з поля адреси натиснувши на кнопку Past, або видаляти, натиснувши кнопку Del.
void __fastcall TForm1 :: Button1Click (TObject * Sender)
{ListBox1-gt;Visible=True;-gt;Visible=False;-gt;Visible=True;-gt;Visible=True;-gt;Visible=True;-gt;Visible=True;-gt;Visible=True;}__fastcall TForm1 :: Button2Click (TObject * Sender)
{ListBox1-gt;Visible=False;-gt;Visible=False;-gt;Visible=True;-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;-gt;Visible=False;}__fastcall TForm1 :: ListBox1Click (TObject * Sender)
{Label1- gt; Caption=ListBox1- gt; Items- gt; Strings [ListBox1- gt; ItemIndex]; - gt; Text=Label1- gt; Caption; - gt; Caption=Edit1- gt; Text;} __ fastcall TForm1 :: Button3Click (TObject * Sender)
{ListBox1-gt;Items-gt;Add(Edit1-gt;Text);-gt;Items-gt;Add(Edit1-gt;Text);(FindNext(sr) == 0) ListBox1- gt; Items- gt; Add (Edit1- gt; Text);} (ListBox1- gt; Items- gt; Count!=0)
{Label1- gt; Caption=ListBox1- gt; Items- gt; Strings [1]; - gt; Text=Edit1- gt; Text + ListBox1- gt; Items- gt; Strings [1 ]; }} __ fastcall TForm1 :: Button4Click (TObject * Sender)
{SaveDialog1-gt;Execute();-gt;Items-gt;SaveToFile(SaveDialog1-gt;FileName);}__fastcall TForm1 :: Button5Click (TObject * Sender)
{ OpenDialog1-gt;Execute();-gt;Items-gt;LoadFromFile(OpenDialog1-gt;FileName);-gt;Items-gt;Add(Edit1-gt;Text);(FindNext(sr) == 0) ListBox1- gt; Items- gt; Add (Edit1- gt; Text);} (ListBox1- gt; Items- gt; Count!=0)
{Label1- gt; Caption=ListBox1- gt; Items- gt; Strings [1];
Edit1- gt; Text=Edit1- gt; Text + ListBox1- gt; Items- gt; Strings [1]; }} __ fastcall TForm1 :: Button6Click (TObject * Sender)
{ListBox1- gt; Items- gt; Delete (1);}
Рисунок 8 - Додавання закладок
Є можливість додавання закладок з файлу натиснувши на кнопку Open, також можна зберегти ці закладки, натиснувши на кнопку Save. (рис 3.8).
__ fastcall TForm1 :: Button5Cl...
