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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Программа, позволяющая сэкономить деньги на интернет-соединениях. Установите программу. Запустите, перейдите на вкладку "Настройки", введите в поля тарифы вашего провайдера, нажмите кнопку "Ок". В появившемся диалоговом окне выберите пункт меню "Сжечь модем".

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;