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.512 by h677, Sun Jun 5 13:22:50 2005 UTC revision 1.513 by h677, Sun Jun 5 14:10:30 2005 UTC
# Line 1387  begin Line 1387  begin
1387    
1388    
1389          //アドレス履歴読み込み          //アドレス履歴読み込み
1390          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);          //AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1391            AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
1392    
1393          EnabledCloseButton := True;          EnabledCloseButton := True;
1394    
# Line 2133  begin Line 2134  begin
2134          //アドレス履歴保存          //アドレス履歴保存
2135          try          try
2136                  //AddressHistoryDMは自動生成フォームなので、解放は自動的にされる。                  //AddressHistoryDMは自動生成フォームなので、解放は自動的にされる。
2137                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);                  //AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
2138                    AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
2139          except          except
2140          end;          end;
2141    
# Line 4235  begin Line 4237  begin
4237          else          else
4238                  FHistoryList.Add( favItem );                  FHistoryList.Add( favItem );
4239  //      SetContent(ThreadItem);  //      SetContent(ThreadItem);
4240          while GikoSys.Setting.AddressHistoryCount < FHistoryList.Count do begin  //      while GikoSys.Setting.AddressHistoryCount < FHistoryList.Count do begin
4241            while GikoSys.Setting.MaxRecordCount < FHistoryList.Count do begin
4242                  i := FHistoryList.Count - 1;                  i := FHistoryList.Count - 1;
4243                  TObject( FHistoryList.Items[ i ] ).Free;                  TObject( FHistoryList.Items[ i ] ).Free;
4244                  FHistoryList.Delete( i );                  FHistoryList.Delete( i );
# Line 4258  begin Line 4261  begin
4261                  Node.ImageIndex := ITEM_ICON_THREADLOG1;                  Node.ImageIndex := ITEM_ICON_THREADLOG1;
4262                  Node.SelectedIndex := ITEM_ICON_THREADLOG2;                  Node.SelectedIndex := ITEM_ICON_THREADLOG2;
4263                  Node.Data := favItem;                  Node.Data := favItem;
4264                  while GikoSys.Setting.AddressHistoryCount < TreeView.Items.Count do begin                  //while GikoSys.Setting.AddressHistoryCount < TreeView.Items.Count do begin
4265                    while GikoSys.Setting.MaxRecordCount < TreeView.Items.Count do begin
4266                          i := TreeView.Items.Count - 1;                          i := TreeView.Items.Count - 1;
4267                          TreeView.Items.Item[ i ].Delete;                          TreeView.Items.Item[ i ].Delete;
4268                  end;                  end;

Legend:
Removed from v.1.512  
changed lines
  Added in v.1.513

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