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

Qt: Fixed #10880, invisible scrollbars under MacOsX

Browse Source 
git-svn-id: trunk@15020 -
This commit is contained in:
zeljko 2008-04-30 17:45:39 +00:00
parent 72d48b5170
commit b35fdf9df9
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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