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

lcl: TCustomForm.SetActiveControl: debugging

Browse Source 
git-svn-id: trunk@57900 -
This commit is contained in:
mattias 2018-05-11 19:57:30 +00:00
parent 7b4fa8c326
commit 24a1327b6a
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/customform.inc
View File

@ -1905,10 +1905,16 @@ begin
(GetParentForm(AWinControl) <> Self) or (GetParentForm(AWinControl) <> Self) or
not ((csLoading in ComponentState) or AWinControl.CanFocus) then not ((csLoading in ComponentState) or AWinControl.CanFocus) then
begin begin
DebugLn('TCustomForm.SetActiveControl ',DbgSName(Self),' AWinControl=',DbgSName(AWinControl),' GetParentForm(AWinControl)=', DebugLn(['TCustomForm.SetActiveControl ',DbgSName(Self),' AWinControl=',DbgSName(AWinControl),' GetParentForm(AWinControl)=',
DbgSName(GetParentForm(AWinControl)),' csLoading=',dbgs(csLoading in ComponentState),' AWinControl.CanFocus=', DbgSName(GetParentForm(AWinControl)),'=Self=',GetParentForm(AWinControl) = Self,
dbgs((AWinControl<>nil) and AWinControl.CanFocus),' IsControlVisible=',dbgs((AWinControl<>nil) and AWinControl.IsControlVisible), ' csLoading=',csLoading in ComponentState,
' Enabled=',dbgs((AWinControl<>nil) and AWinControl.Enabled)); ' AWinControl.CanFocus=',AWinControl.CanFocus,
' IsControlVisible=',AWinControl.IsControlVisible,
' Enabled=',AWinControl.Enabled]);
while AWinControl<>nil do begin
debugln([' ',DbgSName(AWinControl),' IsControlVisible=',AWinControl.IsControlVisible,' Enabled=',AWinControl.Enabled,' CanFocus=',AWinControl.CanFocus]);
AWinControl:=AWinControl.Parent;
end;
{$IFDEF VerboseFocus} {$IFDEF VerboseFocus}
RaiseGDBException(SCannotFocus); RaiseGDBException(SCannotFocus);
{$ELSE} {$ELSE}