Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/HTMLCreate.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.35.6.1 by h677, Mon May 7 17:55:59 2007 UTC revision 1.35.6.2 by h677, Tue May 8 21:27:45 2007 UTC
# Line 1288  begin Line 1288  begin
1288          if ThreadItem <> nil then begin          if ThreadItem <> nil then begin
1289              ResLink.FBbs := ThreadItem.ParentBoard.BBSID;              ResLink.FBbs := ThreadItem.ParentBoard.BBSID;
1290              ResLink.FKey := ChangeFileExt(ThreadItem.FileName, '');              ResLink.FKey := ChangeFileExt(ThreadItem.FileName, '');
             Html.Add('<DL>');  
1291              //if ThreadItem.IsBoardPlugInAvailable then begin              //if ThreadItem.IsBoardPlugInAvailable then begin
1292              if ThreadItem.ParentBoard.IsBoardPlugInAvailable then begin              if ThreadItem.ParentBoard.IsBoardPlugInAvailable then begin
1293                  //===== プラグインによる表示                  //===== プラグインによる表示
# Line 1315  begin Line 1314  begin
1314                                          end;                                          end;
1315                                  end;                                  end;
1316                          end;                          end;
1317              Html.Add('</DL>');                          if (Html.Count > 0) then begin
1318              Hint.Write(Html.Text);                  Hint.Write('<DL>' + Html.Text + '</DL>');
1319                end;
1320                  end;                  end;
1321          finally          finally
1322          Html.Free;          Html.Free;

Legend:
Removed from v.1.35.6.1  
changed lines
  Added in v.1.35.6.2

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