diff --git a/designer/utslcodeeditor.tsf b/designer/utslcodeeditor.tsf index 57fb12e..981be85 100644 --- a/designer/utslcodeeditor.tsf +++ b/designer/utslcodeeditor.tsf @@ -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; diff --git a/funcext/tvclib/tslvcl.tsf b/funcext/tvclib/tslvcl.tsf index d3bd721..e5b804b 100644 --- a/funcext/tvclib/tslvcl.tsf +++ b/funcext/tvclib/tslvcl.tsf @@ -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;