From d0383990ca57572c9c0f2d157e8490bb87cd10b1 Mon Sep 17 00:00:00 2001 From: ondrej Date: Fri, 28 Oct 2016 17:53:48 +0000 Subject: [PATCH] lcl: controlcanvas: fix TControlCanvas.CreateHandle debugln, issue #30003 git-svn-id: trunk@53252 - --- lcl/include/controlcanvas.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/include/controlcanvas.inc b/lcl/include/controlcanvas.inc index 7ad3862e9e..11b22587a1 100644 --- a/lcl/include/controlcanvas.inc +++ b/lcl/include/controlcanvas.inc @@ -79,7 +79,7 @@ begin inherited CreateHandle else begin - if ControlIsPainting and + if not ControlIsPainting and (WidgetSet.GetLCLCapability(lcCanDrawOutsideOnPaint) = LCL_CAPABILITY_NO) then debugln(['TControlCanvas.CreateHandle WARNING: accessing the canvas of '+DbgSName(FControl)+' is not supported outside of paint message']); if (FDeviceContext = 0) then