From 1581c55ceadefc83db12f35ea6d2567171d810a5 Mon Sep 17 00:00:00 2001
From: rosenfield <rosenfield@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Mon, 8 Oct 2007 17:16:38 +0000
Subject: [PATCH] Pipe calls to InternalRefresh through the query thread.

---
 components/heidisql/source/heidicomp.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/heidisql/source/heidicomp.pas b/components/heidisql/source/heidicomp.pas
index e3cd8c1d..9b146357 100644
--- a/components/heidisql/source/heidicomp.pas
+++ b/components/heidisql/source/heidicomp.pas
@@ -73,6 +73,7 @@ type
     kind: Integer;
  protected
     procedure InternalPost; override;
+    procedure InternalRefresh; override;
  public
     constructor Create(AOwner: TComponent; PostCallback: TAsyncPostRunner); reintroduce;
     procedure ExecSQL; override;
@@ -92,6 +93,13 @@ begin
   else callback(self);
 end;
 
+procedure TDeferDataSet.InternalRefresh;
+begin
+  kind := 3;
+  if @callback = nil then DoAsync
+  else callback(self);
+end;
+
 procedure TDeferDataSet.ExecSql;
 begin
   kind := 2;
@@ -110,6 +118,7 @@ begin
   case kind of
     1: inherited InternalPost;
     2: inherited ExecSQL;
+    3: inherited InternalRefresh;
   end;
 end;