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

Cocoa: code related to ESC/ENTER in TCocoaTextView removed by IME fully supported

Browse Source
This commit is contained in:
rich2014 2023-08-02 23:27:11 +08:00
parent 5a4881d48f
commit 773acf5b20
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/cocoa/cocoatextedits.pas
View File

@ -131,7 +131,6 @@ type
// keyboard // keyboard
procedure doCommandBySelector(aSelector: SEL); override; procedure doCommandBySelector(aSelector: SEL); override;
procedure insertNewline(sender: id); override; procedure insertNewline(sender: id); override;
procedure keyDown(event: NSEvent); override;
// mouse // mouse
procedure mouseDown(event: NSEvent); override; procedure mouseDown(event: NSEvent); override;
procedure mouseUp(event: NSEvent); override; procedure mouseUp(event: NSEvent); override;
@ -1099,21 +1098,6 @@ begin
inherited insertNewline(sender); inherited insertNewline(sender);
end; end;
procedure TCocoaTextView.keyDown(event: NSEvent);
begin
// See TCocoaFieldEditor.keyDown
if Assigned(lclGetCallback) and (event.modifierFlags = 0) and
((NSEventRawKeyChar(event) = #13) or (NSEventRawKeyChar(event) = #27)) then
begin
keyCaptured := True;
inherited keyDown(event);
if keyCaptured then
lclGetCallback.KeyEvHandled;
end
else
inherited keyDown(event);
end;
procedure TCocoaTextView.mouseDown(event: NSEvent); procedure TCocoaTextView.mouseDown(event: NSEvent);
begin begin
if Assigned(callback) then if Assigned(callback) then