Работа с компонентом Chart

[KuevProger]

У меня такой вопрос есть Chart нужно сделать чтоб в процессе работы с ним можно было выставлять параметры графика т.е создал панельку на графике(ко-во делений Х,Y;Интервал времени от и до; диапазон значений;Сетка Х,СеткаY ).Прост сам не когда не работал с этим компонентом помогите кто чем может.

 TtrendThread = class(TThread)
     private
     protected
     procedure Execute; override;
     end;

  type
  TForm3 = class(TForm)
    Chart1: TChart;
    Timer1: TTimer;
    Panel1: TPanel;
    Series1: TFastLineSeries;
    SG_graph: TStringGrid;
    PopupMenu1: TPopupMenu;
    Pn_edit: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Pn_up: TPanel;
    Label4: TLabel;
    me_MinTm: TMaskEdit;
    meMaxTm: TMaskEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    me_MinFz: TEdit;
    me_MaxFz: TEdit;
    se_TickX: TSpinEdit;
    se_TickY: TSpinEdit;
    bt_Da: TButton;
    bt_Net: TButton;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    N1: TMenuItem;
    N2: TMenuItem;
    Y1: TMenuItem;
    N3: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
TrendThread:TtrendThread;
 Form3: TForm3;
procedure StartTrend;
implementation
    uses U_Main;

  {$R *.dfm}

procedure StartTrend;
begin
TrendThread:=TtrendThread.Create(True);
 with TrendThread do begin
  Priority:=tpNormal;
  FreeOnTerminate:=True;
  Resume;
 end;
end;

Procedure TtrendThread.Execute;
var
d,t:TDateTime;
Hour, Min, Sec, MSec: Word;
begin
d:=time;
if d>Form3.Chart1.BottomAxis.Maximum then
  begin
    d:=Form3.Chart1.BottomAxis.Maximum;
    DecodeTime(d,Hour, Min, Sec, MSec);
    Min:=Min+3; //надо сделать проверку на минуты
    T:= EncodeTime(Hour, Min, Sec, MSec);
    Form3.Chart1.BottomAxis.SetMinMax(d,t);
  end;
Form3.Chart1.series[0].AddXY(d,value[9]);
Form3.SG_graph.Cells[1,0]:=FloatToStr(value[9]);
end;


procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
StartTrend;
sleep(100);
end;

procedure TForm3.FormCreate(Sender: TObject);
var d,t:TDateTime;
    Hour, Min, Sec, MSec: Word;
begin
LongTimeFormat:='HH:MM:SS.ZZ';{Н-нда...}
d:=Time;
DecodeTime( D, Hour, Min, Sec, MSec);
Min:=Min+3;
T:= EncodeTime(Hour, Min, Sec, MSec);
Chart1.BottomAxis.SetMinMax(d,t);
end;

end.

[Stilet]

с ним можно было выставлять параметры графика

Какие из них?

[KuevProger]

Сообщение от Stilet

Какие из них?

мне надо сделать чтоб все эти параметры можно было выставлять

 type
    Panel1: TPanel;
    PopupMenu1: TPopupMenu;
    Pn_edit: TPanel;
    Pn_up: TPanel;
    me_MinTm: TMaskEdit;
    meMaxTm: TMaskEdit;
    me_MinFz: TEdit;
    me_MaxFz: TEdit;
    se_TickX: TSpinEdit;
    se_TickY: TSpinEdit;
    bt_Da: TButton;
    bt_Net: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;

[Stilet]

Интервал времени от и до;

Впервые слышу чтоб у Чарта такие параметры были...

[KuevProger]

Я хочу сделать чтоб при работе с графиком вызывалось контекстное меню и там в Pn_edit выбираешь необходимые параметры которые нужно изменить

Сообщение от Stilet

Впервые слышу чтоб у Чарта такие параметры были...

ммм... значет ченибуть буду кумекать... на насчет остальных?

[KuevProger]

У меня по оси Х идет промежуток времени в 3 мин после этого онн очищается и идет заново можноли сделать чтоб промежуток выставлялся
с me_MinTm: TMaskEdit;
meMaxTm: TMaskEdit; или нет?

[Stilet]

на насчет остальных?

Ты можеш нормально обьяснить что хочешь?
Во например - "диапазон значений" - что это по твоему, значения точек на графике. или масштаб показываемых точек?
Ну и по остальному, нормально обрисуй ситуацию

[KuevProger]

диапазон значений-Количество значений по оси Y me_MinFz: TEdit;-мин
me_MaxFz: TEdit;-макс(пр. от 0 до 100). Делений по оси Х и по оси Y se_TickX: TSpinEdit;se_TickY: TSpinEdit;(пр. в промежутке м/у 0 и 1);
Интервал времени-промежуток времени выставляющийся по оси Х с me_MinTm: TMaskEdit;meMaxTm: TMaskEdit;. Ну и сетки по осям
ЗЫ понятно объяснил или нет...

[Karyaka]

Чтобы изменять шкалу осей графика необходимо сначала отключить автоматическое формирование осей и задать потом новые значения
напр.

with chart1 do
  begin
   BottomAxis.Automatic:=false;
   BottomAxis.maximum:=100;
   BottomAxis.minimum:=-1;

   LeftAxis.Automatic:=false;
   LeftAxis.maximum:=100;
   LeftAxis.minimum:=0;
  end;

[KuevProger]

Сообщение от Karyaka

Чтобы изменять шкалу осей графика необходимо сначала отключить автоматическое формирование осей и задать потом новые значения
напр.

with chart1 do
  begin
   BottomAxis.Automatic:=false;
   BottomAxis.maximum:=100;
   BottomAxis.minimum:=-1;

   LeftAxis.Automatic:=false;
   LeftAxis.maximum:=100;
   LeftAxis.minimum:=0;
  end;

А как присвоить bottomAxis к EDIT-ту? т.е чтоб можно было выставлять с едитов????