Small cleanup for TTreeView (treeview.inc)
Original Reporter info from Mantis: etrusco
-
Reporter name: Flávio Etrusco
Description:
@@ -1360,7 +1360,7 @@ var
OldOnChange: TTVChangedEvent;
begin
if (Destination=nil)
- and (Mode in [naAddChild,naAddChildFirst,naInsert,naInsertBehind]) then
+ and not(Mode in [naAdd,naAddFirst]) then
TreeNodeError('TTreeNode.MoveTo Destination=nil');
if Mode=naInsertBehind then begin
// convert naInsertBehind
Mantis conversion info:
-
Mantis ID: 19859
-
Version: 0.9.31 (SVN)
-
Fixed in version: 0.9.31 (SVN)
-
Fixed in revision: 31847 (#e705d42b)