unit1.~pas

chart 图表线程绘制的一个演示程序.使用delphi7.0 编译

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Buttons,DateUtils, Series;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Chart1: TChart;
    Chart2: TChart;
    Chart3: TChart;
    Chart4: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Series6: TLineSeries;
    Series7: TLineSeries;
    Series8: TLineSeries;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure DrawChart;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
     uses unit2;
procedure TForm1.DrawChart;
var
 date1:TDateTime;
 date2:TDateTime;
 tempdate:TDateTime;
 str:string;
 i,j:integer;
begin
 str:='2004-08-07 20:15:24';
 date1:=strtodatetime(str);
 series1.Clear;
 series2.Clear;
 series3.Clear;
 series4.Clear;
 series5.Clear;
 series6.Clear;
 series7.Clear;
 series8.Clear;

 Date2:=IncSecond(date1,240*60*60);
 try
 Chart1.BottomAxis.SetMinMax(date1,date2);
 Chart2.BottomAxis.SetMinMax(date1,date2);
 Chart3.BottomAxis.SetMinMax(date1,date2);
 Chart4.BottomAxis.SetMinMax(date1,date2);
 j:=-1;
 for  i:=0 to 120*60*2 do
 begin
   tempdate:=IncSecond(date1,i*30);
   if j<=-60 then
        j:=-1;
   Series1.AddXY(tempdate,80+j);
   Series2.AddXY(tempdate,60+j);
   Series3.AddXY(tempdate,80+j);
   Series4.AddXY(tempdate,60+j);
   Series5.AddXY(tempdate,80+j);
   Series6.AddXY(tempdate,60+j);
   Series7.AddXY(tempdate,80+j);
   Series8.AddXY(tempdate,60+j);
   Dec(j);
 end;
 except

 end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 drawthread:TChartThread;
begin
 drawthread:=TChartThread.Create(TRUE);
 drawthread.Resume;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  DrawChart;
end;

end.