| 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 |
|
|
| 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 |
|
|
| 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 ); |
| 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; |