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.207 by yoffy, Sun Mar 7 10:02:12 2004 UTC revision 1.208 by yoffy, Sun Mar 7 12:55:30 2004 UTC
# Line 5120  var Line 5120  var
5120  begin  begin
5121          TmpTreeNode := FClickNode;          TmpTreeNode := FClickNode;
5122          TreeView.Selected := FClickNode;          TreeView.Selected := FClickNode;
5123            Board := nil;
5124    
5125          if TObject(TmpTreeNode.Data) is TBoard then          if TObject(TmpTreeNode.Data) is TBoard then
5126                  Board := TBoard(TmpTreeNode.Data)                  Board := TBoard(TmpTreeNode.Data)
5127          else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then          else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then
# Line 5136  var Line 5138  var
5138  begin  begin
5139          TmpTreeNode := FClickNode;          TmpTreeNode := FClickNode;
5140          TreeView.Selected := FClickNode;          TreeView.Selected := FClickNode;
5141            ThreadItem := nil;
5142    
5143          if TObject(TmpTreeNode.Data) is TThreadItem then          if TObject(TmpTreeNode.Data) is TThreadItem then
5144                  ThreadItem := TThreadItem(TmpTreeNode.Data)                  ThreadItem := TThreadItem(TmpTreeNode.Data)
5145          else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then          else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then
# Line 6168  begin Line 6172  begin
6172                          Dlg.Free;                          Dlg.Free;
6173                  end;                  end;
6174          end else if Item is TThreadItem then begin          end else if Item is TThreadItem then begin
6175                    ThreadItem := TThreadItem( Item );
6176                  for i := 0 to b do begin                  for i := 0 to b do begin
                         ThreadItem := TThreadItem( Item );  
6177                          if TObject(FavoriteTreeView.Items.Item[ i ].Data) is TFavoriteThreadItem then begin                          if TObject(FavoriteTreeView.Items.Item[ i ].Data) is TFavoriteThreadItem then begin
6178                                  FavThread := TFavoriteThreadItem( FavoriteTreeView.Items.Item[ i ].Data );                                  FavThread := TFavoriteThreadItem( FavoriteTreeView.Items.Item[ i ].Data );
6179    

Legend:
Removed from v.1.207  
changed lines
  Added in v.1.208

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