Итак, этот материал посвящен приукрашательствам. Слишком грубо все выглядит. Возьмем напильник и подравняем края. Ты заметил, что при разворачивании на весь экран, сам браузер не разворачивается. Исправим это, добавив в событие onCreate компонента Form1:
PageControl1->Align = alClient;
Прикольно получилось. Только кнопок не видно стало. Это плохо, на них столько времени ушло... Вот тебе руководство к действию. Закидывай на вкладку компонент CoolBar. А затем на нее уже перетаскивай все нужные кнопки. Кнопку Поехали мы решили не пустить дальше и удалили. Если кнопки плохо перетаскиваются, то перетащи их через Object Treeview. Получилось вот что-то такое:
Рисунок 1.
Упорядочим и приведем в нормальный вид:
Рисунок 2.
Предвидя твой вопрос - отвечаем. Это не совсем нормальный вид. Просто другого слова не знаем. Скажем по-другому - сделать вид получше. Эх, гордость нами обуяла, однозначно.
Исходники и релиз лежат тут.
Теперь снесем кнопки TButton и заменим их на другие кнопки TSpeedButton. Добавим на них картинки через свойство Glyph. Не забудь, что при таком методе тебе придется таскать с собой картинки всегда. Причем в той же папке куда идет путь. Мы положили картинки в папку images. Получилось:
Рисунок 3.
Исходники и релиз ищи тут.
И бонус. При переходе с одной страницы на другую, в адресной строке не происходит изменений. Исправим это дело. Добавь строчку в событии onBeforeNavigate2 компонента CppWebBrowser:
ComboBox1->Text = CppWebBrowser1->LocationURL;
В следующей части рассмотрим как все это хозяйство динамически создавать на новой вкладке.
Ссылки:
К содержанию