Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|