home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / PIE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  4.4 KB  |  164 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Pie Series Type Demo                        }
  4. { Copyright (c) 1995-1996 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit Pie;
  8.  
  9. interface
  10.  
  11. uses
  12.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  13.   Forms, Dialogs, Chart, Series, ExtCtrls, StdCtrls, Teengine,
  14.   Buttons, teeprocs;
  15.  
  16. type
  17.   TPieForm = class(TForm)
  18.     Chart1: TChart;
  19.     Panel1: TPanel;
  20.     CheckBox1: TCheckBox;
  21.     Timer1: TTimer;
  22.     PieSeries1: TPieSeries;
  23.     CheckBox2: TCheckBox;
  24.     CheckBox3: TCheckBox;
  25.     BitBtn3: TBitBtn;
  26.     CheckBox4: TCheckBox;
  27.     Shape1: TShape;
  28.     RadioGroup1: TRadioGroup;
  29.     CheckBox5: TCheckBox;
  30.     CheckBox6: TCheckBox;
  31.     RadioGroup2: TRadioGroup;
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure CheckBox1Click(Sender: TObject);
  34.     procedure Timer1Timer(Sender: TObject);
  35.     procedure CheckBox2Click(Sender: TObject);
  36.     procedure CheckBox3Click(Sender: TObject);
  37.     procedure PieSeries1Click(Sender: TChartSeries; ValueIndex: Integer;
  38.       Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  39.     procedure CheckBox4Click(Sender: TObject);
  40.     procedure Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  41.       Y: Integer);
  42.     procedure RadioGroup1Click(Sender: TObject);
  43.     procedure CheckBox5Click(Sender: TObject);
  44.     procedure CheckBox6Click(Sender: TObject);
  45.   private
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.     tmpX,tmpY:Longint;
  50.   end;
  51.  
  52. implementation
  53.  
  54. {$R *.DFM}
  55. Uses UDemUtil;
  56.  
  57. procedure TPieForm.FormCreate(Sender: TObject);
  58. begin
  59.   tmpX:=-4;
  60.   tmpY:=-3;
  61.   PieSeries1.FillSampleValues(8); { <-- Some random points }
  62.   Chart1.Gradient.Visible:=Chart1.IsScreenHighColor;
  63.   if Chart1.Gradient.Visible then
  64.      Chart1.Title.Font.Color:=clBlue
  65.   else
  66.      Chart1.Title.Font.Color:=clWhite;
  67.   CheckBox6.Checked:=Chart1.Gradient.Visible;
  68. end;
  69.  
  70. procedure TPieForm.CheckBox1Click(Sender: TObject);
  71. begin
  72.   Timer1.Enabled:=CheckBox1.Checked; { <-- animation on/off }
  73.   CheckBox3.Enabled:=not Timer1.Enabled;
  74.   if not Timer1.Enabled then
  75.   Begin
  76.     PieSeries1.CustomXRadius:=0;
  77.     PieSeries1.CustomYRadius:=0;
  78.   end;
  79. end;
  80.  
  81. procedure TPieForm.Timer1Timer(Sender: TObject);
  82. begin
  83. { increase pie rotation angle to get animation }
  84.   PieSeries1.Rotate(5);
  85.  
  86. { change X and Y radius to get animation }
  87.   With PieSeries1 do
  88.   Begin
  89.     if tmpX>0 then
  90.     Begin
  91.       if XRadius+tmpX>Chart1.ChartWidth div 3 then tmpX:=-tmpX;
  92.     end
  93.     else if XRadius+tmpX<30 then tmpX:=-tmpX;
  94.     CustomXRadius:=XRadius+tmpX;
  95.  
  96.     if tmpY>0 then
  97.     Begin
  98.       if YRadius+tmpY>Chart1.ChartHeight div 3 then tmpY:=-tmpY;
  99.     end
  100.     else
  101.       if YRadius+tmpY<30 then tmpY:=-tmpY;
  102.     CustomYRadius:=YRadius+tmpY;
  103.   end;
  104.  
  105.   { Change Legend positioning Randomly }
  106.   if Random(100)<4 then
  107.      RadioGroup1.ItemIndex:=Random(RadioGroup1.Items.Count);
  108. end;
  109.  
  110. procedure TPieForm.CheckBox2Click(Sender: TObject);
  111. begin
  112.   Chart1.View3d:=CheckBox2.Checked; { <-- 3d on / off }
  113. end;
  114.  
  115. procedure TPieForm.CheckBox3Click(Sender: TObject);
  116. begin
  117.   PieSeries1.Circled:=CheckBox3.Checked; { <-- circled / elliptic pie }
  118. end;
  119.  
  120. procedure TPieForm.PieSeries1Click(Sender: TChartSeries;
  121.   ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X,
  122.   Y: Integer);
  123. begin
  124.   { On Clicked Pie, let the user change the clicked pie color }
  125.   With PieSeries1 do
  126.        ValueColor[ValueIndex]:=EditColor(Self,ValueColor[ValueIndex]);
  127. end;
  128.  
  129. procedure TPieForm.CheckBox4Click(Sender: TObject);
  130. begin
  131.   PieSeries1.UsePatterns:=CheckBox4.Checked;
  132.   if PieSeries1.UsePatterns then PieSeries1.CircleBackColor:=clWhite;
  133. end;
  134.  
  135. procedure TPieForm.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  136.   Y: Integer);
  137. var tmp:Longint;
  138. begin
  139.   tmp:=PieSeries1.Clicked(x,y);
  140.   if tmp=-1 then Shape1.Visible:=False
  141.   else
  142.   begin
  143.     Shape1.Visible:=True;
  144.     Shape1.Brush.Color:=PieSeries1.ValueColor[tmp];
  145.   end;
  146. end;
  147.  
  148. procedure TPieForm.RadioGroup1Click(Sender: TObject);
  149. begin
  150.   Chart1.Legend.Alignment:=TLegendAlignment(RadioGroup1.ItemIndex);
  151. end;
  152.  
  153. procedure TPieForm.CheckBox5Click(Sender: TObject);
  154. begin
  155.   PieSeries1.Marks.Visible:=CheckBox5.Checked;
  156. end;
  157.  
  158. procedure TPieForm.CheckBox6Click(Sender: TObject);
  159. begin
  160.   Chart1.Gradient.Visible:=CheckBox6.Checked;
  161. end;
  162.  
  163. end.
  164.