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

LCL carbon: TCarbonCustomControl allows focusing like edit control

Browse Source 
git-svn-id: trunk@17181 -
This commit is contained in:
tombo 2008-11-01 19:19:31 +00:00
parent 6f54fbf55a
commit 47fba96134
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/interfaces/carbon/carbonwscontrols.pp
View File

@ -332,7 +332,8 @@ begin
Result := True
else
Result := (TCarbonWidget(AWincontrol.Handle) is TCarbonControlWithEdit) or
(TCarbonWidget(AWincontrol.Handle) is TCarbonDataBrowser);
(TCarbonWidget(AWincontrol.Handle) is TCarbonDataBrowser) or
(TCarbonWidget(AWincontrol.Handle) is TCarbonCustomControl);
end;
end;