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

lcl: debugging

Browse Source
This commit is contained in:
mattias 2023-11-01 00:00:38 +01:00
parent 434020fe78
commit 0f4eb93052
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -4262,7 +4262,7 @@ begin
// not a sibling and not the parent -> invalid AnchorSide // not a sibling and not the parent -> invalid AnchorSide
//if CheckPosition(Owner) then DebugLn(['TAnchorSide.GetSidePosition invalid AnchorSide ',dbgsName(ReferenceControl)]); //if CheckPosition(Owner) then DebugLn(['TAnchorSide.GetSidePosition invalid AnchorSide ',dbgsName(ReferenceControl)]);
{$IFNDEF VerboseAnchorSide} {$IFNDEF VerboseAnchorSide}
DebugLn(['TAnchorSide.CheckSidePosition invalid anchor control, ',DbgSName(Owner),' ',dbgs(Kind)]); DebugLn(['TAnchorSide.CheckSidePosition invalid anchor control, ',DbgSName(Owner),' ',dbgs(Kind),' OwnerParent=',DbgSName(OwnerParent),' CurReferenceControl=',DbgSName(CurReferenceControl)]);
{$ENDIF} {$ENDIF}
ReferenceControl:=nil; ReferenceControl:=nil;
exit; exit;