From d0b8194029acc8648d212cc2fb6be54b7790358d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 8 Mar 2017 19:25:58 +0000
Subject: [PATCH] Reduce flicker on Windows 10. See
 https://www.heidisql.com/forum.php?t=19141

---
 source/main.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/source/main.pas b/source/main.pas
index fd7691749..59547d45d 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1659,6 +1659,12 @@ procedure TMainForm.FormCreate(Sender: TObject);
     on E:EOleSysError do;
   end;
 
+  // Reduce flicker on Windows 10
+  if CheckWin32Version(6, 2) then begin
+    DoubleBuffered := True;
+  end;
+
+
   // Ensure directory exists
   ForceDirectories(DirnameUserAppData);