paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Fixes regression which broke letter typing in TMemo

Browse Source 
git-svn-id: trunk@49822 -
This commit is contained in:
sekelsenmat 2015-09-14 04:52:18 +00:00
parent 1fc9cadb0e
commit e36458af79
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -1889,19 +1889,22 @@ end;
procedure TCocoaTextView.keyDown(event: NSEvent); procedure TCocoaTextView.keyDown(event: NSEvent);
begin begin
if not Assigned(callback) or not callback.KeyEvent(event) then if Assigned(callback) then callback.KeyEvent(event);
// don't skip inherited or else key input won't work
inherited keyDown(event); inherited keyDown(event);
end; end;
procedure TCocoaTextView.keyUp(event: NSEvent); procedure TCocoaTextView.keyUp(event: NSEvent);
begin begin
if not Assigned(callback) or not callback.KeyEvent(event) then if Assigned(callback) then callback.KeyEvent(event);
// don't skip inherited or else key input won't work
inherited keyUp(event); inherited keyUp(event);
end; end;
procedure TCocoaTextView.flagsChanged(event: NSEvent); procedure TCocoaTextView.flagsChanged(event: NSEvent);
begin begin
if not Assigned(callback) or not callback.KeyEvent(event) then if Assigned(callback) then callback.KeyEvent(event);
// don't skip inherited or else key input won't work
inherited flagsChanged(event); inherited flagsChanged(event);
end; end;