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).
Head over and check out the full blog post including math for creating a TPipe 3D object with Delphi Firemonkey.
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.
