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

编辑器

Browse Source 
修正手误
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
Download Patch File Download Diff File Expand all files Collapse all files
designer/utslcodeeditor.tsf
+2 -2
View File
@@ -4246,7 +4246,7 @@ type thighlightercoloredter=class(tvcform)
begin begin
if flistboxchanging then return ; if flistboxchanging then return ;
idx := listbox1.ItemIndex; idx := listbox1.ItemIndex;
if idx >=0 and idx<7 then if idx <7 and idx>=0 then
begin begin
cl := colorcombobox1.getcurrentColor(); cl := colorcombobox1.getcurrentColor();
ffrontcolors[idx] := cl; ffrontcolors[idx] := cl;
@@ -4341,7 +4341,7 @@ type thighlightercoloredter=class(tvcform)
begin begin
ftcl := ffrontcolors[0]; ftcl := ffrontcolors[0];
cl := fbkcols[id]; cl := fbkcols[id];
end end
if cl>=0 or cl<0 then if cl>=0 or cl<0 then
begin begin
cvs.brush.Color := cl; cvs.brush.Color := cl;
funcext/tvclib/tslvcl.tsf
+1 -1
View File
@@ -1928,7 +1928,7 @@ type TColorbox=class(TcustomListBox)
r["color"] := cl; r["color"] := cl;
FitemData.splice(0,1,r); FitemData.splice(0,1,r);
p := parent ; p := parent ;
if p is TColorCombobox then p.Notification(self,"customcolorchanged"); if p is class(TColorCombobox) then p.Notification(self,"customcolorchanged");
end end
end end
fcustomcolor; fcustomcolor;