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

  1. unit Legend_Symbol;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series,
  8.   ComCtrls, TeeSurfa, TeePenDlg, TeeTools;
  9.  
  10. type
  11.   TLegendSymbol = class(TBaseForm)
  12.     Label1: TLabel;
  13.     Edit1: TEdit;
  14.     UpDown1: TUpDown;
  15.     Label2: TLabel;
  16.     ComboBox1: TComboBox;
  17.     Series1: TContourSeries;
  18.     CheckBox1: TCheckBox;
  19.     ChartTool1: TRotateTool;
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure Edit1Change(Sender: TObject);
  22.     procedure ComboBox1Change(Sender: TObject);
  23.     procedure CheckBox1Click(Sender: TObject);
  24.     procedure FormShow(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TLegendSymbol.FormCreate(Sender: TObject);
  36. begin
  37.   inherited;
  38.   Series1.FillSampleValues(10);
  39.   Series1.ValueFormat:='0.000';
  40. end;
  41.  
  42. procedure TLegendSymbol.Edit1Change(Sender: TObject);
  43. begin
  44.   inherited;
  45.   Chart1.Legend.Symbol.Width:=UpDown1.Position
  46. end;
  47.  
  48. procedure TLegendSymbol.ComboBox1Change(Sender: TObject);
  49. begin
  50.   inherited;
  51.   if ComboBox1.ItemIndex=0 then Chart1.Legend.Symbol.Position:=spLeft
  52.                            else Chart1.Legend.Symbol.Position:=spRight;
  53. end;
  54.  
  55. procedure TLegendSymbol.CheckBox1Click(Sender: TObject);
  56. begin
  57.   Chart1.Legend.Symbol.Continuous:=CheckBox1.Checked
  58. end;
  59.  
  60. procedure TLegendSymbol.FormShow(Sender: TObject);
  61. begin
  62.   inherited;
  63.   ComboBox1.ItemIndex:=0;
  64. end;
  65.  
  66. initialization
  67.   RegisterClass(TLegendSymbol);
  68. end.
  69.