| 1733 |
//ヒストリリスト保存 |
//ヒストリリスト保存 |
| 1734 |
try |
try |
| 1735 |
SaveHistory; |
SaveHistory; |
| 1736 |
//ClearHistory; |
ClearHistory; |
| 1737 |
except |
except |
| 1738 |
end; |
end; |
| 1739 |
|
|
| 3624 |
i : Integer; |
i : Integer; |
| 3625 |
begin |
begin |
| 3626 |
//FHistoryList.Clear; |
//FHistoryList.Clear; |
| 3627 |
|
|
| 3628 |
try |
try |
| 3629 |
for i := FHistoryList.Count - 1 downto 0 do begin |
for i := FHistoryList.Count - 1 downto 0 do begin |
| 3630 |
TFavoriteThreadItem( FHistoryList[ i ] ).Free; |
if TObject(FHistoryList[ i ]) is TFavoriteThreadItem then |
| 3631 |
//FHistoryList.Delete(i); |
TFavoriteThreadItem(FHistoryList[ i ]).Free |
| 3632 |
|
else if TObject(FHistoryList[ i ]) is TFavoriteBoardItem then |
| 3633 |
|
TFavoriteBoardItem(FHistoryList[ i ]).Free; |
| 3634 |
|
|
| 3635 |
|
//FHistoryList.Delete(i); |
| 3636 |
end; |
end; |
| 3637 |
except |
except |
| 3638 |
end; |
end; |
| 3639 |
|
|
| 3640 |
FHistoryList.Clear; |
FHistoryList.Clear; |
| 3641 |
FHistoryList.Capacity := FHistoryList.Count; |
FHistoryList.Capacity := FHistoryList.Count; |
| 3642 |
|
|
| 6267 |
Items : ^TTreeNodes; |
Items : ^TTreeNodes; |
| 6268 |
ItemURL : string; |
ItemURL : string; |
| 6269 |
Data : Pointer; |
Data : Pointer; |
|
sT : Cardinal; |
|
|
eT : Cardinal; |
|
| 6270 |
begin |
begin |
| 6271 |
|
|
| 6272 |
Items := @(FavoriteTreeView.Items); |
Items := @(FavoriteTreeView.Items); |
| 6274 |
Item := TFavoriteBoardItem( Item ).Item |
Item := TFavoriteBoardItem( Item ).Item |
| 6275 |
else if Item is TFavoriteThreadItem then |
else if Item is TFavoriteThreadItem then |
| 6276 |
Item := TFavoriteThreadItem( Item ).Item; |
Item := TFavoriteThreadItem( Item ).Item; |
|
sT := GetTickCount; |
|
| 6277 |
if Item is TBoard then begin |
if Item is TBoard then begin |
| 6278 |
ItemURL := TBoard( Item ).URL; |
ItemURL := TBoard( Item ).URL; |
| 6279 |
for i := Items^.Count - 1 downto 0 do begin |
for i := Items^.Count - 1 downto 0 do begin |
| 6286 |
end; |
end; |
| 6287 |
end; |
end; |
| 6288 |
end; |
end; |
|
eT := GetTickCount; |
|
| 6289 |
Dlg := TFavoriteAddDialog.Create(Self); |
Dlg := TFavoriteAddDialog.Create(Self); |
| 6290 |
try |
try |
| 6291 |
Dlg.SetBoard( TBoard( Item ) ); |
Dlg.SetBoard( TBoard( Item ) ); |
| 6305 |
end; |
end; |
| 6306 |
end; |
end; |
| 6307 |
end; |
end; |
|
eT := GetTickCount; |
|
| 6308 |
Dlg := TFavoriteAddDialog.Create(Self); |
Dlg := TFavoriteAddDialog.Create(Self); |
| 6309 |
try |
try |
| 6310 |
Dlg.SetThreadItem( TThreadItem( Item ) ); |
Dlg.SetThreadItem( TThreadItem( Item ) ); |
| 6315 |
end; |
end; |
| 6316 |
|
|
| 6317 |
SetLinkBar; |
SetLinkBar; |
|
ShowMessage(IntToStr(eT-sT)); |
|
| 6318 |
end; |
end; |
| 6319 |
|
|
| 6320 |
procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject); |