Skip to content
Permalink
Browse files

Move another old and probably no longer required workaround from Main…

…Form to TExtForm.Create, which shall prevent flicker on Win10
  • Loading branch information...
ansgarbecker committed Jul 23, 2019
1 parent 63fdc3e commit d76aacb910be9e0f1410572d9fee103490af20a6
Showing with 6 additions and 8 deletions.
  1. +6 −0 source/extra_controls.pas
  2. +0 −2 source/main.dfm
  3. +0 −6 source/main.pas
@@ -42,6 +42,12 @@ constructor TExtForm.Create(AOwner: TComponent);
InheritFont(Font);
HasSizeGrip := False;

// Reduce flicker on Windows 10
// See https://www.heidisql.com/forum.php?t=19141
if CheckWin32Version(6, 2) then begin
DoubleBuffered := True;
end;

// Translation and related fixes
// Issue #557: Apply images *after* translating main menu, so top items don't get unused
// space left besides them.
@@ -73,7 +73,6 @@ object MainForm: TMainForm
Width = 977
Height = 19
AutoHint = True
DoubleBuffered = True
Panels = <
item
Width = 150
@@ -100,7 +99,6 @@ object MainForm: TMainForm
Style = psOwnerDraw
Width = 250
end>
ParentDoubleBuffered = False
ParentFont = True
UseSystemFont = False
OnClick = StatusBarClick
@@ -1740,12 +1740,6 @@ procedure TMainForm.FormCreate(Sender: TObject);
on E:EOleSysError do;
end;

// Reduce flicker on Windows 10
if CheckWin32Version(6, 2) then begin
DoubleBuffered := True;
end;


// Move files from old default snippets directory, see issue #159
if not AppSettings.PortableMode then begin
// This was the default folder up to r5244 / 8b2966c52efb685b00189037a0507157ed03a368

0 comments on commit d76aacb

Please sign in to comment.
You can’t perform that action at this time.