paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 15:32:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed SelectClipRegion

Browse Source 
git-svn-id: trunk@956 -
This commit is contained in:
lazarus 2002-02-09 01:47:29 +00:00
parent c9187213a2
commit bfeaa2d226
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkproc.inc
View File

@ -272,14 +272,10 @@ begin
If ClipRegion <> 0 then begin
Region:=PGDIObject(ClipRegion);
DCOrigin:=GetDCOffset(PDeviceContext(DC));
//DCOrigin:=PDeviceContext(DC)^.Origin;
//writeln('SelectGDIRegion DC=',HexStr(Cardinal(DC),8),
// ' DCOrigin=',DCOrigin.X,',',DCOrigin.Y,' ',
// ' ',PDeviceContext(DC)^.Origin.X,',',PDeviceContext(DC)^.Origin.Y);
if (DCOrigin.X<>0) or (DCOrigin.X<>0) then
if (DCOrigin.X<>0) or (DCOrigin.Y<>0) then
gdk_region_offset(Region^.GDIRegionObject,DCOrigin.X,DCOrigin.Y);
gdk_gc_set_clip_region(gc, PGDIObject(ClipRegion)^.GDIRegionObject);
if (DCOrigin.X<>0) or (DCOrigin.X<>0) then
if (DCOrigin.X<>0) or (DCOrigin.Y<>0) then
gdk_region_offset(Region^.GDIRegionObject,-DCOrigin.X,-DCOrigin.Y);
end;
end;
@ -2854,6 +2850,9 @@ end;
{ =============================================================================
$Log$
Revision 1.98 2002/09/12 16:49:05 lazarus
MG: fixed SelectClipRegion
Revision 1.97 2002/09/12 15:53:10 lazarus
MG: small bugfixes