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.226 by h677, Tue Mar 30 12:45:25 2004 UTC revision 1.227 by h677, Tue Mar 30 14:13:58 2004 UTC
# Line 1733  begin Line 1733  begin
1733          //ヒストリリスト保存          //ヒストリリスト保存
1734          try          try
1735                  SaveHistory;                  SaveHistory;
1736          //ClearHistory;          ClearHistory;
1737          except          except
1738          end;          end;
1739    
# Line 3624  var Line 3624  var
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    
# Line 6261  var Line 6267  var
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);
# Line 6270  begin Line 6274  begin
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
# Line 6283  begin Line 6286  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 ) );
# Line 6303  begin Line 6305  begin
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 ) );
# Line 6314  begin Line 6315  begin
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);

Legend:
Removed from v.1.226  
changed lines
  Added in v.1.227

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