pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

industrial/TLEDNumber: Publish properties AutoSize, Align, Anchors.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8271 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-05-02 09:56:04 +00:00
parent 870e46847a
commit 5551ea4726
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/industrialstuff/source/lednumber.pas
View File

@ -78,6 +78,7 @@ type
function GetAbout: string; function GetAbout: string;
function GetSlantAngle: Double; function GetSlantAngle: Double;
procedure SetAbout(const {%H-}Value: string); procedure SetAbout(const {%H-}Value: string);
procedure SetAutoSize(AValue: Boolean); override;
procedure SetSize(Value: TSegmentSize); procedure SetSize(Value: TSegmentSize);
procedure SetSlantAngle(Value: Integer); procedure SetSlantAngle(Value: Integer);
procedure SetSlanted(Value: Boolean); procedure SetSlanted(Value: Boolean);
@ -110,6 +111,9 @@ type
TLEDNumber = class(TCustomLEDNumber) TLEDNumber = class(TCustomLEDNumber)
published published
property Align;
property Anchors;
property AutoSize;
property Version; property Version;
property BorderSpacing; property BorderSpacing;
property BorderStyle; property BorderStyle;
@ -294,7 +298,15 @@ procedure TCustomLEDNumber.SetAbout(const Value : string);
begin begin
{Leave empty} {Leave empty}
end; 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); procedure TCustomLEDNumber.SetTransparent(AValue: boolean);
begin begin