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

编辑器 

修正手误
This commit is contained in:
JianjunLiu 2023-01-13 17:35:58 +08:00
parent 7859332e70
commit a9583c24b2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/utslcodeeditor.tsf
View File

@ -4246,7 +4246,7 @@ type thighlightercoloredter=class(tvcform)
begin
if flistboxchanging then return ;
idx := listbox1.ItemIndex;
if idx >=0 and idx<7 then
if idx <7 and idx>=0 then
begin
cl := colorcombobox1.getcurrentColor();
ffrontcolors[idx] := cl;
@ -4341,7 +4341,7 @@ type thighlightercoloredter=class(tvcform)
begin
ftcl := ffrontcolors[0];
cl := fbkcols[id];
end
end
if cl>=0 or cl<0 then
begin
cvs.brush.Color := cl;

2
funcext/tvclib/tslvcl.tsf
View File

@ -1928,7 +1928,7 @@ type TColorbox=class(TcustomListBox)
r["color"] := cl;
FitemData.splice(0,1,r);
p := parent ;
if p is TColorCombobox then p.Notification(self,"customcolorchanged");
if p is class(TColorCombobox) then p.Notification(self,"customcolorchanged");
end
end
fcustomcolor;