home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / ULOOK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.2 KB  |  63 lines
  1. unit Ulook;
  2.  
  3. interface
  4.  
  5. uses
  6.   Wintypes,WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;
  8.  
  9. type
  10.   TLooksForm = class(TForm)
  11.     Chart1: TChart;
  12.     Series2: TBarSeries;
  13.     Series1: TBarSeries;
  14.     Chart2: TChart;
  15.     Series3: TBarSeries;
  16.     Series5: TBarSeries;
  17.     Series6: TBarSeries;
  18.     Series4: TBarSeries;
  19.     Chart3: TChart;
  20.     Series7: TBarSeries;
  21.     Panel1: TPanel;
  22.     Memo1: TMemo;
  23.     Panel2: TPanel;
  24.     Image1: TImage;
  25.     Panel3: TPanel;
  26.     Button1: TButton;
  27.     Label1: TLabel;
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   LooksForm: TLooksForm;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TLooksForm.Button1Click(Sender: TObject);
  44. begin
  45.   Close;
  46. end;
  47.  
  48. procedure TLooksForm.FormCreate(Sender: TObject);
  49. begin
  50.  { look 1 }
  51.   Series1.FillSampleValues(6);
  52.   Series2.FillSampleValues(6);
  53.  { look 2 }
  54.   Series3.FillSampleValues(6);
  55.  { look 3 }
  56.   Series4.FillSampleValues(6);
  57.   Series5.FillSampleValues(6);
  58.   Series6.FillSampleValues(6);
  59.   Series7.FillSampleValues(6);
  60. end;
  61.  
  62. end.
  63.