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

Qt: bugfix - issue #12121

Browse Source 
git-svn-id: trunk@16540 -
This commit is contained in:
zeljko 2008-09-11 07:16:17 +00:00
parent bc98657cb3
commit ec76a4c4ac
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt/qtobject.inc
View File

@ -334,6 +334,13 @@ begin
if OldWidget = NewWidget then if OldWidget = NewWidget then
Exit; Exit;
{Applies to all TQtWidgets which have "subwidgets" created
by CreateFrom() eg. comboBox.}
if (OldWidget <> nil) and
(NewWidget <> nil) and
(OldWidget.LCLObject = NewWidget.LCLObject) then
exit;
FillChar(Msg, SizeOf(Msg), 0); FillChar(Msg, SizeOf(Msg), 0);
if OldWidget <> nil then if OldWidget <> nil then
begin begin