Developer Mehmed Ali Caliskan from Turkey has a blog post up where he demonstrates how to create a 3D pipe object with Delphi Firemonkey. I’m not sure what version of Firemonkey it is originally for but the blog post is from 2012. In any event it should be pretty easy to port forward to Delphi XE6. The TPipe component he creates is based on TCustomMesh and implements a number of additional options. The pipe can be a rectangle instead of a circle. The pipe can also be just a section of the circle so you could have a 90 degrees arc as a 3D pipe object. The pipe can have a turn angle set which gives it an elbow shape and it can have multiple turns which create even more elbows in the pipe. Parts of the pipe can be embossed either inward or outward depending on your needs. And lastly a twist can be applied to each section of the pipe which will twist that section in one direction. The source code for this pipe mash object is available on Google Code. I don’t see any code in the project that would stop it from running on Android and IOS (and it will probably compile in AppMethod as well).
Or head straight to the FMX.MeshObjects unit and check out the TPipe source code for Delphi Firemonkey,
Update: Download an updated version of FMX.MeshObjects for Delphi 10 Seattle. Download an updated version of FMX.MeshObjects for Delphi XE5 through Delphi XE7.
Nice development, but outdated – it does not compile anymore on Delphi XE5 and XE6. The reasons are explained here:
http://docwiki.embarcadero.com/RADStudio/XE5/en/FireMonkey_Refactoring_in_XE5
Unfortunately there is no explanation how to replace the removed functions/procedures/methods.
The usual situation of shifting boxes – nobody looks in the contents!
Enjoy
Roumen