如何将我的图形设置为侧栏图形

Question

while sqlDebtors.eof do begin fAmtOut：= 0; fAmt：= 0; sBranch：= sqlDebtors.fieldbyname（'Branch'）.AsString; while（not sqlDebtors.Eof）and（sqlDebtors.FieldByName（'Branch'）。AsString = sBranch）do begin fAmtOut：= fAmtOut + sqlDebtors.fieldbyname（'Outstanding'）。asfloat; fAmt：= fAmt + sqlDebtors.fieldbyname（'Amount'）。asfloat; sqlDebtors.Next; 结束; pbar.add（fAmtOut，sBranch）; pbar.add（fAmt，sBranch）; 结束;

我的图形绘制这样

，但我想我的组图形是边巴图，从而通过其分公司能集团这样的：

希望有人能帮助me.thanks。

Answer 1

尝试：

pBar.MultiBar := mbSide; 

Answer 2

你需要有两个检测BarSeries。所以只需添加另一个，比方说pBar2（无论是在代码中还是在Designer中）。 那么就

pbar.add(fAmtOut, sBranch); 
pbar2.add(fAmt, sBranch); 

你也可以设置每个系列，soemthing这样的颜色：

pbar.colorEach:=false; 
pbar2.colorEach:=false; 
pbar.Color:=clRed; 
pbar2.Color:=clGreen;