Как поменять цвет скроллбаров в TWebBrowser

Delphi , Интернет и Сети , Браузер

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  with WebBrowser1 do 
  begin 
    OleObject.document.body.Style.scrollbarArrowColor := '#0099FF'; 
    OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF'; 
    OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF'; 
    OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF'; 
    OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF'; 
    OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF'; 
    OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF'; 
  end; 
end;

Код, который вы предоставили, - это процедура Delphi, которая изменяет цвет полос прокрутки в компоненте TWebBrowser при нажатии кнопки.

Вот подробное описание того, что делает каждая строка кода:

1. with WebBrowser1 do: Это начало блока кода, который работает с объектом WebBrowser1.
2. OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';: Устанавливает цвет стрелок полос прокрутки в синеватый оттенок (#0099FF).
3. OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';: Устанавливает цвет 3D-освещения полос прокрутки в белый.
4. OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';: Устанавливает цвет темной тени полос прокрутки в тот же синеватый оттенок, что и выше.
5. OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';: Устанавливает цвет поверхности полос прокрутки в пастельный синий (#99CCFF).
6. OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';: Устанавливает цвет выделения полос прокрутки в тот же синеватый оттенок, что и выше.
7. OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';: Устанавливает цвет тени полос прокрутки в тот же синеватый оттенок, что и выше.
8. OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF';: Устанавливает цвет дорожки полос прокрутки в белый.

Код устанавливает различные цвета для различных частей полосы прокрутки, включая стрелки, свет и тень, поверхность и выделение. Это даст вашему TWebBrowser уникальный вид с синеватыми полосами прокрутки.

Если вы хотите изменить цвета в более динамичном или пользовательском порядке, вы можете модифицировать код для приема ввода от пользователей или извлечения значений из базы данных.

Также отметьте, что эти стили применяются к HTML-документу, загруженному в компонент TWebBrowser. Если вы загрузите другие документы, эти стили не будут применяться автоматически. Вам может потребоваться их программное применение для каждого нового документа, загруженного в компонент.

Статья описывает способ изменения цвета скроллбаров в компоненте TWebBrowser, используя процедуру TForm1.Button1Click(Sender: TObject).

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::