Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.691 by h677, Sun May 17 02:37:39 2009 UTC revision 1.692 by h677, Sun May 17 04:28:00 2009 UTC
# Line 717  type Line 717  type
717                  BrowserNullTab: TBrowserRecord;                  BrowserNullTab: TBrowserRecord;
718                  FControlThread: TThreadControl;                  FControlThread: TThreadControl;
719          FIconData : TNotifyIconData;          FIconData : TNotifyIconData;
720                  procedure MoveToURL(const inURL: string);                  procedure MoveToURL(const inURL: string; KeyMask: Boolean = False);
721                  function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;                  function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;
722                  procedure ReloadBBS;                  procedure ReloadBBS;
723                  function GetHttpState: Boolean;                  function GetHttpState: Boolean;
# Line 4701  begin Line 4701  begin
4701          end;          end;
4702  end;  end;
4703    
4704  procedure TGikoForm.MoveToURL(const inURL: string);  procedure TGikoForm.MoveToURL(const inURL: string; KeyMask: Boolean = False);
4705  var  var
4706          protocol, host, path, document, port, bookmark : string;          protocol, host, path, document, port, bookmark : string;
4707          URL, protocol2, host2, path2, document2, port2, bookmark2 : string;          URL, protocol2, host2, path2, document2, port2, bookmark2 : string;
# Line 4718  begin Line 4718  begin
4718    
4719          GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark );          GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark );
4720          GikoSys.Parse2chURL( inURL, path, document, BBSID, BBSKey );          GikoSys.Parse2chURL( inURL, path, document, BBSID, BBSKey );
4721        // アクションから呼ばれるとshift/ctrlはおしっぱの場合がほとんどなのでマスクする
4722        if not KeyMask then begin
4723          shiftDown       := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);          shiftDown       := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
4724          ctrlDown        := GetAsyncKeyState(VK_CONTROL) = Smallint($8001);          ctrlDown        := GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
4725          if shiftDown then begin          if shiftDown then begin
4726                  GikoSys.OpenBrowser(inURL, gbtUserApp);              GikoSys.OpenBrowser(inURL, gbtUserApp);
4727                  Exit;              Exit;
4728          end else if ctrlDown then begin          end else if ctrlDown then begin
4729                  GikoSys.OpenBrowser(inURL, gbtIE);              GikoSys.OpenBrowser(inURL, gbtIE);
4730                  Exit;              Exit;
4731          end;          end;
4732        end;
4733    
4734          //===== プラグイン          //===== プラグイン
4735          try          try

Legend:
Removed from v.1.691  
changed lines
  Added in v.1.692

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26