liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

编辑器-颜色 

修正纯黑色的问题
This commit is contained in:
JianjunLiu 2023-03-29 10:25:22 +08:00
parent dce0557be3
commit 9c506629ec
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/utslsynmemo.tsf
View File

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