TCanvas3D.Calculate2DPosition

TCanvas3D.Calculate2DPosition
TCanvas3D

procedure Calculate2DPosition(Var X, Y: Integer; Z: Integer); virtual; abstract; overload;

Unit
TeCanvas

Description
In an orthogonal Chart, returns corresponding X and Y co-ordinate positions at Z=0 for an object with a Z displacement (Pixels).

Example

procedure TForm1.Chart1AfterDraw(Sender: TObject);
Var XC,YC:Integer;
begin
With Chart1.Canvas, Chart1 do
begin
XC:=ChartXCenter;
YC:=ChartYCenter;
//Takes 100 as Z displacement argument
Calculate2DPosition( XC, YC, 100);
//Plots Cube at corresponding front plane (Z=0) positions
Cube( XC-10,XC+10,YC-10,YC+10,15,25, True );
end;
end;