From dacdf789265e56969e7d83d8f54be70a748cc2cf Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Sun, 22 Jul 2018 05:26:32 +0000
Subject: [PATCH] cocoa: adding keyUp handler for cocoa ComboBox

git-svn-id: trunk@58591 -
---
 lcl/interfaces/cocoa/cocoatextedits.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lcl/interfaces/cocoa/cocoatextedits.pas b/lcl/interfaces/cocoa/cocoatextedits.pas
index ef2222ad6a..11532954ec 100644
--- a/lcl/interfaces/cocoa/cocoatextedits.pas
+++ b/lcl/interfaces/cocoa/cocoatextedits.pas
@@ -207,6 +207,7 @@ type
     procedure comboBoxSelectionDidChange(notification: NSNotification); message 'comboBoxSelectionDidChange:';
     procedure comboBoxSelectionIsChanging(notification: NSNotification); message 'comboBoxSelectionIsChanging:';
     //
+    procedure keyUp(event: NSEvent); override;
     function lclIsHandle: Boolean; override;
     procedure setStringValue(avalue: NSString); override;
     // mouse
@@ -1071,6 +1072,15 @@ begin
   callback.ComboBoxSelectionIsChanging;
 end;
 
+procedure TCocoaComboBox.keyUp(event: NSEvent);
+begin
+  if Assigned(callback) then
+  begin
+    callback.KeyEvent(event);
+  end;
+  inherited keyUp(event);
+end;
+
 function TCocoaComboBox.acceptsFirstMouse(event: NSEvent): Boolean;
 begin
   Result:=true;