编辑器

优化memo

designer/utslvcldebuger.tsf

@@ -25,6 +25,7 @@ type TFTSLScriptcustomMemo=class(TSYNmemoNorm)
             "charset":0,"outprecision":0,"clipprecision":0,"quality":1,"pitchandfamily":1,"facename":"Courier New","color":0);
         //134
         //font := array("facename":"Courier New");
+        autogutterwidth := true;
     end
     function DoCaretPosChanged();override;
     begin
@@ -187,13 +188,13 @@ type TFTSLScriptcustomMemo=class(TSYNmemoNorm)
     end
     function DoTextChanged(p);override;
     begin
-        n := Lines.Length();
+        {n := Lines.Length();
         ccnt := GutterCharCnt;
-        nccnt := max(integer(n~10)+3,4);
+        nccnt := max(integer(n~10)+2,3);
         if ccnt <> nccnt then
         begin
             GutterCharCnt := nccnt;
-        end
+        end}
         inherited;
         SetChangeFlag(true);
     end