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

Qt: implemented GetTabRect()

Browse Source 
git-svn-id: trunk@22513 -
This commit is contained in:
zeljko 2009-11-10 08:02:59 +00:00
parent e633753632
commit 9512d19c8f
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtwidgets.pas
View File

@ -648,6 +648,7 @@ type
public
procedure AttachEvents; override;
procedure DetachEvents; override;
function GetTabRect(const AIndex: integer): TRect;
procedure SignalTabBarCurrentChanged(Index: Integer); cdecl;
function SlotTabBarMouse(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
@ -5628,6 +5629,11 @@ begin
inherited DetachEvents;
end;
function TQtTabBar.GetTabRect(const AIndex: integer): TRect;
begin
QTabBar_tabRect(QTabBarH(Widget), @Result, AIndex);
end;
procedure TQtTabBar.SignalTabBarCurrentChanged(Index: Integer); cdecl;
var
Msg: TLMNotify;

14
lcl/interfaces/qt/qtwsextctrls.pp
View File

@ -67,6 +67,7 @@ type
class function GetCapabilities: TNoteBookCapabilities; override;
class function GetDesignInteractive(const AWinControl: TWinControl; AClientPos: TPoint): Boolean; override;
class function GetTabIndexAtPos(const ANotebook: TCustomNotebook; const AClientPos: TPoint): integer; override;
class function GetTabRect(const ANotebook: TCustomNotebook; const AIndex: Integer): TRect; override;
class procedure SetPageIndex(const ANotebook: TCustomNotebook; const AIndex: integer); override;
class procedure SetTabCaption(const ANotebook: TCustomNotebook; const AChild: TCustomPage; const AText: string); override;
class procedure SetTabPosition(const ANotebook: TCustomNotebook; const ATabPosition: TTabPosition); override;
@ -380,6 +381,19 @@ begin
Result := TabWidget.tabAt(AClientPos);
end;
class function TQtWSCustomNotebook.GetTabRect(const ANotebook: TCustomNotebook;
const AIndex: Integer): TRect;
var
TabWidget: TQtTabWidget;
R: TRect;
begin
Result := Rect(-1, -1, -1, -1);
if not WSCheckHandleAllocated(ANotebook, 'GetTabRect') then
Exit;
TabWidget := TQtTabWidget(ANotebook.Handle);
Result := TabWidget.TabBar.GetTabRect(AIndex);
end;
class procedure TQtWSCustomNotebook.SetPageIndex(
const ANotebook: TCustomNotebook; const AIndex: integer);
var