Доброго дня всем.
Такой вопрос. Могу ли я изменить цвет столбца в графике с помощью ColorDialog?
Таким образом я получаю координаты:
Код:
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var r :Real;
r1, r2 :String;
begin
R := Chart1.Series[0].XScreenToValue(X);
Edit01.Text:= FloatToStr(R);
R1:=Edit01.Text;
r2:=Copy(r1,1,Pos(',',r1)-1);
Edit02.Text:=r2;
if
r2='1'
then
begin
N1.Visible:=True;
N2.Visible:=False;
end;
if
r2='2'
then
begin
N1.Visible:=False;
N2.Visible:=True;
end;
То есть я знаю положение курсора и соответственно могу нажатием на N1 или N2 вызвать ColorDialog. Получается что при нажатии на N1 я получаю в ColorDialog текущий цвет, а при закрытии ColorDialog меняется цвет в графике. Хочется иметь возможность поменять цвет, не правя код, а в процессе работы. Edit01, Edit02 для визуального контроля при наладке, потом уберу. Благодарю за помощь.