Commit: 15f993bc86d9ac477dbb69da1df0ddaac2380998 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: 15f993bc86d9ac477dbb69da1df0ddaac2380998 (tree)
• Time: 2009-05-17 13:28:00
• Author: h677 <h677>
• Commiter: h677

Log Message

close #16779
リンク履歴の戻る／進むで、キー設定でshift/ctrlを設定するとうまく動作しない不具合の修正。
MoveToURLを利用しているが、もともとの使い方として、shift/ctrlが押されているときはブラウザで開く機能があり、
アクションのショートカットキーとかぶるため動作しないので、アクションから呼び出すときは、shift/ctrlを
無視するように修正した。

Change Summary

• modified: Giko.pas
• modified: GikoDataModule.pas

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -717,7 +717,7 @@ type
 		BrowserNullTab: TBrowserRecord;
 		FControlThread: TThreadControl;
         FIconData : TNotifyIconData;
-		procedure MoveToURL(const inURL: string);
+		procedure MoveToURL(const inURL: string; KeyMask: Boolean = False);
 		function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;
 		procedure ReloadBBS;
 		function GetHttpState: Boolean;
@@ -4701,7 +4701,7 @@ begin
 	end;
 end;
 
-procedure TGikoForm.MoveToURL(const inURL: string);
+procedure TGikoForm.MoveToURL(const inURL: string; KeyMask: Boolean = False);
 var
 	protocol, host, path, document, port, bookmark : string;
 	URL, protocol2, host2, path2, document2, port2, bookmark2 : string;
@@ -4718,17 +4718,18 @@ begin
 
 	GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark );
 	GikoSys.Parse2chURL( inURL, path, document, BBSID, BBSKey );
-
-
-	shiftDown	:= GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
-	ctrlDown	:= GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
-	if shiftDown then begin
-		GikoSys.OpenBrowser(inURL, gbtUserApp);
-		Exit;
-	end else if ctrlDown then begin
-		GikoSys.OpenBrowser(inURL, gbtIE);
-		Exit;
-	end;
+    // ƒAƒNƒVƒ‡ƒ“‚©‚çŒÄ‚΂ê‚é‚Æshift/ctrl‚Í‚¨‚µ‚Á‚ς̏ꍇ‚ª‚Ù‚Æ‚ñ‚ǂȂ̂Ń}ƒXƒN‚·‚é
+    if not KeyMask then begin
+        shiftDown	:= GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
+        ctrlDown	:= GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
+        if shiftDown then begin
+            GikoSys.OpenBrowser(inURL, gbtUserApp);
+            Exit;
+        end else if ctrlDown then begin
+            GikoSys.OpenBrowser(inURL, gbtIE);
+            Exit;
+        end;
+    end;
 
 	//===== ƒvƒ‰ƒOƒCƒ“
 	try

--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -476,7 +476,7 @@ type
 	procedure ClearSelectComboBox;
     procedure ClearMailAllEditor();
     procedure ClearNameTextAllEditor();
-    procedure MoveURLWithHistory(URL : String);
+    procedure MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
     procedure BackToHistory(item: TMoveHistoryItem);
     function GetActiveThreadLinks : IHTMLElementCollection;
     procedure GetLinkURLs(links : IHTMLElementCollection;
@@ -4143,17 +4143,17 @@ begin
             end;
         end else begin
             //URL‚Ɉړ®
-            MoveURLWithHistory(item.ThreadItem.URL);
+            MoveURLWithHistory(item.ThreadItem.URL, True);
         end;
     end;
 end;
 //! —š—ðˆ—‚‚«URLˆÚ“®
-procedure TGikoDM.MoveURLWithHistory(URL : String);
+procedure TGikoDM.MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
 var
     idx : Integer;
 begin
     //URL‚Ɉړ®
-    GikoForm.MoveToURL(URL);
+    GikoForm.MoveToURL(URL, KeyMask);
     //ˆÈ‰ºA—š—ð‚̏ˆ—
     idx := GikoForm.AddressComboBox.Items.IndexOf(URL);
     if idx = -1 then begin