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.11.2.2 by yoffy, Thu Sep 9 16:20:30 2004 UTC revision 1.22 by h677, Mon Jul 2 15:01:47 2007 UTC
# Line 31  type Line 31  type
31                  tipDownloadHost,                                // : string                     // 今のホストと違う場合のホスト                  tipDownloadHost,                                // : string                     // 今のホストと違う場合のホスト
32                  tipAgeSage,                                                     // : TThreadAgeSage     // アイテムの上げ下げ                  tipAgeSage,                                                     // : TThreadAgeSage     // アイテムの上げ下げ
33                  tipURL,                                                                 // : string                     // スレッドをブラウザで表示する際の URL                  tipURL,                                                                 // : string                     // スレッドをブラウザで表示する際の URL
34                  tipFilePath                                                     // : string                     // このスレが保存されているパス                  tipFilePath,                                                    // : string                     // このスレが保存されているパス
35                    tipJumpAddress                                                  // : Integer            // JUMP先レス番号
36          );          );
37    
38          // *************************************************************************          // *************************************************************************
# Line 113  function ThreadItemDat2HTML( Line 114  function ThreadItemDat2HTML(
114    
115  implementation  implementation
116    
117  uses ExternalBoardManager, GikoSystem, BoardGroup;  uses ExternalBoardManager, GikoSystem, BoardGroup, HTMLCreate, MojuUtils;
118    
119  // *************************************************************************  // *************************************************************************
120  // TThreadItem クラスのプロパティを取得する  // TThreadItem クラスのプロパティを取得する
# Line 168  begin Line 169  begin
169                          Result := DWORD( CreateResultString( threadItem.URL ) );                          Result := DWORD( CreateResultString( threadItem.URL ) );
170                  tipFilePath:                                                                                                            // このスレが保存されているパス                  tipFilePath:                                                                                                            // このスレが保存されているパス
171                          Result := DWORD( CreateResultString( threadItem.FilePath ) );                          Result := DWORD( CreateResultString( threadItem.FilePath ) );
172                    tipJumpAddress:
173                            Result := threadItem.JumpAddress;
174          else          else
175                  Result := 0;                  Result := 0;
176          end;          end;
# Line 206  begin Line 209  begin
209                  tipRound:                                                               // : Boolean            // 巡回フラグ                  tipRound:                                                               // : Boolean            // 巡回フラグ
210                          threadItem.Round                                := Boolean( param );                          threadItem.Round                                := Boolean( param );
211                  tipRoundName:                                           // : string                     // 巡回名                  tipRoundName:                                           // : string                     // 巡回名
212                          threadItem.RoundName            := string( PChar( param ) );                          //threadItem.RoundName          := string( PChar( param ) );
213                            threadItem.RoundName            := PChar( param );
214                  tipIsLogFile:                                           // : Boolean            // ログ存在フラグ                  tipIsLogFile:                                           // : Boolean            // ログ存在フラグ
215                          threadItem.IsLogFile            := Boolean( param );                          threadItem.IsLogFile            := Boolean( param );
216                  tipKokomade:                                            // : Integer            // ココまで読んだ番号                  tipKokomade:                                            // : Integer            // ココまで読んだ番号
# Line 225  begin Line 229  begin
229                          threadItem.AgeSage                      := TGikoAgeSage( param );                          threadItem.AgeSage                      := TGikoAgeSage( param );
230                  tipURL:                                                                 // : string                     // スレッドをブラウザで表示する際の URL                  tipURL:                                                                 // : string                     // スレッドをブラウザで表示する際の URL
231                          threadItem.URL                                  := string( PChar( param ) );                          threadItem.URL                                  := string( PChar( param ) );
232                  tipFilePath:                                            // : string                     // このスレが保存されているパス                  //tipFilePath:                                          // : string                     // このスレが保存されているパス
233                          threadItem.FilePath                     := string( PChar( param ) );                  //      threadItem.FilePath                     := string( PChar( param ) );
234                    tipJumpAddress:
235                            threadItem.JumpAddress          := param;
236          end;          end;
237    
238  end;  end;
# Line 289  var Line 295  var
295          threadItem : TThreadItem;          threadItem : TThreadItem;
296          res : TResRec;          res : TResRec;
297          no : string;          no : string;
298            resLink : TResLinkRec;
299  begin  begin
300    
301          threadItem      := TThreadItem( inInstance );          threadItem      := TThreadItem( inInstance );
302          // 引数を分解          // 引数を分解
303          res                                     := GikoSys.DivideStrLine( string( inDatRes ) );          THTMLCreate.DivideStrLine( string( inDatRes ) , @res);
304      if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin          if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin
305          res.FBody               := GikoSys.AddAnchorTag( res.FBody );                  res.FBody               := THTMLCreate.DeleteLink(res.FBody);
306          res.FBody               := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');                  resLink.FBbs    := threadItem.ParentBoard.BBSID;
307                    resLink.FKey    := ChangeFileExt( threadItem.FileName, '' );
308          no                                      := IntToStr( inResNo );                  HTMLCreater.AddAnchorTag( @res );
309                    HTMLCreater.ConvRes( @res, @resLink );
310          try  
311              if GikoSys.Setting.UseSkin then begin                  no                                      := IntToStr( inResNo );
312                  // スキン  
313                  if inIsNew then                  try
314                      Result := CreateResultString( GikoSys.SkinedRes(                          if GikoSys.Setting.UseSkin then begin
315                          GikoSys.LoadFromSkin(                                  // スキン
316                              GikoSys.Setting.GetSkinNewResFileName, threadItem, threadItem.Size                                  if inIsNew then
317                          ), res, no                                          Result := CreateResultString( HTMLCreater.SkinedRes(
318                                                    HTMLCreater.LoadFromSkin(
319                                GikoSys.GetSkinNewResFileName, threadItem, threadItem.Size
320                                                    ), @res, no
321                      ) )                      ) )
322                  else                  else
323                      Result := CreateResultString( GikoSys.SkinedRes(                                          Result := CreateResultString( HTMLCreater.SkinedRes(
324                          GikoSys.LoadFromSkin(                                                  HTMLCreater.LoadFromSkin(
325                              GikoSys.Setting.GetSkinResFileName, threadItem, threadItem.Size                              GikoSys.GetSkinResFileName, threadItem, threadItem.Size
326                          ), res, no                          ), @res, no
327                      ) );                      ) );
328              end else if GikoSys.Setting.UseCSS then begin              end else if GikoSys.Setting.UseCSS then begin
329                  // CSS                  // CSS
# Line 385  begin Line 395  begin
395          try          try
396                  if GikoSys.Setting.UseSkin then begin                  if GikoSys.Setting.UseSkin then begin
397                          // スキン                          // スキン
398                          skinHeader := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinHeaderFileName, threadItem, threadItem.Size );                          skinHeader := HTMLCreater.LoadFromSkin( GikoSys.GetSkinHeaderFileName, threadItem, threadItem.Size );
399                          if Length( optionalHeader ) > 0 then                          if Length( optionalHeader ) > 0 then
400                                  skinHeader :=                                  skinHeader :=
401                                          StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );                                          StringReplace( skinHeader, '</head>', optionalHeader + '</head><a name="top"></a>', [] );
# Line 441  begin Line 451  begin
451          try          try
452                  if GikoSys.Setting.UseSkin then begin                  if GikoSys.Setting.UseSkin then begin
453                          // スキン                          // スキン
454                          skinFooter := GikoSys.LoadFromSkin( GikoSys.Setting.GetSkinFooterFileName, threadItem, threadItem.Size );                          skinFooter := HTMLCreater.LoadFromSkin( GikoSys.GetSkinFooterFileName, threadItem, threadItem.Size );
455                          if Length( optionalFooter ) > 0 then                          if Length( optionalFooter ) > 0 then
456                                  skinFooter :=                                  skinFooter :=
457                                          StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );                                          StringReplace( skinFooter, '</body>', optionalFooter + '</body>', [] );

Legend:
Removed from v.1.11.2.2  
changed lines
  Added in v.1.22

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