| 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} |
| 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 |
|
|
| 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 |
|
|