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.86 by yoffy, Thu Oct 2 14:23:55 2003 UTC revision 1.87 by yoffy, Thu Oct 2 14:54:14 2003 UTC
# Line 7624  begin Line 7624  begin
7624          if SenderNode = nil then          if SenderNode = nil then
7625                  Exit;                  Exit;
7626    
7627    if FDropSpaceNode <> nil then    if not (TObject( SenderNode.Data ) is TFavoriteFolder) then
7628          SenderNode := FDropSpaceNode;      if FDropSpaceNode <> nil then
7629          SenderNode := FDropSpaceNode;
7630    
7631    if Source = FavoriteTreeView then begin    if Source = FavoriteTreeView then begin
7632    
# Line 7661  end; Line 7662  end;
7662  procedure TGikoForm.FavoriteTreeViewDragDrop(Sender, Source: TObject; X,  procedure TGikoForm.FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
7663    Y: Integer);    Y: Integer);
7664  var  var
         bound: TRect;  
7665    SenderNode: TTreeNode;    SenderNode: TTreeNode;
   height: Integer;  
7666  begin  begin
7667    
7668          SenderNode := FavoriteTreeView.GetNodeAt(X, Y);          SenderNode := FavoriteTreeView.GetNodeAt(X, Y);
7669    if SenderNode <> nil then begin    if SenderNode <> nil then begin
     bound := SenderNode.DisplayRect( False );  
     height := bound.Bottom - bound.Top;  
   
7670      FavoriteDragDrop( SenderNode, Source );      FavoriteDragDrop( SenderNode, Source );
7671    end;    end;
7672    

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

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