home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Legend_CheckBox.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.2 KB  |  51 lines

  1. unit Legend_CheckBox;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, StdCtrls, ErrorBar, Series, CandleCh, BubbleCh, TeEngine, StatChar,
  8.   ExtCtrls, TeeProcs, Chart;
  9.  
  10. type
  11.   TLegendCheckbox = class(TBaseForm)
  12.     Series1: TLineSeries;
  13.     Series2: TBarSeries;
  14.     Series3: TAreaSeries;
  15.     Series4: TPointSeries;
  16.     Series5: TFastLineSeries;
  17.     Series6: TBubbleSeries;
  18.     Series7: TVolumeSeries;
  19.     Series8: THistogramSeries;
  20.     Series9: TErrorBarSeries;
  21.     Series10: THighLowSeries;
  22.     CheckBox1: TCheckBox;
  23.     procedure CheckBox1Click(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TLegendCheckbox.CheckBox1Click(Sender: TObject);
  36. begin
  37.   Chart1.Legend.CheckBoxes:=CheckBox1.Checked;
  38. end;
  39.  
  40. procedure TLegendCheckbox.FormCreate(Sender: TObject);
  41. var t:Integer;
  42. begin
  43.   inherited;
  44.   for t:=0 to Chart1.SeriesCount-1 do
  45.     Chart1.Series[t].FillSampleValues(Chart1.Series[t].NumSampleValues);
  46. end;
  47.  
  48. initialization
  49.   RegisterClass(TLegendCheckBox);
  50. end.
  51.