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

MG: small bugfixes

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

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

@ -272,6 +272,7 @@ 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);
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);
@ -296,7 +297,7 @@ begin
gdk_gc_set_fill(GC, GDIBrushFill);
gdk_gc_set_foreground(GC, @GDIBrushColor);
gdk_gc_set_background(GC, @CurrentBackColor);
SelectGDIRegion(DC);
//SelectGDIRegion(DC);
//TODO: Brush pixmap
end;
end;
@ -2850,6 +2851,9 @@ end;
{ =============================================================================
$Log$
Revision 1.96 2002/09/12 15:35:57 lazarus
MG: small bugfixes
Revision 1.95 2002/09/10 06:49:21 lazarus
MG: scrollingwincontrol from Andrew