From 526e4343a1647750e82e2eda5efcf1ffbd59f11b Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Thu, 13 Oct 2022 15:20:07 +0800
Subject: [PATCH] =?UTF-8?q?=E8=AE=BE=E8=AE=A1=E5=99=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

浼樺寲
---
 designer/utslvcldebuger.tsf        | 7 -------
 designer/utslvcldpropertytypes.tsf | 1 +
 funcext/tvclib/utslmemo.tsf        | 4 ++--
 3 files changed, 3 insertions(+), 9 deletions(-)

diff --git a/designer/utslvcldebuger.tsf b/designer/utslvcldebuger.tsf
index 9156fe6..b31dac9 100644
--- a/designer/utslvcldebuger.tsf
+++ b/designer/utslvcldebuger.tsf
@@ -188,13 +188,6 @@ type TFTSLScriptcustomMemo=class(TSYNmemoNorm)
     end
     function DoTextChanged(p);override;
     begin
-        {n := Lines.Length();
-        ccnt := GutterCharCnt;
-        nccnt := max(integer(n~10)+2,3);
-        if ccnt <> nccnt then
-        begin
-            GutterCharCnt := nccnt;
-        end}
         inherited;
         SetChangeFlag(true);
     end
diff --git a/designer/utslvcldpropertytypes.tsf b/designer/utslvcldpropertytypes.tsf
index 3845355..4d7cbc3 100644
--- a/designer/utslvcldpropertytypes.tsf
+++ b/designer/utslvcldpropertytypes.tsf
@@ -3433,6 +3433,7 @@ type TtextEditor = class(tpanel)
         wssysmenu := true;
         caption := "text Editor Dialog";
         memo := new tmemo(self);
+        memo.autogutterwidth := true;
         memo.OnKeyPress := thisfunction(MemoKeyPress);
         memo.parent :=self;
         btn1 := new tbtn(self);
diff --git a/funcext/tvclib/utslmemo.tsf b/funcext/tvclib/utslmemo.tsf
index a524601..c76672b 100644
--- a/funcext/tvclib/utslmemo.tsf
+++ b/funcext/tvclib/utslmemo.tsf
@@ -1222,8 +1222,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
     end
     function DoTextChanged(p);virtual;//文本改变
     begin
-        //改变 
-        autosetgtwidth();       
+        //改变      
     end
     function DoCaretPosChanged();virtual;//caret位置改变
     begin
@@ -1687,6 +1686,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
         begin
             fRedoList.Clear();
         end 
+        autosetgtwidth();  
         return DoTextChanged(p);
     end 
     function  setcurrentLineColor(c);