paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:19:28 +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;
{------------------------------------------------------------------------------
TWinControl FindChildControl
TWinControl SelectNext
Find next control (Tab control or Child control).
Like VCL the CurControl parameter is ignored.
@ -4066,11 +4066,12 @@ begin
Result := nil;
if FWinControls <> nil then
for I := 0 to FWinControls.Count - 1 do
if CompareText(TWinControl(FWinControls[I]).Name, ControlName) = 0 then
begin
Result := TControl(FWinControls[I]);
Exit;
end;
if CompareText(TControl(FWinControls[I]).Name, ControlName) = 0 then
Exit(TControl(FWinControls[I]));
if FControls <> nil then
for I := 0 to FControls.Count - 1 do
if CompareText(TControl(FControls[I]).Name, ControlName) = 0 then
Exit(TControl(FControls[I]));
end;
procedure TWinControl.FlipChildren(AllLevels: Boolean);