ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/ibcontrols/IBTreeView.pas
(Generate patch)

Comparing ibx/trunk/ibcontrols/IBTreeView.pas (file contents):
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC vs.
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC

# Line 449 | Line 449 | begin
449        else
450          Destination := FindNode(DataSet.FieldByName(ParentField).AsVariant);
451  
452 <      if Destination = Node.Parent then Exit;
452 >      if (Destination = nil) or (Destination = Node.Parent) then Exit;
453  
454        FUpdating := true;
455        try
# Line 640 | Line 640 | end;
640   procedure TIBTreeView.Loaded;
641   begin
642    inherited Loaded;
643 +  IBControlLinkChanged;
644    Reinitialise
645   end;
646  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines