| 876 |
Skin := StringReplace( Skin, '<NUMBER/>', |
Skin := StringReplace( Skin, '<NUMBER/>', |
| 877 |
'<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] ); |
'<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] ); |
| 878 |
Skin := StringReplace( Skin, '<PLAINNUMBER/>', No, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '<PLAINNUMBER/>', No, [rfReplaceAll] ); |
| 879 |
Skin := StringReplace( Skin, '<NAME/>', Res.FName, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '<NAME/>', '<b>' + Res.FName + '</b>', [rfReplaceAll] ); |
| 880 |
Skin := StringReplace( Skin, '<MAILNAME/>', |
Skin := StringReplace( Skin, '<MAILNAME/>', |
| 881 |
'<a href="mailo:' + Res.FMailTo + '">' + Res.FName + '</a>', [rfReplaceAll] ); |
'<a href="mailo:' + Res.FMailTo + '"><b>' + Res.FName + '</b></a>', [rfReplaceAll] ); |
| 882 |
Skin := StringReplace( Skin, '<MAIL/>', Res.FMailTo, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '<MAIL/>', Res.FMailTo, [rfReplaceAll] ); |
| 883 |
Skin := StringReplace( Skin, '<DATE/>', Res.FDateTime, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '<DATE/>', Res.FDateTime, [rfReplaceAll] ); |
| 884 |
Skin := StringReplace( Skin, '<MESSAGE/>', Res.FBody, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '<MESSAGE/>', Res.FBody, [rfReplaceAll] ); |
| 887 |
Skin := StringReplace( Skin, '&NUMBER', |
Skin := StringReplace( Skin, '&NUMBER', |
| 888 |
'<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] ); |
'<a href="menu:' + No + '" name="' + No + '">' + No + '</a>', [rfReplaceAll] ); |
| 889 |
Skin := StringReplace( Skin, '&PLAINNUMBER', No, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '&PLAINNUMBER', No, [rfReplaceAll] ); |
| 890 |
Skin := StringReplace( Skin, '&NAME', Res.FName, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '&NAME', '<b>' + Res.FName + '</b>', [rfReplaceAll] ); |
| 891 |
Skin := StringReplace( Skin, '&MAILNAME', |
Skin := StringReplace( Skin, '&MAILNAME', |
| 892 |
'<a href="mailo:' + Res.FMailTo + '">' + Res.FName + '</a>', [rfReplaceAll] ); |
'<a href="mailo:' + Res.FMailTo + '"><b>' + Res.FName + '</b></a>', [rfReplaceAll] ); |
| 893 |
Skin := StringReplace( Skin, '&MAIL', Res.FMailTo, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '&MAIL', Res.FMailTo, [rfReplaceAll] ); |
| 894 |
Skin := StringReplace( Skin, '&DATE', Res.FDateTime, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '&DATE', Res.FDateTime, [rfReplaceAll] ); |
| 895 |
Skin := StringReplace( Skin, '&MESSAGE', Res.FBody, [rfReplaceAll] ); |
Skin := StringReplace( Skin, '&MESSAGE', Res.FBody, [rfReplaceAll] ); |
| 944 |
FileExists( SkinHeaderFileName ) then begin |
FileExists( SkinHeaderFileName ) then begin |
| 945 |
// スキン使用 |
// スキン使用 |
| 946 |
|
|
| 947 |
|
SizeByte := Length( SaveList.Text ); |
| 948 |
|
|
| 949 |
// スキンの設定 |
// スキンの設定 |
| 950 |
try |
try |
| 951 |
SaveList.Add( LoadSkin( SkinHeaderFileName ) ); |
SaveList.Add( LoadSkin( SkinHeaderFileName ) ); |
| 978 |
try |
try |
| 979 |
SaveList.Add( LoadSkin( SkinNewmarkFileName ) ); |
SaveList.Add( LoadSkin( SkinNewmarkFileName ) ); |
| 980 |
except |
except |
| 981 |
SaveList.Add( '<a name="new"></a><dt class="newmark">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></dt><dd style="display:none"></dd>' ); |
SaveList.Add( '<a name="new"></a>' ); |
| 982 |
end; |
end; |
| 983 |
end; |
end; |
| 984 |
|
|
| 992 |
except |
except |
| 993 |
end; |
end; |
| 994 |
|
|
| 995 |
if ThreadItem.Kokomade = (i + 1) then |
if ThreadItem.Kokomade = (i + 1) then begin |
| 996 |
|
// ここまで読んだ |
| 997 |
|
try |
| 998 |
SaveList.Add( LoadSkin( SkinBookmarkFileName ) ); |
SaveList.Add( LoadSkin( SkinBookmarkFileName ) ); |
| 999 |
|
except |
| 1000 |
|
end; |
| 1001 |
|
end; |
| 1002 |
end; |
end; |
| 1003 |
|
|
| 1004 |
//if SaveList.Count > 50 then begin |
//if SaveList.Count > 50 then begin |
| 1023 |
SaveList.Add('<a name="bottom"></a>'); |
SaveList.Add('<a name="bottom"></a>'); |
| 1024 |
|
|
| 1025 |
// スキン(フッタ) |
// スキン(フッタ) |
| 1026 |
SaveList.Add( LoadSkin( SkinFooterFileName ) ); |
try |
| 1027 |
|
SaveList.Add( LoadSkin( SkinFooterFileName ) ); |
| 1028 |
|
except |
| 1029 |
|
end; |
| 1030 |
|
|
| 1031 |
doc.Write(SaveList.Text); |
doc.Write(SaveList.Text); |
| 1032 |
|
|