Fixes issue #1324: OnEditCancelled event is not called

Author: joachimmarder

Source/VirtualTrees.BaseTree.pas

@@ -9505,17 +9505,20 @@ function TBaseVirtualTree.DoEndEdit(pCancel: Boolean = False): Boolean;
   DoStateChange([], [tsEditPending]);
   if not (tsEditing in FStates) then
     Exit(True);
+  DoStateChange([], [tsEditing]);
   if pCancel then
-    Result := FEditLink.CancelEdit
+  begin
+    Result := FEditLink.CancelEdit();
+    if Result and Assigned(FOnEditCancelled) then
+      FOnEditCancelled(Self, FEditColumn);
+  end
   else
-    Result := FEditLink.EndEdit;
-  if Result then
   begin
-    DoStateChange([], [tsEditing]);
-    FEditLink := nil;
-    if Assigned(FOnEdited) then
+    Result := FEditLink.EndEdit;
+    if Result and Assigned(FOnEdited) then
       FOnEdited(Self, FFocusedNode, FEditColumn);
   end;
+  FEditLink := nil;
   TrySetFocus();
 end;