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.13 by h677, Sat Jun 25 11:27:22 2005 UTC revision 1.14 by h677, Sat Aug 20 06:20:19 2005 UTC
# Line 113  function ThreadItemDat2HTML( Line 113  function ThreadItemDat2HTML(
113    
114  implementation  implementation
115    
116  uses ExternalBoardManager, GikoSystem, BoardGroup;  uses ExternalBoardManager, GikoSystem, BoardGroup, HTMLCreate;
117    
118  // *************************************************************************  // *************************************************************************
119  // TThreadItem クラスのプロパティを取得する  // TThreadItem クラスのプロパティを取得する
# Line 298  begin Line 298  begin
298      if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin      if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin
299                  res.FBody               := GikoSys.DeleteLink(res.FBody);                  res.FBody               := GikoSys.DeleteLink(res.FBody);
300                  res.FBody               := GikoSys.AddAnchorTag( res.FBody );                  res.FBody               := GikoSys.AddAnchorTag( res.FBody );
301                  res.FBody               := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');                  res.FBody               := HTMLCreater.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
302    
303          no                                      := IntToStr( inResNo );          no                                      := IntToStr( inResNo );
304    
# Line 306  begin Line 306  begin
306              if GikoSys.Setting.UseSkin then begin              if GikoSys.Setting.UseSkin then begin
307                  // スキン                  // スキン
308                  if inIsNew then                  if inIsNew then
309                      Result := CreateResultString( GikoSys.SkinedRes(                                          Result := CreateResultString( HTMLCreater.SkinedRes(
310                          GikoSys.LoadFromSkin(                                                  HTMLCreater.LoadFromSkin(
311                              GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.Size                              GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.Size
312                          ), res, no                          ), res, no
313                      ) )                      ) )
314                  else                  else
315                      Result := CreateResultString( GikoSys.SkinedRes(                                          Result := CreateResultString( HTMLCreater.SkinedRes(
316                          GikoSys.LoadFromSkin(                                                  HTMLCreater.LoadFromSkin(
317                              GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size                              GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size
318                          ), res, no                          ), res, no
319                      ) );                      ) );
# Line 387  begin Line 387  begin
387          try          try
388                  if GikoSys.Setting.UseSkin then begin                  if GikoSys.Setting.UseSkin then begin
389                          // スキン                          // スキン
390                          skinHeader := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.Size );                          skinHeader := HTMLCreater.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.Size );
391                          if Length( optionalHeader ) > 0 then                          if Length( optionalHeader ) > 0 then
392                                  skinHeader :=                                  skinHeader :=
393                                          StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );                                          StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );
# Line 443  begin Line 443  begin
443          try          try
444                  if GikoSys.Setting.UseSkin then begin                  if GikoSys.Setting.UseSkin then begin
445                          // スキン                          // スキン
446                          skinFooter := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.Size );                          skinFooter := HTMLCreater.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.Size );
447                          if Length( optionalFooter ) > 0 then                          if Length( optionalFooter ) > 0 then
448                                  skinFooter :=                                  skinFooter :=
449                                          StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );                                          StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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