hello,
Character of the position in the Y-axis is shifted.
Is there a way that does not shift ?
I know the cause is this code.
> AdvChartView1.Panes[0].YAxis.AutoUnits := False;
But I want to decide on their own the pitch of the Y-axis.
Kind Regards,
TARO
{The following is the code that this phenomenon occurs }
procedure TForm1.XAxisGetVal(Sender: TObject; Serie: TChartSerie;Value: double; var AValue: string);beginAValue := Format('%.0f m', [value]);end;procedure TForm1.FormCreate(Sender: TObject);beginAdvChartView1.Panes[0].Series[0].OnXAxisGetValue := XAxisGetVal;AdvChartView1.Panes[0].BorderStyle:=bsNone;AdvChartView1.Enabled := False;with AdvChartView1.Panes[0] dobeginSeries[2].Free;Series[1].Free;CrossHair.Visible := False;Legend.Visible := False;Range.RangeFrom:=0;Range.RangeTo :=200000;Title.Text :='';XAxis.Darken3D := False;XAxis.Size:=55;XAxis.Text:='';XGrid.AutoUnits:=False;XGrid.MajorLineColor := $00D7D7D7;XGrid.MajorLineStyle := psSolid;XGrid.MinorLineColor := $00D7D7D7;XGrid.MinorLineStyle := psDash;XGrid.MinorLineWidth := 0;XGrid.Visible := True;YAxis.AutoUnits := False;YAxis.Darken3D := False;YAxis.Size:=100;YAxis.Text:='';YGrid.AutoUnits:=False;YGrid.MajorLineColor := $00D7D7D7;YGrid.MajorLineStyle := psSolid;YGrid.MajorLineWidth := 3;YGrid.MinorLineColor := $00D7D7D7;YGrid.MinorLineStyle := psDash;YGrid.MinorLineWidth := 1;YGrid.Visible := True;With Series[0] do beginChartType := ctXYLine;LineColor := clBlack;Marker.MarkerType := mNone;Maximum := 30;Minimum := -1;ShowValue := False;Title.Text := '';ValueFormat := '%.1f m';XAxis.AutoUnits:=False;XAxis.MajorUnit := 100000;XAxis.MinorUnit := 20000;XAxis.Visible := true;XAxis.XYValues := False;XGrid.AutoUnits := False;XGrid.AutoUnits := False;XGrid.MajorDistance := 100000;XGrid.MinorDistance := 20000;YAxis.AutoUnits:=False;YAxis.MajorUnit := 10;YAxis.MinorUnit := 5;YAxis.MinorUnitVisible := True;YAxis.TickMarkColor := clBlack;YAxis.Visible := true;YGrid.AutoUnits := False;YGrid.MajorDistance := 10;YGrid.MinorDistance := 5;AddSingleXYPoint( 0.00 , 0.60 );AddSingleXYPoint( 3.70 , 0.50 );AddSingleXYPoint( 10.45 , 20.50 );AddSingleXYPoint( 20.20 , 0.50 );AddSingleXYPoint( 500.20 ,-0.50 );AddSingleXYPoint( 8000.20 , 10.50 );AddSingleXYPoint(190000.40 , 20.60 );end;end;end;