Работа с осями в Tchart Опции

[AlexSCH]

Численные значения по осям привязаны строго к графику, который этот компонент отображает. Размерность чисел по осям не соответсвует реальным параметрам. То есть, отображается в 1 компоненте TChart 8 графиков, после построения все они находятся в определенных переделах по значениям, в одной системе координат. Но каждый из графиков несет свою информацию, причем 1 график это, например, Вольты, второй - милиАмперы, возможно ли поменять шкалу по оси ординат в компоненте TChart, не меняя при этом изображение графиков? То есть поменять абстрактыне числа после построения на реальные вольты или амперы и т.д.

[volvo]

Ну, например, вот так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, OleCtnrs, TeEngine, Series, ExtCtrls, TeeProcs,
  Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    
    Button1: TButton;
    LineSeries1: TLineSeries;
    PointSeries1: TPointSeries;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Chart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries;
      ValueIndex: Integer; var LabelText: String);
  private
    { Private declarations }
  public
    { Public declarations }
    DefaultLabels: Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  defaultLabels := not DefaultLabels;
  Chart1.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
var t: LongInt;
begin
  DefaultLabels:=True;

  LineSeries1.Clear;
  PointSeries1.Clear;
  for t:=1 to 20 do
  Begin
    LineSeries1.AddXY( Date+t, 200+Random(700),'',clTeeColor);  { <-- some random points }
    PointSeries1.AddXY( Date+t, 200+Random(700),'',clTeeColor);
  end;
end;

procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis;
  Series: TChartSeries; ValueIndex: Integer; var LabelText: String);
begin
  if not defaultlabels then

    { А вот из-за чего, собственно, это и делалось: }
    if sender = chart1.LeftAxis then begin
      labeltext := floattostr(strtofloat(LabelText) / 1000);
    end;
end;

end.

Обрати внимание, я не использовал OnGetNextAxisLabel, а использовал OnGetAxisLabel...

В списке Uses могут быть лишние модули, не пугайся, я просто добавлял этот код в другой проект...