From 5551ea4726a6093ca332332a451ba89ce5464d3c Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 2 May 2022 09:56:04 +0000
Subject: [PATCH] industrial/TLEDNumber: Publish properties AutoSize, Align,
 Anchors.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8271 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/industrialstuff/source/lednumber.pas | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/components/industrialstuff/source/lednumber.pas b/components/industrialstuff/source/lednumber.pas
index 9f9d8233d..cef1dce9e 100644
--- a/components/industrialstuff/source/lednumber.pas
+++ b/components/industrialstuff/source/lednumber.pas
@@ -78,6 +78,7 @@ type
     function  GetAbout: string;
     function  GetSlantAngle: Double;
     procedure SetAbout(const {%H-}Value: string);
+    procedure SetAutoSize(AValue: Boolean); override;
     procedure SetSize(Value: TSegmentSize);
     procedure SetSlantAngle(Value: Integer);
     procedure SetSlanted(Value: Boolean);
@@ -110,6 +111,9 @@ type
 
   TLEDNumber = class(TCustomLEDNumber)
   published
+    property Align;
+    property Anchors;
+    property AutoSize;
     property Version;
     property BorderSpacing;
     property BorderStyle;
@@ -294,7 +298,15 @@ procedure TCustomLEDNumber.SetAbout(const Value : string);
 begin
   {Leave empty}
 end;
-{=====}
+
+procedure TCustomLEDNumber.SetAutoSize(AValue: Boolean);
+begin
+  if AValue = inherited AutoSize then
+    exit;
+  inherited SetAutoSize(AValue);
+  if AValue then
+    ResizeControl(FRows, FColumns, FSize);
+end;
 
 procedure TCustomLEDNumber.SetTransparent(AValue: boolean);
 begin