...change the scrollbar colors of TWebBrowser?

Author: Horst Fußhöller

Category: Internet / LAN

{A page must be already loaded into TWebBrowser}
{Eine Seite muss bereits in TWebBrowser geladen sein}

//Example
//Beispiel

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base