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

MG: small bugfixes

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

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

@ -272,7 +272,10 @@ begin
If ClipRegion <> 0 then begin
Region:=PGDIObject(ClipRegion);
DCOrigin:=GetDCOffset(PDeviceContext(DC));
//writeln('SelectGDIRegion DC=',HexStr(Cardinal(DC),8),' DCOrigin=',DCOrigin.X,',',DCOrigin.Y);
//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
gdk_region_offset(Region^.GDIRegionObject,DCOrigin.X,DCOrigin.Y);
gdk_gc_set_clip_region(gc, PGDIObject(ClipRegion)^.GDIRegionObject);
@ -2851,6 +2854,9 @@ end;
{ =============================================================================
$Log$
Revision 1.97 2002/09/12 15:53:10 lazarus
MG: small bugfixes
Revision 1.96 2002/09/12 15:35:57 lazarus
MG: small bugfixes