|
#1
|
||||
|
||||
Chart
Доброго дня всем.
Такой вопрос. Могу ли я изменить цвет столбца в графике с помощью 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; |