[fofka]

Доброго дня всем.
Такой вопрос. Могу ли я изменить цвет столбца в графике с помощью ColorDialog?
Таким образом я получаю координаты:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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 для визуального контроля при наладке, потом уберу. Благодарю за помощь.