home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / BARCHART / Main2.pas < prev   
Pascal/Delphi Source File  |  1998-03-30  |  742b  |  45 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, BarChart;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     procedure FormCreate(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     BarChart1: TBarChart;
  16.   end;
  17.  
  18. var
  19.   MainForm: TMainForm;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TMainForm.FormCreate(Sender: TObject);
  26. begin
  27.   BarChart1 := TBarChart.Create(Self);
  28.   BarChart1.Parent := Self;
  29.   with BarChart1 do
  30.   begin
  31.     Left := 20;
  32.     Top := 20;
  33.     Width := 375;
  34.     Height := 200;
  35.     Data.Add('65.0');
  36.     Data.Add('45.0');
  37.     Data.Add('95.0');
  38.     Data.Add('76.0');
  39.     Data.Add('51.0');
  40.     Data.Add('90.0');
  41.   end;
  42. end;
  43.  
  44. end.
  45.