paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:20:27 +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);
var
AParent: QTabWidgetH;
Index: integer;
begin
inherited setText(W);
AParent := getTabWidget;
if (AParent <> nil) and QWidget_isVisible(AParent) then
QTabWidget_setTabText(AParent, getIndex, @W);
if (AParent <> nil) then
begin
Index := getIndex;
if Index <> -1 then
QTabWidget_setTabText(AParent, Index, @W);
end;
end;
{ TQtAbstractItemView }