paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 15:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: added TQtTabWidget.setTabIcon(), part of #17635

Browse Source 
git-svn-id: trunk@27715 -
This commit is contained in:
zeljko 2010-10-15 06:54:02 +00:00
parent 520d367826
commit 1b805137bf
1 changed files with 6 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

@ -779,6 +779,7 @@ type
procedure setCurrentIndex(AIndex: Integer); procedure setCurrentIndex(AIndex: Integer);
procedure setCurrentWidget(APage: TQtWidget); procedure setCurrentWidget(APage: TQtWidget);
procedure setTabPosition(ATabPosition: QTabWidgetTabPosition); procedure setTabPosition(ATabPosition: QTabWidgetTabPosition);
procedure setTabIcon(index: Integer; icon: QIconH);
procedure setTabText(index: Integer; p2: WideString); procedure setTabText(index: Integer; p2: WideString);
procedure setTabsClosable(AValue: Boolean); procedure setTabsClosable(AValue: Boolean);
function tabAt(APoint: TPoint): Integer; function tabAt(APoint: TPoint): Integer;
@ -7143,6 +7144,11 @@ begin
QTabWidget_setTabPosition(QTabWidgetH(Widget), ATabPosition); QTabWidget_setTabPosition(QTabWidgetH(Widget), ATabPosition);
end; end;
procedure TQtTabWidget.setTabIcon(index: Integer; icon: QIconH);
begin
QTabWidget_setTabIcon(QTabWidgetH(Widget), index, icon);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: TQtTabWidget.SignalCurrentChanged Function: TQtTabWidget.SignalCurrentChanged
Params: None Params: None