• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythonwindowsphpgamebathyscaphegui翻訳comegattwitterframeworkbtronvb.net計画中(planning stage)testdomarduinodirectxpreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revisionfc6d50ac4dc55233fa400950a1d9b6e21d7111da (tree)
Time2007-05-19 14:06:06
Authorh677 <h677>
Commiterh677

Log Message

フォーカスの外し方をきちんとすることによって、レスポップアップとレスアンカーの問題解消

Change Summary

Incremental Difference

--- a/ResPopupBrowser.pas
+++ b/ResPopupBrowser.pas
@@ -70,6 +70,7 @@ end;
7070
7171 destructor TResPopupBrowser.Destroy;
7272 begin
73+ Self.Blur;
7374 Self.OnEnter := nil;
7475 Self.OnBeforeNavigate2 := nil;
7576 Self.OnStatusTextChange := nil;
@@ -102,7 +103,7 @@ begin
102103 Result := FChild;
103104 end;
104105 end else begin
105- FChild := TResPopupBrowser.Create(Self);
106+ FChild := TResPopupBrowser.Create(Self.Owner);
106107 FChild.ParentBrowser := Self;
107108 FChild.NavigateBlank(False);
108109 FChild.OnEnter := GikoForm.BrowserEnter;
@@ -175,8 +176,8 @@ begin
175176 doc.Write('<html><head>'#13#10 +
176177 '<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10 +
177178 '<meta http-equiv="Pragma" content="no-cache">'#13#10 +
178- '<meta http-equiv="Cache-Control" content="no-cache">'#13#10
179- + GetBodyStyle(OnlyTitle) + '</head><body>'
179+ '<meta http-equiv="Cache-Control" content="no-cache">'#13#10 +
180+ GetBodyStyle(OnlyTitle) + '</head><body>'
180181 + GetTitle(OnlyTitle)
181182 + ADocument + '<a name="bottom"></a></body></html>');
182183
@@ -237,8 +238,6 @@ begin
237238 end;
238239
239240 procedure TResPopupBrowser.Clear;
240-var
241- rect: TRect;
242241 begin
243242 ChildClear;
244243 if (Self.Visible) then begin
@@ -358,28 +357,10 @@ begin
358357 end;
359358 procedure TResPopupBrowser.Blur;
360359 var
361- rect: TRect;
360+ FOleInPlaceActiveObject: IOleInPlaceActiveObject;
362361 begin
363- if ((Self.Document as IHTMLDocument2).activeElement <> nil) then begin
364- // ƒtƒH[ƒJƒXŠO‚µ
365- Windows.GetClientRect(Self.Handle, rect);
366- if (Self.ParentBrowser <> nil) then begin
367- (Self.Application as IOleObject).DoVerb(OLEIVERB_DISCARDUNDOSTATE, (* iVerb *)
368- nil, (* lpMsg *)
369- Self, (* pActiveSite *)
370- 0, (* lindex - reserved *)
371- Self.ParentBrowser.Handle, (* hwndParent *)
372- rect); (* display rectangle *)
373- Self.ParentBrowser.Blur;
374- end else begin
375- (Self.Application as IOleObject).DoVerb(OLEIVERB_DISCARDUNDOSTATE, (* iVerb *)
376- nil, (* lpMsg *)
377- Self, (* pActiveSite *)
378- 0, (* lindex - reserved *)
379- GikoForm.ActiveContent.Browser.Handle, (* hwndParent *)
380- rect); (* display rectangle *)
381- end;
382- end;
362+ FOleInPlaceActiveObject := Self.ControlInterface as IOleInPlaceActiveObject;
363+ FOleInPlaceActiveObject.OnFrameWindowActivate(False);
383364 end;
384365
385366 initialization
Binary files a/gikoNavi.res and b/gikoNavi.res differ