home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Basic_Features.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.1 KB  |  54 lines
  1. unit Basic_Features;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   TeeProcs, TeEngine, Chart, StdCtrls, ExtCtrls, TeeEdit;
  8.  
  9. type
  10.   TBasicFeatures = class(TForm)
  11.     Memo1: TMemo;
  12.     Panel1: TPanel;
  13.     Button1: TButton;
  14.     Memo2: TMemo;
  15.     MyChart: TChart;
  16.     Button2: TButton;
  17.     ChartEditor1: TChartEditor;
  18.     procedure Button2Click(Sender: TObject);
  19.     procedure Button1Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. Uses Series;
  31.  
  32. procedure TBasicFeatures.Button2Click(Sender: TObject);
  33. begin
  34.   MyChart.RemoveAllSeries;
  35.  
  36.   MyChart.AddSeries( TBarSeries.Create( Self ));
  37.  
  38.   MyChart[0].Clear;
  39.   MyChart[0].Add( 123, 'ABC', clRed );
  40.   MyChart[0].Add( 456, 'DEF', clBlue );
  41.   MyChart[0].Add( 321, 'GHI', clGreen );
  42.  
  43.   MyChart[0].Marks.Style:= smsValue;
  44. end;
  45.  
  46. procedure TBasicFeatures.Button1Click(Sender: TObject);
  47. begin
  48.   ChartEditor1.Execute
  49. end;
  50.  
  51. initialization
  52.   RegisterClass(TBasicFeatures);
  53. end.
  54.