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

LCL: controlcanvas: protect TControlCanvas.CreateHandle debugln with an IFDEF

Browse Source 
git-svn-id: trunk@53274 -
This commit is contained in:
ondrej 2016-11-01 19:18:42 +00:00
parent 6a74f2e274
commit b8c9f6d510
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/controlcanvas.inc
View File

@ -79,9 +79,11 @@ begin
inherited CreateHandle
else
begin
{$IFDEF VerboseCanvas}
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']);
{$ENDIF}
if (FDeviceContext = 0) then
begin
// access to window handle can cause another TControlCanvas.CreateHandle