paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +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; procedure RenderChildWinControls(var AImage: TLazIntfImage;
var ACanvas: TLazCanvas; ACDControlsList: TFPList); var ACanvas: TLazCanvas; ACDControlsList: TFPList);
var var
i: Integer; i, lChildrenCount: Integer;
lCDWinControl: TCDWinControl; lCDWinControl: TCDWinControl;
lWinControl: TWinControl; lWinControl: TWinControl;
struct : TPaintStruct; struct : TPaintStruct;
begin begin
lChildrenCount := ACDControlsList.Count;
{$ifdef VerboseCDWinControl} {$ifdef VerboseCDWinControl}
DebugLn(Format('[RenderChildWinControls] ACanvas=%x ACDControlsList=%x', DebugLn(Format('[RenderChildWinControls] ACanvas=%x ACDControlsList=%x lChildrenCount=%d',
[PtrInt(ACanvas), PtrInt(ACDControlsList)])); [PtrInt(ACanvas), PtrInt(ACDControlsList), lChildrenCount]));
{$endif} {$endif}
FillChar(struct, SizeOf(TPaintStruct), 0); FillChar(struct, SizeOf(TPaintStruct), 0);
struct.hdc := HDC(ACanvas); struct.hdc := HDC(ACanvas);
for i := 0 to ACDControlsList.Count-1 do for i := 0 to lChildrenCount-1 do
begin begin
lCDWinControl := TCDWinControl(ACDControlsList.Items[i]); lCDWinControl := TCDWinControl(ACDControlsList.Items[i]);
lWinControl := lCDWinControl.WinControl; lWinControl := lCDWinControl.WinControl;