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.16 by h677, Thu Aug 25 16:11:02 2005 UTC revision 1.17 by h677, Tue Dec 6 14:09:23 2005 UTC
# Line 294  begin Line 294  begin
294    
295          threadItem      := TThreadItem( inInstance );          threadItem      := TThreadItem( inInstance );
296          // 引数を分解          // 引数を分解
297          res                                     := DivideStrLine( string( inDatRes ) );          DivideStrLine( string( inDatRes ) , @res);
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               := HTMLCreater.AddAnchorTag( res.FBody );                  res.FBody               := HTMLCreater.AddAnchorTag( res.FBody );
301                  res.FBody               := HTMLCreater.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, '' ));
302    
303          no                                      := IntToStr( inResNo );          no                                      := IntToStr( inResNo );
304    
# Line 309  begin Line 309  begin
309                                          Result := CreateResultString( HTMLCreater.SkinedRes(                                          Result := CreateResultString( HTMLCreater.SkinedRes(
310                                                  HTMLCreater.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( HTMLCreater.SkinedRes(                                          Result := CreateResultString( HTMLCreater.SkinedRes(
316                                                  HTMLCreater.LoadFromSkin(                                                  HTMLCreater.LoadFromSkin(
317                              GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size                              GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size
318                          ), res, no                          ), @res, no
319                      ) );                      ) );
320              end else if GikoSys.Setting.UseCSS then begin              end else if GikoSys.Setting.UseCSS then begin
321                  // CSS                  // CSS

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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