From f411f36f32ec5af329ee69f75754afad983bd13c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 16 Mar 2010 18:20:38 +0000
Subject: [PATCH] Force repainting columns list after modifying some index.
 Ensures key icons on column nodes are displayed immediately.

---
 source/table_editor.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/table_editor.pas b/source/table_editor.pas
index 48c51641..01b9ad94 100644
--- a/source/table_editor.pas
+++ b/source/table_editor.pas
@@ -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;