编辑器

优化memo
2022-10-13 15:06:39 +08:00
parent b4a34c10eb
commit 9b652672e8
3 changed files with 40 additions and 12 deletions
@@ -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