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.511.2.19 by h677, Sun Jun 5 14:14:25 2005 UTC revision 1.511.2.20 by h677, Sun Jun 5 14:28:30 2005 UTC
# Line 1385  begin Line 1385  begin
1385          Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');          Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
1386    
1387          //アドレス履歴読み込み          //アドレス履歴読み込み
1388          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
1389    
1390          EnabledCloseButton := True;          EnabledCloseButton := True;
1391    
# Line 2102  begin Line 2102  begin
2102          //アドレス履歴保存          //アドレス履歴保存
2103          try          try
2104                  //AddressHistoryDMは自動生成フォームなので、解放は自動的にされる。                  //AddressHistoryDMは自動生成フォームなので、解放は自動的にされる。
2105                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);                  AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
2106          except          except
2107          end;          end;
2108    
# Line 4285  begin Line 4285  begin
4285          else          else
4286                  FHistoryList.Add( favItem );                  FHistoryList.Add( favItem );
4287  //      SetContent(ThreadItem);  //      SetContent(ThreadItem);
4288          while GikoSys.Setting.AddressHistoryCount < FHistoryList.Count do begin          while GikoSys.Setting.MaxRecordCount < FHistoryList.Count do begin
4289                  i := FHistoryList.Count - 1;                  i := FHistoryList.Count - 1;
4290                  TObject( FHistoryList.Items[ i ] ).Free;                  TObject( FHistoryList.Items[ i ] ).Free;
4291                  FHistoryList.Delete( i );                  FHistoryList.Delete( i );
# Line 4308  begin Line 4308  begin
4308                  Node.ImageIndex := ITEM_ICON_THREADLOG1;                  Node.ImageIndex := ITEM_ICON_THREADLOG1;
4309                  Node.SelectedIndex := ITEM_ICON_THREADLOG2;                  Node.SelectedIndex := ITEM_ICON_THREADLOG2;
4310                  Node.Data := favItem;                  Node.Data := favItem;
4311                  while GikoSys.Setting.AddressHistoryCount < TreeView.Items.Count do begin                  while GikoSys.Setting.MaxRecordCount < TreeView.Items.Count do begin
4312                          i := TreeView.Items.Count - 1;                          i := TreeView.Items.Count - 1;
4313                          TreeView.Items.Item[ i ].Delete;                          TreeView.Items.Item[ i ].Delete;
4314                  end;                  end;

Legend:
Removed from v.1.511.2.19  
changed lines
  Added in v.1.511.2.20

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