Что надо сделать чтоб в Chart по оси Х шел промежуток времени?

  • Автор темы KuevProger
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

KuevProger

#1
Что надо сделать чтоб в chart по оси Х шел промежуток времени 5 минут?
Вот листинг:
Procedure TtrendThread.Execute;
var
i:integer;
begin

For i:=1 To 9 Do
Form3.Chart1.Series[i-1].AddXY(????,value);
sleep(100);
end;

спс за ранее!
 
04.09.2006
2 566
3
#2
В стандартных примерах к Delphi есть очень навороченное приложение, показывающее все возможности TChart-а
 
K

KuevProger

#3
В стандартных примерах к Delphi есть очень навороченное приложение, показывающее все возможности TChart-а
СПС не надо я уже сам замутил:
ar
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
i:integer;
d:TDateTime;
begin
d:=time;
For i:=1 To 9 Do
Form3.Chart1.Series[i-1].AddXY(d,value);


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+5;
T:= EncodeTime(Hour, Min, Sec, MSec);
Chart1.BottomAxis.SetMinMax(d,t);
end;
 
Статус
Закрыто для дальнейших ответов.