paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-25 11:05:51 +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
// replace it with the given brush
OldCurrentBrush := CurrentBrush;
CurrentBrush := PGdiObject(Brush);
SelectedColors:=dcscCustom;
if PGdiObject(Brush)<>OldCurrentBrush then begin
OldCurrentBrush := CurrentBrush;
CurrentBrush := PGdiObject(Brush);
SelectedColors:=dcscCustom;
end;
SelectGDKBrushProps(DC);
DCOrigin:=GetDCOffset(TDeviceContext(DC));
gdk_draw_rectangle(Drawable, GC, 1,
Rect.Left+DCOrigin.X, Rect.Top+DCOrigin.Y,
Width, Height);
// Restore current brush
SelectedColors:=dcscCustom;
CurrentBrush := OldCurrentBrush;
if PGdiObject(Brush)<>OldCurrentBrush then begin
SelectedColors:=dcscCustom;
CurrentBrush := OldCurrentBrush;
end;
Result := True;
end;
@ -7226,6 +7231,9 @@ end;
{ =============================================================================
$Log$
Revision 1.149 2002/10/08 14:28:14 lazarus
MG: accelerated FillRect
Revision 1.148 2002/10/08 14:10:03 lazarus
MG: added TDeviceContext.SelectedColors