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

Fixes (again) the doublebuffer in customdrawncontrols

Browse Source 
git-svn-id: trunk@34452 -
This commit is contained in:
sekelsenmat 2011-12-27 22:54:37 +00:00
parent 1963fc9eb5
commit 865af6bdac
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/customdrawncontrols.pas
View File

@ -11,7 +11,7 @@ unit customdrawncontrols;
{$mode objfpc}{$H+}
{$if defined(LCLWin32)}
{$if defined(Windows)} // LCL defines like LCLWin32 don't reach the LCL
{$define CDControlsDoDoubleBuffer}
{$endif}
@ -910,19 +910,7 @@ var
begin
inherited Paint;
(*{$ifdef CDControlsDoDoubleBuffer}
ABmp := TBitmap.Create;
try
ABmp.Width := Width;
ABmp.Height := Height;
DrawToCanvas(ABmp.Canvas);
Canvas.Draw(0, 0, ABmp);
finally
ABmp.Free;
end;
{$else}*)
DrawToCanvas(Canvas);
//{$endif}
end;
procedure TCDControl.DrawToCanvas(ACanvas: TCanvas);