paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 05:00:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

Industrial package: Make default property values match with values set in constructors. Issue #28519, patch from Vojtech Cihak.

Browse Source 
git-svn-id: trunk@49675 -
This commit is contained in:
juha 2015-08-15 21:40:09 +00:00
parent 5747ff089c
commit 7d5464d379
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,7 +64,7 @@ type
published
// kind property must be published before GlyphOn, GlyphOff,GlyphDisable
property Kind: TLedKind read FKind write SetKind ;
property Kind: TLedKind read FKind write SetKind default lkRedLight;
property GlyphDisabled: TLedBitmap index 0 read GetGlyph
write SetGlyph stored StoredGlyph;
property GlyphOff: TLedBitmap index 1 read GetGlyph
@ -151,8 +151,7 @@ constructor TAdvLed.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle - [csSetCaption];
Height := 25;
Width := 25;
AutoSize:=True;
FGlyphs[lsOn] := TLedBitmap.Create;
FGlyphs[lsOff] := TLedBitmap.Create;
FGlyphs[lsDisabled] := TLedBitmap.Create;

4
components/IndustrialStuff/source/lednumber.pas
View File

@ -84,8 +84,8 @@ type
property Columns: Integer read FColumns write SetColumns default 10;
property Rows: Integer read FRows write SetRows default 1;
property BgColor: TColor read FbgColor write SetbgColor default clBlack;
property OffColor: TColor read FOffColor write SetOffColor default $00104E4A;
property OnColor: TColor read FOnColor write SetOnColor default clYellow;
property OffColor: TColor read FOffColor write SetOffColor default $000E3432;
property OnColor: TColor read FOnColor write SetOnColor default clLime;
property Size: TSegmentSize read FSize write SetSize default 2;
property Transparent: boolean read FTransparent write SetTransparent default false; {Draws segments with transparent background.BgColor is used as mask color.}
{Inherited properties}

5
components/IndustrialStuff/source/sensors.pas
View File

@ -62,8 +62,8 @@ type
property ShowText: Boolean read FShowText write SetShowText;
property ShowLevel: Boolean read FShowLevel write SetShowLevel;
property ColorFore: TColor index 0 read FColorFore write SetColorInd default clBlack;
property ColorBack: TColor index 1 read FColorBack write SetColorInd default clWhite;
property ColorFore: TColor index 0 read FColorFore write SetColorInd default clLime;
property ColorBack: TColor index 1 read FColorBack write SetColorInd default clBlack;
property ColorRed: TColor index 2 read FColorRed write SetColorInd default clRed;
property ColorYellow: TColor index 3 read FColorYellow write SetColorInd default clYellow;
@ -100,6 +100,7 @@ type
public
constructor Create(AOwner: TComponent); override;
published
property Center default True;
property State: TStopLights read FState write SetState;
end;