| 1021 |
// ヘッダ |
// ヘッダ |
| 1022 |
SaveList.Add( boardPlugIn.GetHeader( DWORD( threadItem ), |
SaveList.Add( boardPlugIn.GetHeader( DWORD( threadItem ), |
| 1023 |
'<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) ); |
'<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) ); |
|
SaveList.Add('<a name="top"></a>'); |
|
| 1024 |
|
|
| 1025 |
for i := 0 to threadItem.Count - 1 do begin |
for i := 0 to threadItem.Count - 1 do begin |
| 1026 |
if (OnlyAHundredRes = true) and ( i <> 0 ) and ( (threadItem.Count-i) > 101 ) then begin |
if (OnlyAHundredRes = true) and ( i <> 0 ) and ( (threadItem.Count-i) > 101 ) then begin |
| 1030 |
// 新着マーク |
// 新着マーク |
| 1031 |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
| 1032 |
try |
try |
| 1033 |
SaveList.Add( LoadSkin( GetSkinNewmarkFileName ) ); |
if GikoSys.Setting.UseSkin then begin |
| 1034 |
|
SaveList.Add( LoadSkin( GetSkinNewmarkFileName ) ); |
| 1035 |
|
end else if GikoSys.Setting.UseCSS then begin |
| 1036 |
|
SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'); |
| 1037 |
|
end else begin |
| 1038 |
|
SaveList.Add('</dl>'); |
| 1039 |
|
SaveList.Add('<a name="new"></a>'); |
| 1040 |
|
SaveList.Add('<table width="100%" bgcolor="#3333CC" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#6666FF" valign="middle"><font size="-1" color="#ffffff"><b>新着レス ' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</b></font></td></tr></table>'); |
| 1041 |
|
SaveList.Add('<dl>'); |
| 1042 |
|
end; |
| 1043 |
except |
except |
| 1044 |
SaveList.Add( '<a name="new"></a>' ); |
SaveList.Add( '<a name="new"></a>' ); |
| 1045 |
end; |
end; |
| 1051 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 1052 |
// ここまで読んだ |
// ここまで読んだ |
| 1053 |
try |
try |
| 1054 |
SaveList.Add( LoadSkin( GetSkinBookmarkFileName ) ); |
if GikoSys.Setting.UseSkin then begin |
| 1055 |
|
SaveList.Add( LoadSkin( GetSkinBookmarkFileName ) ); |
| 1056 |
|
end else if GikoSys.Setting.UseCSS then begin |
| 1057 |
|
SaveList.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>'); |
| 1058 |
|
end else begin |
| 1059 |
|
SaveList.Add('</dl>'); |
| 1060 |
|
SaveList.Add('<a name="koko"></a><table width="100%" bgcolor="#55AA55" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#77CC77" valign="middle"><font size="-1" color="#ffffff"><b>ココまで読んだ</b></font></td></tr></table>'); |
| 1061 |
|
SaveList.Add('<dl>'); |
| 1062 |
|
end; |
| 1063 |
except |
except |
| 1064 |
SaveList.Add( '<a name="koko"></a>' ); |
SaveList.Add( '<a name="koko"></a>' ); |
| 1065 |
end; |
end; |
| 1309 |
|
|
| 1310 |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
| 1311 |
SaveList.Add('</dl>'); |
SaveList.Add('</dl>'); |
| 1312 |
SaveList.Add('<a name="new"></a>'); |
SaveList.Add('<a name="new"></a>'); |
| 1313 |
SaveList.Add('<table width="100%" bgcolor="#3333CC" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#6666FF" valign="middle"><font size="-1" color="#ffffff"><b>新着レス ' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</b></font></td></tr></table>'); |
SaveList.Add('<table width="100%" bgcolor="#3333CC" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#6666FF" valign="middle"><font size="-1" color="#ffffff"><b>新着レス ' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</b></font></td></tr></table>'); |
| 1314 |
SaveList.Add('<dl>'); |
SaveList.Add('<dl>'); |
| 1315 |
end; |
end; |
| 1316 |
Res := DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 1317 |
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |