TWebBrowser i kolor scrollbara

mleczasz

Przyjmijmy, że komponent TWebBrowser nazywa się WebBrowser.
Tak więc zaczynamy:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  with WebBrowser do 
  begin 
    OleObject.document.body.Style.scrollbarArrowColor := '#000000'; 
    OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#000000'; 
    OleObject.document.body.Style.scrollbarDarkShadowColor := '#000000'; 
    OleObject.document.body.Style.scrollbarFaceColor := '#000000'; 
    OleObject.document.body.Style.scrollbarHighlightColor := '#000000'; 
    OleObject.Document.body.Style.scrollbarShadowColor := '#000000'; 
    OleObject.Document.body.Style.scrollbarTrackColor := '#000000'; 
  end; 
end; // Nie jest to najlepsza kolorystyka, ale nie oto przecież chodzi ;)
 

Tak więc to wszystko.

4 komentarzy

u mnie to niedziała!!!!! :((

To powinno chyba wylądować w gotowcach, a jeszcze lepiej w Encyklopedii przy TWebBrowser

Tak jak kuba napisał albo do gotowców albo do encykloepedii. I jeszcze jedno! Używaj polskich ogonków bo mi się nie chce poprawiać.

To jest z www.torry.net napewno sam se to zrobiłem do mojej przeglądarki