From 41e043e5eda1b4f10403850b1fc8282b3c8da72e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 29 Oct 2009 01:01:59 +0000
Subject: [PATCH] Optimization: Try to call SynEdit's long running
 InitializeKeywordLists() once instead of once per table.

---
 source/main.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index 76214392..371fa009 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -3583,7 +3583,7 @@ var
   Results: TMySQLQuery;
   OldCursor: TCursor;
   Unions: TWideStringlist;
-  ListObjectsSQL: WideString;
+  ListObjectsSQL, Tables: WideString;
 begin
   if not DbTableListCachedAndValid(db) then begin
     // Not in cache, load table list.
@@ -3656,12 +3656,11 @@ begin
       Results := Connection.GetResults(ListObjectsSQL);
       CachedTableLists.AddObject(db, Results);
       // Add table names to SQL highlighter
-      SynSQLSyn1.TableNames.BeginUpdate;
       while not Results.Eof do begin
-        SynSQLSyn1.TableNames.Add(Results.Col(DBO_NAME));
+        Tables := Tables + Results.Col(DBO_NAME) + CRLF;
         Results.Next;
       end;
-      SynSQLSyn1.TableNames.EndUpdate;
+      SynSQLSyn1.TableNames.Text := Trim(Tables);
     finally
       ShowStatus(STATUS_MSG_READY);
       Screen.Cursor := OldCursor;