| 573 |
// ヘッダ |
// ヘッダ |
| 574 |
doc.Write( boardPlugIn.GetHeader( DWORD( threadItem ), |
doc.Write( boardPlugIn.GetHeader( DWORD( threadItem ), |
| 575 |
'<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) + #13#10 ); |
'<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) + #13#10 ); |
| 576 |
doc.Write('<p id="idSearch"></p>' + #13#10 ); |
doc.Write('<p id="idSearch"></p>'#13#10 ); |
| 577 |
|
|
| 578 |
for i := 0 to threadItem.Count - 1 do begin |
for i := 0 to threadItem.Count - 1 do begin |
| 579 |
// 1 は必ず表示 |
// 1 は必ず表示 |
| 599 |
if FileExists( GikoSys.GetSkinNewmarkFileName ) then |
if FileExists( GikoSys.GetSkinNewmarkFileName ) then |
| 600 |
doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 ) |
doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 ) |
| 601 |
else |
else |
| 602 |
doc.Write( '<a name="new"></a>' + #13#10 ); |
doc.Write( '<a name="new"></a>'#13#10 ); |
| 603 |
end else if GikoSys.Setting.UseCSS then begin |
end else if GikoSys.Setting.UseCSS then begin |
| 604 |
doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>' + #13#10); |
doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'#13#10); |
| 605 |
end else begin |
end else begin |
| 606 |
doc.Write('</dl>'); |
doc.Write('</dl>'); |
| 607 |
doc.Write('<a name="new"></a>'); |
doc.Write('<a name="new"></a>'); |
| 608 |
doc.Write('<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>'); |
doc.Write('<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>'); |
| 609 |
doc.Write('<dl> + #13#10'); |
doc.Write('<dl>'#13#10); |
| 610 |
end; |
end; |
| 611 |
except |
except |
| 612 |
doc.Write( '<a name="new"></a>' + #13#10); |
doc.Write( '<a name="new"></a>'#13#10); |
| 613 |
end; |
end; |
| 614 |
end; |
end; |
| 615 |
|
|
| 623 |
if FileExists( GikoSys.GetSkinBookmarkFileName ) then |
if FileExists( GikoSys.GetSkinBookmarkFileName ) then |
| 624 |
doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 ) |
doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 ) |
| 625 |
else |
else |
| 626 |
doc.Write( '<a name="koko"></a>' + #13#10 ); |
doc.Write( '<a name="koko"></a>'#13#10 ); |
| 627 |
end else if GikoSys.Setting.UseCSS then begin |
end else if GikoSys.Setting.UseCSS then begin |
| 628 |
doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>' + #13#10 ); |
doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>'#13#10 ); |
| 629 |
end else begin |
end else begin |
| 630 |
doc.Write('</dl>'); |
doc.Write('</dl>'); |
| 631 |
doc.Write('<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>'); |
doc.Write('<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>'); |
| 632 |
doc.Write('<dl>' + #13#10 ); |
doc.Write('<dl>'#13#10 ); |
| 633 |
end; |
end; |
| 634 |
except |
except |
| 635 |
doc.Write( '<a name="koko"></a>' + #13#10 ); |
doc.Write( '<a name="koko"></a>'#13#10 ); |
| 636 |
end; |
end; |
| 637 |
end; |
end; |
| 638 |
end; |
end; |
| 694 |
except |
except |
| 695 |
end; |
end; |
| 696 |
|
|
| 697 |
doc.Write('<p id="idSearch"></p>' + #13#10); |
doc.Write('<p id="idSearch"></p>'#13#10); |
| 698 |
doc.Write('<a name="top"></a>' + #13#10); |
doc.Write('<a name="top"></a>'#13#10); |
| 699 |
|
|
| 700 |
for i := 0 to ReadList.Count - 1 do begin |
for i := 0 to ReadList.Count - 1 do begin |
| 701 |
// 1 は必ず表示 |
// 1 は必ず表示 |
| 720 |
if FileExists( GikoSys.GetSkinNewmarkFileName ) then |
if FileExists( GikoSys.GetSkinNewmarkFileName ) then |
| 721 |
doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10) |
doc.Write( LoadFromSkin( GikoSys.GetSkinNewmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10) |
| 722 |
else |
else |
| 723 |
doc.Write( '<a name="new"></a>' + #13#10 ); |
doc.Write( '<a name="new"></a>'#13#10 ); |
| 724 |
except |
except |
| 725 |
doc.Write( '<a name="new"></a>' + #13#10 ); |
doc.Write( '<a name="new"></a>'#13#10 ); |
| 726 |
end; |
end; |
| 727 |
end; |
end; |
| 728 |
|
|
| 752 |
if FileExists( GikoSys.GetSkinBookmarkFileName ) then |
if FileExists( GikoSys.GetSkinBookmarkFileName ) then |
| 753 |
doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 ) |
doc.Write( LoadFromSkin( GikoSys.GetSkinBookmarkFileName, ThreadItem, ThreadItem.Size ) + #13#10 ) |
| 754 |
else |
else |
| 755 |
doc.Write( '<a name="koko"></a>' + #13#10 ); |
doc.Write( '<a name="koko"></a>'#13#10 ); |
| 756 |
except |
except |
| 757 |
doc.Write( '<a name="koko"></a>' + #13#10 ); |
doc.Write( '<a name="koko"></a>'#13#10 ); |
| 758 |
end; |
end; |
| 759 |
end; |
end; |
| 760 |
end; |
end; |
| 761 |
|
|
| 762 |
doc.Write('<a name="bottom"></a>' + #13#10); |
doc.Write('<a name="bottom"></a>'#13#10); |
| 763 |
// スキン(フッタ) |
// スキン(フッタ) |
| 764 |
try |
try |
| 765 |
doc.Write( LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, ThreadItem.Size ) + #13#10 ); |
doc.Write( LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, ThreadItem.Size ) + #13#10 ); |
| 788 |
CSSFileName := GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName; |
CSSFileName := GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName; |
| 789 |
if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin |
if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin |
| 790 |
//CSS使用 |
//CSS使用 |
| 791 |
doc.Write('<html><head>' + #13#10); |
doc.Write('<html><head>'#13#10); |
| 792 |
doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' + #13#10); |
doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10); |
| 793 |
doc.Write('<title>' + sTitle + '</title>' + #13#10); |
doc.Write('<title>' + sTitle + '</title>'#13#10); |
| 794 |
doc.Write('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">' + #13#10); |
doc.Write('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">'#13#10); |
| 795 |
if Length( UserOptionalStyle ) > 0 then |
if Length( UserOptionalStyle ) > 0 then |
| 796 |
doc.Write('<style type="text/css">body {' + UserOptionalStyle + '}</style>' + #13#10); |
doc.Write('<style type="text/css">body {' + UserOptionalStyle + '}</style>'#13#10); |
| 797 |
doc.Write('</head>' + #13#10); |
doc.Write('</head>'#13#10); |
| 798 |
doc.Write('<body>' + #13#10); |
doc.Write('<body>'#13#10); |
| 799 |
doc.Write('<a name="top"></a>' + #13#10); |
doc.Write('<a name="top"></a>'#13#10); |
| 800 |
doc.Write('<p id="idSearch"></p>' + #13#10); |
doc.Write('<p id="idSearch"></p>'#13#10); |
| 801 |
doc.Write('<div class="title">' + sTitle + '</div>' + #13#10); |
doc.Write('<div class="title">' + sTitle + '</div>'#13#10); |
| 802 |
for i := 0 to ReadList.Count - 1 do begin |
for i := 0 to ReadList.Count - 1 do begin |
| 803 |
// 1 は必ず表示 |
// 1 は必ず表示 |
| 804 |
if i <> 0 then begin |
if i <> 0 then begin |
| 817 |
end; |
end; |
| 818 |
|
|
| 819 |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
| 820 |
doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>' + #13#10); |
doc.Write('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'#13#10); |
| 821 |
end; |
end; |
| 822 |
|
|
| 823 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 832 |
+ '<span class="name"><b>' + Res.FName + '</b></span> ' |
+ '<span class="name"><b>' + Res.FName + '</b></span> ' |
| 833 |
+ '<span class="date_label">投稿日:</span> ' |
+ '<span class="date_label">投稿日:</span> ' |
| 834 |
+ '<span class="date">' + Res.FDateTime+ '</span></div>' |
+ '<span class="date">' + Res.FDateTime+ '</span></div>' |
| 835 |
+ '<div class="mes">' + Res.FBody + ' </div>' + #13#10) |
+ '<div class="mes">' + Res.FBody + ' </div>'#13#10) |
| 836 |
else if GikoSys.Setting.ShowMail then |
else if GikoSys.Setting.ShowMail then |
| 837 |
doc.Write('<a name="' + No + '"></a>' |
doc.Write('<a name="' + No + '"></a>' |
| 838 |
+ '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>' |
+ '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>' |
| 841 |
+ '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>' |
+ '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>' |
| 842 |
+ '<span class="date_label"> 投稿日:</span>' |
+ '<span class="date_label"> 投稿日:</span>' |
| 843 |
+ '<span class="date"> ' + Res.FDateTime+ '</span></div>' |
+ '<span class="date"> ' + Res.FDateTime+ '</span></div>' |
| 844 |
+ '<div class="mes">' + Res.FBody + ' </div>' + #13#10) |
+ '<div class="mes">' + Res.FBody + ' </div>'#13#10) |
| 845 |
else |
else |
| 846 |
doc.Write('<a name="' + No + '"></a>' |
doc.Write('<a name="' + No + '"></a>' |
| 847 |
+ '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>' |
+ '<div class="header"><span class="no"><a href="menu:' + No + '">' + No + '</a></span>' |
| 850 |
+ '<b>' + Res.FName + '</b></a>' |
+ '<b>' + Res.FName + '</b></a>' |
| 851 |
+ '<span class="date_label"> 投稿日:</span>' |
+ '<span class="date_label"> 投稿日:</span>' |
| 852 |
+ '<span class="date"> ' + Res.FDateTime+ '</span></div>' |
+ '<span class="date"> ' + Res.FDateTime+ '</span></div>' |
| 853 |
+ '<div class="mes">' + Res.FBody + ' </div>' + #13#10); |
+ '<div class="mes">' + Res.FBody + ' </div>'#13#10); |
| 854 |
end; |
end; |
| 855 |
|
|
| 856 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 857 |
doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>' + #13#10); |
doc.Write('<a name="koko"></a><div class="koko">ココまで読んだ</div>'#13#10); |
| 858 |
end; |
end; |
| 859 |
|
|
| 860 |
end; |
end; |
| 861 |
|
|
| 862 |
doc.Write('<a name="bottom"></a>' + #13#10); |
doc.Write('<a name="bottom"></a>'#13#10); |
| 863 |
doc.Write('<a name="last"></a>' + #13#10); |
doc.Write('<a name="last"></a>'#13#10); |
| 864 |
doc.Write('</body></html>' + #13#10); |
doc.Write('</body></html>'#13#10); |
| 865 |
end; |
end; |
| 866 |
finally |
finally |
| 867 |
doc.Close; |
doc.Close; |
| 879 |
try |
try |
| 880 |
doc.charset := 'Shift_JIS'; |
doc.charset := 'Shift_JIS'; |
| 881 |
NewReceiveNo := ThreadItem.NewReceive; |
NewReceiveNo := ThreadItem.NewReceive; |
| 882 |
doc.Write('<html><head>' + #13#10); |
doc.Write('<html><head>'#13#10); |
| 883 |
doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' + #13#10); |
doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10); |
| 884 |
doc.Write('<title>' + sTitle + '</title></head>' + #13#10); |
doc.Write('<title>' + sTitle + '</title></head>'#13#10); |
| 885 |
doc.Write('<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' + #13#10); |
doc.Write('<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">'#13#10); |
| 886 |
doc.Write('<a name="top"></a>' + #13#10); |
doc.Write('<a name="top"></a>'#13#10); |
| 887 |
doc.Write('<font size=+1 color="#FF0000">' + sTitle + '</font>' + #13#10); |
doc.Write('<font size=+1 color="#FF0000">' + sTitle + '</font>'#13#10); |
| 888 |
doc.Write('<dl>' + #13#10); |
doc.Write('<dl>'#13#10); |
| 889 |
doc.Write('<p id="idSearch"></p>' + #13#10); |
doc.Write('<p id="idSearch"></p>'#13#10); |
| 890 |
for i := 0 to ReadList.Count - 1 do begin |
for i := 0 to ReadList.Count - 1 do begin |
| 891 |
// 1 は必ず表示 |
// 1 は必ず表示 |
| 892 |
if i <> 0 then begin |
if i <> 0 then begin |
| 905 |
end; |
end; |
| 906 |
|
|
| 907 |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
| 908 |
doc.Write('</dl>' + #13#10); |
doc.Write('</dl>'#13#10); |
| 909 |
doc.Write('<a name="new"></a>' + #13#10); |
doc.Write('<a name="new"></a>'#13#10); |
| 910 |
doc.Write('<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>' + #13#10); |
doc.Write('<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>'#13#10); |
| 911 |
doc.Write('<dl>' + #13#10); |
doc.Write('<dl>'#13#10); |
| 912 |
end; |
end; |
| 913 |
|
|
| 914 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 917 |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
| 918 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 919 |
if Res.FMailTo = '' then |
if Res.FMailTo = '' then |
| 920 |
doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<font color="forestgreen"><b> ' + Res.FName + ' </b></font> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>' + #13#10) |
doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<font color="forestgreen"><b> ' + Res.FName + ' </b></font> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10) |
| 921 |
else if GikoSys.Setting.ShowMail then |
else if GikoSys.Setting.ShowMail then |
| 922 |
doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>' + #13#10) |
doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10) |
| 923 |
else |
else |
| 924 |
doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>' + #13#10); |
doc.Write('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10); |
| 925 |
end; |
end; |
| 926 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 927 |
doc.Write('</dl>' + #13#10); |
doc.Write('</dl>'#13#10); |
| 928 |
doc.Write('<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>' + #13#10); |
doc.Write('<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>'#13#10); |
| 929 |
doc.Write('<dl>' + #13#10); |
doc.Write('<dl>'#13#10); |
| 930 |
end; |
end; |
| 931 |
end; |
end; |
| 932 |
doc.Write('</dl>' + #13#10); |
doc.Write('</dl>'#13#10); |
| 933 |
doc.Write('<a name="bottom"></a>' + #13#10); |
doc.Write('<a name="bottom"></a>'#13#10); |
| 934 |
doc.Write('</body></html>' + #13#10); |
doc.Write('</body></html>'#13#10); |
| 935 |
finally |
finally |
| 936 |
doc.Close; |
doc.Close; |
| 937 |
end; |
end; |