LCL: TTreeView.DropTarget works only once. Every TTreeNode.DropTarget property set but never cleared.
Original Reporter info from Mantis: AntonK
-
Reporter name: Anton Kavalenka
Original Reporter info from Mantis: AntonK
- Reporter name: Anton Kavalenka
Description:
Dragging a tree node with default TDragObject sets for every TTreeNode which were dargged over the property DropTarget to True.
Subsequent mouseing over that node brings nothing (it already set as DropTarget).
Seems like problem is here:
procedure TCustomTreeView.SetDropTarget(Value: TTreeNode);
begin
if HandleAllocated then
if Value <> nil then
Value.DropTarget := True;
{else
TreeView_SelectDropTarget(Handle, nil);}
end;
Steps to reproduce:
Run the attached project start drag the node over another nodes. A panel and the console displays node text (over which we are hovering).
This can be done only once. Try to visit nodes once again.
Mantis conversion info:
- Mantis ID: 28978
- OS: Debian GNU/Linux
- OS Build: 8.2
- Platform: i386
- Version: 1.5 (SVN)
- Fixed in revision: r56431 (#a648ff00)