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

LCL: FindNextControl returns first control, if the current control is not in the taborder list (fixes #9390) from Gerard Visent

Browse Source 
git-svn-id: trunk@11765 -
This commit is contained in:
vincents 2007-08-09 20:51:31 +00:00
parent 061c5c6ee3
commit fd3816388c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/wincontrol.inc
View File

@ -2800,7 +2800,12 @@ begin
//end; //end;
If List.Count > 0 then begin If List.Count > 0 then begin
J := List.IndexOf(CurrentControl); J := List.IndexOf(CurrentControl);
if J<0 then exit; if J<0 then begin
if GoForward then
J := List.Count - 1
else
J := 0;
end;
//DebugLn('TWinControl.FindNextControl A ',DbgSName(CurrentControl),' ',dbgs(J), //DebugLn('TWinControl.FindNextControl A ',DbgSName(CurrentControl),' ',dbgs(J),
// ' GoForward='+dbgs(GoForward)+' CheckTabStop='+dbgs(CheckTabStop)+' CheckParent='+dbgs(CheckParent)); // ' GoForward='+dbgs(GoForward)+' CheckTabStop='+dbgs(CheckTabStop)+' CheckParent='+dbgs(CheckParent));
I := J; I := J;