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

Qt: properly set tabicon. fixes #17635

Browse Source 
git-svn-id: trunk@27716 -
This commit is contained in:
zeljko 2010-10-15 07:15:34 +00:00
parent 1b805137bf
commit 17cbc0d5bf
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,7 +53,8 @@ type
ccwComboBox,
ccwTreeWidget,
ccwAbstractScrollArea,
ccwScrollingWinControl);
ccwScrollingWinControl,
ccwTabWidget);
TQtGroupBoxType = (tgbtNormal,
tgbtCheckGroup,
@ -12192,11 +12193,19 @@ end;
procedure TQtPage.setIcon(const AIcon: QIconH);
var
AParent: QTabWidgetH;
TabWidget: TQtTabWidget;
begin
FIcon := AIcon;
AParent := getTabWidget;
if AParent <> nil then
QTabWidget_setTabIcon(AParent, getIndex, AIcon);
begin
if ChildOfComplexWidget = ccwTabWidget then
begin
TabWidget := TQtTabWidget(LCLObject.Parent.Handle);
TabWidget.setTabIcon(TabWidget.indexOf(Widget), AIcon);
end else
QTabWidget_setTabIcon(AParent, getIndex, AIcon);
end;
end;
procedure TQtPage.setText(const W: WideString);

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

@ -321,6 +321,7 @@ begin
QtTabWidget.insertTab(AIndex, TQtPage(AChild.Handle).Widget,
GetUtf8String(AChild.Caption));
QtTabWidget.setUpdatesEnabled(True);
TQtPage(AChild.Handle).ChildOfComplexWidget := ccwTabWidget;
TQtWsCustomPage.UpdateProperties(AChild);
end;