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

Gtk3: fixed TGtk3WidgetSet.GetRgnBox().

Browse Source
This commit is contained in:
zeljan1 2025-01-19 00:54:28 +01:00
parent 560a692e29
commit b329b331ff
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -2425,10 +2425,17 @@ end;
function TGtk3WidgetSet.GetRgnBox(RGN: HRGN; lpRect: PRect): Longint;
begin
Result := SIMPLEREGION;
Result := ERROR;
if IsValidGDIObject(RGN) then
begin
lpRect^ := TGtk3Region(RGN).GetExtents;
if IsRectEmpty(lpRect^) then
Result := NullRegion
else
if cairo_region_num_rectangles(TGtk3Region(RGN).Handle) > 1 then
Result := ComplexRegion
else
Result := SimpleRegion;
end;
end;