ExCtrls: Publish TShapeEx.Font

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

components/exctrls/examples/ShapeEx/main.lfm

@@ -43,7 +43,9 @@ object MainForm: TMainForm
     Height = 104
     Top = 120
     Width = 98
+    Brush.Color = clTeal
     Shape = stStar
+    Font.Color = clWhite
     Header.VertAlignment = taAlignTop
     HeaderFont.Style = [fsBold]
     Text.Lines.Strings = (
@@ -74,6 +76,8 @@ object MainForm: TMainForm
     Height = 203
     Top = 21
     Width = 120
+    Brush.Color = clYellow
+    Pen.Color = clRed
     Shape = stTriangle
     Header.Lines.Strings = (
       'Footer'
@@ -90,6 +94,7 @@ object MainForm: TMainForm
     Height = 65
     Top = 248
     Width = 193
+    Pen.Style = psClear
     Header.HorAlignment = taLeftJustify
     Header.Lines.Strings = (
       'Header (left-aligned)'
@@ -108,6 +113,7 @@ object MainForm: TMainForm
     Height = 65
     Top = 248
     Width = 201
+    Pen.Style = psDot
     Header.HorAlignment = taRightJustify
     Header.Lines.Strings = (
       'Header (right-aligned)'

components/exctrls/source/exshape.pas

@@ -60,6 +60,7 @@ type
     destructor Destroy; override;
     procedure Paint; override;
   published
+    property Font;
     property Header: TShapeText read FHeader write SetHeader;
     property HeaderFont: TFont read FHeaderFont write SetHeaderFont;
     property Text: TShapeText read FText write SetText;