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
