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

lcl: modify TWinControl.FindChildControl to search also for TControl descendants (not only TWinControl. by report from Russian forum)

Browse Source 
git-svn-id: trunk@20705 -
This commit is contained in:
paul 2009-06-22 06:54:28 +00:00
parent 36a98d84f6
commit bc55fefead
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/wincontrol.inc
View File

@ -4037,7 +4037,7 @@ begin
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TWinControl FindChildControl TWinControl SelectNext
Find next control (Tab control or Child control). Find next control (Tab control or Child control).
Like VCL the CurControl parameter is ignored. Like VCL the CurControl parameter is ignored.
@ -4066,11 +4066,12 @@ begin
Result := nil; Result := nil;
if FWinControls <> nil then if FWinControls <> nil then
for I := 0 to FWinControls.Count - 1 do for I := 0 to FWinControls.Count - 1 do
if CompareText(TWinControl(FWinControls[I]).Name, ControlName) = 0 then if CompareText(TControl(FWinControls[I]).Name, ControlName) = 0 then
begin Exit(TControl(FWinControls[I]));
Result := TControl(FWinControls[I]); if FControls <> nil then
Exit; for I := 0 to FControls.Count - 1 do
end; if CompareText(TControl(FControls[I]).Name, ControlName) = 0 then
Exit(TControl(FControls[I]));
end; end;
procedure TWinControl.FlipChildren(AllLevels: Boolean); procedure TWinControl.FlipChildren(AllLevels: Boolean);