Reduce flicker on Windows 10. See https://www.heidisql.com/forum.php?…

…t=19141
HeidiSQL · Mar 8, 2017 · d0b8194 · d0b8194
1 parent 209f398
commit d0b8194
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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);