TeeChart效果图

 

 {======================uni1.pas====================} unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, TeeFunci; type   TForm1 = class(TForm)     Chart1: TChart;     Series1: TBarSeries;     Series2: TLineSeries;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Chart1.Series[0].Add(16.9373,'jan'); Chart1.Series[0].Add(11.2401,'feb'); Chart1.Series[0].Add(16.9820,'mar'); Chart1.Series[0].Add(15.1504,'apr'); Chart1.Series[0].Add(14.3373,'may'); Chart1.Series[0].Add(11.4544,'jun'); Chart1.Series[0].Add(15.8801,'jul'); Chart1.Series[0].Add(14.3426,'aug'); Chart1.Series[0].Add(10.2819,'sep'); Chart1.Series[0].Add(15.1078,'oct'); Chart1.Series[0].Add(19.4991,'nov'); Chart1.Series[0].Add(15.7960,'dec'); Chart1.Series[1].Add(9.7475); Chart1.Series[1].Add(11.9688); Chart1.Series[1].Add(11.3689); Chart1.Series[1].Add(11.0869); Chart1.Series[1].Add(9.1403); Chart1.Series[1].Add(11.9161); Chart1.Series[1].Add(9.7637); Chart1.Series[1].Add(9.0079); Chart1.Series[1].Add(9.4344); Chart1.Series[1].Add(10.9673); Chart1.Series[1].Add(11.4321); Chart1.Series[1].Add(10.6315);   end;  end. {======================uni1.dfm====================} object Form1: TForm1   Left = 184   Top = 10   Width = 943   Height = 622   Caption = 'Form1'   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'MS Sans Serif'   Font.Style = []   OldCreateOrder = False   OnCreate = FormCreate   PixelsPerInch = 96   TextHeight = 13   object Chart1: TChart     Left = 123     Top = 44     Width = 681     Height = 488     BackWall.Brush.Color = clWhite     BackWall.Brush.Style = bsClear     Gradient.Direction = gdFromTopLeft     Gradient.EndColor = 16748174     Gradient.Visible = True     Title.AdjustFrame = False     Title.Text.Strings = (       'TChart')     Title.Visible = False     LeftAxis.Axis.Color = -1     LeftAxis.Grid.Style = psSolid     LeftAxis.LabelsSeparation = 30     LeftAxis.TickInnerLength = 2     LeftAxis.Ticks.Color = -1     LeftAxis.TicksInner.Color = -1     RightAxis.Labels = False     RightAxis.Visible = False     ScaleLastPage = False     View3D = False     BevelOuter = bvNone     BevelWidth = 0     Color = 8421631     TabOrder = 0     object Series1: TBarSeries       Marks.ArrowLength = 20       Marks.Visible = False       SeriesColor = 8421631       Title = '月图'       BarPen.Style = psDashDotDot       BarPen.SmallDots = True       Dark3D = False       MultiBar = mbNone       XValues.DateTime = False       XValues.Name = 'X'       XValues.Multiplier = 1.000000000000000000       XValues.Order = loAscending       YValues.DateTime = False       YValues.Name = 'Bar'       YValues.Multiplier = 1.000000000000000000       YValues.Order = loNone     end     object Series2: TLineSeries       Marks.ArrowLength = 8       Marks.Clip = True       Marks.Style = smsValue       Marks.Visible = False       SeriesColor = clGreen       Title = '增长图'       Pointer.Brush.Color = clGreen       Pointer.HorizSize = 6       Pointer.InflateMargins = True       Pointer.Pen.Color = 65408       Pointer.Pen.Style = psDash       Pointer.Style = psStar       Pointer.VertSize = 6       Pointer.Visible = True       XValues.DateTime = False       XValues.Name = 'X'       XValues.Multiplier = 1.000000000000000000       XValues.Order = loAscending       YValues.DateTime = False       YValues.Name = 'Y'       YValues.Multiplier = 1.000000000000000000       YValues.Order = loNone     end   end end