home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / UANIZOOM.PAS < prev    next >
Pascal/Delphi Source File  |  1998-06-16  |  3KB  |  113 lines
  1. {****************************************}
  2. {    TeeChart. TChart Component          }
  3. { Copyright (c) 1995,96 by David Berneda }
  4. {    All Rights Reserved                 }
  5. {****************************************}
  6. unit Uanizoom;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, Teengine, Series, ExtCtrls, Chart, StdCtrls, Spin,
  13.   Buttons, TeeProcs;
  14.  
  15. type
  16.   TFormAnimatedZoom = class(TForm)
  17.     Chart1: TChart;
  18.     Panel1: TPanel;
  19.     CheckBox1: TCheckBox;
  20.     CheckBox2: TCheckBox;
  21.     LineSeries1: TLineSeries;
  22.     LineSeries2: TLineSeries;
  23.     LineSeries3: TLineSeries;
  24.     LineSeries4: TLineSeries;
  25.     LineSeries5: TLineSeries;
  26.     PointSeries1: TPointSeries;
  27.     Label1: TLabel;
  28.     SpinEdit1: TSpinEdit;
  29.     BitBtn2: TBitBtn;
  30.     BitBtn1: TBitBtn;
  31.     BitBtn3: TBitBtn;
  32.     Memo1: TMemo;
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure CheckBox1Click(Sender: TObject);
  35.     procedure CheckBox2Click(Sender: TObject);
  36.     procedure SpinEdit1Change(Sender: TObject);
  37.     procedure BitBtn1Click(Sender: TObject);
  38.     procedure BitBtn2Click(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure TFormAnimatedZoom.FormCreate(Sender: TObject);
  50.  
  51.   Procedure RandomValues(ASeries:TChartSeries);
  52.   Var t,tmp:Longint;
  53.   Begin
  54.     With ASeries do
  55.     Begin
  56.       tmp:=0;
  57.       Clear;
  58.       for t:=1 to 50 do
  59.       Begin
  60.         tmp:=tmp+Random(10000)-5000;
  61.         Add( tmp, '', clTeeColor );
  62.       end;
  63.     end;
  64.   End;
  65.  
  66. begin
  67.   SpinEdit1.Value:=Chart1.AnimatedZoomSteps;
  68.   RandomValues(LineSeries1);
  69.   RandomValues(LineSeries2);
  70.   RandomValues(LineSeries3);
  71.   RandomValues(LineSeries4);
  72.   RandomValues(LineSeries5);
  73.   RandomValues(PointSeries1);
  74.   Chart1.AnimatedZoom:=False;
  75.   Chart1.ZoomPercent(5);
  76.   Chart1.AnimatedZoom:=True;
  77. end;
  78.  
  79. procedure TFormAnimatedZoom.CheckBox1Click(Sender: TObject);
  80. begin
  81.   Chart1.AnimatedZoom:=CheckBox1.checked;
  82. end;
  83.  
  84. procedure TFormAnimatedZoom.CheckBox2Click(Sender: TObject);
  85. begin
  86.   Chart1.View3D:=CheckBox2.Checked;
  87. end;
  88.  
  89. procedure TFormAnimatedZoom.SpinEdit1Change(Sender: TObject);
  90. begin
  91.   Chart1.AnimatedZoomSteps:=SpinEdit1.Value;
  92. end;
  93.  
  94. procedure TFormAnimatedZoom.BitBtn1Click(Sender: TObject);
  95. begin
  96.   BitBtn1.Enabled:=False;
  97.   BitBtn2.Enabled:=False;
  98.   Chart1.ZoomPercent(115);
  99.   BitBtn1.Enabled:=True;
  100.   BitBtn2.Enabled:=True;
  101. end;
  102.  
  103. procedure TFormAnimatedZoom.BitBtn2Click(Sender: TObject);
  104. begin
  105.   BitBtn1.Enabled:=False;
  106.   BitBtn2.Enabled:=False;
  107.   Chart1.ZoomPercent(85);
  108.   BitBtn1.Enabled:=True;
  109.   BitBtn2.Enabled:=True;
  110. end;
  111.  
  112. end.
  113.