TChart disabled on 64Bit iOS platform

[X-Ray]

Hello Yeray,

>I've tried it with v2015.15 and v2015.16 in Android and it seems to give the same result. Could you please specify what two versions to compare?
You are right, its only OK when using Tchart VCL in OpenGL mode.
Native painting shows indeed the same bug than the FMX version.
Will this problem ever get fixed ?

>The depth axis is not visible. It will appear if you make it visible:
No, I just had a look, the depth axis was definitely set to visible but it was not visible on my iPhone.
There is still a problem with this axis title.

best regards,

X-ray

[X-Ray]

Hello Yeray,

I tried your code to draw the bottom axis title, that indeed helps to displace it and making it completely visible.
Could you please post the source code for the Left axis title too,
taking into account to draw the axis title from bottom to top (not from left to right) ?

best regards,

X-Ray

[Yeray]

Hello,

This is quite similar to the code for the bottom axis title:

Code: Select all

uses System.Math, FMXTee.Constants, FMXTee.Tools, FMXTee.Canvas;

type
  TCanvasAccess=class(TCanvas3D);

//...
procedure TForm1.FormCreate(Sender: TObject);
//...
  Chart1.Axes.Left.Title.Text:='Y-Axis Title';
  Chart1.Axes.Bottom.Title.Text:='X-Axis Title';
  Chart1.Axes.Depth.Visible:=true;

  with TFlatTheme.Create(Chart1) do
  try
    Apply;
  finally
    Free;
  end;

  Chart1.Aspect.Zoom:=70;
  Chart1.Aspect.Orthogonal:=false;

  Chart1.Axes.Depth.Axis.Assign(Chart1.Axes.Bottom.Axis);
  Chart1.Axes.Depth.LabelsFont.Assign(Chart1.Axes.Bottom.LabelsFont);
  Chart1.Axes.Left.Title.Visible:=false;
  Chart1.Axes.Bottom.Title.Visible:=false;
end;

//...

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var xOffset, yOffset, tmpZ, tmpW: Integer;
    pos: TPointF;
    st: string;
begin
  xOffset:=10;
  yOffset:=10;

  with Chart1.Axes.Bottom do
  begin
    st:=Title.Caption;
    Chart1.Canvas.AssignFont(Title.Font);
    tmpW:=Chart1.Canvas.TextWidth(st);

    pos.X:=IStartPos + ((IEndPos-IStartPos) div 2);// - (tmpW div 2);
    pos.Y:=Round(PosAxis + Abs(LabelsFont.Size) + TickLength + 7);
    tmpZ:=Round(Chart1.Width3D * ZPosition * 0.01);
  end;

  pos:=Chart1.Canvas.Calculate3DPosition(pos,tmpZ);
  pos.Y:=pos.Y+yOffset;

  Chart1.Canvas.TextOut(pos.X, pos.Y, st);

  with Chart1.Axes.Left do
  begin
    st:=Chart1.Axes.Left.Title.Caption;
    Chart1.Canvas.AssignFont(Title.Font);
    tmpW:=Chart1.Canvas.TextWidth(st);

    pos.Y:=IStartPos + ((IEndPos-IStartPos) div 2) - 2;// - (tmpW div 2);
    pos.X:=Round(PosAxis - MaxLabelsWidth - TickLength - 49);
    tmpZ:=Round(Chart1.Width3D * ZPosition * 0.01);
  end;

  pos:=Chart1.Canvas.Calculate3DPosition(pos,tmpZ);
  pos.X:=pos.X-xOffset;

  TCanvasAccess(Chart1.Canvas).IUseTextCenter:=True;
  TCanvasAccess(Chart1.Canvas).ITextCenter:=pos;
  Chart1.Canvas.RotateLabel(Round(pos.X), Round(pos.Y), st, 90);
  TCanvasAccess(Chart1.Canvas).IUseTextCenter:=False;
end;

It basically adds the complexity of the rotation of the text.