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

Qt: fixed TTabSheet caption changing before QTabWidget is visible.issue #20550

Browse Source 
git-svn-id: trunk@33064 -
This commit is contained in:
zeljko 2011-10-24 07:22:41 +00:00
parent b1786a32dd
commit 4d3ea7ffb4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1620,7 +1620,7 @@ type
public
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
function getIcon: QIconH;
function getIndex: Integer;
function getIndex(const ATextChanging: Boolean = False): Integer;
function getTabWidget: QTabWidgetH;
procedure setIcon(const AIcon: QIconH);
procedure setText(const W: WideString); override;
@ -13371,7 +13371,7 @@ begin
Result := FIcon;
end;
function TQtPage.getIndex: Integer;
function TQtPage.getIndex(const ATextChanging: Boolean = False): Integer;
var
AParent: QTabWidgetH;
@ -13386,7 +13386,7 @@ var
begin
AParent := getTabWidget;
if CanReturnIndex then
if CanReturnIndex or ATextChanging then
Result := QTabWidget_indexOf(AParent, Widget)
else
Result := -1;
@ -13431,7 +13431,7 @@ begin
AParent := getTabWidget;
if (AParent <> nil) then
begin
Index := getIndex;
Index := getIndex(True);
if Index <> -1 then
QTabWidget_setTabText(AParent, Index, @W);
end;