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

Gtk2: do not crash inside PtInRegion if passed handle is not of HRGN type. issue #27080

Browse Source 
git-svn-id: trunk@47056 -
This commit is contained in:
zeljko 2014-12-02 08:25:57 +00:00
parent d514d21370
commit 49d77cd1cc
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -7041,8 +7041,17 @@ end;
------------------------------------------------------------------------------}
function TGtk2WidgetSet.PtInRegion(RGN: HRGN; X, Y: Integer): Boolean;
begin
//todo: sanity checks for valid handle etc. eg. like CombineRgn
Result := gdk_region_point_in({%H-}PGdiObject(RGN)^.GDIRegionObject, X, Y);
Result := False;
if not IsValidGDIObject(RGN) then
exit;
if (PGdiObject(RGN)^.GDIBitmapObject <> nil) or
(PGdiObject(RGN)^.GDIPixbufObject <> nil) or
(PGdiObject(RGN)^.GDIPixmapObject.Image <> nil) then
begin
// issue #27080
Result := False;
end else
Result := gdk_region_point_in({%H-}PGdiObject(RGN)^.GDIRegionObject, X, Y);
end;
{------------------------------------------------------------------------------