Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.460 by yoffy, Wed Oct 13 23:53:22 2004 UTC revision 1.461 by yoffy, Sun Oct 17 00:08:46 2004 UTC
# Line 4183  begin Line 4183  begin
4183          else          else
4184                  FHistoryList.Add( favItem );                  FHistoryList.Add( favItem );
4185  //      SetContent(ThreadItem);  //      SetContent(ThreadItem);
4186            while GikoSys.Setting.AddressHistoryCount < FHistoryList.Count do begin
4187                    i := FHistoryList.Count - 1;
4188                    TObject( FHistoryList.Items[ i ] ).Free;
4189                    FHistoryList.Delete( i );
4190            end;
4191    
4192          if FTreeType = gttHistory then begin          if FTreeType = gttHistory then begin
4193                  Node := TreeView.Items.Add( nil, favItem.Title );                  Node := TreeView.Items.Add( nil, favItem.Title );
# Line 4201  begin Line 4206  begin
4206                  Node.ImageIndex := ITEM_ICON_THREADLOG1;                  Node.ImageIndex := ITEM_ICON_THREADLOG1;
4207                  Node.SelectedIndex := ITEM_ICON_THREADLOG2;                  Node.SelectedIndex := ITEM_ICON_THREADLOG2;
4208                  Node.Data := favItem;                  Node.Data := favItem;
4209                    while GikoSys.Setting.AddressHistoryCount < TreeView.Items.Count do begin
4210                            i := TreeView.Items.Count - 1;
4211                            TreeView.Items.Item[ i ].Delete;
4212                    end;
4213          end;          end;
4214  end;  end;
4215    

Legend:
Removed from v.1.460  
changed lines
  Added in v.1.461

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