| 66 |
RawDocument := ''; |
RawDocument := ''; |
| 67 |
FEvent := nil; |
FEvent := nil; |
| 68 |
ShowWindow(Self.Handle, SW_HIDE); |
ShowWindow(Self.Handle, SW_HIDE); |
| 69 |
|
GikoSys.ShowRefCount('ResPop Create', Self.ControlInterface); |
| 70 |
|
GikoSys.ShowRefCount('ResPop.Document Create', Self.ControlInterface.Document); |
| 71 |
end; |
end; |
| 72 |
|
|
| 73 |
destructor TResPopupBrowser.Destroy; |
destructor TResPopupBrowser.Destroy; |
| 86 |
FEvent := nil; |
FEvent := nil; |
| 87 |
end; |
end; |
| 88 |
FThread := nil; |
FThread := nil; |
| 89 |
|
|
| 90 |
|
GikoSys.ShowRefCount('ResPop Desctroy', Self.ControlInterface); |
| 91 |
|
GikoSys.ShowRefCount('ResPop.Document Create', Self.ControlInterface.Document); |
| 92 |
|
|
| 93 |
inherited Destroy; |
inherited Destroy; |
| 94 |
end; |
end; |
| 95 |
|
|
| 142 |
end; |
end; |
| 143 |
procedure TResPopupBrowser.NavigateBlank(Forced: Boolean); |
procedure TResPopupBrowser.NavigateBlank(Forced: Boolean); |
| 144 |
begin |
begin |
| 145 |
if (not Assigned(Self.Document)) or (Forced) then begin |
if (not Assigned(Self.ControlInterface.Document)) or (Forced) then begin |
| 146 |
Self.Navigate('about:blank'); |
Self.Navigate('about:blank'); |
| 147 |
end; |
end; |
| 148 |
while (Self.ReadyState <> READYSTATE_COMPLETE) and |
while (Self.ReadyState <> READYSTATE_COMPLETE) and |
| 198 |
ARect := CalcRect(Screen.MonitorFromPoint(p).WorkareaRect, |
ARect := CalcRect(Screen.MonitorFromPoint(p).WorkareaRect, |
| 199 |
not OnlyTitle); |
not OnlyTitle); |
| 200 |
|
|
| 201 |
FEvent := THTMLDocumentEventSink.Create(Self, Self.Document, HTMLDocumentEvents2); |
FEvent := THTMLDocumentEventSink.Create(Self, Self.OleObject.Document, HTMLDocumentEvents2); |
| 202 |
FEvent.OnClick := ResPopupBrowserClick; |
FEvent.OnClick := ResPopupBrowserClick; |
| 203 |
FEvent.OnDoubleClick := ResPopupBrowserDbClick; |
FEvent.OnDoubleClick := ResPopupBrowserDbClick; |
| 204 |
Self.Visible := True; |
Self.Visible := True; |
| 278 |
DIV_X, DIV_Y: Integer; |
DIV_X, DIV_Y: Integer; |
| 279 |
begin |
begin |
| 280 |
GetCursorpos(p); |
GetCursorpos(p); |
| 281 |
ele := ((Self.Document as IHTMLDocument2).body as IHTMLElement2); |
ele := ((Self.ControlInterface.Document as IHTMLDocument2).body as IHTMLElement2); |
| 282 |
if Scroll then begin |
if Scroll then begin |
| 283 |
h := GetWindowHeight + 10; |
h := GetWindowHeight + 10; |
| 284 |
w := ele.scrollWidth + 25 |
w := ele.scrollWidth + 25 |