Форум программистов [Powered by Invision Power Board]

Код


<STYLE>
BODY {
    SCROLLBAR-FACE-COLOR: #000080; SCROLLBAR-HIGHLIGHT-COLOR: #bcdede; SCROLLBAR-SHADOW-COLOR: #bcdede; SCROLLBAR-3DLIGHT-COLOR: #555555; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #f2f2f2; SCROLLBAR-DARKSHADOW-COLOR: #000080
}
</STYLE>

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WB: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WBProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
begin
 //WB.Navigate('http://poligon.vingrad.ru/index.php?');
 WB.Navigate('http://www.mail.ru');
end;

procedure TForm1.WBProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
 if assigned(WB.Document) then
  Caption:=IHTMLDocument2(WB.Document).readyState;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,MsT:Double;
    j:Integer;
begin
 i:=Variant(WB.Document).documentElement.scrollTop;
 if i=0 then Variant(WB.Document).documentElement.scrollTop:=1;
 if (Variant(WB.Document).documentElement.scrollTop=1)or(i>0) then //или через проверку Variant(WB.Document).compatMode
  begin
  //!DOCTYPE - Oк!
   Variant(WB.Document).documentElement.scrollTop:=i;
   MsT:=Variant(WB.Document).documentElement.scrollHeight-Variant(WB.Document).documentElement.clientHeight;
   Caption:='Max_scrollTop: '+FloatToStr(MsT);
   Caption:=Caption+';'+'Cur_scrollTop: '+FloatToStr(Variant(WB.Document).documentElement.scrollTop);
   //Изменим не много scroll
   Variant(WB.Document).documentElement.style.setAttribute('scrollbar3dLightColor','red',0);
   //По перемещаем
   for j:=0 to Round(Mst) do
    begin
     Variant(WB.Document).documentElement.scrollTop:=j;
     Application.ProcessMessages;
     Sleep(5);
    end;
  end else
  begin
  //!DOCTYPE - Фу!
   MsT:=IHTMLDocument2(WB.Document).body.getAttribute('scrollHeight',0)-IHTMLDocument2(WB.Document).body.getAttribute('clientHeight',0);
   Caption:='Max_scrollTop: '+FloatToStr(MsT);
   Caption:=Caption+';'+'Cur_scrollTop: '+FloatToStr(IHTMLDocument2(WB.Document).body.getAttribute('scrollTop',0));
   //Изменим не много scroll
   IHTMLDocument2(WB.Document).body.setAttribute('scrollbar3dLightColor','red',0);
   //По перемещаем
   for j:=0 to Round(Mst) do
    begin
     IHTMLDocument2(WB.Document).body.setAttribute('scrollTop',j,0);
     Application.ProcessMessages;
     Sleep(5);
    end;   
  end;
{Другие доступны стили скролла
scrollbar3dLightColor
scrollbarArrowColor
scrollbarBaseColor
scrollbarDarkShadowColor
scrollbarFaceColor
scrollbarHighlightColor
scrollbarShadowColor
scrollbarTrackColor}
end;

end.

Цитата(B2_Russia @ 15.3.2006, 21:55

)

Не знаю как получить высоту документа загруженного в TWB и позицию текущую, чтобы расчитать нужное положение ползунка и его размер!!!
Вот!
Если подскажете как?!!! то проблема решена!

Цитата(B2_Russia @ 15.3.2006, 22:26

)

Как правильно оформить страницу чтобы все было ?

Код


....
procedure HideWBScrolls;
var
  lDocument: IHTMLDocument2;
  lBody: IHTMLElement;
  lStyle: IHTMLStyle2;
begin
  if Assigned(Form1.WebBrowser1.Document) and
    (Succeeded(Form1.WebBrowser1.Document.QueryInterface(IHTMLDocument2,
    lDocument))) then
  begin
    lBody := lDocument.Body;
    if Assigned(lBody) and Assigned(lBody.style) and
      Succeeded(lBody.Style.QueryInterface(IID_IHTMLStyle2, lStyle)) then
    begin
      lStyle.overflowX := 'hidden'; //??????? ?????????????? ?????
      lStyle.overflowY := 'hidden'; //??????? ???????????? ?????
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
y:=0;
nowstr:=0;
with TRegistry.Create do
        try
                rootkey := HKEY_LOCAL_MACHINE;
                OpenKey('\SOFTWARE\UaKiosk', False);
                StartURL:=Readstring('IndexHTML');
                CloseKey;
        finally
        Free;
        end;
WebBrowser1.Navigate(StartURL);
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_Hide);
Form1.WebBrowser1.BringToFront
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_Normal);
end;


...
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
HideWBScrolls;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var i,MsT:Double;
    j:Integer;

begin
if key='+' then WebBrowser1.ScrollBy(0, -1);
if key='-' then
begin
 i:=Variant(WebBrowser1.Document).documentElement.scrollTop;
 if i=0 then Variant(WebBrowser1.Document).documentElement.scrollTop:=1;
 if (Variant(WebBrowser1.Document).documentElement.scrollTop=1)or(i>0) then //èëè ÷åðåç ïðîâåðêó Variant(WB.Document).compatMode
  begin
  //!DOCTYPE - Oê!
   Variant(WebBrowser1.Document).documentElement.scrollTop:=i;
   MsT:=Variant(WebBrowser1.Document).documentElement.scrollHeight-Variant(WebBrowser1.Document).documentElement.clientHeight;
   Caption:='Max_scrollTop: '+FloatToStr(MsT);
   Caption:=Caption+';'+'Cur_scrollTop: '+FloatToStr(Variant(WebBrowser1.Document).documentElement.scrollTop);
   //Èçìåíèì íå ìíîãî scroll
   Variant(WebBrowser1.Document).documentElement.style.setAttribute('scrollbar3dLightColor','red',0);
   //Ïî ïåðåìåùàåì
   for j:=0 to Round(Mst) do
    begin
     Variant(WebBrowser1.Document).documentElement.scrollTop:=j;
     Application.ProcessMessages;
     Sleep(5);
    end;
  end else
  begin
  //!DOCTYPE - Ôó!
   MsT:=IHTMLDocument2(WebBrowser1.Document).body.getAttribute('scrollHeight',0)-IHTMLDocument2(WebBrowser1.Document).body.getAttribute('clientHeight',0);
   Caption:='Max_scrollTop: '+FloatToStr(MsT);
   Caption:=Caption+';'+'Cur_scrollTop: '+FloatToStr(IHTMLDocument2(WebBrowser1.Document).body.getAttribute('scrollTop',0));
   //Èçìåíèì íå ìíîãî scroll
   IHTMLDocument2(WebBrowser1.Document).body.setAttribute('scrollbar3dLightColor','red',0);
   //Ïî ïåðåìåùàåì
   for j:=0 to Round(Mst) do
    begin
     IHTMLDocument2(WebBrowser1.Document).body.setAttribute('scrollTop',j,0);
     Application.ProcessMessages;
     Sleep(5);
    end;
  end;
 End;

end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
 if assigned(WebBrowser1.Document) then
  Caption:=IHTMLDocument2(WebBrowser1.Document).readyState;
end;
......