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

MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...

Browse Source 
git-svn-id: trunk@871 -
This commit is contained in:
lazarus 2002-02-09 01:47:11 +00:00
parent 3d0640d331
commit a469cde1b7
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -208,6 +208,7 @@ begin
//GC := gdk_gc_new(Drawable); //GC := gdk_gc_new(Drawable);
GC := gdk_gc_new_with_values(Drawable, @GCValues, 3 { $3FF}); GC := gdk_gc_new_with_values(Drawable, @GCValues, 3 { $3FF});
end; end;
Origin := SourceDC^.Origin;
PenPos := SourceDC^.PenPos; PenPos := SourceDC^.PenPos;
CurrentBitmap := SourceDC^.CurrentBitmap; CurrentBitmap := SourceDC^.CurrentBitmap;
CurrentFont := SourceDC^.CurrentFont; CurrentFont := SourceDC^.CurrentFont;
@ -216,24 +217,34 @@ begin
CurrentTextColor := SourceDC^.CurrentTextColor; CurrentTextColor := SourceDC^.CurrentTextColor;
CurrentBackColor := SourceDC^.CurrentBackColor; CurrentBackColor := SourceDC^.CurrentBackColor;
ClipRegion := SourceDC^.ClipRegion; ClipRegion := SourceDC^.ClipRegion;
{DeleteObject(ClipRegion);
ClipRegion := 0;
If SourceDC^.ClipRegion <> 0 then
SelectClipRGN(hDC(DestinationDC), SourceDC^.ClipRegion);}
SavedContext := nil; SavedContext := nil;
end; end;
end; end;
Assert(False, Format('Trace:< [CopyDCData] DestDC:0x%x, SourceDC:0x%x --> %d', [Integer(DestinationDC), Integer(SourceDC), Integer(Result)])); Assert(False, Format('Trace:< [CopyDCData] DestDC:0x%x, SourceDC:0x%x --> %d', [Integer(DestinationDC), Integer(SourceDC), Integer(Result)]));
end; end;
{------------------------------------------------------------------------------
Procedure SelectGDIRegion(const DC: HDC);
Applies the current clipping region of the DC (DeviceContext) to the
gc (GDK Graphic context - pgdkGC)
------------------------------------------------------------------------------}
Procedure SelectGDIRegion(const DC: HDC); Procedure SelectGDIRegion(const DC: HDC);
var
Region: PGdiObject;
begin begin
with PDeviceContext(DC)^ do with PDeviceContext(DC)^ do
begin begin
gdk_gc_set_clip_region(gc, nil); gdk_gc_set_clip_region(gc, nil);
gdk_gc_set_clip_rectangle (gc, nil); gdk_gc_set_clip_rectangle (gc, nil);
If ClipRegion <> 0 then If ClipRegion <> 0 then begin
Region:=PGDIObject(ClipRegion);
if (Origin.X<>0) or (Origin.X<>0) then
gdk_region_offset(Region^.GDIRegionObject,Origin.X,Origin.Y);
gdk_gc_set_clip_region(gc, PGDIObject(ClipRegion)^.GDIRegionObject); gdk_gc_set_clip_region(gc, PGDIObject(ClipRegion)^.GDIRegionObject);
if (Origin.X<>0) or (Origin.X<>0) then
gdk_region_offset(Region^.GDIRegionObject,-Origin.X,-Origin.Y);
end;
end; end;
end; end;
@ -2622,6 +2633,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.80 2002/08/30 12:32:23 lazarus
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...
Revision 1.79 2002/08/29 00:07:02 lazarus Revision 1.79 2002/08/29 00:07:02 lazarus
MG: fixed TComboBox and InvalidateControl MG: fixed TComboBox and InvalidateControl