home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UBARSTY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.7 KB  |  78 lines
  1. unit Ubarsty;
  2.  
  3. interface
  4.  
  5. { This unit shows how to select the different Bar styles }
  6.  
  7. uses
  8.   WinTypes,WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  9.   TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Spin;
  10.  
  11. type
  12.   TBarStylesForm = class(TForm)
  13.     Chart1: TChart;
  14.     Series1: TBarSeries;
  15.     Series2: TBarSeries;
  16.     Series3: TBarSeries;
  17.     RadioGroup1: TRadioGroup;
  18.     CheckBox1: TCheckBox;
  19.     Button1: TButton;
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure RadioGroup1Click(Sender: TObject);
  22.     procedure CheckBox1Click(Sender: TObject);
  23.     procedure Button1Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   BarStylesForm: TBarStylesForm;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TBarStylesForm.FormCreate(Sender: TObject);
  38. begin
  39.   With Series1 do
  40.   begin
  41.     AddXY(0,180,'',clTeeColor);
  42.     AddXY(1,280,'',clTeeColor);
  43.     AddXY(2,380,'',clTeeColor);
  44.     AddXY(3,480,'',clTeeColor);
  45.   end;
  46.   With Series2 do
  47.   begin
  48.     AddXY(0,150,'',clTeeColor);
  49.     AddXY(1,250,'',clTeeColor);
  50.     AddXY(2,350,'',clTeeColor);
  51.     AddXY(3,450,'',clTeeColor);
  52.   end;
  53.   With Series3 do
  54.   begin
  55.     AddXY(0,100,'',clTeeColor);
  56.     AddXY(1,200,'',clTeeColor);
  57.     AddXY(2,300,'',clTeeColor);
  58.     AddXY(3,400,'',clTeeColor);
  59.   end;
  60. end;
  61.  
  62. procedure TBarStylesForm.RadioGroup1Click(Sender: TObject);
  63. begin
  64.   Series1.MultiBar:=TMultiBar(RadioGroup1.ItemIndex);
  65. end;
  66.  
  67. procedure TBarStylesForm.CheckBox1Click(Sender: TObject);
  68. begin
  69.   Series1.SideMargins:=Checkbox1.Checked;
  70. end;
  71.  
  72. procedure TBarStylesForm.Button1Click(Sender: TObject);
  73. begin
  74.   Close;
  75. end;
  76.  
  77. end.
  78.