home *** CD-ROM | disk | FTP | other *** search
- {$I TeeDefs.inc}
- unit Axis_Millisec;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- Base, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series;
-
- type
- TAxisMillisec = class(TBaseForm)
- Series1: TPointSeries;
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- implementation
-
- {$R *.DFM}
-
- { Warning: Milliseconds format is not supported in Delphi version 3 }
-
- procedure TAxisMillisec.FormCreate(Sender: TObject);
- begin
- inherited;
- With Series1 do
- begin
- XValues.DateTime:=True;
- Clear;
- AddXY( EncodeTime(0,0,0,0), 100 {$IFNDEF D4},'',clTeeColor{$ENDIF});
- AddXY( EncodeTime(0,0,0,1), 200 {$IFNDEF D4},'',clTeeColor{$ENDIF});
- AddXY( EncodeTime(0,0,0,2), 100 {$IFNDEF D4},'',clTeeColor{$ENDIF});
- AddXY( EncodeTime(0,0,0,3), 200 {$IFNDEF D4},'',clTeeColor{$ENDIF});
- end;
- With Chart1.BottomAxis do
- begin
- Increment:=DateTimeStep[dtOneMilliSecond];
- DateTimeFormat:='ss.zzz';
- RoundFirstLabel:=False;
- end;
- end;
-
- initialization
- RegisterClass(TAxisMillisec);
- end.
-
-