OSDN Git Service

- Fix for less than IE 7.
authoryoffy <yoffy>
Sat, 10 Jun 2006 19:05:09 +0000 (19:05 +0000)
committeryoffy <yoffy>
Sat, 10 Jun 2006 19:05:09 +0000 (19:05 +0000)
Giko.pas

index bf50f2f..f3e323b 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1853,7 +1853,9 @@ begin
        // \83M\83R\83i\83r\82Í\83\8c\83X\83A\83\93\83J\81[\82ª about:blank.. \82Å\8en\82Ü\82é\82±\82Æ\82ð\8aú\91Ò\82µ\82Ä\82¢\82é\82ª
   // IE 7 \82Å\82Í about:blank.. \82Å\82Í\82È\82­ about:.. \82É\82È\82é\82Ì\82Å\81A\92u\8a·\82·\82é(\93\8a\82°\82â\82è)
        if Pos('about:..', Text) = 1 then
-       Text2 := 'about:blank..' + Copy( Text, Length('about:..')+1, Length(Text) );
+       Text2 := 'about:blank..' + Copy( Text, Length('about:..')+1, Length(Text) )
+  else
+       Text2 := Text;
        if not( TObject(Sender) is TWebBrowser )then
                Exit;
        try