home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / UCAND3D.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.7 KB  |  69 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Candle 3D Demo                              }
  4. { Copyright (c) 1995-1998 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit UCand3D;
  8.  
  9. interface
  10.  
  11. uses
  12.   WinProcs,WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   StdCtrls, TeEngine, Series, OHLChart, CandleCh, TeeComma, TeeProcs,
  14.   Chart, ExtCtrls;
  15.  
  16. type
  17.   TCandle3DForm = class(TForm)
  18.     Panel1: TPanel;
  19.     Memo1: TMemo;
  20.     Button1: TButton;
  21.     ScrollBar1: TScrollBar;
  22.     Chart1: TChart;
  23.     TeeCommander1: TTeeCommander;
  24.     Series1: TCandleSeries;
  25.     CheckBox1: TCheckBox;
  26.     CheckBox2: TCheckBox;
  27.     Label1: TLabel;
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure ScrollBar1Change(Sender: TObject);
  30.     procedure CheckBox2Click(Sender: TObject);
  31.     procedure CheckBox1Click(Sender: TObject);
  32.     procedure FormCreate(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TCandle3DForm.Button1Click(Sender: TObject);
  44. begin
  45.   Close;
  46. end;
  47.  
  48. procedure TCandle3DForm.ScrollBar1Change(Sender: TObject);
  49. begin
  50.   Chart1.Chart3DPercent:=ScrollBar1.Position;
  51. end;
  52.  
  53. procedure TCandle3DForm.CheckBox2Click(Sender: TObject);
  54. begin
  55.   Series1.Dark3D:=CheckBox2.Checked;
  56. end;
  57.  
  58. procedure TCandle3DForm.CheckBox1Click(Sender: TObject);
  59. begin
  60.   Series1.Draw3D:=CheckBox1.Checked;
  61. end;
  62.  
  63. procedure TCandle3DForm.FormCreate(Sender: TObject);
  64. begin
  65.   Series1.FillSampleValues(25);
  66. end;
  67.  
  68. end.
  69.