From 7010173b692235dbe6eec44e67e23a76020df0df Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Thu, 19 Sep 2024 20:48:16 +0800
Subject: [PATCH] Cocoa: add util NSControlMoveCaretToTheEnd()

---
 lcl/interfaces/cocoa/cocoautils.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lcl/interfaces/cocoa/cocoautils.pas b/lcl/interfaces/cocoa/cocoautils.pas
index f641ca4157..660be4094b 100644
--- a/lcl/interfaces/cocoa/cocoautils.pas
+++ b/lcl/interfaces/cocoa/cocoautils.pas
@@ -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;