From b35fdf9df91f5b2a5ad7dc9fa247a98301e7999c Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Wed, 30 Apr 2008 17:45:39 +0000
Subject: [PATCH] Qt: Fixed #10880, invisible scrollbars under MacOsX

git-svn-id: trunk@15020 -
---
 lcl/interfaces/qt/qtwidgets.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 06c7af4446..6b47db6fbc 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -1779,6 +1779,7 @@ begin
     WriteLn('sending char ', UTF8Char);
   {$endif}
     if LCLObject.IntfUTF8KeyPress(UTF8Char, 1, IsSysKey) then
+    // if LCLObject.IntfUTF8KeyPress(TUTF8Char(UTF8Encode(Text)), 1, IsSysKey) then
     begin
       // the LCL has handled the key
   {$ifdef VerboseQt}
@@ -4360,6 +4361,7 @@ end;
 function TQtScrollBar.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
   cdecl;
 begin
+  beginEventProcessing;
   case QEvent_type(Event) of
     QEventKeyPress,
     QEventKeyRelease: Result := False;
@@ -4367,6 +4369,10 @@ begin
     if FOwnWidget then
       Result := inherited EventFilter(Sender, Event);
   end;
+  endEventProcessing;
+  {$IFDEF DARWIN}
+  Result := False;
+  {$ENDIF}
 end;
 
 procedure TQtScrollBar.AttachEvents;