Chart座標軸可否帶入自訂值? |
尚未結案
|
yoyo12345
一般會員 ![]() ![]() 發表:33 回覆:77 積分:22 註冊:2003-03-19 發送簡訊給我 |
|
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi yoyo12345, 首先,先設定 Label 的間格為 25(取你所需 Show 的值的最大公因數)
procedure TForm1.Button44Click(Sender: TObject); begin DBChart1.LeftAxis.LabelsSeparation := 0; DBChart1.LeftAxis.Increment := 25; end;然後在 DBChart 的 OnGetAxisLabel 事件中,過濾該 Label 是否秀出 PS:該語法參考 ccchen 版主大作http://delphi.ktop.com.tw/topic.php?TOPIC_ID=46357 procedure TForm1.DBChart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries; ValueIndex: Integer; var LabelText: String); Var LT : TStringList; begin IF Sender = TDBChart(TChartAxis(Sender).ParentChart).LeftAxis then begin LT := TStringlist.Create; TRY LT.DelimitedText := '0,25,100,225,400,625'; Memo6.Lines.Add(LabelText); IF LT.IndexOf(LabelText) >= 0 THEN LabelText := LabelText ELSE LabelText := ''; FINALLY LT.Free; END; end; end;但請注意,Y 軸的格線會已設定的 25 畫一條,若最大公因數為 1 時,會很難看,你可以自己試試
------
Fishman |
yoyo12345
一般會員 ![]() ![]() 發表:33 回覆:77 積分:22 註冊:2003-03-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |