請教 設定Tchart x軸 為日期出現的錯誤 |
|
尚未結案
|
|
seedbcc
高階會員   發表：232 回覆：272 積分：105 註冊：2003-12-10 發送簡訊給我 |
With Chart_Up.BottomAxis do
begin
Chart_Up.BottomAxis.LabelStyle:=talvalue;
LabelsSeparation:=0;
LabelsAngle:=90;
Automatic := False;
Maximum := 12;
Minimum := 0;
end;
然後在下列事件 將value 改為日期
procedure TFrm_Chart.Chart_UpGetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
Var
I : Integer;
begin
inherited;
IF Sender = TChart(TChartAxis(Sender).ParentChart).BottomAxis then
begin
IF TryStrToInt(LabelText,I) then
LabelText
:= DateTimeToStr(FVARGroups.FocusCtrlItem.MtxDrawChart[I,1]); end;
end;
結果出現錯誤訊息==> Indx1>Rows-1 錯誤時跑到TeEngine
的這一段程式內
Function TChartAxis.LabelValue(Const Value:Double):String;
var tmp : String;
Begin
if IAxisDateTime then
begin
if Value>=0 then
Begin
if FDateTimeFormat='' then tmp:=DateTimeDefaultFormat(IRange)
else tmp:=FDateTimeFormat;
DateTimeToString(result,tmp,Value);
end
else result:='';
end
else result:=FormatFloat(FAxisValuesFormat,Value); if Assigned(ParentChart.FOnGetAxisLabel) then
ParentChart.FOnGetAxisLabel(TChartAxis(Self),nil,-1,Result); if FLabelsMultiLine then // <------停留在這一行
result:=ReplaceChar(result,' ',TeeLineSeparator);
end;
不知道是我哪裡 有修改參數
或是不能這樣設定 日期 在Ｘ軸
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
|
|
seedbcc
高階會員 發表：232 回覆：272 積分：105 註冊：2003-12-10 發送簡訊給我 |
我在捲動 向左 時會有bug
因為 ，左邊從-1開始的數值
沒有設到 我要如何一開始
就將 bottomaxis 整條全部設為''
然後，再用我的程式 控制要更改的項目
procedure TFrm_Chart.Chart_UpGetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
Var
I : Integer;
begin
inherited;
IF Sender = TChart(TChartAxis(Sender).ParentChart).BottomAxis then
begin
IF TryStrToInt(LabelText,I) then
LabelText
:= DateTimeToStr(FVARGroups.FocusCtrlItem.MtxDrawChart[I,1]); end;
end;
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi seedbcc, 竟然已經知道問題點，可以考慮用 try except 的語句來避掉該錯誤部分：
procedure TFrm_Chart.Chart_UpGetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
Var
I : Integer;
begin
inherited;
IF Sender = TChart(TChartAxis(Sender).ParentChart).BottomAxis then
begin
IF TryStrToInt(LabelText,I) then
begin
try
LabelText := DateTimeToStr(FVARGroups.FocusCtrlItem.MtxDrawChart[I,1]);
except
LabelText := '';
end;
end;
end;
------
Fishman |
|
seedbcc
高階會員 發表：232 回覆：272 積分：105 註冊：2003-12-10 發送簡訊給我 |
發表時間：2004-12-15 10:35:58
IP:221.169.xxx.xxx 未訂閱
系統時間：2024-05-17 14:37:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |