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

cocoa: using a single method to get unmodified character in a key event. based on the patch by Zoë Peterson. #35538

Browse Source 
git-svn-id: trunk@61212 -
This commit is contained in:
dmitry 2019-05-12 21:53:23 +00:00
parent 1740585023
commit e714d64672
1 changed files with 41 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
lcl/interfaces/cocoa/cocoawindows.pas
View File

@ -220,9 +220,21 @@ type
function performDragOperation(sender: NSDraggingInfoProtocol): LCLObjCBoolean; override;
end;
function NSEventRawKeyChar(ev: NSEvent): System.WideChar;
implementation
function NSEventRawKeyChar(ev: NSEvent): System.WideChar;
var
m : NSString;
begin
m := ev.charactersIgnoringModifiers;
if m.length <> 1 then
Result := #0
else
Result := System.WideChar(m.characterAtIndex(0));
end;
{ TCocoaDesignOverlay }
@ -287,6 +299,7 @@ end;
procedure NSResponderHotKeys(asender: NSResponder; event: NSEvent; var handled: LCLObjCBoolean; atarget: NSResponder);
var
undoManager: NSUndoManager;
ch : System.WideChar;
begin
// todo: system keys could be overriden. thus need to review the current
// keyboard configuration first. See "Key Bindings" at
@ -297,30 +310,28 @@ begin
begin
if ((event.modifierFlags and NSCommandKeyMask) = 0) then Exit;
if Assigned(event.charactersIgnoringModifiers.UTF8String) then
begin
case event.charactersIgnoringModifiers.UTF8String^ of
'a': handled := NSApplication(NSApp).sendAction_to_from(objcselector('selectAll:'), atarget, asender);
'c': handled := NSApplication(NSApp).sendAction_to_from(objcselector('copy:'), atarget, asender);
'v': handled := NSApplication(NSApp).sendAction_to_from(objcselector('paste:'), atarget, asender);
'x': handled := NSApplication(NSApp).sendAction_to_from(objcselector('cut:'), atarget, asender);
'z':
ch := NSEventRawKeyChar(event);
case ch of
'a': handled := NSApplication(NSApp).sendAction_to_from(objcselector('selectAll:'), atarget, asender);
'c': handled := NSApplication(NSApp).sendAction_to_from(objcselector('copy:'), atarget, asender);
'v': handled := NSApplication(NSApp).sendAction_to_from(objcselector('paste:'), atarget, asender);
'x': handled := NSApplication(NSApp).sendAction_to_from(objcselector('cut:'), atarget, asender);
'z':
begin
undoManager := atarget.undoManager;
if Assigned(undoManager) and undoManager.canUndo then
begin
undoManager := atarget.undoManager;
if Assigned(undoManager) and undoManager.canUndo then
begin
handled := true;
undoManager.undo;
end;
handled := true;
undoManager.undo;
end;
'Z':
end;
'Z':
begin
undoManager := atarget.undoManager;
if Assigned(undoManager) and undoManager.canRedo then
begin
undoManager := atarget.undoManager;
if Assigned(undoManager) and undoManager.canRedo then
begin
handled := true;
undoManager.redo;
end;
handled := true;
undoManager.redo;
end;
end;
end;
@ -331,21 +342,22 @@ function TCocoaWindowContent.performKeyEquivalent(event: NSEvent): LCLObjCBoolea
var
resp : NSResponder;
wn : NSWindow;
ch : System.WideChar;
begin
Result := false;
// If the form has a default or cancel button, capture Return and Escape to
// prevent further processing. Actually clicking the buttons is handled in
// the LCL in response to the keyUp
if Assigned(wincallback) and (event.modifierFlags_ = 0) and
(event.charactersIgnoringModifiers.length = 1) and
(((event.charactersIgnoringModifiers.characterAtIndex(0) = NSCarriageReturnCharacter) and
wincallback.HasDefaultControl) or
((event.charactersIgnoringModifiers.characterAtIndex(0) = 27{Escape}) and
wincallback.HasCancelControl)) then
if Assigned(wincallback) and (event.modifierFlags_ = 0) then
begin
Result := true;
Exit;
ch := NSEventRawKeyChar(event);
if (((ch = System.WideChar(NSCarriageReturnCharacter)) and wincallback.HasDefaultControl)
or ((ch = #27{Escape}) and wincallback.HasCancelControl)) then
begin
Result := true;
Exit;
end;
end;
// Support Cut/Copy/Paste if the firstResponder is an NSTextView.