paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 03:37:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: improved debugging

Browse Source 
git-svn-id: trunk@26249 -
This commit is contained in:
mattias 2010-06-22 07:13:04 +00:00
parent c94fd8c234
commit 4c66e3d41c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -3487,7 +3487,7 @@ begin
if CurReferenceControl=Owner then begin
// circle
{$IFNDEF DisableChecks}
DebugLn(['TAnchorSide.GetSidePosition Circle, ',DbgSName(Owner)]);
DebugLn(['TAnchorSide.GetSidePosition Circle, ',DbgSName(Owner),' ',dbgs(Kind)]);
{$ENDIF}
ReferenceControl:=nil;
exit(false);
@ -3498,7 +3498,7 @@ begin
// the chain has more elements than there are siblings -> circle
//if CheckPosition(Owner) then
{$IFNDEF DisableChecks}
DebugLn(['TAnchorSide.GetSidePosition Circle, ',DbgSName(Owner)]);
DebugLn(['TAnchorSide.GetSidePosition Circle, ',DbgSName(Owner),' ',dbgs(Kind)]);
{$ENDIF}
ReferenceControl:=nil;
exit(false);
@ -3510,7 +3510,7 @@ begin
// not a sibling and not the parent -> invalid AnchorSide
//if CheckPosition(Owner) then DebugLn(['TAnchorSide.GetSidePosition invalid AnchorSide ',dbgsName(ReferenceControl)]);
{$IFNDEF DisableChecks}
DebugLn(['TAnchorSide.GetSidePosition invalid anchor control, ',DbgSName(Owner)]);
DebugLn(['TAnchorSide.GetSidePosition invalid anchor control, ',DbgSName(Owner),' ',dbgs(Kind)]);
{$ENDIF}
ReferenceControl:=nil;
exit(false);