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

Qt: fix updating tabcaption. fixes #16864

Browse Source 
git-svn-id: trunk@26684 -
This commit is contained in:
zeljko 2010-07-16 13:49:50 +00:00
parent 168f6a214e
commit ed42b3ed5e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11903,9 +11903,19 @@ end;
function TQtPage.getIndex: Integer;
var
AParent: QTabWidgetH;
function CanReturnIndex: Boolean;
begin
Result := AParent <> nil;
if Result then
Result := QWidget_isVisible(AParent) or
( (QtVersionMajor >= 4) and (QtVersionMinor >= 6)
and LCLObject.HandleObjectShouldBeVisible );
end;
begin
AParent := getTabWidget;
if (AParent <> nil) and QWidget_isVisible(AParent) then
if CanReturnIndex then
Result := QTabWidget_indexOf(AParent, Widget)
else
Result := -1;