编辑器

新打开的文本字体和当前的字体一样大小
2023-04-26 09:12:14 +08:00
parent 6c508d6a31
commit e72305506f
6 changed files with 56 additions and 15 deletions
@@ -2797,6 +2797,11 @@ type TEditer=class(TCustomcontrol) //
        nn := fl[0,"FileName"];
        if(POS("d",fl[0,"Attr"]))then return false;
        it := new TPageEditerItem(FPageEditer);
+        oit := GetCurrentEditer();
+        if oit then 
+        begin 
+            it.FEditer.font := oit.font;//font;
+        end 
        it.FDebuger := FTslDebug;
        it.FEditer.OnCaretChanged := thisfunction(EditerCaretChanged);
        it.FEditer.Parent := FPageEditer;