paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:19:14 +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

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

@ -327,13 +327,20 @@ var
OldWidget, NewWidget: TQtWidget; OldWidget, NewWidget: TQtWidget;
Msg: TLMessage; Msg: TLMessage;
begin begin
//WriteLn('old: ', PtrUInt(old), ' new: ', PtrUInt(now)); // WriteLn('old: ', PtrUInt(old), ' new: ', PtrUInt(now));
OldWidget := GetFirstQtObjectFromWidgetH(old); OldWidget := GetFirstQtObjectFromWidgetH(old);
NewWidget := GetFirstQtObjectFromWidgetH(now); NewWidget := GetFirstQtObjectFromWidgetH(now);
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