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

MG: accelerated FillRect

Browse Source 
git-svn-id: trunk@1905 -
This commit is contained in:
lazarus 2002-08-17 23:39:57 +00:00
parent f2fd93f0d0
commit 867a54d87f
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -2654,16 +2654,21 @@ begin
// Temporary hold the old brush to // Temporary hold the old brush to
// replace it with the given brush // replace it with the given brush
OldCurrentBrush := CurrentBrush; OldCurrentBrush := CurrentBrush;
CurrentBrush := PGdiObject(Brush); if PGdiObject(Brush)<>OldCurrentBrush then begin
SelectedColors:=dcscCustom; OldCurrentBrush := CurrentBrush;
CurrentBrush := PGdiObject(Brush);
SelectedColors:=dcscCustom;
end;
SelectGDKBrushProps(DC); SelectGDKBrushProps(DC);
DCOrigin:=GetDCOffset(TDeviceContext(DC)); DCOrigin:=GetDCOffset(TDeviceContext(DC));
gdk_draw_rectangle(Drawable, GC, 1, gdk_draw_rectangle(Drawable, GC, 1,
Rect.Left+DCOrigin.X, Rect.Top+DCOrigin.Y, Rect.Left+DCOrigin.X, Rect.Top+DCOrigin.Y,
Width, Height); Width, Height);
// Restore current brush // Restore current brush
SelectedColors:=dcscCustom; if PGdiObject(Brush)<>OldCurrentBrush then begin
CurrentBrush := OldCurrentBrush; SelectedColors:=dcscCustom;
CurrentBrush := OldCurrentBrush;
end;
Result := True; Result := True;
end; end;
@ -7226,6 +7231,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.149 2002/10/08 14:28:14 lazarus
MG: accelerated FillRect
Revision 1.148 2002/10/08 14:10:03 lazarus Revision 1.148 2002/10/08 14:10:03 lazarus
MG: added TDeviceContext.SelectedColors MG: added TDeviceContext.SelectedColors