parent
7859332e70
commit
a9583c24b2
|
|
@ -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;
|
||||||
|
|
|
||||||
|
|
@ -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;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue