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

编辑器

Browse Source 
颜色自定义优化
This commit is contained in:
JianjunLiu
2023-04-11 14:17:07 +08:00
parent 0a4713c591
commit c3e7ddbc9f
4 changed files with 84 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
designer/utslcodeeditor.tsf
+7 -7
View File
@@ -4247,10 +4247,10 @@ type TEditer=class(TCustomcontrol) //
if ifobj(c[0])and ifobj(c[1])then
begin
h := CreateObject(c[0],ow);//Fhightercolor;
if n="tsl" then
begin
//if n="tsl" then
// begin
h.hightercolor := Fhightercolor;
end
//end
return array(h,CreateObject(c[1],ow));
end
end
@@ -4545,9 +4545,9 @@ type thighlightercoloredter=class(tvcform)
openfileadlg1:topenfileadlg;
function Create(AOwner);override; //构造
begin
fcolorindexname := array("字体","关键字","符号","注释","字符串","数字","系统函数","选中背景","当前行背景");
ffrontcolordefault := array(0,0x0000ff,0,0x228B22,0x8B008B,0x666666,0xcd0000,0,0);
fbkcolordefalut := zeros(7)+0xfafafa union array(rgb(192,192,192),rgb(232,232,255));
fcolorindexname := array("字体","关键字","符号","注释","字符串","数字","系统函数","选中背景","当前行背景","行号背景");
ffrontcolordefault := array(0,0x0000ff,0,0x228B22,0x8B008B,0x666666,0xcd0000,0,0,0);
fbkcolordefalut := zeros(7)+0xfafafa union array(rgb(192,192,192),rgb(232,232,255),rgb(228,228,228));
ffrontcolors := ffrontcolordefault;
fbkcols := fbkcolordefalut;
inherited;
@@ -4592,7 +4592,7 @@ type thighlightercoloredter=class(tvcform)
begin
if flistboxchanging then return ;
idx := listbox1.ItemIndex;
if idx in array(0,7,8) then
if idx in array(0,7,8,9) then
begin
cl := colorcombobox2.getcurrentColor();
fbkcols[idx] := cl;
designer/utslsynmemo.tsf
+44 -15
View File
@@ -10,6 +10,10 @@ type thighlitcolor = class(tcomponent)
inherited;
intitcolors();
end
function gutterbkcolor();
begin
return FColors["行号背景"];
end
function selbkcolor();
begin
return FColors["选中背景"];
@@ -62,7 +66,8 @@ type thighlitcolor = class(tcomponent)
array("字体":
("font":0,"back":16448250),"关键字":
("font":255,"back":16448250),"符号":
("font":0,"back":16448250),"注释":
("font":255,"back":16448250),"行号背景":
("font":0,"back":15000804),"注释":
("font":2263842,"back":16448250),"字符串":
("font":9109643,"back":16448250),"数字":
("font":6710886,"back":16448250),"系统函数":
@@ -74,7 +79,7 @@ type thighlitcolor = class(tcomponent)
begin
FColors["back"] := new tcolor(v["back"]);
end
if i in array("选中背景","当前行背景") then
if i in array("选中背景","当前行背景","行号背景") then
begin
FColors[i] := new tcolor(v["back"]);
end else
@@ -103,7 +108,7 @@ type thighlitcolor = class(tcomponent)
end else
begin
v.changed := false;
if i in array("选中背景","当前行背景") then
if i in array("选中背景","当前行背景","行号背景") then
begin
v.color := transblk(cls[i]["back"]);
end else
@@ -121,6 +126,10 @@ type thighlitcolor = class(tcomponent)
if i= "当前行背景" then
begin
cgd .|= 16;
end else
if i="行号背景" then
begin
cgd .|= 32;
end else
cgd .|= 1;
end
@@ -362,7 +371,6 @@ type TTslSynHighLighter = class(TSynHighLighter)
private
fpairbegin;
public
hightercolor;
fforcehtml;
function forcehtml(h);
begin
@@ -470,11 +478,14 @@ type TTslSynHighLighter = class(TSynHighLighter)
case tp of
'//','/*':
begin
d.FFColor := 0x8D9600;
if hightercolor then d.FFcolor := hightercolor.commentcolor() ;
else
d.FFColor := 0x8D9600;
end
'"',"'":
begin
d.FFColor := 0x968080;
begin
if hightercolor then d.FFcolor := hightercolor.strcolor() ;
else d.FFcolor := 0x968080;
end
"{":
begin
@@ -516,23 +527,33 @@ type TTslSynHighLighter = class(TSynHighLighter)
begin
if FJsWindows[bttk] then //
begin
d.FFColor := 0xFF0000;
if hightercolor then d.FFcolor := hightercolor.sysfunccolor() ;
else
d.FFColor := 0xFF0000;
end else
if FJsKeyWords[bttk] then // FE0064
begin
d.FFColor := 0xFF0000;
if hightercolor then d.FFcolor := hightercolor.keycolor() ;
else
d.FFColor := 0xFF0000;
end else
if FJsSysClass[bttk] then //
begin
d.FFColor := 0xFF0000;
if hightercolor then d.FFcolor := hightercolor.keycolor() ;
else
d.FFcolor := 0xcd0000;
end else
if FJsHtmlEvent[bttk] then //
begin
d.FFColor := 0xFF0000;
if hightercolor then d.FFcolor := hightercolor.sysfunccolor() ;
else
d.FFColor := 0xFF0000;
end else
if FCssPropertys[bttk] then
begin
d.FFColor := 0x0000FF;
if hightercolor then d.FFcolor := hightercolor.keycolor() ;
else
d.FFColor := 0x0000FF;
end
end
@@ -1440,16 +1461,24 @@ type TxmlSynHighLighter = class(tcustomsynhighlighter)
if st1=1 and st.state=1 then
begin
st.subitemadd();
if st.subitemcount()>1 then
begin
end else
begin
end
case d.FFColor of
stringcolor,symcolor:
begin
end else
begin
if st.subitemcount()>1 then
if st.subitemcount()>1 then
begin
d.FFColor := 0x0000ff;
d.FFColor := keywordcolor;// 0x0000ff;
end else
d.FFColor := 0xff0000;
d.FFColor := sysfuncolor;
end
end
designer/utslvcldebuger.tsf
+12 -1
View File
@@ -23,7 +23,8 @@ type TFTSLScriptcustomMemo=class(TSYNmemoNorm)
setbkc(hc.bkcolor().color);
setfc(hc.fontcolor().color);
setselbc(hc.selbkcolor().color);
curbc(hc.curbkcolor().color);
curbc(hc.curbkcolor().color);
setgutter(hc.gutterbkcolor().color);
end
end
function setselbc(bc);
@@ -31,6 +32,12 @@ type TFTSLScriptcustomMemo=class(TSYNmemoNorm)
if bc>0 then selectbkcolor := bc;
else selectbkcolor := rgb(192,192,192);
end
function setgutter(bc);
begin
if bc>0 then guttercolor := bc;
else guttercolor := rgb(228,228,288);
end
function curbc(bc);
begin
if bc>0 then currentLineColor := bc;
@@ -256,6 +263,10 @@ type TFTSLScriptcustomMemo=class(TSYNmemoNorm)
begin
curbc(a.curbkcolor().color);
end
if op["value"] .& 32 then
begin
setgutter(a.gutterbkcolor().color);
end
return ;
end
inherited;