paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:59:16 +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 fdbf58735b
commit 89c95847d0
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; FUndoManager: NSUndoManager;
supressTextChangeEvent: Integer; // if above zero, then don't send text change event supressTextChangeEvent: Integer; // if above zero, then don't send text change event
keyCaptured: Boolean;
wantReturns: Boolean; wantReturns: Boolean;
procedure dealloc; override; procedure dealloc; override;
@ -129,7 +128,6 @@ type
procedure changeColor(sender: id); override; procedure changeColor(sender: id); override;
// keyboard // keyboard
procedure doCommandBySelector(aSelector: SEL); override;
procedure insertNewline(sender: id); override; procedure insertNewline(sender: id); override;
// mouse // mouse
procedure mouseDown(event: NSEvent); override; procedure mouseDown(event: NSEvent); override;
@ -169,13 +167,11 @@ type
// when switching "editable" (readonly) mode of NSTextField // when switching "editable" (readonly) mode of NSTextField
// see TCocoaWSCustomEdit.SetReadOnly // see TCocoaWSCustomEdit.SetReadOnly
goingReadOnly: Boolean; goingReadOnly: Boolean;
keyCaptured: Boolean;
function lclGetCallback: ICommonCallback; override; function lclGetCallback: ICommonCallback; override;
function becomeFirstResponder: LCLObjCBoolean; override; function becomeFirstResponder: LCLObjCBoolean; override;
procedure setDelegate(adelegate: NSTextDelegateProtocol); override; procedure setDelegate(adelegate: NSTextDelegateProtocol); override;
procedure lclReviseCursorColor; message 'lclReviseCursorColor'; procedure lclReviseCursorColor; message 'lclReviseCursorColor';
// keyboard // keyboard
procedure doCommandBySelector(aSelector: SEL); override;
procedure insertNewline(sender: id); override; procedure insertNewline(sender: id); override;
// mouse // mouse
procedure mouseDown(event: NSEvent); override; procedure mouseDown(event: NSEvent); override;
@ -789,12 +785,6 @@ begin
setInsertionPointColor(ReverseColor(clr)); setInsertionPointColor(ReverseColor(clr));
end; end;
procedure TCocoaFieldEditor.doCommandBySelector(aSelector: SEL);
begin
inherited doCommandBySelector(aSelector);
keyCaptured := False;
end;
procedure TCocoaFieldEditor.insertNewline(sender: id); procedure TCocoaFieldEditor.insertNewline(sender: id);
begin begin
// 10.6 cocoa handles the editors Return key as "insertNewLine" command (that makes sense) // 10.6 cocoa handles the editors Return key as "insertNewLine" command (that makes sense)
@ -1067,12 +1057,6 @@ begin
callback := nil; callback := nil;
end; end;
procedure TCocoaTextView.doCommandBySelector(aSelector: SEL);
begin
inherited doCommandBySelector(aSelector);
keyCaptured := False;
end;
procedure TCocoaTextView.insertNewline(sender: id); procedure TCocoaTextView.insertNewline(sender: id);
begin begin
if wantReturns then if wantReturns then