From 865af6bdacf55ffb3dc86cd5846c7399f5a26722 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Tue, 27 Dec 2011 22:54:37 +0000 Subject: [PATCH] Fixes (again) the doublebuffer in customdrawncontrols git-svn-id: trunk@34452 - --- lcl/customdrawncontrols.pas | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/lcl/customdrawncontrols.pas b/lcl/customdrawncontrols.pas index 8e5931d9af..6a3f72bb59 100644 --- a/lcl/customdrawncontrols.pas +++ b/lcl/customdrawncontrols.pas @@ -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);