Unit 'IndLed'	Package
[Overview][Types][Classes][Index]	[#lz_industrial]

TcyCustomLed

Declaration

Source position: indled.pas line 53

`type TcyCustomLed = class(TcyBaseLed)`
`protected`
`procedure Paint; override;`
`function TransparentColorAtPos(); override;`
`property Transparent: Boolean; [rw]`
`property LedColorOn: TColor; [rw]`
`property LedColorOff: TColor; [rw]`
`property LedColorDisabled: TColor; [rw]`
`property ShapeLedColorOn: TColor; [rw]`
`property ShapeLedColorOff: TColor; [rw]`
`property ShapeLedColorDisabled: TColor; [rw]`
`property ShapePenWidth: Word; [rw]`
`property ShapeType: TShapeType; [rw]`
`property ShapeRoundRectX: Integer; [rw]`
`property ShapeRoundRectY: Integer; [rw]`
`property Bevels: tcyBevels; [rw]`
`property Height;`
`property Width;`
`public`
`constructor Create(); override;`
`destructor Destroy; override;`
`end;`