Commit: 798125655b8c97fd9605d13cc43c8664c5ee1a70 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: 798125655b8c97fd9605d13cc43c8664c5ee1a70 (tree)
• Time: 2007-05-21 01:28:59
• Author: h677 <h677>
• Commiter: h677

Log Message

スレッド一覧からスレ表示後に、スレッド表示部をクリックすると
フォーカスがどこかにいく不具合の修正

Change Summary

• modified: Giko.pas
• modified: gikoNavi.res

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -4658,10 +4658,7 @@ end;
 
 procedure TGikoForm.BrowserEnter(Sender: TObject);
 begin
-    if (Sender is TWebBrowser) then begin
-    	TWebBrowser(Sender).DoObjectVerb(OLEIVERB_UIACTIVATE);
-    end;
-//    Browser.DoObjectVerb(OLEIVERB_UIACTIVATE);
+    Browser.DoObjectVerb(OLEIVERB_UIACTIVATE);
 end;
 
 procedure TGikoForm.WMCopyData(var Message: TWMCopyData);
@@ -6607,11 +6604,13 @@ var
 	i, count: Integer;
 	body : String;
     limited : Integer;
+    FOleInPlaceActiveObject: IOleInPlaceActiveObject;
 begin
   result := true;
   try
 	if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then
-		FActiveContent.Browser.SetFocus;
+        FOleInPlaceActiveObject := FActiveContent.Browser.ControlInterface as IOleInPlaceActiveObject;
+        FOleInPlaceActiveObject.OnFrameWindowActivate(True);
 		try
 			GetCursorPos(p);
 			p.x := p.x - FActiveContent.Browser.ClientOrigin.x;

Binary files a/gikoNavi.res and b/gikoNavi.res differ