paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 19:40:54 +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

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

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