设计器

优化

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

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);

funcext/tvclib/utslmemo.tsf

@@ -1223,7 +1223,6 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
     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);