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

customdrawnws: Improves a little the debug info

Browse Source 
git-svn-id: trunk@33847 -
This commit is contained in:
sekelsenmat 2011-11-29 08:00:11 +00:00
parent 6ba94def54
commit 97e6bf6b03
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -189,19 +189,20 @@ end;
procedure RenderChildWinControls(var AImage: TLazIntfImage;
var ACanvas: TLazCanvas; ACDControlsList: TFPList);
var
i: Integer;
i, lChildrenCount: Integer;
lCDWinControl: TCDWinControl;
lWinControl: TWinControl;
struct : TPaintStruct;
begin
lChildrenCount := ACDControlsList.Count;
{$ifdef VerboseCDWinControl}
DebugLn(Format('[RenderChildWinControls] ACanvas=%x ACDControlsList=%x',
[PtrInt(ACanvas), PtrInt(ACDControlsList)]));
DebugLn(Format('[RenderChildWinControls] ACanvas=%x ACDControlsList=%x lChildrenCount=%d',
[PtrInt(ACanvas), PtrInt(ACDControlsList), lChildrenCount]));
{$endif}
FillChar(struct, SizeOf(TPaintStruct), 0);
struct.hdc := HDC(ACanvas);
for i := 0 to ACDControlsList.Count-1 do
for i := 0 to lChildrenCount-1 do
begin
lCDWinControl := TCDWinControl(ACDControlsList.Items[i]);
lWinControl := lCDWinControl.WinControl;