paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-25 00:51:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: controlcanvas: fix TControlCanvas.CreateHandle debugln, issue #30003

Browse Source 
git-svn-id: trunk@53252 -
This commit is contained in:
ondrej 2016-10-28 17:53:48 +00:00
parent 77add4e290
commit d0383990ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/controlcanvas.inc
View File

@ -79,7 +79,7 @@ begin
inherited CreateHandle inherited CreateHandle
else else
begin begin
if ControlIsPainting and if not ControlIsPainting and
(WidgetSet.GetLCLCapability(lcCanDrawOutsideOnPaint) = LCL_CAPABILITY_NO) then (WidgetSet.GetLCLCapability(lcCanDrawOutsideOnPaint) = LCL_CAPABILITY_NO) then
debugln(['TControlCanvas.CreateHandle WARNING: accessing the canvas of '+DbgSName(FControl)+' is not supported outside of paint message']); debugln(['TControlCanvas.CreateHandle WARNING: accessing the canvas of '+DbgSName(FControl)+' is not supported outside of paint message']);
if (FDeviceContext = 0) then if (FDeviceContext = 0) then