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

Qt5: call viewportDelete() when widget is destroyed via destroy event from qt, since inside release widget becomes nil.

Browse Source 
git-svn-id: trunk@61385 -
This commit is contained in:
zeljko 2019-06-14 10:56:12 +00:00
parent b90a2cb91b
commit ed1960455d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -462,7 +462,7 @@ type
destructor Destroy; override;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
procedure ViewPortEventFilter(event: QEventH; retval: PBoolean); cdecl;
procedure Destroyed; cdecl; override;
procedure DestroyNotify(AWidget: TQtWidget); override;
public
function CanAdjustClientRectOnResize: Boolean; override;
@ -17658,6 +17658,12 @@ begin
end;
end;
procedure TQtCustomControl.Destroyed; cdecl;
begin
viewportDelete;
inherited Destroyed;
end;
procedure TQtCustomControl.DestroyNotify(AWidget: TQtWidget);
begin
if AWidget = FCornerWidget then