home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Series_Error.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.9 KB  |  79 lines
  1. unit Series_Error;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, StdCtrls, TeEngine, Series, ErrorBar, ExtCtrls, TeeProcs, Chart;
  8.  
  9. type
  10.   TErrorSeriesForm = class(TBaseForm)
  11.     Series1: TErrorSeries;
  12.     Button1: TButton;
  13.     ComboBox1: TComboBox;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     ScrollBar1: TScrollBar;
  17.     procedure ComboBox1Change(Sender: TObject);
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure Button1Click(Sender: TObject);
  20.     procedure ScrollBar1Change(Sender: TObject);
  21.     procedure FormShow(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. Uses EditChar;
  33.  
  34. procedure TErrorSeriesForm.ComboBox1Change(Sender: TObject);
  35. begin
  36.   Case ComboBox1.ItemIndex of
  37.     0: Series1.ErrorStyle:=essLeft;
  38.     1: Series1.ErrorStyle:=essTop;
  39.     2: Series1.ErrorStyle:=essRight;
  40.     3: Series1.ErrorStyle:=essBottom;
  41.     4: Series1.ErrorStyle:=essLeftRight;
  42.     5: Series1.ErrorStyle:=essTopBottom;
  43.   end;
  44. end;
  45.  
  46. procedure TErrorSeriesForm.FormCreate(Sender: TObject);
  47. begin
  48.   inherited;
  49.  
  50.   Series1.Clear;
  51.  
  52.   {            Index Value Error Label Color }
  53.   Series1.AddErrorBar(0, 50, 10, 'A', clRed);
  54.   Series1.AddErrorBar(1, 80, 20, 'B', clYellow);
  55.   Series1.AddErrorBar(2, 20,  8, 'C', clGreen);
  56.   Series1.AddErrorBar(3, 60, 30, 'D', clBlue);
  57.   Series1.AddErrorBar(4, 40,  5, 'E', clWhite);
  58. end;
  59.  
  60. procedure TErrorSeriesForm.Button1Click(Sender: TObject);
  61. begin
  62.   EditSeries(Self,Series1);
  63. end;
  64.  
  65. procedure TErrorSeriesForm.ScrollBar1Change(Sender: TObject);
  66. begin
  67.   Series1.ErrorWidth:=ScrollBar1.Position;
  68. end;
  69.  
  70. procedure TErrorSeriesForm.FormShow(Sender: TObject);
  71. begin
  72.   inherited;
  73.   ComboBox1.ItemIndex:=5;
  74. end;
  75.  
  76. initialization
  77.   RegisterClass(TErrorSeriesForm);
  78. end.
  79.