ExCtrls: New component TShapeEx (text in shape)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8484 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/exctrls/examples/ShapeEx/main.pas

@@ -0,0 +1,36 @@
+unit main;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExShape;
+
+type
+
+  { TMainForm }
+
+  TMainForm = class(TForm)
+    ShapeEx1: TShapeEx;
+    ShapeEx2: TShapeEx;
+    ShapeEx3: TShapeEx;
+    ShapeEx4: TShapeEx;
+    ShapeEx5: TShapeEx;
+    ShapeEx6: TShapeEx;
+    ShapeEx7: TShapeEx;
+  private
+
+  public
+
+  end;
+
+var
+  MainForm: TMainForm;
+
+implementation
+
+{$R *.lfm}
+
+end.
+