diff --git a/lcl/interfaces/win32/win32wsstdctrls.pp b/lcl/interfaces/win32/win32wsstdctrls.pp index f7fb8a0a38..8b967ca63d 100644 --- a/lcl/interfaces/win32/win32wsstdctrls.pp +++ b/lcl/interfaces/win32/win32wsstdctrls.pp @@ -43,6 +43,7 @@ type published class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override; + class function GetDoubleBuffered(const AWinControl: TWinControl): Boolean; override; class procedure SetParams(const AScrollBar: TCustomScrollBar); override; end; @@ -476,6 +477,12 @@ begin Result := Params.Window; 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); var ScrollInfo: TScrollInfo;