编辑器-颜色

修正纯黑色的问题

designer/utslsynmemo.tsf

@@ -82,6 +82,10 @@ type thighlitcolor = class(tcomponent)
             end             
         end 
     end 
+    function transblk(c);
+    begin
+        return (c=0)?1:c;
+    end 
     function setcolors(cls);
     begin
         cgd := false;
@@ -91,7 +95,7 @@ type thighlitcolor = class(tcomponent)
             begin
                 v.changed := false;
                 bc := cls["字体"]["back"];
-                v.color := (bc=0)?1:bc;
+                v.color := transblk(bc);
                 if v.changed then 
                 begin
                     cgd .|= 2;
@@ -101,9 +105,9 @@ type thighlitcolor = class(tcomponent)
                 v.changed := false;
                 if i in array("选中背景","当前行背景") then 
                 begin 
-                    v.color := cls[i]["back"];                
+                    v.color := transblk(cls[i]["back"]);       
                 end else 
-                    v.color := cls[i]["font"];
+                    v.color := transblk(cls[i]["font"]);                    
                 if v.changed then 
                 begin
                     if i="字体" then