paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 23:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed segfault at lazarus exit, FDesignControl is already destroyed by it's parent.

Browse Source 
git-svn-id: trunk@24227 -
This commit is contained in:
zeljko 2010-03-26 18:45:14 +00:00
parent c659828095
commit 119586eafc
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10774,13 +10774,8 @@ end;
procedure TQtDesignWidget.DestroyWidget;
begin
if FDesignControl <> nil then
begin
removeProperty(FDesignControl, 'lclwidget');
QObject_deleteLater(FDesignControl);
FDesignControl := nil;
end;
inherited DestroyWidget;
FDesignControl := nil;
end;
procedure TQtDesignWidget.SlotDesignControlPaint(Sender: QObjectH; Event: QEventH); cdecl;
@ -10880,6 +10875,13 @@ begin
QEvent_Accept(Event);
if LCLObject = nil then
exit;
if QEvent_type(Event) = QEventDestroy then
begin
{FDesignControl is always destroyed by it's parent,
only thing we need is to remove dynamic property.}
RemoveProperty(FDesignControl,'lclwidget');
exit;
end;
BeginEventProcessing;
case QEvent_type(Event) of
QEventMouseButtonPress,