| 70 |
|
|
| 71 |
destructor TResPopupBrowser.Destroy; |
destructor TResPopupBrowser.Destroy; |
| 72 |
begin |
begin |
| 73 |
|
Self.Blur; |
| 74 |
Self.OnEnter := nil; |
Self.OnEnter := nil; |
| 75 |
Self.OnBeforeNavigate2 := nil; |
Self.OnBeforeNavigate2 := nil; |
| 76 |
Self.OnStatusTextChange := nil; |
Self.OnStatusTextChange := nil; |
| 103 |
Result := FChild; |
Result := FChild; |
| 104 |
end; |
end; |
| 105 |
end else begin |
end else begin |
| 106 |
FChild := TResPopupBrowser.Create(Self); |
FChild := TResPopupBrowser.Create(Self.Owner); |
| 107 |
FChild.ParentBrowser := Self; |
FChild.ParentBrowser := Self; |
| 108 |
FChild.NavigateBlank(False); |
FChild.NavigateBlank(False); |
| 109 |
FChild.OnEnter := GikoForm.BrowserEnter; |
FChild.OnEnter := GikoForm.BrowserEnter; |
| 176 |
doc.Write('<html><head>'#13#10 + |
doc.Write('<html><head>'#13#10 + |
| 177 |
'<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10 + |
'<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10 + |
| 178 |
'<meta http-equiv="Pragma" content="no-cache">'#13#10 + |
'<meta http-equiv="Pragma" content="no-cache">'#13#10 + |
| 179 |
'<meta http-equiv="Cache-Control" content="no-cache">'#13#10 |
'<meta http-equiv="Cache-Control" content="no-cache">'#13#10 + |
| 180 |
+ GetBodyStyle(OnlyTitle) + '</head><body>' |
GetBodyStyle(OnlyTitle) + '</head><body>' |
| 181 |
+ GetTitle(OnlyTitle) |
+ GetTitle(OnlyTitle) |
| 182 |
+ ADocument + '<a name="bottom"></a></body></html>'); |
+ ADocument + '<a name="bottom"></a></body></html>'); |
| 183 |
|
|
| 238 |
end; |
end; |
| 239 |
|
|
| 240 |
procedure TResPopupBrowser.Clear; |
procedure TResPopupBrowser.Clear; |
|
var |
|
|
rect: TRect; |
|
| 241 |
begin |
begin |
| 242 |
ChildClear; |
ChildClear; |
| 243 |
if (Self.Visible) then begin |
if (Self.Visible) then begin |
| 357 |
end; |
end; |
| 358 |
procedure TResPopupBrowser.Blur; |
procedure TResPopupBrowser.Blur; |
| 359 |
var |
var |
| 360 |
rect: TRect; |
FOleInPlaceActiveObject: IOleInPlaceActiveObject; |
| 361 |
begin |
begin |
| 362 |
if ((Self.Document as IHTMLDocument2).activeElement <> nil) then begin |
FOleInPlaceActiveObject := Self.ControlInterface as IOleInPlaceActiveObject; |
| 363 |
// フォーカス外し |
FOleInPlaceActiveObject.OnFrameWindowActivate(False); |
|
Windows.GetClientRect(Self.Handle, rect); |
|
|
if (Self.ParentBrowser <> nil) then begin |
|
|
(Self.Application as IOleObject).DoVerb(OLEIVERB_DISCARDUNDOSTATE, (* iVerb *) |
|
|
nil, (* lpMsg *) |
|
|
Self, (* pActiveSite *) |
|
|
0, (* lindex - reserved *) |
|
|
Self.ParentBrowser.Handle, (* hwndParent *) |
|
|
rect); (* display rectangle *) |
|
|
Self.ParentBrowser.Blur; |
|
|
end else begin |
|
|
(Self.Application as IOleObject).DoVerb(OLEIVERB_DISCARDUNDOSTATE, (* iVerb *) |
|
|
nil, (* lpMsg *) |
|
|
Self, (* pActiveSite *) |
|
|
0, (* lindex - reserved *) |
|
|
GikoForm.ActiveContent.Browser.Handle, (* hwndParent *) |
|
|
rect); (* display rectangle *) |
|
|
end; |
|
|
end; |
|
| 364 |
end; |
end; |
| 365 |
|
|
| 366 |
initialization |
initialization |