Checks that a readonly tree cannot be edited

Author: chuacw

Tests/VTOnEditCancelledTests.pas

@@ -31,6 +31,9 @@   TVTOnEditCancelledTests = class
     [Test]
     procedure TestEditNode;
 
+    [Test]
+    procedure TestEditNodeReadOnly;
+
     [Test]
     procedure TestOnEditCancelled;
   end;
@@ -66,7 +69,6 @@ procedure TVTOnEditCancelledTests.TestEditNode;
   fTree.Parent := fForm;
   fTree.Header.Columns.Add;
   var LNode := fTree.AddChild(fTree.RootNode);
-  var LBeforeStates := fTree.TreeStates;
   var LEditNodeResult := fTree.EditNode(LNode, 0);
   var LAfterStates := fTree.TreeStates;
   Assert.AreEqual<TVirtualTreeStates>(LAfterStates * [tsEditing], [tsEditing]);
@@ -84,6 +86,17 @@ procedure TVTOnEditCancelledTests.TestEditNodeFail;
   Assert.IsFalse(LEditNodeResult);
 end;
 
+procedure TVTOnEditCancelledTests.TestEditNodeReadOnly;
+begin
+  fForm.Show;
+  fTree.Parent := fForm;
+  fTree.Header.Columns.Add;
+  var LNode := fTree.AddChild(fTree.RootNode);
+  fTree.TreeOptions.MiscOptions := fTree.TreeOptions.MiscOptions + [toReadOnly];
+  var LEditNodeResult := fTree.EditNode(LNode, 0);
+  Assert.IsFalse(LEditNodeResult);
+end;
+
 procedure TVTOnEditCancelledTests.TestOnEditCancelled;
 begin
   fForm.Show;