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.51 by yoffy, Sun Sep 21 22:17:41 2003 UTC revision 1.52 by yoffy, Mon Sep 22 00:05:22 2003 UTC
# Line 2214  begin Line 2214  begin
2214                          URL := Text;                          URL := Text;
2215                          // !!!!! Debug !!!!!                          // !!!!! Debug !!!!!
2216                          // スキン用                          // スキン用
2217                          if Pos('about:blank..', URL) = 1 then        if FileExists( GikoSys.GetSkinDir + 'Header.html' ) and
2218                                  Exit;          (Pos( 'about:blank..', URL ) = 1) then
2219                          {            Exit
2220                          if Pos('about:blank..', URL) = 1 then        else if Pos('about:blank..', URL) = 1 then
2221                                  URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []);                                  URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []);
                         }  
2222                          // !!!!! Debug !!!!!                          // !!!!! Debug !!!!!
2223          // 元に戻すには「!!!!! Debug !!!!!」間を削除して、下をコメント解除
2224          {
2225                            if Pos('about:blank..', URL) = 1 then
2226                                    URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []);
2227          }
2228    
2229                          PathRec := Gikosys.Parse2chURL2(URL);                          PathRec := Gikosys.Parse2chURL2(URL);
2230    

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

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