代码说明：
图形控件，类似Tshap,但有新特性，阴影，填充选择
TManyShape is a TGraphicControl descendant similiar to TShape, but adding new shapes (Diamond, Triangle, Star, Polygon), shadows, and fill options (Transparent, Opaque, Tiled Image, Gradient Fill, 50% opaque, 25% opaque).
