From 47fba9613432600a91faa4fe911fa954803fee6e Mon Sep 17 00:00:00 2001
From: tombo <tombo@lazarus-ide.org>
Date: Sat, 1 Nov 2008 19:19:31 +0000
Subject: [PATCH] LCL carbon: TCarbonCustomControl allows focusing like edit
 control

git-svn-id: trunk@17181 -
---
 lcl/interfaces/carbon/carbonwscontrols.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbonwscontrols.pp b/lcl/interfaces/carbon/carbonwscontrols.pp
index 16a0563c86..8494283196 100644
--- a/lcl/interfaces/carbon/carbonwscontrols.pp
+++ b/lcl/interfaces/carbon/carbonwscontrols.pp
@@ -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;