Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ExternalThreadItem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by yoffy, Wed Nov 19 18:47:21 2003 UTC revision 1.6 by h677, Fri Nov 21 14:21:04 2003 UTC
# Line 289  begin Line 289  begin
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 := '&nbsp;';                      res.FName := '&nbsp;';
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    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26