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

Refactoring TTaskDialog: prevent possible crash in TLCLTaskDialog.

Browse Source
This commit is contained in:
Bart 2023-07-19 18:53:23 +02:00
parent 61fefaa794
commit 916196dede
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/taskdlgemulation.pp
View File

@ -169,6 +169,8 @@ var
mRes, I: Integer; mRes, I: Integer;
aParent: HWND; aParent: HWND;
begin begin
if not Assigned(FDlg) then
Exit(False);
SetupControls; SetupControls;
aParent := FDlg.ParentWindow; aParent := FDlg.ParentWindow;