paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 19:09:25 +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 published
// kind property must be published before GlyphOn, GlyphOff,GlyphDisable // 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 property GlyphDisabled: TLedBitmap index 0 read GetGlyph
write SetGlyph stored StoredGlyph; write SetGlyph stored StoredGlyph;
property GlyphOff: TLedBitmap index 1 read GetGlyph property GlyphOff: TLedBitmap index 1 read GetGlyph
@ -151,8 +151,7 @@ constructor TAdvLed.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
ControlStyle := ControlStyle - [csSetCaption]; ControlStyle := ControlStyle - [csSetCaption];
Height := 25; AutoSize:=True;
Width := 25;
FGlyphs[lsOn] := TLedBitmap.Create; FGlyphs[lsOn] := TLedBitmap.Create;
FGlyphs[lsOff] := TLedBitmap.Create; FGlyphs[lsOff] := TLedBitmap.Create;
FGlyphs[lsDisabled] := 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 Columns: Integer read FColumns write SetColumns default 10;
property Rows: Integer read FRows write SetRows default 1; property Rows: Integer read FRows write SetRows default 1;
property BgColor: TColor read FbgColor write SetbgColor default clBlack; property BgColor: TColor read FbgColor write SetbgColor default clBlack;
property OffColor: TColor read FOffColor write SetOffColor default $00104E4A; property OffColor: TColor read FOffColor write SetOffColor default $000E3432;
property OnColor: TColor read FOnColor write SetOnColor default clYellow; property OnColor: TColor read FOnColor write SetOnColor default clLime;
property Size: TSegmentSize read FSize write SetSize default 2; 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.} property Transparent: boolean read FTransparent write SetTransparent default false; {Draws segments with transparent background.BgColor is used as mask color.}
{Inherited properties} {Inherited properties}

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

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