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

Chart X軸的Label 問題!!

尚未結案
goolddag08212
一般會員


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-02-26 15:24:26 IP:65.49.xxx.xxx 訂閱
Dear All,
我的問題就如附件的圖檔為什麼我自訂的TBarSeries 去跑回圈新增,但是卻只有第一條
的TBarSeries 有出現X 軸的Label Value 其他的都沒有.....
拜託各位幫小弟查看一下!!!

[code delphi]

for idx:=1 to n 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 := false;
aShape.Active := true;
aShape.AutoBarSize := true;
Chart1.AddSeries( aShape );
aShape.AddXY(X , Y, Label,Color );
aShape.MultiBar := mbSelfStack;
end;

[/code]
附加檔案:49a643aa26a81_Img.jpg
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-03-02 17:03:55 IP:118.168.xxx.xxx 未訂閱
您好,

我用以下的例子測了一下(DELPHI6) 可以耶
procedure TForm1.Button1Click(Sender: TObject);
var idx : integer;
ashape : TBarSeries;
begin
for idx:=1 to 4 do begin
aShape := TBarSeries.Create( Chart1 );
aShape.AutoBarSize := true;
Chart1.AddSeries( aShape );
// 一個 LOOP 加三個點
aShape.AddXY(10, 10*idx, '2008/12');
aShape.AddXY(20, 20*idx, '2009/01');
aShape.AddXY(30, 30*idx, '2009/02');

aShape.Marks.Visible := false;
aShape.MultiBar := mbstacked;
end;
end;
=================================
和您附的程式差別在於同一個 SERIES 有很多個點 (我的例子是三個點)
且 不同 SERIES 相對應的 點的X值是一樣的(分別是 10,20,30, 這樣才能 STACK)
您的程式中 一個 SERIES 只加一個點 (只有一個 ADDXY)
不知是否這樣造成的,
(您 POST 上來的程式段和圖明顯不一致, X,Y,LABEL,COLOR 都未說明資料來源 所以無法進一步探討原因)
參考一下囉.
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-03-02 17:06:54, 註解 無‧
系統時間:2017-12-14 12:27:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!