From de83f713f238df31a511e8c965b0143fe6975d4b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 3 Aug 2007 11:00:35 +0000
Subject: [PATCH] gtk intf: implemented changing keys via OnUTF8KeyPress

git-svn-id: trunk@11725 -
---
 lcl/interfaces/gtk/gtkproc.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index ac2186c8fa..a19a2ed97c 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -2387,7 +2387,14 @@ begin
           // send the key after navigation keys were handled
           Result := TWinControl(LCLObject).IntfUTF8KeyPress(Character, 1, SysKey);
           if Result or (Character = '')
-          then StopKeyEvent('key_press_event');
+          then StopKeyEvent('key_press_event')
+          else if (Length(Character) = 1) then
+          begin
+            AEvent^.KeyVal:=ord(Character[1]);
+            AEvent^.length:=1;
+            EventString^:=Character[1];
+            EventString[1]:=#0;
+          end;
         end;
       end;
     end;