paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL carbon: reverted 17463 #4a42c817e5 as Dmitry Boyarintsev pointed

Browse Source 
git-svn-id: trunk@17470 -
This commit is contained in:
tombo 2008-11-20 09:55:50 +00:00
parent b5f8b6bb2a
commit 88c3884a6d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbonprivatecommon.inc
View File

@ -323,7 +323,7 @@ var
const
SName = 'CarbonCommon_SetFocusPart';
begin
if AWidget is TCarbonWindow then
if not (AWidget is TCarbonCustomControl) or (AWidget is TCarbonWindow) then
Result := CallNextEventHandler(ANextHandler, AEvent);
if OSError(