paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 21:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: Better fix for invisible scrollbar under MacOsX.

Browse Source 
git-svn-id: trunk@15033 -
This commit is contained in:
zeljko 2008-05-03 09:23:14 +00:00
parent 749bbc330b
commit c6d254fe3e
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/qt/qtwidgets.pas
View File

@ -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;