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

Activates the new fast copy routine by default and implements a new fast pixel filling optimization. Decreases the drawing time of a fullscreen form with some controls from 95ms to 33ms

Browse Source 
git-svn-id: trunk@36580 -
This commit is contained in:
sekelsenmat 2012-04-05 15:09:56 +00:00
parent a643c45d47
commit f988a68552
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/lazcanvas.pas
View File

@ -35,7 +35,7 @@ unit lazcanvas;
{$mode objfpc}{$H+}
{ $define lazcanvas_debug}
{ $define lazcanvas_profiling}
{ $define lazcanvas_new_fast_copy}
{$define lazcanvas_new_fast_copy}
interface
@ -44,9 +44,7 @@ uses
Classes, SysUtils, contnrs, Math,
// FCL-Image
fpimgcanv, fpcanvas, fpimage, clipping, pixtools, fppixlcanv,
{$ifdef lazcanvas_new_fast_copy}
intfgraphics, // remove if fclimage gets RawPixel
{$endif}
intfgraphics,
// regions
lazregions
{$if defined(lazcanvas_debug) or defined(lazcanvas_profiling)}
@ -298,10 +296,21 @@ begin
end;
procedure TLazCanvas.DoRectangleFill(const Bounds: TRect);
var b : TRect;
var
b : TRect;
begin
b := Bounds;
SortRect (b);
// Optimize when filling everything
if (b.Left = 0) and (b.Top = 0) and (b.Right = Width) and (b.Bottom = Height)
and (Brush.Style = bsSolid) and (FWindowOrg.X = 0) and (FWindowOrg.Y = 0)
and ((Clipping=False) {or cliprect=entire area}) then
begin
FillColor(Brush.FPColor, True);
Exit;
end;
// if clipping then
// CheckRectClipping (ClipRect, B);
with b do
@ -709,7 +718,10 @@ var
begin
if AIgnoreClippingAndWindowOrg then
begin
for y := 0 to Height-1 do
if Image is TLazIntfImage then
TLazIntfImage(Image).FillPixels(AColor)
else
for y := 0 to Height-1 do
for x := 0 to Width-1 do
Image.Colors[x, y] := AColor;
end