paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 14:51:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix TGtk2WidgetSet.SetWindowRgn with NULL region

Browse Source 
git-svn-id: trunk@29644 -
This commit is contained in:
paul 2011-02-22 07:15:01 +00:00
parent 5647965f20
commit 94fa55e000
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8916,6 +8916,7 @@ function TGtk2WidgetSet.SetWindowRgn(hWnd: HWND; hRgn: HRGN; bRedraw: Boolean):
var
Widget: PGtkWidget;
Window: PGdkWindow;
ShapeRegion: PGdkRegion;
begin
Widget := GetFixedWidget(PGtkWidget(hWnd));
if Widget = nil then
@ -8925,9 +8926,13 @@ begin
Window := GetControlWindow(Widget);
if Window = nil then
Exit(0);
gdk_window_shape_combine_region(Window, PGDIObject(hRgn)^.GDIRegionObject, 0, 0);
if hRgn = 0 then
ShapeRegion := nil
else
ShapeRegion := PGDIObject(hRgn)^.GDIRegionObject;
gdk_window_shape_combine_region(Window, ShapeRegion, 0, 0);
if bRedraw then
gdk_window_invalidate_region(Window, PGDIObject(hRgn)^.GDIRegionObject, True);
gdk_window_invalidate_region(Window, ShapeRegion, True);
Result := 1;
end;