home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Welcome_All.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.6 KB  |  76 lines
  1. unit Welcome_All;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, TeeProcs, TeeDraw3D, TeEngine, Series, Chart;
  8.  
  9. type
  10.   TWelcomeAllForm = class(TForm)
  11.     Draw3D1: TDraw3D;
  12.     Memo1: TMemo;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     Label5: TLabel;
  18.     Label6: TLabel;
  19.     Label7: TLabel;
  20.     Label8: TLabel;
  21.     Label9: TLabel;
  22.     Label10: TLabel;
  23.     Label11: TLabel;
  24.     Label12: TLabel;
  25.     Label13: TLabel;
  26.     Label14: TLabel;
  27.     Image1: TImage;
  28.     Chart1: TChart;
  29.     Series1: TLineSeries;
  30.     Timer1: TTimer;
  31.     procedure FormShow(Sender: TObject);
  32.     procedure Timer1Timer(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TWelcomeAllForm.FormShow(Sender: TObject);
  44. var t : Integer;
  45. begin
  46.   for t:=2 to 14 do
  47.   With TImage.Create(Self) do
  48.   begin
  49.     Left:=Image1.Left;
  50.     Transparent:=True;
  51.     Top:=Image1.Top+(Label2.Top-Label1.Top)*(t-1);
  52.     Picture.Assign(Image1.Picture);
  53.     Parent:=Image1.Parent;
  54.   end;
  55.  
  56.   { Set axis... }
  57.   Chart1.LeftAxis.SetMinMax(-100,100);
  58.   Chart1.BottomAxis.SetMinMax(0,360);
  59.  
  60.   { Start animation }
  61.   Timer1.Enabled:=True;
  62. end;
  63.  
  64. procedure TWelcomeAllForm.Timer1Timer(Sender: TObject);
  65. begin
  66.   if Series1.Count=360 then Series1.Clear
  67.   else
  68.   begin
  69.     Series1.Add( 100.0*Sin(Series1.Count*Pi/180.0) {$IFNDEF D4},'',clTeeColor{$ENDIF} );
  70.   end;
  71. end;
  72.  
  73. initialization
  74.   RegisterClass(TWelcomeAllForm);
  75. end.
  76.