線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1824
推到 Plurk!
推到 Facebook!

Chart TBarSeries 的 MultiBar 問題

缺席
goolddag08212
一般會員


發表:3
回覆:0
積分:0
註冊:2006-10-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-02-25 14:48:12 IP:65.49.xxx.xxx 訂閱
Dear 各位大大,

最近小弟再撰寫一支圖形分析程式,但是遇到一些問題我要動態建立Series
設定的型態是TBarSeries 但是我希望資料Show出來是再同一個Bar呈現
所以我寫了以下的Code 但是卻一值只有顯示第一比資料......
但是如果我用精靈去作一個Series 的 Bar 選擇 Multiple Bar 為Self Stack就可以
我真的有點...... 程式碼如下

[code delphi]

var
aShape : TBarSeries;


while Not myDB.Rs.Eof do
begin
aShape := TBarSeries.Create( Chart1 );
aShape.ShowInLegend := false;
aShape.Marks.Style := smsValue;
aShape.Marks.Arrow.Visible := false;
aShape.Marks.ArrowLength := -15;
aShape.Marks.Visible := true;
aShape.MultiBar := mbSelfStack;
aShape.ColorEachPoint := true;
aShape.CustomVertAxis := Chart1.LeftAxis ;
aShape.Active := true;
Chart1.AddSeries( aShape );

for idx:=1 to myDB.Rs.FieldCount - 1 do
aShape.Add(myDB.Rs.Fields[idx].AsFloat,myDB.Rs.Fields[0].AsString);
// 如果是用精靈建立此段回圈就會顯示所有資料!!!!!

myDB.Rs.Next;
end;

[/code]
系統時間:2017-12-12 5:02:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!