paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 00:18:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: scroll bar: remove flicker on mouse-in/mouse-out in Windows 10 (disable DoubleBuffered).

Browse Source 
git-svn-id: trunk@58156 -
This commit is contained in:
ondrej 2018-06-06 14:14:00 +00:00
parent 85a2f5309e
commit 9231f2ca08
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -43,6 +43,7 @@ type
published published
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override; const AParams: TCreateParams): HWND; override;
class function GetDoubleBuffered(const AWinControl: TWinControl): Boolean; override;
class procedure SetParams(const AScrollBar: TCustomScrollBar); override; class procedure SetParams(const AScrollBar: TCustomScrollBar); override;
end; end;
@ -476,6 +477,12 @@ begin
Result := Params.Window; Result := Params.Window;
end; end;
class function TWin32WSScrollBar.GetDoubleBuffered(
const AWinControl: TWinControl): Boolean;
begin
Result := GetWin32NativeDoubleBuffered(AWinControl); // double buffered scrollbar flickers on mouse-in/mouse-out on Windows 10
end;
class procedure TWin32WSScrollBar.SetParams(const AScrollBar: TCustomScrollBar); class procedure TWin32WSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
var var
ScrollInfo: TScrollInfo; ScrollInfo: TScrollInfo;