全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2258
推到 Plurk!
推到 Facebook!

如何在TChart上讓線與直方圖共存?

尚未結案
FrankLiu
一般會員


發表:5
回覆:5
積分:2
註冊:2003-05-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-05 19:56:40 IP:210.202.xxx.xxx 未訂閱
小弟畫了一個直方圖,但是希望背後有一條水平線來表示上限, 但是當我的Bar設成Bar.add(10,'1',clRed);                  Bar.add(20,'2',clRed);                  Bar.add(20,'3',clRed);                  Line.add(30,'1',clBlue);                  Line.add(30,'3',clBlue); 結果Line的起點為座標1結束為座標3 請問要如何才可以讓Line的起點為Y座標,結束為圖的最終點,也就是線要從頭畫到尾,如果不畫Bar只畫線就可以,是不是因為Bar座標的影響,請問要如何解決?要用Darw metod嗎?請問要如何畫?謝謝
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-06 08:56:13 IP:210.65.xxx.xxx 未訂閱
Hi:    TChart 我沒用過,若有錯誤,請勿見怪  
Bar.add(10,'1',clRed);
Bar.add(20,'2',clRed);
Bar.add(20,'3',clRed);
Line.add(30,'1',clBlue);
Line.add(30,'2',clBlue);
Line.add(30,'3',clBlue);     
------
Fishman
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-01-06 09:05:54 IP:210.65.xxx.xxx 未訂閱
Hi:    剛剛試了另一個方法,
 
procedure TForm1.Button9Click(Sender: TObject);
var
    I : Integer;
begin
    Chart1.SeriesList.Series[0].Clear;
    Chart1.SeriesList.Series[1].Clear;        Chart1.SeriesList.Series[1].Add(10,'1',clRed);
    Chart1.SeriesList.Series[1].Add(20,'2',clRed);
    Chart1.SeriesList.Series[1].Add(20,'3',clRed);
    Chart1.SeriesList.Series[1].Add(10,'4',clRed);        FOR I := 0 TO Chart1.SeriesList.Series[1].Count - 1 DO
        BEGIN
            Chart1.SeriesList.Series[0].Add(30,Chart1.SeriesList.Series[1].XLabel[I],clBlue)
        END;
end;
Sorry,Bar.Add 與 Line.Add 我試不出來,只好用自己的寫法 -------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman
系統時間:2024-06-27 1:40:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!