Support comments on table indexes via table designer. Closes #128

This commit is contained in:
Ansgar Becker
2022-07-18 17:02:36 +02:00
parent 99ed1f16f2
commit c7dc63706d
3 changed files with 11 additions and 1 deletions

View File

@@ -1797,6 +1797,7 @@ begin
CellText := TblKey.Name;
1: CellText := TblKey.IndexType;
2: CellText := TblKey.Algorithm;
3: CellText := TblKey.Comment;
end;
end;
1: begin
@@ -2100,6 +2101,7 @@ begin
TblKey.Name := TTableKey.PRIMARY;
end;
2: TblKey.Algorithm := NewText;
3: TblKey.Comment := NewText;
end;
// Needs to be called manually for Name and IndexType properties:
TblKey.Modification(Sender);