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.2 by yoffy, Mon Nov 17 08:20:37 2003 UTC revision 1.3 by yoffy, Wed Nov 19 06:32:17 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.AddAnchorTag( res.FBody );
293          no                                      := IntToStr( inResNo );          no                                      := IntToStr( inResNo );
294    
295          try          try
# Line 306  begin Line 307  begin
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
# Line 336  begin Line 337  begin
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;
# Line 368  begin Line 377  begin
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 :=
# Line 378  begin Line 387  begin
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                          // デフォルト                          // デフォルト
# Line 386  begin Line 396  begin
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;
# Line 417  begin Line 429  begin
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;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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