Force repainting columns list after modifying some index. Ensures key icons on column nodes are displayed immediately.

This commit is contained in:
Ansgar Becker
2010-03-16 18:20:38 +00:00
parent 3ed8c5bd91
commit f411f36f32

View File

@ -1477,6 +1477,7 @@ procedure TfrmTableEditor.treeIndexesInitChildren(Sender: TBaseVirtualTree;
begin
// Tell number of columns contained in index
ChildCount := FKeys[Node.Index].Columns.Count;
ListColumns.Invalidate;
end;