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.12 by h677, Thu May 13 16:58:18 2004 UTC revision 1.13 by h677, Sat Jun 25 11:27:22 2005 UTC
# Line 206  begin Line 206  begin
206                  tipRound:                                                               // : Boolean            // 巡回フラグ                  tipRound:                                                               // : Boolean            // 巡回フラグ
207                          threadItem.Round                                := Boolean( param );                          threadItem.Round                                := Boolean( param );
208                  tipRoundName:                                           // : string                     // 巡回名                  tipRoundName:                                           // : string                     // 巡回名
209                          threadItem.RoundName            := string( PChar( param ) );                          //threadItem.RoundName          := string( PChar( param ) );
210                            threadItem.RoundName            := PChar( param );
211                  tipIsLogFile:                                           // : Boolean            // ログ存在フラグ                  tipIsLogFile:                                           // : Boolean            // ログ存在フラグ
212                          threadItem.IsLogFile            := Boolean( param );                          threadItem.IsLogFile            := Boolean( param );
213                  tipKokomade:                                            // : Integer            // ココまで読んだ番号                  tipKokomade:                                            // : Integer            // ココまで読んだ番号
# Line 225  begin Line 226  begin
226                          threadItem.AgeSage                      := TGikoAgeSage( param );                          threadItem.AgeSage                      := TGikoAgeSage( param );
227                  tipURL:                                                                 // : string                     // スレッドをブラウザで表示する際の URL                  tipURL:                                                                 // : string                     // スレッドをブラウザで表示する際の URL
228                          threadItem.URL                                  := string( PChar( param ) );                          threadItem.URL                                  := string( PChar( param ) );
229                  tipFilePath:                                            // : string                     // このスレが保存されているパス                  //tipFilePath:                                          // : string                     // このスレが保存されているパス
230                          threadItem.FilePath                     := string( PChar( param ) );                  //      threadItem.FilePath                     := string( PChar( param ) );
231          end;          end;
232    
233  end;  end;
# Line 295  begin Line 296  begin
296          // 引数を分解          // 引数を分解
297          res                                     := GikoSys.DivideStrLine( string( inDatRes ) );          res                                     := GikoSys.DivideStrLine( string( inDatRes ) );
298      if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin      if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin
299          res.FBody               := GikoSys.AddAnchorTag( res.FBody );                  res.FBody               := GikoSys.DeleteLink(res.FBody);
300          res.FBody               := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');                  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');
302    
303          no                                      := IntToStr( inResNo );          no                                      := IntToStr( inResNo );
304    

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

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