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

  1. unit BackWall_Gradient;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, TeeTools;
  8.  
  9. type
  10.   TBackWallGradient = class(TBaseForm)
  11.     CheckBox1: TCheckBox;
  12.     Button1: TButton;
  13.     ChartTool1: TRotateTool;
  14.     Timer1: TTimer;
  15.     CheckBox2: TCheckBox;
  16.     procedure CheckBox1Click(Sender: TObject);
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure CheckBox2Click(Sender: TObject);
  19.     procedure Timer1Timer(Sender: TObject);
  20.     procedure FormCreate(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.     DeltaR, DeltaE: Integer;
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. Uses TeeEdiGrad;
  33.  
  34. procedure TBackWallGradient.CheckBox1Click(Sender: TObject);
  35. begin
  36.   inherited;
  37.   Chart1.BackWall.Gradient.Visible:=CheckBox1.Checked
  38. end;
  39.  
  40. procedure TBackWallGradient.Button1Click(Sender: TObject);
  41. begin
  42.   EditTeeGradient(Self,Chart1.BackWall.Gradient);
  43. end;
  44.  
  45. procedure TBackWallGradient.CheckBox2Click(Sender: TObject);
  46. begin
  47.   Timer1.Enabled:=CheckBox2.Checked;
  48. end;
  49.  
  50. procedure TBackWallGradient.Timer1Timer(Sender: TObject);
  51. begin
  52.   inherited;
  53.   Timer1.Enabled:=False;
  54.   With Chart1.View3DOptions do
  55.   begin
  56.     Rotation:=Rotation+DeltaR;
  57.     if Rotation>358 then DeltaR:=-DeltaR else
  58.     if Rotation<272 then DeltaR:=-DeltaR;
  59.  
  60.     Elevation:=Elevation+DeltaE;
  61.     if (Elevation>358) or (Elevation<272) then
  62.        DeltaE:=-DeltaE;
  63.   end;
  64.   Timer1.Enabled:=True;
  65. end;
  66.  
  67. procedure TBackWallGradient.FormCreate(Sender: TObject);
  68. begin
  69.   inherited;
  70.   DeltaR:=1;
  71.   DeltaE:=1;
  72. end;
  73.  
  74. initialization
  75.   RegisterClass(TBackWallGradient);
  76. end.
  77.