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.74 by yoffy, Mon Sep 29 18:47:50 2003 UTC revision 1.75 by yoffy, Tue Sep 30 00:27:41 2003 UTC
# Line 6500  var Line 6500  var
6500          Node: TTreeNode;          Node: TTreeNode;
6501    bound: TRect;    bound: TRect;
6502    height: Integer;    height: Integer;
6503      Change: Boolean;
6504  begin  begin
6505    
6506          {$IFDEF DEBUG}          {$IFDEF DEBUG}
# Line 6513  begin Line 6514  begin
6514      if Node = nil then      if Node = nil then
6515          Exit;          Exit;
6516    
6517        Change := True;
6518    
6519      if DropSpaceNode <> nil then      if DropSpaceNode <> nil then
6520          if DropSpaceNode.AbsoluteIndex = Node.AbsoluteIndex then          if DropSpaceNode.AbsoluteIndex = Node.AbsoluteIndex then
6521          Exit;          Change := False;
6522    
6523      DropSpaceNode.Free;      if Change then begin
6524          DropSpaceNode.Free;
6525    
6526      DropSpaceNode := FavoriteDM.TreeView.Items.AddChildObject(Node.Parent, '', nil );        DropSpaceNode := FavoriteDM.TreeView.Items.AddChildObject(Node.Parent, '', nil );
6527      DropSpaceNode.MoveTo( Node, naInsert );        DropSpaceNode.MoveTo( Node, naInsert );
6528      DropSpaceNode.ImageIndex := -1;        DropSpaceNode.ImageIndex := -1;
6529      DropSpaceNode.SelectedIndex := -1;        DropSpaceNode.SelectedIndex := -1;
6530        end;
6531    end;    end;
6532    {$ENDIF}    {$ENDIF}
6533    
# Line 7668  var Line 7673  var
7673  begin  begin
7674    
7675          SenderNode := FavoriteTreeView.GetNodeAt(X, Y);          SenderNode := FavoriteTreeView.GetNodeAt(X, Y);
7676    bound := SenderNode.DisplayRect( False );    if SenderNode <> nil then begin
7677    height := bound.Bottom - bound.Top;      bound := SenderNode.DisplayRect( False );
7678    if (bound.Top + height / 2) <= Y then      height := bound.Bottom - bound.Top;
7679                  SenderNode := FavoriteTreeView.GetNodeAt(X, Y + height);      if (bound.Top + height / 2) <= Y then
7680          FavoriteDragDrop( SenderNode, Source );        if FavoriteTreeView.GetNodeAt(X, Y + height) <> nil then
7681            SenderNode := FavoriteTreeView.GetNodeAt(X, Y + height);
7682    
7683        FavoriteDragDrop( SenderNode, Source );
7684      end;
7685    
7686  end;  end;
7687    

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

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