Irregular shapes in Delphi

Question

With Delphi, using Firemonkey:

How can I get a shape like in the drawing using TShape components? I do not want to use a bitmap.

Answer 1

Using a TPath component with the following path data should give you a result that's very similar to what you want: M0,0 L100,0 C110,-5 110,-15 120,-20 L200,-20 C210,-15 210,-5 220,0 L320,0 L320,5 L0,5 Z