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

win32: use GetWin32ThemedDoubleBuffered for tool bar

Browse Source 
git-svn-id: trunk@57307 -
This commit is contained in:
ondrej 2018-02-16 11:30:19 +00:00
parent 50548dc73d
commit 4a859dd0e1
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -241,6 +241,7 @@ type
class procedure InsertToolButton(const AToolBar: TToolbar; const AControl: TControl); override; class procedure InsertToolButton(const AToolBar: TToolbar; const AControl: TControl); override;
class procedure DeleteToolButton(const AToolBar: TToolbar; const AControl: TControl); override; class procedure DeleteToolButton(const AToolBar: TToolbar; const AControl: TControl); override;
{$endif} {$endif}
class function GetDoubleBuffered(const AWinControl: TWinControl): Boolean; override;
end; end;
{ TWin32WSTrackBar } { TWin32WSTrackBar }
@ -821,6 +822,12 @@ end;
{$endif} {$endif}
class function TWin32WSToolBar.GetDoubleBuffered(
const AWinControl: TWinControl): Boolean;
begin
Result := GetWin32ThemedDoubleBuffered(AWinControl);
end;
function TrackBarParentMsgHandler(const AWinControl: TWinControl; Window: HWnd; function TrackBarParentMsgHandler(const AWinControl: TWinControl; Window: HWnd;
Msg: UInt; WParam: Windows.WParam; LParam: Windows.LParam; Msg: UInt; WParam: Windows.WParam; LParam: Windows.LParam;
var MsgResult: Windows.LResult; var WinProcess: Boolean): Boolean; var MsgResult: Windows.LResult; var WinProcess: Boolean): Boolean;