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.65 by yoffy, Sat Sep 27 05:44:21 2003 UTC revision 1.66 by yoffy, Sat Sep 27 06:35:19 2003 UTC
# Line 2269  begin Line 2269  begin
2269                          URL := Text;                          URL := Text;
2270    
2271                          // スキンを使用している場合はポップアップしない                          // スキンを使用している場合はポップアップしない
2272        if GikoSys.Setting.UseCSS and        if Pos('about:blank..', URL) = 1 then begin
2273          FileExists( GikoSys.GetSkinHeaderFileName ) and          if GikoSys.Setting.UseCSS and
2274          (Pos( 'about:blank..', URL ) = 1) then            FileExists( GikoSys.GetSkinHeaderFileName ) and
2275            Exit            (not GikoSys.Setting.SkinPopup) then
2276        else if Pos('about:blank..', URL) = 1 then              Exit;
2277                                  URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []);  
2278            URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []);
2279          end;
2280    
2281                          PathRec := Gikosys.Parse2chURL2(URL);                          PathRec := Gikosys.Parse2chURL2(URL);
2282    

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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