Silently auto-rename index to "PRIMARY" when index type gets set to "PRIMARY". Fixes issue #3031.

This commit is contained in:
Ansgar Becker
2012-12-26 07:33:21 +00:00
parent 39926ac729
commit 13cff8c63c

View File

@ -1668,7 +1668,11 @@ begin
TblKey := FKeys[Node.Index];
case Column of
0: TblKey.Name := NewText;
1: TblKey.IndexType := NewText;
1: begin
TblKey.IndexType := NewText;
if NewText = PKEY then
TblKey.Name := PKEY;
end;
2: TblKey.Algorithm := NewText;
end;
// Needs to be called manually for Name and IndexType properties: