如何在TChart上讓線與直方圖共存? |
尚未結案
|
FrankLiu
一般會員 ![]() ![]() 發表:5 回覆:5 積分:2 註冊:2003-05-29 發送簡訊給我 |
小弟畫了一個直方圖,但是希望背後有一條水平線來表示上限,
但是當我的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 發送簡訊給我 |
|
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |