home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Pie_Multi.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.6 KB  |  64 lines
  1. unit Pie_Multi;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;
  8.  
  9. type
  10.   TPieMultiple = class(TBaseForm)
  11.     Series1: TPieSeries;
  12.     Series2: TPieSeries;
  13.     Series3: TPieSeries;
  14.     Series4: TPieSeries;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure Series1BeforeDrawValues(Sender: TObject);
  17.     procedure Series2BeforeDrawValues(Sender: TObject);
  18.     procedure Series3BeforeDrawValues(Sender: TObject);
  19.     procedure Series4BeforeDrawValues(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TPieMultiple.FormCreate(Sender: TObject);
  31. begin
  32.   inherited;
  33.   Series1.FillSampleValues(4);
  34.   Series2.FillSampleValues(4);
  35.   Series3.FillSampleValues(4);
  36.   Series4.FillSampleValues(4);
  37.  
  38.   Chart1.ApplyZOrder:=False;
  39. end;
  40.  
  41. procedure TPieMultiple.Series1BeforeDrawValues(Sender: TObject);
  42. begin
  43.   Chart1.ChartRect:=Rect(10,10,Chart1.Width div 2, Chart1.Height div 2);
  44. end;
  45.  
  46. procedure TPieMultiple.Series2BeforeDrawValues(Sender: TObject);
  47. begin
  48.   Chart1.ChartRect:=Rect(Chart1.Width div 2, 10, Chart1.Width, Chart1.Height div 2);
  49. end;
  50.  
  51. procedure TPieMultiple.Series3BeforeDrawValues(Sender: TObject);
  52. begin
  53.   Chart1.ChartRect:=Rect(10,Chart1.Height div 2,Chart1.Width div 2, Chart1.Height);
  54. end;
  55.  
  56. procedure TPieMultiple.Series4BeforeDrawValues(Sender: TObject);
  57. begin
  58.   Chart1.ChartRect:=Rect(Chart1.Width div 2, Chart1.Height div 2, Chart1.Width, Chart1.Height);
  59. end;
  60.  
  61. initialization
  62.   RegisterClass(TPieMultiple);
  63. end.
  64.