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.440 by genyakun, Mon Sep 27 06:10:15 2004 UTC revision 1.441 by h677, Tue Sep 28 11:59:37 2004 UTC
# Line 2874  begin Line 2874  begin
2874                  end else begin                  end else begin
2875                          threadItem := GetActiveContent;                          threadItem := GetActiveContent;
2876                          if Pos('about:blank..', Text) = 1 then begin                          if Pos('about:blank..', Text) = 1 then begin
2877                                    if (AnsiPos('http://jbbs.livedoor.com/', threadItem.URL) <> 0) or                                    if(AnsiPos('http://jbbs.livedoor.jp/', threadItem.URL) <> 0) or
2878                                            (AnsiPos('http://jbbs.livedoor.com/', threadItem.URL) <> 0) or
2879                                          (AnsiPos('http://jbbs.shitaraba.com/', threadItem.URL) <> 0) then begin                                          (AnsiPos('http://jbbs.shitaraba.com/', threadItem.URL) <> 0) then begin
2880                                          URL := Copy(threadItem.URL, 1,  LastDelimiter('/',threadItem.URL));                                          URL := Copy(threadItem.URL, 1,  LastDelimiter('/',threadItem.URL));
2881                                          Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo);                                          Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo);
# Line 7496  begin Line 7497  begin
7497    
7498    
7499          shiftDown       := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);          shiftDown       := GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
7500      ctrlDown    := GetAsyncKeyState(VK_CONTROL) = Smallint($8001);          ctrlDown        := GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
7501      if shiftDown then begin          if shiftDown then begin
7502          GikoSys.OpenBrowser(URL, gbtUserApp);                  GikoSys.OpenBrowser(URL, gbtUserApp);
7503          Exit;                  Exit;
7504      end else if ctrlDown then begin          end else if ctrlDown then begin
7505          GikoSys.OpenBrowser(URL, gbtIE);                  GikoSys.OpenBrowser(URL, gbtIE);
7506          Exit;                  Exit;
7507          end;          end;
7508    
7509          //===== プラグイン          //===== プラグイン

Legend:
Removed from v.1.440  
changed lines
  Added in v.1.441

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