掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TChartのマークに日付データを表示させるには？ (ID：35870)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
3Kさん、有り難うございます。前回の投稿でお名前を間違ってしまいました。申し訳ありません。 早速教えてて頂いたコードを試したところ、上手くいきました。 ところが、条件の後出しで大変恐縮なのですが(浅はかにも関係ないと思っておりましたものですから)、今回のプログラムは通信データを自動取り込みしてグラフに表示する予定のものでした。そこで、下記の通りテストプログラムに教えて頂いたコードを追加して実行したところ、プロットの瞬間日付データを表示するのですが、瞬間で消えてしまいます。いろいろ試したのですが解決出来ません。拙いコードですが、テストコードは以下の通りです。 タイマイベントでランダムデータを作り、システム日付時刻を表示するだけです。(本来はデータは２次元の予定ですが、テストの為こうしています。) var n : Integer; RDate : TDateTime; procedure TForm1.Timer1Timer(Sender: TObject); begin inc(n); Rdate := Now; AddPoint(n-1,Random(100),clRed); end; procedure TForm1.AddPoint(const x, y :Integer; Acolor: TColor); begin Series1.AddXY(x,y,' ',clRed); with Chart1 do begin Canvas.Brush.Style := bsClear; Canvas.TextOut(BottomAxis.CalcXPosValue(n-1),LeftAxis. CalcYPosValue(Series1.YValue[n-1]),DateTimeToStr(Rdate)); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.