home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UPO3D.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.4 KB  |  99 lines
  1. {****************************************}
  2. {    TeeChart. TChart Component          }
  3. { Copyright (c) 1995-98 by David Berneda }
  4. {    All Rights Reserved                 }
  5. {****************************************}
  6. unit upo3d;
  7.  
  8. interface
  9.  
  10. uses
  11.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   StdCtrls, TeEngine, TeeSurfa, TeePoin3, TeeProcs, Chart, TeeComma,
  13.   ExtCtrls;
  14.  
  15. type
  16.   TPoint3DForm = class(TForm)
  17.     Button1: TButton;
  18.     Memo1: TMemo;
  19.     TeeCommander1: TTeeCommander;
  20.     Chart1: TChart;
  21.     Series1: TPoint3DSeries;
  22.     CheckBox1: TCheckBox;
  23.     CheckBox2: TCheckBox;
  24.     CheckBox3: TCheckBox;
  25.     CheckBox4: TCheckBox;
  26.     Timer1: TTimer;
  27.     CheckBox5: TCheckBox;
  28.     Panel1: TPanel;
  29.     procedure CheckBox1Click(Sender: TObject);
  30.     procedure CheckBox2Click(Sender: TObject);
  31.     procedure CheckBox3Click(Sender: TObject);
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure CheckBox4Click(Sender: TObject);
  34.     procedure Timer1Timer(Sender: TObject);
  35.     procedure Button1Click(Sender: TObject);
  36.     procedure CheckBox5Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.     DeltaR:Integer;
  40.     DeltaE:Integer;
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure TPoint3DForm.CheckBox1Click(Sender: TObject);
  50. begin
  51.   Series1.LinePen.Visible:=CheckBox1.Checked;
  52. end;
  53.  
  54. procedure TPoint3DForm.CheckBox2Click(Sender: TObject);
  55. begin
  56.   Series1.Pointer.Visible:=CheckBox2.Checked;
  57. end;
  58.  
  59. procedure TPoint3DForm.CheckBox3Click(Sender: TObject);
  60. begin
  61.   Series1.ColorEachPoint:=CheckBox3.Checked;
  62. end;
  63.  
  64. procedure TPoint3DForm.FormCreate(Sender: TObject);
  65. begin
  66.   DeltaR:=-5;
  67.   DeltaE:=-4;
  68.   Series1.FillSampleValues(100);
  69. end;
  70.  
  71. procedure TPoint3DForm.CheckBox4Click(Sender: TObject);
  72. begin
  73.   Timer1.Enabled:=CheckBox4.Checked;
  74. end;
  75.  
  76. procedure TPoint3DForm.Timer1Timer(Sender: TObject);
  77. begin
  78.   With Chart1.View3DOptions do
  79.   begin
  80.     Rotation:=Rotation+DeltaR;
  81.     if (Rotation<280) or (Rotation>350) then DeltaR:=-DeltaR;
  82.     Elevation:=Elevation+DeltaE;
  83.     if (Elevation<280) or (Elevation>350) then DeltaE:=-DeltaE;
  84.   end;
  85. end;
  86.  
  87. procedure TPoint3DForm.Button1Click(Sender: TObject);
  88. begin
  89.   Timer1.Enabled:=False;
  90.   Close;
  91. end;
  92.  
  93. procedure TPoint3DForm.CheckBox5Click(Sender: TObject);
  94. begin
  95.   Chart1.View3DWalls:=CheckBox5.Checked;
  96. end;
  97.  
  98. end.
  99.