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