柱形统计图的两个问题(59分)

B

blues hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-25

• #1

1、我现在用dbchart，横座标是单位名称，有的单位名称很长，在座标上就显示不好看，我想用a,b,c代表单位名称，在图例上解释a,b,c各为什么单位，我用的是柱形图，请问有没有什么好方法啊？
2、当图形为柱形时，能不能让每个柱子的颜色不同？
delphi7

 

J

jadelin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-25

• #2

我也想知道

 

V

vf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #3

Series1.Clear;
Series1.CustomBarWidth:=20;
for ACount:=0 to Ndo
begin
.
Series1.AddXY(,,StringToColor('clYellow'))
end;

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #4

1、先在“单位名称”的OnGetText里写，然后在DBChart的OnGetLegendText里写：
procedure TForm1.Query1DWMCGetText(Sender: TField;
var Text: String;
DisplayText: Boolean);
begin
//我们这里用一个固定的值做例子
Text:='Test';
end;

procedure TForm1.DBChart1GetLegendText(Sender: TCustomAxisPanel;
LegendStyle: TLegendStyle;
Index: Integer;
var LegendText: String);
begin
query1.First;
query1.MoveBy(index);
LegendText:=LegendText+' '+query1.fieldbyname('DWMC').asstring;
end;

2、多颜色：双击DBChart然后在Series页面 -> Format页面中的 “Color Each”打钩就可以

 

B

blues hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #5

楼上的怎么
联系你啊?

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #6

问题解决了吗？
我的QQ：122259695，很少上，最好还是在论坛上面
Email ：hongxing_dl724@163.com

 

B

blues hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #7

第二个问题搞定了，第一个正在试

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #8

真为你高兴……
我都是测试过的，应该没什么问题，只是表述上可能有点不清晰……

 

B

blues hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #9

搞定
结贴

 

B

blues hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #10

接受答案了.