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

checking CanTab when selecting the next tab target. based on patch by David Jenkins. bug #21752

Browse Source 
git-svn-id: branches/macosfullkeyboardaccess@62722 -
This commit is contained in:
dmitry 2020-03-08 22:52:37 +00:00
parent 0b13418dc4
commit d6c4266a3d
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/include/wincontrol.inc
View File

@ -4601,7 +4601,7 @@ begin
+' TestEnVi='+dbgs(Next.Enabled and Next.IsVisible)]);}
if (((not CheckTabStop) or Next.TabStop)
and ((not CheckParent) or (Next.Parent = Self)))
and (Next.Enabled and Next.IsVisible) then
and (Next.CanTab and Next.IsVisible) then
Result := Next;
// if we reached the start then exit because we traversed the loop and