• 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

Revision798125655b8c97fd9605d13cc43c8664c5ee1a70 (tree)
Time2007-05-21 01:28:59
Authorh677 <h677>
Commiterh677

Log Message

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

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -4658,10 +4658,7 @@ end;
46584658
46594659 procedure TGikoForm.BrowserEnter(Sender: TObject);
46604660 begin
4661- if (Sender is TWebBrowser) then begin
4662- TWebBrowser(Sender).DoObjectVerb(OLEIVERB_UIACTIVATE);
4663- end;
4664-// Browser.DoObjectVerb(OLEIVERB_UIACTIVATE);
4661+ Browser.DoObjectVerb(OLEIVERB_UIACTIVATE);
46654662 end;
46664663
46674664 procedure TGikoForm.WMCopyData(var Message: TWMCopyData);
@@ -6607,11 +6604,13 @@ var
66076604 i, count: Integer;
66086605 body : String;
66096606 limited : Integer;
6607+ FOleInPlaceActiveObject: IOleInPlaceActiveObject;
66106608 begin
66116609 result := true;
66126610 try
66136611 if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then
6614- FActiveContent.Browser.SetFocus;
6612+ FOleInPlaceActiveObject := FActiveContent.Browser.ControlInterface as IOleInPlaceActiveObject;
6613+ FOleInPlaceActiveObject.OnFrameWindowActivate(True);
66156614 try
66166615 GetCursorPos(p);
66176616 p.x := p.x - FActiveContent.Browser.ClientOrigin.x;
Binary files a/gikoNavi.res and b/gikoNavi.res differ