TChart disabled on 64Bit iOS platform

TeeChart FireMonkey (Windows,OSX,iOS & Android) for Embarcadero RAD Studio, Delphi and C++ Builder (XE5+)
X-Ray
Newbie
Newbie
Posts: 49
Joined: Fri Jan 27, 2012 12:00 am

Re: TChart disabled on 64Bit iOS platform

Post by X-Ray » Wed Sep 09, 2015 2:41 pm

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
Newbie
Newbie
Posts: 49
Joined: Fri Jan 27, 2012 12:00 am

Re: TChart disabled on 64Bit iOS platform

Post by X-Ray » Thu Sep 10, 2015 6:55 am

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
Site Admin
Site Admin
Posts: 8737
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: TChart disabled on 64Bit iOS platform

Post by Yeray » Mon Sep 14, 2015 9:28 am

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.
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Please read our Bug Fixing Policy

Post Reply