From c6d254fe3ecbc2ae31bd275a9c5fe188c68dcd97 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 3 May 2008 09:23:14 +0000
Subject: [PATCH] Qt: Better fix for invisible scrollbar under MacOsX.

git-svn-id: trunk@15033 -
---
 lcl/interfaces/qt/qtwidgets.pas | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 6b47db6fbc..b95be8670c 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -1779,7 +1779,6 @@ 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}
@@ -4363,6 +4362,15 @@ function TQtScrollBar.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
 begin
   beginEventProcessing;
   case QEvent_type(Event) of
+    {$IFDEF DARWIN}
+    {if any of those events returs TRUE our scrollbar becomes invisible.}
+    QEventMouseButtonPress,
+    QEventMouseButtonRelease,
+    QEventMouseButtonDblClick,
+    QEventMouseMove,
+    QEventWheel,
+    QEventPaint,
+    {$ENDIF}
     QEventKeyPress,
     QEventKeyRelease: Result := False;
   else
@@ -4370,9 +4378,6 @@ begin
       Result := inherited EventFilter(Sender, Event);
   end;
   endEventProcessing;
-  {$IFDEF DARWIN}
-  Result := False;
-  {$ENDIF}
 end;
 
 procedure TQtScrollBar.AttachEvents;