home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Chart_FreeAllSeries.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.3 KB  |  56 lines
  1. unit Chart_FreeAllSeries;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, Series, TeEngine, StdCtrls, ExtCtrls, TeeProcs, Chart;
  8.  
  9. type
  10.   TFreeAllSeriesForm = class(TBaseForm)
  11.     Button1: TButton;
  12.     Series1: TBarSeries;
  13.     Series2: TLineSeries;
  14.     Series3: TBarSeries;
  15.     Series4: TLineSeries;
  16.     Series5: TBarSeries;
  17.     Button2: TButton;
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.     procedure FormCreate(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. implementation
  28.  
  29. {$R *.dfm}
  30.  
  31. procedure TFreeAllSeriesForm.Button1Click(Sender: TObject);
  32. begin
  33.   Chart1.FreeAllSeries( TLineSeries ); { removes LINE only }
  34.   Button1.Enabled:=False;
  35. end;
  36.  
  37. procedure TFreeAllSeriesForm.Button2Click(Sender: TObject);
  38. begin
  39.   Chart1.FreeAllSeries( TBarSeries );  { removes BAR only }
  40.   Button2.Enabled:=False;
  41. end;
  42.  
  43. procedure TFreeAllSeriesForm.FormCreate(Sender: TObject);
  44. begin
  45.   inherited;
  46.   Series1.FillSampleValues(6);
  47.   Series2.FillSampleValues(21);
  48.   Series3.FillSampleValues(6);
  49.   Series4.FillSampleValues(16);
  50.   Series5.FillSampleValues(6);
  51. end;
  52.  
  53. initialization
  54.   RegisterClass(TFreeAllSeriesForm);
  55. end.
  56.