paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 11:59:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix GetClipRGN

Browse Source 
git-svn-id: trunk@38744 -
This commit is contained in:
paul 2012-09-19 06:27:39 +00:00
parent f997ff974d
commit c236cc35fc
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4582,22 +4582,21 @@ begin
CurRegionObject := ClipRegion^.GDIRegionObject;
ARect := Rect(0, 0, 0, 0);
if Assigned(CurRegionObject) then
begin
// create a copy of the current clipregion
ClipRegionWithDCOffset := gdk_region_copy(CurRegionObject);
// move it to the DC offset
// Example: if the ClipRegion is at 10,10 and the DCOrigin is at 10,10,
// then the ClipRegion must be moved to 0,0
DCOrigin := Offset;
//debugln('TGtk2WidgetSet.GetClipRGN DCOrigin=',dbgs(DCOrigin),' CurRegionObject=',dbgs(CurRegionObject),' ',dbgs(ARect));
gdk_region_offset(ClipRegionWithDCOffset, -DCOrigin.x, -DCOrigin.Y);
end
ClipRegionWithDCOffset := gdk_region_copy(CurRegionObject)
else
begin
// create a default clipregion
GetClipBox(DC, @ARect);
LPtoDP(DC, ARect, 2);
ClipRegionWithDCOffset := CreateRectGDKRegion(ARect);
end;
// move it to the DC offset
// Example: if the ClipRegion is at 10,10 and the DCOrigin is at 10,10,
// then the ClipRegion must be moved to 0,0
DCOrigin := Offset;
gdk_region_offset(ClipRegionWithDCOffset, -DCOrigin.x, -DCOrigin.Y);
// free the old region in RGN
if Assigned({%H-}PGdiObject(RGN)^.GDIRegionObject) then
gdk_region_destroy({%H-}PGdiObject(RGN)^.GDIRegionObject);