From 026ffd58a234762913fb19fb8e314c13f873b645 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 9 Aug 2008 08:55:30 +0000
Subject: [PATCH] Fix bug #641 table names not colored in sql query editor

---
 source/childwin.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/source/childwin.pas b/source/childwin.pas
index b21f7b4f..46a32112 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -1526,6 +1526,13 @@ begin
         // SELECT COUNT(*), but that would potentially be rather slow.
       end;
       CachedTableLists.AddObject(db, ds);
+      // Add table names to SQL highlighter
+      SynSQLSyn1.TableNames.BeginUpdate;
+      while not ds.Eof do begin
+        SynSQLSyn1.TableNames.Add(ds.Fields[0].AsWideString);
+        ds.Next;
+      end;
+      SynSQLSyn1.TableNames.EndUpdate;
     finally
       MainForm.ShowStatus(STATUS_MSG_READY);
       Screen.Cursor := OldCursor;