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

Small fix for the form background drawing disabling

Browse Source 
git-svn-id: trunk@36703 -
This commit is contained in:
sekelsenmat 2012-04-10 09:41:58 +00:00
parent b3d9e6e4a0
commit 80721245e5
1 changed files with 1 additions and 1 deletions

2
lcl/interfaces/customdrawn/customdrawnproc.pas
View File

@ -586,7 +586,7 @@ begin
// Consider also if the user wants to manually disable the background drawing
lDrawControl := True;
if Assigned(CDWidgetset.DisableFormBackgroundDrawingProc) then
lDrawControl := CDWidgetset.DisableFormBackgroundDrawingProc(AForm);
lDrawControl := not CDWidgetset.DisableFormBackgroundDrawingProc(AForm);
if lDrawControl then
lDrawControl := lWindowHandle.IsControlBackgroundVisible() or (AForm.Height < AImage.Height);
if lDrawControl then