另
另一块砖
Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现如下统计图:
Y
^
|
| |-8| |--| |--|
| |-5| | |--| | |--|--|
| |-2|-4|-7| |--|--|--| |--| | |
| |-1|-3| | |--| | | |--|--|--|
| |-0| |-6| |--|--|--| |--|--| |
|___|__|__|__|____|__|__|__|____|__|__|__|________>X
因此应该有9个(0至8)series。第0、3、6个series的MultiBar应为mbside,其余应为mbStacked,试验程序如下:
procedure TForm1.FormCreate(Sender: TObject);
var
barseries:Tbarseries;
i:integer;
begin
for i:=0 to 8do
begin
barseries:=Tbarseries.Create(self);
self.DBChart1.AddSeries(barseries);
if (i=0) or (i=3) or (i=6) then
barseries.MultiBar:= mbside
else
barseries.MultiBar:= mbstacked;
DBChart1.Series.Add(1,inttostr(i));
DBChart1.Series.Add(1,inttostr(i));
DBChart1.Series.Add(1,inttostr(i));
end;
end;
运行结果好像barseries.MultiBar:= mbside没有起作用,它把9个图层都摞在一个柱里了。
请问各位专家有什么办法实现这样的统计图呢?谢谢~
Y
^
|
| |-8| |--| |--|
| |-5| | |--| | |--|--|
| |-2|-4|-7| |--|--|--| |--| | |
| |-1|-3| | |--| | | |--|--|--|
| |-0| |-6| |--|--|--| |--|--| |
|___|__|__|__|____|__|__|__|____|__|__|__|________>X
因此应该有9个(0至8)series。第0、3、6个series的MultiBar应为mbside,其余应为mbStacked,试验程序如下:
procedure TForm1.FormCreate(Sender: TObject);
var
barseries:Tbarseries;
i:integer;
begin
for i:=0 to 8do
begin
barseries:=Tbarseries.Create(self);
self.DBChart1.AddSeries(barseries);
if (i=0) or (i=3) or (i=6) then
barseries.MultiBar:= mbside
else
barseries.MultiBar:= mbstacked;
DBChart1.Series.Add(1,inttostr(i));
DBChart1.Series.Add(1,inttostr(i));
DBChart1.Series.Add(1,inttostr(i));
end;
end;
运行结果好像barseries.MultiBar:= mbside没有起作用,它把9个图层都摞在一个柱里了。
请问各位专家有什么办法实现这样的统计图呢?谢谢~