paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 18:27:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

win32: use GetWin32ThemedDoubleBuffered for page/tab control

Browse Source 
git-svn-id: trunk@57311 -
This commit is contained in:
ondrej 2018-02-16 13:41:43 +00:00
parent 94af0e219e
commit 2eb282de45
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32pagecontrol.inc
View File

@ -632,6 +632,12 @@ begin
Result := (AIndex <> -1) and (AIndex <> ACurIndex); Result := (AIndex <> -1) and (AIndex <> ACurIndex);
end; end;
class function TWin32WSCustomTabControl.GetDoubleBuffered(
const AWinControl: TWinControl): Boolean;
begin
Result := GetWin32ThemedDoubleBuffered(AWinControl);
end;
class procedure TWin32WSCustomTabControl.SetTabSize( class procedure TWin32WSCustomTabControl.SetTabSize(
const ATabControl: TCustomTabControl; const ATabControl: TCustomTabControl;
const ATabWidth, ATabHeight: integer); const ATabWidth, ATabHeight: integer);

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

@ -65,6 +65,7 @@ type
class procedure RemovePage(const ATabControl: TCustomTabControl; class procedure RemovePage(const ATabControl: TCustomTabControl;
const AIndex: integer); override; const AIndex: integer); override;
class function GetDoubleBuffered(const AWinControl: TWinControl): Boolean; override;
class function GetNotebookMinTabHeight(const AWinControl: TWinControl): integer; override; class function GetNotebookMinTabHeight(const AWinControl: TWinControl): integer; override;
class function GetNotebookMinTabWidth(const AWinControl: TWinControl): integer; override; class function GetNotebookMinTabWidth(const AWinControl: TWinControl): integer; override;
class function GetTabIndexAtPos(const ATabControl: TCustomTabControl; const AClientPos: TPoint): integer; override; class function GetTabIndexAtPos(const ATabControl: TCustomTabControl; const AClientPos: TPoint): integer; override;