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

IndustrialStuff: Add default values to Blink and State properties of TAdvLED.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8210 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-16 09:55:31 +00:00
parent 31a6f90915
commit bcf7b347c4
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/industrialstuff/source/AdvLed.pas
View File

@@ -79,12 +79,13 @@ type
write SetGlyph stored StoredGlyph; write SetGlyph stored StoredGlyph;
property GlyphOn: TLedBitmap index 2 read GetGlyph property GlyphOn: TLedBitmap index 2 read GetGlyph
write SetGlyph stored StoredGlyph; write SetGlyph stored StoredGlyph;
property State: TLedState read FState write SetState; property State: TLedState read FState write SetState default lsDisabled;
property Blink: Boolean read FBlink write SetBlink; property Blink: Boolean read FBlink write SetBlink default false;
property BlinkDuration: Integer read GetBlinkDuration write SetBlinkDuration default 1000; property BlinkDuration: Integer read GetBlinkDuration write SetBlinkDuration default 1000;
property FlashMode: TFlashMode read FFlashMode write FFlashMode default fmFlashOffToOn; property FlashMode: TFlashMode read FFlashMode write FFlashMode default fmFlashOffToOn;
property Align; property Align;
property AutoSize default true; property AutoSize default true;
property BorderSpacing;
property Center; property Center;
property Constraints; property Constraints;
// property Picture; // property Picture;