paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5,Qt6: added check if vRegion is valid.

Browse Source
This commit is contained in:
zeljan1 2025-01-11 16:51:48 +01:00
parent 7d5a2c3edb
commit 796a0abbd7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt5/qtobjects.pas
View File

@ -2386,7 +2386,7 @@ begin
FreeAndNil(vBrush); FreeAndNil(vBrush);
// vPen.FHandle := nil; // vPen.FHandle := nil;
FreeAndNil(vPen); FreeAndNil(vPen);
if vRegion.FHandle <> nil then if Assigned(vRegion) and Assigned(vRegion.FHandle) then
begin begin
QRegion_destroy(vRegion.FHandle); QRegion_destroy(vRegion.FHandle);
vRegion.FHandle := nil; vRegion.FHandle := nil;

2
lcl/interfaces/qt6/qtobjects.pas
View File

@ -2451,7 +2451,7 @@ begin
FreeAndNil(vBrush); FreeAndNil(vBrush);
// vPen.FHandle := nil; // vPen.FHandle := nil;
FreeAndNil(vPen); FreeAndNil(vPen);
if vRegion.FHandle <> nil then if Assigned(vRegion) and Assigned(vRegion.FHandle) then
begin begin
QRegion_destroy(vRegion.FHandle); QRegion_destroy(vRegion.FHandle);
vRegion.FHandle := nil; vRegion.FHandle := nil;