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

Qt: fixed bug where TQtPage text isn't setted up because parent is invisible but have valid index.Now we don't evaluate parent visiblity anymore, instead we use valid index.

Browse Source 
git-svn-id: trunk@24196 -
This commit is contained in:
zeljko 2010-03-24 20:05:29 +00:00
parent 1ba48c8a9c
commit fb34fc56ff
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10334,11 +10334,16 @@ end;
procedure TQtPage.setText(const W: WideString); procedure TQtPage.setText(const W: WideString);
var var
AParent: QTabWidgetH; AParent: QTabWidgetH;
Index: integer;
begin begin
inherited setText(W); inherited setText(W);
AParent := getTabWidget; AParent := getTabWidget;
if (AParent <> nil) and QWidget_isVisible(AParent) then if (AParent <> nil) then
QTabWidget_setTabText(AParent, getIndex, @W); begin
Index := getIndex;
if Index <> -1 then
QTabWidget_setTabText(AParent, Index, @W);
end;
end; end;
{ TQtAbstractItemView } { TQtAbstractItemView }