home *** CD-ROM | disk | FTP | other *** search
- unit Point3D_Event;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- Base, TeEngine, TeeSurfa, TeePoin3, Series, ExtCtrls, TeeProcs, Chart, StdCtrls,
- TeeComma;
-
- type
- TPoint3DEvent = class(TBaseForm)
- Series1: TPoint3DSeries;
- CheckBox1: TCheckBox;
- TeeCommander1: TTeeCommander;
- function Series1GetPointerStyle(Sender: TChartSeries;
- ValueIndex: Integer): TSeriesPointerStyle;
- procedure FormCreate(Sender: TObject);
- procedure CheckBox1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- implementation
-
- {$R *.DFM}
-
- function TPoint3DEvent.Series1GetPointerStyle(Sender: TChartSeries;
- ValueIndex: Integer): TSeriesPointerStyle;
- begin
- result:=psRectangle;
-
- if CheckBox1.Checked then
- Case ValueIndex mod 3 of
- 0: begin result:=psCircle; Series1.Pointer.Brush.Color:=clRed; end;
- 1: begin result:=psTriangle; Series1.Pointer.Brush.Color:=clBlue; end;
- 2: begin result:=psRectangle; Series1.Pointer.Brush.Color:=clYellow; end;
- end
- else
- begin
- result:=psRectangle;
- Series1.Pointer.Brush.Color:=clTeeColor;
- end;
- end;
-
- procedure TPoint3DEvent.FormCreate(Sender: TObject);
- begin
- inherited;
- Series1.FillSampleValues(20);
- end;
-
- procedure TPoint3DEvent.CheckBox1Click(Sender: TObject);
- begin
- Series1.Repaint;
- end;
-
- initialization
- RegisterClass(TPoint3DEvent);
- end.
-