编辑器

home
2023-03-23 11:32:37 +08:00 · 2023-03-23 11:32:37 +08:00 · 7712465e2c
parent 7ba6a5b974
commit 7712465e2c
1 changed files with 17 additions and 1 deletions
--- 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