TChar控件绘制曲线图时怎么设定X、Y轴的显示范围
TChar控件绘制曲线图时如何设定X、Y轴的显示范围
X轴显示1,2,3,4数字递增的,而Y轴显示以下
1000,3000,5000,8000,10000,15000,20000
能否实现,请大家指教,谢谢
------解决方案--------------------
在Chart的GetAxisLabel事件里面写:
X轴显示1,2,3,4数字递增的,而Y轴显示以下
1000,3000,5000,8000,10000,15000,20000
能否实现,请大家指教,谢谢
------解决方案--------------------
在Chart的GetAxisLabel事件里面写:
procedure TfmFAIDetail.Chart1GetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
var
iMonth: integer;
begin
if (Sender = Sender.ParentChart.BottomAxis) then
if (ValueIndex = -1) then
begin
iMonth := StrToIntDef(LabelText, 0);
if (iMonth > 0) and (iMonth < 13) then
LabelText := ShortMonthNames[iMonth]
else if iMonth = 13 then
LabelText := '總計'
else
LabelText := '';
end;
end;