| 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; |
| 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 |