Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BrowserRecord.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by h677, Mon Sep 11 15:56:45 2006 UTC revision 1.6 by h677, Sat Apr 14 16:52:57 2007 UTC
# Line 30  type Line 30  type
30                  property        LastSize        : Integer               read FLastSize  write FLastSize;                  property        LastSize        : Integer               read FLastSize  write FLastSize;
31                  property        Repaint         : Boolean               read FRepaint   write FRepaint;                  property        Repaint         : Boolean               read FRepaint   write FRepaint;
32                  //property      Movement        : string                read FMovement  write FMovement;                  //property      Movement        : string                read FMovement  write FMovement;
33                  procedure       Move(const AName: string);                  procedure       Move(const AName: string); overload;
34            procedure       Move(scroll: Integer); overload;
35                  procedure       IDAnchorPopup(Abody :string);                  procedure       IDAnchorPopup(Abody :string);
36          procedure OpenFindDialog;          procedure OpenFindDialog;
37          end;          end;
# Line 109  begin Line 110  begin
110                  end;                  end;
111          end;          end;
112  end;  end;
113    // *************************************************************************
114    //! ブラウザをスクロールさせる
115    // *************************************************************************
116    procedure TBrowserRecord.Move(scroll: Integer);
117    var
118            top: Integer;
119            item: OleVariant;
120    begin
121            //ブラウザが付いてるときだけ処理する
122            if (Self.Browser <> nil) then begin
123                    //ブラウザがデータの読み込み中の時は読み込みを待つ
124                    while (Self.Browser.ReadyState <> READYSTATE_COMPLETE) and
125                                            (Self.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
126                            Sleep(1);
127                            Application.ProcessMessages;
128                    end;
129    
130                    try
131                            OleVariant(Self.Browser.Document as IHTMLDocument2).body.scrollTop
132                    := OleVariant(Self.Browser.Document as IHTMLDocument2).body.scrollTop
133                        + scroll;
134                    except
135                    end;
136            end;
137    end;
138    
139  //IDアンカー追加  //IDアンカー追加
140  procedure TBrowserRecord.IDAnchorPopup(Abody :string);  procedure TBrowserRecord.IDAnchorPopup(Abody :string);
141  const  const

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26