请问以下的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;
解决方案 »
- cxGRID如何遍历已经选择的单元格
- 菜鸟求救,不在同一个局域网内的两台机器,pc-1(adsl-1)想访问pc-2(adsl-2)的sql-server,应如何实现?不胜感激~~~~~~~~~
- 改日期控件的按钮颜色
- ★★★如果一个窗体的状态为“在任务栏中无显示”,如何在其最小化时不使其标题栏显示在左下角(闪一下再隐藏的方法也不行)?
- 小问题
- 请教:我每次新建窗体都要设置窗体的Font属性,请问:
- 要学delphi,有那些好书,能给个学习顺序么,有分
- 窗体的事件
- 有关delphi中进制转换和非10进制使用的问题,30分哦~
- 挑战程序极限
- 下面的东东能不能用SQL实现
- 各位大侠,菜鸟求救!!!帮忙啊..
他的定义在 Series 单元中。
uses
Series;