TcyDBLed

type TcyDBLed = class(TcyCustomLed)

protected

  procedure CMButtonPressed();

  function GetLedStatus; override;

  procedure Notification(); override;

  procedure SetLedvalue(); override;

  procedure SetReadOnly(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Loaded; override;

  function ExecuteAction(); override;

  function UpdateAction(); override;

  property Field: TField; [r]

published

  property DataField: string; [rw]

  property DataSource: TDataSource; [rw]

  property ValueOn: string; [rw]

  property ValueOff: string; [rw]

  property Align;

  property Anchors;

  property Enabled;

  property Constraints;

  property Visible;

  property OnClick;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property AllowAllOff: Boolean;

  property GroupIndex: Integer;

  property LedValue: Boolean;

  property ReadOnly: Boolean;

  property Color;

  property Bevels: tcyBevels;

  property LedColorOn: TColor;

  property LedColorOff: TColor;

  property LedColorDisabled: TColor;

  property ShapeLedColorOn: TColor;

  property ShapeLedColorOff: TColor;

  property ShapeLedColorDisabled: TColor;

  property ShapePenWidth: Word;

  property ShapeType: TShapeType;

  property ShapeRoundRectX: Integer;

  property ShapeRoundRectY: Integer;

  property Transparent: Boolean;

end;

TcyDBLed

TcyCustomLed

TcyBaseLed

TObject