From 7712465e2cb6517c76ea20c18be832c2f772ae2a Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Thu, 23 Mar 2023 11:32:37 +0800
Subject: [PATCH] =?UTF-8?q?=E7=BC=96=E8=BE=91=E5=99=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

home
---
 funcext/tvclib/utslmemo.tsf | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/funcext/tvclib/utslmemo.tsf b/funcext/tvclib/utslmemo.tsf
index 272eb31..7c1bc79 100644
--- a/funcext/tvclib/utslmemo.tsf
+++ b/funcext/tvclib/utslmemo.tsf
@@ -1438,7 +1438,23 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
                 end
                 ecLineStart,ecSelLineStart:
                 begin
-                    MoveCaretAndSelection(array(fCaretY,fCaretX),array(fCaretY,1),ecSelLineStart=cmd);
+                    nx := 1;
+                    //////////////20230323 回到非空白行首/////////////////////////////////
+                    s := fLines.GetStringByIndex(fCaretY-1); //[fCaretY-1];
+                    if ifstring(s) and s then 
+                    begin
+                        for i := 1 to length(s) do
+                        begin
+                            vi := s[i];
+                            if vi<>" " or vi="\t" then 
+                            begin
+                                nx := i;
+                                break;
+                            end 
+                        end      
+                    end 
+                    //////////////////////////////
+                    MoveCaretAndSelection(array(fCaretY,fCaretX),array(fCaretY,nx),ecSelLineStart=cmd);
                 end
                 ecLeft,ecSelLeft:
                 begin