From eb6f23c3fac2ab39b2c857dd08fe34569d987dc9 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 17 Sep 2022 17:39:06 +0000
Subject: [PATCH] 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 | 6 ++++++
 components/exctrls/source/exshape.pas        | 1 +
 2 files changed, 7 insertions(+)

diff --git a/components/exctrls/examples/ShapeEx/main.lfm b/components/exctrls/examples/ShapeEx/main.lfm
index aa5e39c4f..c874195bc 100644
--- a/components/exctrls/examples/ShapeEx/main.lfm
+++ b/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)'
diff --git a/components/exctrls/source/exshape.pas b/components/exctrls/source/exshape.pas
index 42fdc2ea9..5323ae3e5 100644
--- a/components/exctrls/source/exshape.pas
+++ b/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;