paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: IME: TCocoaCustomControl.markedRange() and selectedRange() added

Browse Source
This commit is contained in:
rich2014 2023-07-05 00:35:27 +08:00
parent 019b57e4ce
commit 2cff36a203
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/cocoa/cocoaprivate.pas
View File

@ -663,7 +663,7 @@ var
begin
if not _inIME then exit;
textView:= NSTextView(self.window.fieldEditor_forObject(false,nil));
textView:= NSTextView(self.window.fieldEditor_forObject(true,nil));
if Assigned(textView) then
textView.removeFromSuperview;
@ -683,7 +683,7 @@ begin
if nsText.length > 0 then
begin
_inIME:= true;
textView:= NSTextView(self.window.fieldEditor_forObject(false,nil));
textView:= NSTextView(self.window.fieldEditor_forObject(true,nil));
if Assigned(textView) then
textView.setMarkedText_selectedRange_replacementRange(aString,selectedRange,replacementRange);
end
@ -713,13 +713,25 @@ begin
end;
function TCocoaCustomControl.selectedRange: NSRange;
var
textView: NSTextView;
begin
Result := NSMakeRange(0,0);
textView:= NSTextView(self.window.fieldEditor_forObject(true,nil));
if not Assigned(textView) then
Result:= NSMakeRange( NSNotFound, 0 )
else
Result:= textView.selectedRange;
end;
function TCocoaCustomControl.markedRange: NSRange;
var
textView: NSTextView;
begin
Result := NSMakeRange(0,0);
textView:= NSTextView(self.window.fieldEditor_forObject(true,nil));
if not Assigned(textView) then
Result:= NSMakeRange( NSNotFound, 0 )
else
Result:= textView.markedRange;
end;
function TCocoaCustomControl.attributedSubstringForProposedRange_actualRange(