Table editor: disallow editing direction/collation of index node level

This commit is contained in:
Ansgar Becker
2024-06-17 07:54:54 +02:00
parent 8a1087fe0c
commit acedfc7c87

View File

@ -2066,9 +2066,11 @@ begin
VT := Sender as TVirtualStringtree; VT := Sender as TVirtualStringtree;
Allowed := False; Allowed := False;
if VT.GetNodeLevel(Node) = 0 then begin if VT.GetNodeLevel(Node) = 0 then begin
// Disallow renaming primary key // Disallow renaming primary key, and direction/collation of key node level
if (Column <> 0) or (VT.Text[Node, 1] <> TTableKey.PRIMARY) then if (Column = 0) and (VT.Text[Node, 1] <> TTableKey.PRIMARY) then
Allowed := True Allowed := True
else
Allowed := Column in [1,2,3];
end else case Column of end else case Column of
0: Allowed := True; 0: Allowed := True;
1: begin 1: begin