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

lcl: fix FindNextControl when we need next control from nil and parent has only 1 control in list

Browse Source 
git-svn-id: trunk@18158 -
This commit is contained in:
paul 2009-01-06 10:07:15 +00:00
parent fe9817813b
commit ff9a4a9b4f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/wincontrol.inc
View File

@ -4019,9 +4019,10 @@ begin
if I<0 then if I<0 then
I:=List.Count-1; I:=List.Count-1;
end; end;
if I=J then exit;
Next := TWinControl(List[I]); Next := TWinControl(List[I]);
if Next = CurrentControl then
Exit;
//DebugLn('TWinControl.FindNextControl B ',Next.Name,' ',dbgs(I), //DebugLn('TWinControl.FindNextControl B ',Next.Name,' ',dbgs(I),
// +' ChckTabStop='+dbgs(CheckTabStop)+' TabStop='+dbgs(Next.TabStop) // +' ChckTabStop='+dbgs(CheckTabStop)+' TabStop='+dbgs(Next.TabStop)
// +' ChckParent='+dbgs(CheckParent)+' Parent=Self='+dbgs(Next.Parent = Self) // +' ChckParent='+dbgs(CheckParent)+' Parent=Self='+dbgs(Next.Parent = Self)