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