You've already forked lazarus-ccr
jvcl: Fix crash of TJvDBTreeView when deleting the last child of a node. Issue #45 reported at sourceforge.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7692 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -980,7 +980,7 @@ begin
|
||||
{*** To delete from a tree the remote/removed records [translated] }
|
||||
repeat
|
||||
AllChecked := True;
|
||||
for I := 0 to Items.Count - 1 do
|
||||
for I := Items.Count - 1 downto 0 do
|
||||
if not Locate(FMasterField, (Items[I] as TJvDBTreeNode).FMasterValue, []) then
|
||||
begin
|
||||
Items[I].Free;
|
||||
|
Reference in New Issue
Block a user