home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / USHAPES.PAS < prev    next >
Pascal/Delphi Source File  |  1998-06-16  |  2KB  |  100 lines
  1. unit Ushapes;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs,TeeShape, Chart, Series, ExtCtrls, StdCtrls, Teengine,
  8.   Buttons, TeeProcs;
  9.  
  10. type
  11.   TShapesForm = class(TForm)
  12.     Chart1: TChart;
  13.     LineSeries1: TLineSeries;
  14.     ChartShape1: TChartShape;
  15.     LineSeries2: TLineSeries;
  16.     ChartShape2: TChartShape;
  17.     Panel1: TPanel;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     ChartShape3: TChartShape;
  21.     Panel2: TPanel;
  22.     BitBtn2: TBitBtn;
  23.     Memo1: TMemo;
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure ChartShape3Click(Sender: TChartSeries; ValueIndex: Integer;
  26.       Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   ShapesForm: TShapesForm;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TShapesForm.FormCreate(Sender: TObject);
  41. begin
  42.   With LineSeries1 do
  43.   Begin
  44.     XValues.DateTime:=False;
  45.     Clear;
  46.     Add( 100, 'Jan', clTeeColor );
  47.     Add( 140, 'Feb', clTeeColor );
  48.     Add( 120, 'Mar', clTeeColor );
  49.     Add( 110, 'Apr', clTeeColor );
  50.     Add(  80, 'May', clTeeColor );
  51.     Add(  90, 'Jun', clTeeColor );
  52.     Add(  75, 'Jul', clTeeColor );
  53.     Add(  85, 'Aug', clTeeColor );
  54.     Add(  95, 'Sep', clTeeColor );
  55.     Add( 105, 'Oct', clTeeColor );
  56.     Add( 100, 'Nov', clTeeColor );
  57.     Add(  90, 'Dec', clTeeColor );
  58.   end;
  59.   With LineSeries2 do
  60.   Begin
  61.     XValues.DateTime:=False;
  62.     Clear;
  63.     Add(  60, 'Jan', clTeeColor );
  64.     Add( 100, 'Feb', clTeeColor );
  65.     Add(  20, 'Mar', clTeeColor );
  66.     Add(  70, 'Apr', clTeeColor );
  67.     AreaBrush:=bsCross;
  68.   end;
  69.   With ChartShape1 do
  70.   begin
  71.     X0:=   2;
  72.     X1:=   8;
  73.     Y0:= 100;
  74.     Y1:= 130;
  75.   end;
  76.   With ChartShape2 do
  77.   begin
  78.     X0:=   5;
  79.     X1:=   9;
  80.     Y0:=  60;
  81.     Y1:=  80;
  82.   end;
  83.   With ChartShape3 do
  84.   begin
  85.     X0:=   1;
  86.     X1:=   4;
  87.     Y0:= 135;
  88.     Y1:= 120;
  89.   end;
  90. end;
  91.  
  92. procedure TShapesForm.ChartShape3Click(Sender: TChartSeries;
  93.   ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X,
  94.   Y: Integer);
  95. begin
  96.   ShowMessage('You clicked the ChartShape3 (Rectangle)');
  97. end;
  98.  
  99. end.
  100.