paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 05:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fix TabControl spacing / qt

Browse Source 
git-svn-id: trunk@42567 -
This commit is contained in:
martin 2013-09-02 21:57:16 +00:00
parent 1b9ad85931
commit 7b1de06cbb
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lcl/interfaces/qt/qtpagecontrol.inc
View File

@ -276,6 +276,42 @@ begin
end;
end;
class function TQtWSCustomTabControl.GetNotebookMinTabHeight(
const AWinControl: TWinControl): integer;
var
dy: integer;
ATabWidget: TQtTabWidget;
begin
if AWinControl.HandleAllocated and
(TQtWidget(AWinControl.Handle).ChildOfComplexWidget <> ccwTTabControl)
then begin
ATabWidget := TQtTabWidget(AWinControl.Handle);
Result := 0;
ATabWidget.TabBar.preferredSize(dy, Result, False);
if Result > 0 then
exit;
end;
Result:=inherited GetNotebookMinTabHeight(AWinControl);
end;
class function TQtWSCustomTabControl.GetNotebookMinTabWidth(
const AWinControl: TWinControl): integer;
var
dy: integer;
ATabWidget: TQtTabWidget;
begin
if AWinControl.HandleAllocated and
(TQtWidget(AWinControl.Handle).ChildOfComplexWidget <> ccwTTabControl)
then begin
ATabWidget := TQtTabWidget(AWinControl.Handle);
Result := 0;
ATabWidget.TabBar.preferredSize(Result, dy, False);
if Result > 0 then
exit;
end;
Result:=inherited GetNotebookMinTabWidth(AWinControl);
end;
class function TQtWSCustomTabControl.GetCapabilities: TCTabControlCapabilities;
begin
Result := [nbcShowCloseButtons];

4
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -61,6 +61,10 @@ type
class procedure RemovePage(const ATabControl: TCustomTabControl;
const AIndex: integer); override;
class function GetNotebookMinTabHeight(const AWinControl: TWinControl
): integer; override;
class function GetNotebookMinTabWidth(const AWinControl: TWinControl
): integer; override;
class function GetCapabilities: TCTabControlCapabilities; override;
class function GetDesignInteractive(const AWinControl: TWinControl; AClientPos: TPoint): Boolean; override;
class function GetTabIndexAtPos(const ATabControl: TCustomTabControl; const AClientPos: TPoint): integer; override;