界面库

更新

designer/teditorform.tsf

@@ -758,6 +758,10 @@ type teditorform = class(TVCform) //
         if not it then return ;
         if o.Checked then return ;
         case o.Caption of 
+            c_e_none:
+            begin
+                it.currentcodeisnone();
+            end 
             c_e_ansi:
             begin
                 it.CurrentcodeIsAnsi();

designer/utslcodeeditor.tsf

@@ -1441,9 +1441,16 @@ type TPageEditerItem=class(TPageItem)
         FEnCode := "ANSI";
         FLastversion := "";
     end
+    function currentcodeisnone();
+    begin
+        if FEnCode="UTF8" then
+        begin
+            FEnCode := "None";
+        end   
+    end 
     function CurrentCodeIsUtf8();
     begin
-        if FEnCode="ANSI" then
+        if FEnCode="ANSI" or FEnCode="None" then
         begin
             s := FEditer.Text;
             try