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

Fixes yet again the new DisableFormBackgroundDrawingProc

Browse Source 
git-svn-id: trunk@36706 -
This commit is contained in:
sekelsenmat 2012-04-10 10:03:48 +00:00
parent 1ef3a1b4b8
commit 259c163efb
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawndefines.inc
View File

@ -66,7 +66,7 @@
// ==================
// Debug options
// ==================
{.$define VerboseCDPaintProfiler}
{$define VerboseCDPaintProfiler}
{.$define Verbose_CD_X11_Timer}
{.$define CD_Debug_TTF}
{.$define VerboseCDDrawing}

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

@ -584,12 +584,14 @@ begin
// then we need to force drawing the background to erase old contents of the buffer
//
// Consider also if the user wants to manually disable the background drawing
lDrawControl := True;
lDrawControl := lWindowHandle.IsControlBackgroundVisible() or (AForm.Height < AImage.Height);
if Assigned(CDWidgetset.DisableFormBackgroundDrawingProc) then
lDrawControl := not CDWidgetset.DisableFormBackgroundDrawingProc(AForm);
if lDrawControl then
lDrawControl := lWindowHandle.IsControlBackgroundVisible() or (AForm.Height < AImage.Height);
if lDrawControl then
begin
if not CDWidgetset.DisableFormBackgroundDrawingProc(AForm) then
if lDrawControl then
DrawFormBackground(AImage, ACanvas);
end
else if lDrawControl then
DrawFormBackground(AImage, ACanvas);
// Consider the form scrolling