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

Cocoa: add util NSControlMoveCaretToTheEnd()

Browse Source
This commit is contained in:
rich2014 2024-09-19 20:48:16 +08:00
parent b33ed34bed
commit 7010173b69
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/cocoa/cocoautils.pas
View File

@ -84,6 +84,7 @@ function GetNSText(text: NSText): string; inline;
procedure SetNSControlValue(c: NSControl; const S: String); inline;
function GetNSControlValue(c: NSControl): String; inline;
procedure NSControlMoveCaretToTheEnd(c: NSControl);
procedure ColorToRGBFloat(cl: TColorRef; var r,g,b: Single); inline;
function RGBToColorFloat(r,g,b: Single): TColorRef; inline;
@ -1062,6 +1063,17 @@ begin
Result := '';
end;
procedure NSControlMoveCaretToTheEnd(c: NSControl);
var
range: NSRange;
begin
if c.currentEditor <> nil then begin
range.location:= NSUIntegerMax;
range.length:= 0;
c.currentEditor.setSelectedRange( range );
end;
end;
{ NSLCLDebugExtension }
function NSLCLDebugExtension.lclClassName: shortstring;