| 289 |
threadItem := TThreadItem( inInstance ); |
threadItem := TThreadItem( inInstance ); |
| 290 |
// 引数を分解 |
// 引数を分解 |
| 291 |
res := GikoSys.DivideStrLine( string( inDatRes ) ); |
res := GikoSys.DivideStrLine( string( inDatRes ) ); |
| 292 |
|
res.FBody := GikoSys.AddAnchorTag( res.FBody ); |
| 293 |
no := IntToStr( inResNo ); |
no := IntToStr( inResNo ); |
| 294 |
|
|
| 295 |
try |
try |
| 307 |
GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte |
GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte |
| 308 |
), res, no |
), res, no |
| 309 |
) ); |
) ); |
| 310 |
end else begin |
end else if GikoSys.Setting.UseCSS then begin |
| 311 |
// CSS or デフォルト |
// CSS |
| 312 |
if res.FName = '' then |
if res.FName = '' then |
| 313 |
res.FName := ' '; |
res.FName := ' '; |
| 314 |
if res.FMailTo = '' then |
if res.FMailTo = '' then |
| 337 |
+ '<span class="date_label"> 投稿日:</span>' |
+ '<span class="date_label"> 投稿日:</span>' |
| 338 |
+ '<span class="date"> ' + res.FDateTime+ '</span></div>' |
+ '<span class="date"> ' + res.FDateTime+ '</span></div>' |
| 339 |
+ '<div class="mes">' + res.FBody + ' </div>' ); |
+ '<div class="mes">' + res.FBody + ' </div>' ); |
| 340 |
|
end else begin |
| 341 |
|
// デフォルト |
| 342 |
|
if res.FMailTo = '' then |
| 343 |
|
Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> 名前:<font color="forestgreen"><b> ' + res.FName + ' </b></font> 投稿日: ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' ) |
| 344 |
|
else if GikoSys.Setting.ShowMail then |
| 345 |
|
Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> 名前:<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> [' + res.FMailTo + '] 投稿日: ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' ) |
| 346 |
|
else |
| 347 |
|
Result := CreateResultString( '<a name="' + no + '"></a><dt><a href="menu:' + no + '">' + no + '</a> 名前:<a href="mailto:' + res.FMailTo + '"><b> ' + res.FName + ' </B></a> 投稿日: ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' ); |
| 348 |
end; |
end; |
| 349 |
except |
except |
| 350 |
Result := nil; |
Result := nil; |
| 377 |
skinHeader := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.SizeByte ); |
skinHeader := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.SizeByte ); |
| 378 |
if Length( optionalHeader ) > 0 then |
if Length( optionalHeader ) > 0 then |
| 379 |
skinHeader := |
skinHeader := |
| 380 |
StringReplace( skinHeader, '</head>', optionalHeader + '</head>', [] ); |
StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] ); |
| 381 |
end else if GikoSys.Setting.UseCSS then begin |
end else if GikoSys.Setting.UseCSS then begin |
| 382 |
// CSS |
// CSS |
| 383 |
skinHeader := |
skinHeader := |
| 387 |
optionalHeader + |
optionalHeader + |
| 388 |
'</head>' + |
'</head>' + |
| 389 |
'<body>' + |
'<body>' + |
| 390 |
|
'<a name="top"></a>' + |
| 391 |
'<div class="title">' + threadItem.Title + '</div>'; |
'<div class="title">' + threadItem.Title + '</div>'; |
| 392 |
end else begin |
end else begin |
| 393 |
// デフォルト |
// デフォルト |
| 396 |
'<title>' + threadItem.Title + '</title>' + |
'<title>' + threadItem.Title + '</title>' + |
| 397 |
optionalHeader + |
optionalHeader + |
| 398 |
'</head>' + |
'</head>' + |
| 399 |
'<body>' + |
'<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' + |
| 400 |
'<div class="title">' + threadItem.Title + '</div>'; |
'<a name="top"></a>' + |
| 401 |
|
'<font size=+1 color="#FF0000">' + threadItem.Title + '</font>' + |
| 402 |
|
'<dl>'; |
| 403 |
end; |
end; |
| 404 |
except |
except |
| 405 |
end; |
end; |
| 429 |
|
|
| 430 |
try |
try |
| 431 |
if GikoSys.Setting.UseSkin then begin |
if GikoSys.Setting.UseSkin then begin |
| 432 |
|
// スキン |
| 433 |
skinFooter := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.SizeByte ); |
skinFooter := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.SizeByte ); |
| 434 |
if Length( optionalFooter ) > 0 then |
if Length( optionalFooter ) > 0 then |
| 435 |
skinFooter := |
skinFooter := |
| 436 |
StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] ); |
StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] ); |
| 437 |
|
end else if GikoSys.Setting.UseCSS then begin |
| 438 |
|
// CSS |
| 439 |
|
skinFooter := |
| 440 |
|
'<a name="bottom"></a>' + |
| 441 |
|
optionalFooter + |
| 442 |
|
'</body></html>' + |
| 443 |
|
'<a name="last"></a>' + |
| 444 |
|
'</body></html>'; |
| 445 |
end else begin |
end else begin |
| 446 |
skinFooter := |
// デフォルト |
| 447 |
'<a name="bottom"></a>' + |
skinFooter := |
| 448 |
optionalFooter + |
'</dl>' + |
| 449 |
'</body></html>' + |
'<a name="bottom"></a>' + |
| 450 |
'<a name="last"></a>' + |
optionalFooter + |
| 451 |
'</body></html>'; |
'</body></html>' + |
| 452 |
|
'<a name="last"></a>' + |
| 453 |
|
'</body></html>'; |
| 454 |
end; |
end; |
| 455 |
except |
except |
| 456 |
end; |
end; |