| 289 |
threadItem := TThreadItem( inInstance ); |
threadItem := TThreadItem( inInstance ); |
| 290 |
// 引数を分解 |
// 引数を分解 |
| 291 |
res := GikoSys.DivideStrLine( string( inDatRes ) ); |
res := GikoSys.DivideStrLine( string( inDatRes ) ); |
| 292 |
res.FBody := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true' ); |
if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin |
| 293 |
res.FBody := GikoSys.AddAnchorTag( res.FBody ); |
res.FBody := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true' ); |
| 294 |
no := IntToStr( inResNo ); |
res.FBody := GikoSys.AddAnchorTag( res.FBody ); |
| 295 |
|
no := IntToStr( inResNo ); |
| 296 |
|
|
| 297 |
try |
try |
| 298 |
if GikoSys.Setting.UseSkin then begin |
if GikoSys.Setting.UseSkin then begin |
| 299 |
// スキン |
// スキン |
| 300 |
if inIsNew then |
if inIsNew then |
| 301 |
Result := CreateResultString( GikoSys.SkinedRes( |
Result := CreateResultString( GikoSys.SkinedRes( |
| 302 |
GikoSys.LoadFromSkin( |
GikoSys.LoadFromSkin( |
| 303 |
GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.SizeByte |
GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.SizeByte |
| 304 |
), res, no |
), res, no |
| 305 |
) ) |
) ) |
| 306 |
else |
else |
| 307 |
Result := CreateResultString( GikoSys.SkinedRes( |
Result := CreateResultString( GikoSys.SkinedRes( |
| 308 |
GikoSys.LoadFromSkin( |
GikoSys.LoadFromSkin( |
| 309 |
GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte |
GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.SizeByte |
| 310 |
), res, no |
), res, no |
| 311 |
) ); |
) ); |
| 312 |
end else if GikoSys.Setting.UseCSS then begin |
end else if GikoSys.Setting.UseCSS then begin |
| 313 |
// CSS |
// CSS |
| 314 |
if res.FName = '' then |
if res.FName = '' then |
| 315 |
res.FName := ' '; |
res.FName := ' '; |
| 316 |
if res.FMailTo = '' then |
if res.FMailTo = '' then |
| 317 |
Result := CreateResultString( '<a name="' + no + '"></a>' |
Result := CreateResultString( '<a name="' + no + '"></a>' |
| 318 |
+ '<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> ' |
| 319 |
+ '<span class="name_label">名前:</span> ' |
+ '<span class="name_label">名前:</span> ' |
| 320 |
+ '<span class="name"><b>' + res.FName + '</b></span> ' |
+ '<span class="name"><b>' + res.FName + '</b></span> ' |
| 321 |
+ '<span class="date_label">投稿日:</span> ' |
+ '<span class="date_label">投稿日:</span> ' |
| 322 |
+ '<span class="date">' + res.FDateTime+ '</span></div>' |
+ '<span class="date">' + res.FDateTime+ '</span></div>' |
| 323 |
+ '<div class="mes">' + res.FBody + ' </div>' ) |
+ '<div class="mes">' + res.FBody + ' </div>' ) |
| 324 |
else if GikoSys.Setting.ShowMail then |
else if GikoSys.Setting.ShowMail then |
| 325 |
Result := CreateResultString( '<a name="' + no + '"></a>' |
Result := CreateResultString( '<a name="' + no + '"></a>' |
| 326 |
+ '<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>' |
| 327 |
+ '<span class="name_label"> 名前: </span>' |
+ '<span class="name_label"> 名前: </span>' |
| 328 |
+ '<a class="name_mail" href="mailto:' + res.FMailTo + '">' |
+ '<a class="name_mail" href="mailto:' + res.FMailTo + '">' |
| 329 |
+ '<b>' + res.FName + '</b></a><span class="mail"> [' + res.FMailTo + ']</span>' |
+ '<b>' + res.FName + '</b></a><span class="mail"> [' + res.FMailTo + ']</span>' |
| 330 |
+ '<span class="date_label"> 投稿日:</span>' |
+ '<span class="date_label"> 投稿日:</span>' |
| 331 |
+ '<span class="date"> ' + res.FDateTime+ '</span></div>' |
+ '<span class="date"> ' + res.FDateTime+ '</span></div>' |
| 332 |
+ '<div class="mes">' + res.FBody + ' </div>' ) |
+ '<div class="mes">' + res.FBody + ' </div>' ) |
| 333 |
else |
else |
| 334 |
Result := CreateResultString( '<a name="' + no + '"></a>' |
Result := CreateResultString( '<a name="' + no + '"></a>' |
| 335 |
+ '<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>' |
| 336 |
+ '<span class="name_label"> 名前: </span>' |
+ '<span class="name_label"> 名前: </span>' |
| 337 |
+ '<a class="name_mail" href="mailto:' + res.FMailTo + '">' |
+ '<a class="name_mail" href="mailto:' + res.FMailTo + '">' |
| 338 |
+ '<b>' + res.FName + '</b></a>' |
+ '<b>' + res.FName + '</b></a>' |
| 339 |
+ '<span class="date_label"> 投稿日:</span>' |
+ '<span class="date_label"> 投稿日:</span>' |
| 340 |
+ '<span class="date"> ' + res.FDateTime+ '</span></div>' |
+ '<span class="date"> ' + res.FDateTime+ '</span></div>' |
| 341 |
+ '<div class="mes">' + res.FBody + ' </div>' ); |
+ '<div class="mes">' + res.FBody + ' </div>' ); |
| 342 |
end else begin |
end else begin |
| 343 |
// デフォルト |
// デフォルト |
| 344 |
if res.FMailTo = '' then |
if res.FMailTo = '' then |
| 345 |
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>' ) |
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>' ) |
| 346 |
else if GikoSys.Setting.ShowMail then |
else if GikoSys.Setting.ShowMail then |
| 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.FMailTo + '] 投稿日: ' + res.FDateTime+ '<br><dd>' + res.Fbody + ' <br><br><br>' ) |
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>' ) |
| 348 |
else |
else |
| 349 |
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>' ); |
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>' ); |
| 350 |
end; |
end; |
| 351 |
except |
except |
| 352 |
Result := nil; |
Result := nil; |
| 353 |
end; |
end; |
| 354 |
|
end else begin |
| 355 |
|
Result := nil; |
| 356 |
|
end; |
| 357 |
|
|
| 358 |
end; |
end; |
| 359 |
|
|