2009/03/26

どうやら・・・


IEで、スクリプトを表示させているフレームの、フォントが置き換わってしまう件、
原因は、ブラウザ云々と云うよりは、Bloggerのテンプレートにあるようだ。

その結論に至った検証の方法は極めて単純。
いつものようなスクリプトを紹介する体のテーブルを表示するだけのシンプルなHTMLファイルを作って、
それぞれのブラウザで表示させてみただけ。

そのHTMLファイルの内容は以下の通り、
    <?xml version="1.0" encoding="Shift_JIS"?>     
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
<html lang="ja" xml:lang="ja" xmlns="http://www.w3.org/1999/xhtml">
<head>
<style type='text/css'>
.ScriptExp
{
background-color: #FFFFFF;
border: 0;
align: center;
color: #1e50a2;
line-height: 100%;
}
.ScriptComments
{
font-weight: normal;
color: #FFFFFF;
background-color: #288285;
border: 0;
}
</style>

</head>

<body style="background-color: #000088">
<table class="ScriptExp"><tr class="ScriptExp"><td><pre> Public Function iniLoader(iniFile, Control)
Dim nS
nS = Fs.GetFile(iniFile).size
If nS = 0 Then
iniLoader = Array(Fs.GetParentFolderName(iniFile))
Else
Dim iFile, lResult, strResults
Set iFile = Fs.OpenTextFile(iniFile,1) <a class="ScriptComments">'iniファイルを読み取りモードで開く</a>
WScript.Sleep 150
Do Until iFile.AtEndOfStream <a class="ScriptComments">'読み込み</a>
lResult = lResult & ";" & iFile.ReadLine & ";"
Loop
WScript.Sleep 150
iFile.Close <a class="ScriptComments">'Iniファイルを閉じる</a>
strResults = Replace(Replace(lResult,";;",","),";","")
If Control = 0 Then
iniLoader = Split(strResults, ",")
Else
iniLoader = strResults
End If
End If
End Function
</pre></td></tr></table>
</body>
</html>

ココで、スタイルシート宣言中でフォントを指定すると、困ったことに、
ロリちゃんのほうで、フォントの表示が欲しい結果にならなくなってしまうので、
Blogger上で使っているままの指定に留めた。

て、結果は、IE8でも全く問題なく、本来あるべき表示結果が得られた。
同じ処理をBlogger上に貼るとフォントが変わってしまうので、まぁ下手人てコトで間違いはなさそうだ。

が、整えたとは云え、あのテンプレートから原因を追うのは ちょっとイヤかも・・・(´ヘ`;)

0 件のコメント:

コメントを投稿