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.6 by h677, Sun May 13 14:49:06 2007 UTC revision 1.35.6.7 by h677, Sun May 13 17:38:44 2007 UTC
# Line 1282  begin Line 1282  begin
1282    
1283          Hint.Title := '';          Hint.Title := '';
1284          Hint.RawDocument := '';          Hint.RawDocument := '';
1285            Hint.Thread := nil;
1286            
1287                  //タイトル表示                  //タイトル表示
1288                  if Title then                  if Title then
1289                                  if ThreadItem <> nil then                                  if ThreadItem <> nil then
1290                                          Hint.Title := ThreadItem.Title;                                          Hint.Title := ThreadItem.Title;
1291    
1292          if ThreadItem <> nil then begin          if ThreadItem <> nil then begin
1293                Hint.Thread := ThreadItem;
1294              ResLink.FBbs := ThreadItem.ParentBoard.BBSID;              ResLink.FBbs := ThreadItem.ParentBoard.BBSID;
1295              ResLink.FKey := ChangeFileExt(ThreadItem.FileName, '');              ResLink.FKey := ChangeFileExt(ThreadItem.FileName, '');
1296              //if ThreadItem.IsBoardPlugInAvailable then begin              //if ThreadItem.IsBoardPlugInAvailable then begin

Legend:
Removed from v.1.35.6.6  
changed lines
  Added in v.1.35.6.7

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