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

MG: added changes from Andrew (Clipping)

Browse Source 
git-svn-id: trunk@813 -
This commit is contained in:
lazarus 2002-02-09 01:46:50 +00:00
parent 762c65fc9d
commit c8ac3934aa
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,12 +98,25 @@ begin
CurrentBrush := SourceDC^.CurrentBrush;
CurrentTextColor := SourceDC^.CurrentTextColor;
CurrentBackColor := SourceDC^.CurrentBackColor;
DeleteObject(ClipRegion);
ClipRegion := SourceDC^.ClipRegion;
SavedContext := nil;
end;
end;
Assert(False, Format('Trace:< [CopyDCData] DestDC:0x%x, SourceDC:0x%x --> %d', [Integer(DestinationDC), Integer(SourceDC), Integer(Result)]));
end;
Procedure SelectGDIRegion(const DC: HDC);
begin
with PDeviceContext(DC)^ do
begin
gdk_gc_set_clip_region(gc, nil);
gdk_gc_set_clip_rectangle (gc, nil);
If ClipRegion <> 0 then
gdk_gc_set_clip_region(gc, PGDIObject(ClipRegion)^.GDIRegionObject);
end;
end;
{------------------------------------------------------------------------------
Procedure: SelectGDKBrushProps
Params: DC: a (LCL)devicecontext
@ -165,6 +178,7 @@ procedure SelectGDKTextProps(const DC: HDC);
begin
with PDeviceContext(DC)^ do
begin
gdk_gc_set_fill(GC, GDK_SOLID);
gdk_gc_set_foreground(GC, @CurrentTextColor);
gdk_gc_set_background(GC, @CurrentBackColor);
Assert(False, Format('trace: [SelectGDKTextProps] Color --> pixel: %d, red: 0x%x, green: 0x%x, blue: 0x%x', [CurrentTextColor.Pixel, CurrentTextColor.Red, CurrentTextColor.Green, CurrentTextColor.Blue]));
@ -2173,6 +2187,9 @@ end;
{ =============================================================================
$Log$
Revision 1.59 2002/08/15 15:46:49 lazarus
MG: added changes from Andrew (Clipping)
Revision 1.58 2002/08/15 15:11:01 lazarus
MG: fixed showing menu accelarator shortcuts