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

Cocoa: code related to doCommandBySelector in TCocoaTextView/TCocoaFieldEditor removed by IME fully supported

Browse Source
This commit is contained in:
rich2014 2023-08-02 23:30:24 +08:00
parent d22cb41304
commit 8ea0686adc
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

@ -119,7 +119,6 @@ type
FUndoManager: NSUndoManager;
supressTextChangeEvent: Integer; // if above zero, then don't send text change event
keyCaptured: Boolean;
wantReturns: Boolean;
procedure dealloc; override;
@ -129,7 +128,6 @@ type
procedure changeColor(sender: id); override;
// keyboard
procedure doCommandBySelector(aSelector: SEL); override;
procedure insertNewline(sender: id); override;
// mouse
procedure mouseDown(event: NSEvent); override;
@ -169,13 +167,11 @@ type
// when switching "editable" (readonly) mode of NSTextField
// see TCocoaWSCustomEdit.SetReadOnly
goingReadOnly: Boolean;
keyCaptured: Boolean;
function lclGetCallback: ICommonCallback; override;
function becomeFirstResponder: LCLObjCBoolean; override;
procedure setDelegate(adelegate: NSTextDelegateProtocol); override;
procedure lclReviseCursorColor; message 'lclReviseCursorColor';
// keyboard
procedure doCommandBySelector(aSelector: SEL); override;
procedure insertNewline(sender: id); override;
// mouse
procedure mouseDown(event: NSEvent); override;
@ -789,12 +785,6 @@ begin
setInsertionPointColor(ReverseColor(clr));
end;
procedure TCocoaFieldEditor.doCommandBySelector(aSelector: SEL);
begin
inherited doCommandBySelector(aSelector);
keyCaptured := False;
end;
procedure TCocoaFieldEditor.insertNewline(sender: id);
begin
// 10.6 cocoa handles the editors Return key as "insertNewLine" command (that makes sense)
@ -1067,12 +1057,6 @@ begin
callback := nil;
end;
procedure TCocoaTextView.doCommandBySelector(aSelector: SEL);
begin
inherited doCommandBySelector(aSelector);
keyCaptured := False;
end;
procedure TCocoaTextView.insertNewline(sender: id);
begin
if wantReturns then