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.515.2.26 by h677, Sat Jul 23 08:10:05 2005 UTC revision 1.515.2.27 by h677, Sun Jul 31 03:35:56 2005 UTC
# Line 9519  var Line 9519  var
9519          SenderNode: TTreeNode;          SenderNode: TTreeNode;
9520  begin  begin
9521    
9522            if FDropSpaceNode <> nil then begin
9523                    try
9524                            FDropSpaceNode.TreeView.Deselect(FDropSpaceNode);
9525                            FDropSpaceNode.Delete;
9526                    finally
9527                            FDropSpaceNode := nil;
9528                    end;
9529            end;
9530    
9531          SenderNode := FavoriteTreeView.GetNodeAt(X, Y);          SenderNode := FavoriteTreeView.GetNodeAt(X, Y);
9532          if SenderNode <> nil then begin          if SenderNode <> nil then begin
9533                  FavoriteDragDrop( SenderNode, Source );                  FavoriteDragDrop( SenderNode, Source );
9534          end;          end;
9535    
         if FDropSpaceNode <> nil then begin  
                 FDropSpaceNode.Free;  
                 FDropSpaceNode := nil;  
         end;  
9536    
9537  end;  end;
9538    
# Line 10078  procedure TGikoForm.FavoriteTreeViewEndD Line 10083  procedure TGikoForm.FavoriteTreeViewEndD
10083  begin  begin
10084    
10085          if FDropSpaceNode <> nil then begin          if FDropSpaceNode <> nil then begin
10086                  FDropSpaceNode.Free;                  try
10087                  FDropSpaceNode := nil;                          FDropSpaceNode.TreeView.Deselect(FDropSpaceNode);
10088                            FDropSpaceNode.Delete;
10089                    finally
10090                            FDropSpaceNode := nil;
10091                    end;
10092                  SetLinkBar;                  SetLinkBar;
10093          end;          end;
10094    

Legend:
Removed from v.1.515.2.26  
changed lines
  Added in v.1.515.2.27

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