How to cast TCanvas3D to TCanvas and vice a versa

[Raju S Nair]

I need to pass the canvas of the VCL as parameter to some methods who in turn do some drawing operations on the canvas. For this I need to do class casting from TCavas3D to TCanvas and vice a versa. But it seems that since both of these are not compatible so compiler complains and does not even compiles the code.

Can some one please help some alternative.

Thanks in advance

[Narcís]

Hi Sunil,

To cast from a TCanvas3D to a TCanvas you can use this:

Code: Select all

  DBChart1.Canvas.ReferenceCanvas

For the inverse operation this:

Code: Select all

var MyCanvas: TCanvas;
begin
  MyCanvas:=TCanvas.Create;
  (MyCanvas as TCanvas3D).Rectangle(...);
end;