Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| 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 |
|
|
|