编辑器

home

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