• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-cqtcocoa誰得pythonphprubygameguibathyscaphec翻訳計画中(planning stage)omegatframeworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revision15f993bc86d9ac477dbb69da1df0ddaac2380998 (tree)
Time2009-05-17 13:28:00
Authorh677 <h677>
Commiterh677

Log Message

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

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -717,7 +717,7 @@ type
717717 BrowserNullTab: TBrowserRecord;
718718 FControlThread: TThreadControl;
719719 FIconData : TNotifyIconData;
720- procedure MoveToURL(const inURL: string);
720+ procedure MoveToURL(const inURL: string; KeyMask: Boolean = False);
721721 function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;
722722 procedure ReloadBBS;
723723 function GetHttpState: Boolean;
@@ -4701,7 +4701,7 @@ begin
47014701 end;
47024702 end;
47034703
4704-procedure TGikoForm.MoveToURL(const inURL: string);
4704+procedure TGikoForm.MoveToURL(const inURL: string; KeyMask: Boolean = False);
47054705 var
47064706 protocol, host, path, document, port, bookmark : string;
47074707 URL, protocol2, host2, path2, document2, port2, bookmark2 : string;
@@ -4718,17 +4718,18 @@ begin
47184718
47194719 GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark );
47204720 GikoSys.Parse2chURL( inURL, path, document, BBSID, BBSKey );
4721-
4722-
4723- shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4724- ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
4725- if shiftDown then begin
4726- GikoSys.OpenBrowser(inURL, gbtUserApp);
4727- Exit;
4728- end else if ctrlDown then begin
4729- GikoSys.OpenBrowser(inURL, gbtIE);
4730- Exit;
4731- end;
4721+ // ƒAƒNƒVƒ‡ƒ“‚©‚çŒÄ‚΂ê‚é‚Æshift/ctrl‚Í‚¨‚µ‚Á‚ς̏ꍇ‚ª‚Ù‚Æ‚ñ‚ǂȂ̂Ń}ƒXƒN‚·‚é
4722+ if not KeyMask then begin
4723+ shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4724+ ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
4725+ if shiftDown then begin
4726+ GikoSys.OpenBrowser(inURL, gbtUserApp);
4727+ Exit;
4728+ end else if ctrlDown then begin
4729+ GikoSys.OpenBrowser(inURL, gbtIE);
4730+ Exit;
4731+ end;
4732+ end;
47324733
47334734 //===== ƒvƒ‰ƒOƒCƒ“
47344735 try
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -476,7 +476,7 @@ type
476476 procedure ClearSelectComboBox;
477477 procedure ClearMailAllEditor();
478478 procedure ClearNameTextAllEditor();
479- procedure MoveURLWithHistory(URL : String);
479+ procedure MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
480480 procedure BackToHistory(item: TMoveHistoryItem);
481481 function GetActiveThreadLinks : IHTMLElementCollection;
482482 procedure GetLinkURLs(links : IHTMLElementCollection;
@@ -4143,17 +4143,17 @@ begin
41434143 end;
41444144 end else begin
41454145 //URL‚Ɉړ®
4146- MoveURLWithHistory(item.ThreadItem.URL);
4146+ MoveURLWithHistory(item.ThreadItem.URL, True);
41474147 end;
41484148 end;
41494149 end;
41504150 //! —š—ðˆ—‚‚«URLˆÚ“®
4151-procedure TGikoDM.MoveURLWithHistory(URL : String);
4151+procedure TGikoDM.MoveURLWithHistory(URL : String; KeyMask: Boolean = False);
41524152 var
41534153 idx : Integer;
41544154 begin
41554155 //URL‚Ɉړ®
4156- GikoForm.MoveToURL(URL);
4156+ GikoForm.MoveToURL(URL, KeyMask);
41574157 //ˆÈ‰ºA—š—ð‚̏ˆ—
41584158 idx := GikoForm.AddressComboBox.Items.IndexOf(URL);
41594159 if idx = -1 then begin