threadItem := TThreadItem( inInstance );
// \88ø\90\94\82ð\95ª\89ð
res := GikoSys.DivideStrLine( string( inDatRes ) );
+ res.FBody := GikoSys.AddAnchorTag( res.FBody );
no := IntToStr( inResNo );
try
GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte
), res, no
) );
- end else begin
- // CSS or \83f\83t\83H\83\8b\83g
+ end else if GikoSys.Setting.UseCSS then begin
+ // CSS
if res.FName = '' then
res.FName := ' ';
if res.FMailTo = '' then
+ '<span class="date_label"> \93\8a\8de\93ú\81F</span>'
+ '<span class="date"> ' + res.FDateTime+ '</span></div>'
+ '<div class="mes">' + res.FBody + ' </div>' );
+ end else begin
+ // \83f\83t\83H\83\8b\83g
+ if res.FMailTo = '' then
+ Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<font color="forestgreen"><b> ' + res.FName + ' </b></font> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
+ else if GikoSys.Setting.ShowMail then
+ Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> [' + res.FMailTo + '] \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' )
+ else
+ Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> \96¼\91O\81F<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> \93\8a\8de\93ú\81F ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' );
end;
except
Result := nil;
skinHeader := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.SizeByte );
if Length( optionalHeader ) > 0 then
skinHeader :=
- StringReplace( skinHeader, '</head>', optionalHeader + '</head>', [] );
+ StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );
end else if GikoSys.Setting.UseCSS then begin
// CSS
skinHeader :=
optionalHeader +
'</head>' +
'<body>' +
+ '<a name="top"></a>' +
'<div class="title">' + threadItem.Title + '</div>';
end else begin
// \83f\83t\83H\83\8b\83g
'<title>' + threadItem.Title + '</title>' +
optionalHeader +
'</head>' +
- '<body>' +
- '<div class="title">' + threadItem.Title + '</div>';
+ '<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' +
+ '<a name="top"></a>' +
+ '<font size=+1 color="#FF0000">' + threadItem.Title + '</font>' +
+ '<dl>';
end;
except
end;
try
if GikoSys.Setting.UseSkin then begin
+ // \83X\83L\83\93
skinFooter := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.SizeByte );
if Length( optionalFooter ) > 0 then
skinFooter :=
StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );
+ end else if GikoSys.Setting.UseCSS then begin
+ // CSS
+ skinFooter :=
+ '<a name="bottom"></a>' +
+ optionalFooter +
+ '</body></html>' +
+ '<a name="last"></a>' +
+ '</body></html>';
end else begin
- skinFooter :=
- '<a name="bottom"></a>' +
- optionalFooter +
- '</body></html>' +
- '<a name="last"></a>' +
- '</body></html>';
+ // \83f\83t\83H\83\8b\83g
+ skinFooter :=
+ '</dl>' +
+ '<a name="bottom"></a>' +
+ optionalFooter +
+ '</body></html>' +
+ '<a name="last"></a>' +
+ '</body></html>';
end;
except
end;