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

LCL: TControlCanvas: do not flood terminal about painting outside of paint event for widgetsets which actually supports painting outside of paint event.

Browse Source 
git-svn-id: trunk@43443 -
This commit is contained in:
zeljko 2013-11-14 07:05:53 +00:00
parent 0d9f12f364
commit a54cbc502f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/controlcanvas.inc
View File

@ -79,7 +79,8 @@ begin
inherited CreateHandle
else
begin
if ControlIsPainting then
if 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
begin