From bcf7b347c4b7088d587753083479b2139a027f95 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 16 Mar 2022 09:55:31 +0000 Subject: [PATCH] IndustrialStuff: Add default values to Blink and State properties of TAdvLED. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8210 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/industrialstuff/source/AdvLed.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/components/industrialstuff/source/AdvLed.pas b/components/industrialstuff/source/AdvLed.pas index c01735c0b..cb89a0550 100644 --- a/components/industrialstuff/source/AdvLed.pas +++ b/components/industrialstuff/source/AdvLed.pas @@ -79,12 +79,13 @@ type write SetGlyph stored StoredGlyph; property GlyphOn: TLedBitmap index 2 read GetGlyph write SetGlyph stored StoredGlyph; - property State: TLedState read FState write SetState; - property Blink: Boolean read FBlink write SetBlink; + property State: TLedState read FState write SetState default lsDisabled; + property Blink: Boolean read FBlink write SetBlink default false; property BlinkDuration: Integer read GetBlinkDuration write SetBlinkDuration default 1000; property FlashMode: TFlashMode read FFlashMode write FFlashMode default fmFlashOffToOn; property Align; property AutoSize default true; + property BorderSpacing; property Center; property Constraints; // property Picture;