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.602 by yoffy, Sat Jun 10 18:57:25 2006 UTC revision 1.603 by yoffy, Sat Jun 10 19:05:09 2006 UTC
# Line 1853  begin Line 1853  begin
1853          // ギコナビはレスアンカーが about:blank.. で始まることを期待しているが          // ギコナビはレスアンカーが about:blank.. で始まることを期待しているが
1854    // IE 7 では about:blank.. ではなく about:.. になるので、置換する(投げやり)    // IE 7 では about:blank.. ではなく about:.. になるので、置換する(投げやり)
1855          if Pos('about:..', Text) = 1 then          if Pos('about:..', Text) = 1 then
1856          Text2 := 'about:blank..' + Copy( Text, Length('about:..')+1, Length(Text) );          Text2 := 'about:blank..' + Copy( Text, Length('about:..')+1, Length(Text) )
1857      else
1858            Text2 := Text;
1859          if not( TObject(Sender) is TWebBrowser )then          if not( TObject(Sender) is TWebBrowser )then
1860                  Exit;                  Exit;
1861          try          try

Legend:
Removed from v.1.602  
changed lines
  Added in v.1.603

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