请问以下的TBarSeries是什么东东?
怎么编译不通过啊!操作TChar的简单示例
下面是简单的例子:var
i, j, kum: Integer;
s, t: TBarSeries;
begin
with Chart1 do
begin
// Title of the Chart
SeriesList.Clear;
Title.Text.Clear;
Title.Text.Add('My Title for Char');
Legend.Visible :=True;
Legend.LegendStyle :=lsAuto;
Legend.TextStyle := ltsLeftValue; // Create first Series
s := TBarSeries.Create(nil);
// Clear it
s.Clear;
s.BarStyle :=bsRectGradient;
s.ColorEachPoint :=True;
// set the title
s.Title := 'Bar 1';
// determine the chart, this series belongs to
s.ParentChart := Chart1;
// the x-axis shall use date
s.XValues.DateTime := False;
s.AutoBarSize :=False;
s.BarWidthPercent := 70;
s.OffsetPercent :=0;
s.Marks.Style :=smsPercent;
// create the second Series
t := TBarSeries.Create(nil);
t.Clear;
t.Title := 'Bar 2';
t.ParentChart := Chart1;
t.XValues.DateTime := False;
// this series uses the right axis
t.VertAxis := aLeftAxis; // now add the random values
Randomize;
for i := 0 to 5 do
begin
j := Random(100) + 1;
s.AddXY(i, j);
kum := j;
t.AddXY(i , kum + Random(20));
end;
end;
end;
怎么编译不通过啊!操作TChar的简单示例
下面是简单的例子:var
i, j, kum: Integer;
s, t: TBarSeries;
begin
with Chart1 do
begin
// Title of the Chart
SeriesList.Clear;
Title.Text.Clear;
Title.Text.Add('My Title for Char');
Legend.Visible :=True;
Legend.LegendStyle :=lsAuto;
Legend.TextStyle := ltsLeftValue; // Create first Series
s := TBarSeries.Create(nil);
// Clear it
s.Clear;
s.BarStyle :=bsRectGradient;
s.ColorEachPoint :=True;
// set the title
s.Title := 'Bar 1';
// determine the chart, this series belongs to
s.ParentChart := Chart1;
// the x-axis shall use date
s.XValues.DateTime := False;
s.AutoBarSize :=False;
s.BarWidthPercent := 70;
s.OffsetPercent :=0;
s.Marks.Style :=smsPercent;
// create the second Series
t := TBarSeries.Create(nil);
t.Clear;
t.Title := 'Bar 2';
t.ParentChart := Chart1;
t.XValues.DateTime := False;
// this series uses the right axis
t.VertAxis := aLeftAxis; // now add the random values
Randomize;
for i := 0 to 5 do
begin
j := Random(100) + 1;
s.AddXY(i, j);
kum := j;
t.AddXY(i , kum + Random(20));
end;
end;
end;
解决方案 »
- DirectShow无法显示画面,只能刷新后才能闪动一下
- 请教(数据库中的图片问题)
- 求一个加密的算法
- SQL语句求助!
- 怎样做自己的消息定义阿
- 请教大家,label 100,200;是什么意思?
- 求助:那位大虾知道怎么判断窗口是否已经显示。用哪个函数。谢谢。
- 为何在delphi中不能输入Graphic字段的图片???
- help!!! 为什么我的D6在编译时出现错误:“Fatal Error QuickRpt.pas(23):File not found:'Dsgnintf.dcu'
- 请教如何在DELPHI中有无较好方法实现用图形表示宾馆房间状态?
- 下面的东东能不能用SQL实现
- 各位大侠,菜鸟求救!!!帮忙啊..
他的定义在 Series 单元中。
uses
Series;