TCustomLEDNumber

type TCustomLEDNumber = class(TGraphicControl)

protected

  FBgColor: TColor;

  FOffColor: TColor;

  FOnColor: TColor;

  FColumns: Integer;

  FRows: Integer;

  FZeroToO: Boolean;

  FSize: TSegmentSize;

  FSlantAngle: Integer;

  FSlanted: Boolean;

  lbDrawBmp: TBitmap;

  procedure CMTextChanged(); message;

  procedure DoAutoAdjustLayout(); override;

  procedure Initialize();

  procedure Loaded; override;

  function NewOffset();

  procedure Paint; override;

  procedure PaintSegment();

  procedure ProcessCaption();

  procedure ResizeControl();

  procedure SetParent(); override;

  procedure SlantPoint();

  function GetAbout;

  function GetSlantAngle;

  procedure SetAbout();

  procedure SetAutoSize(); override;

  procedure SetSize();

  procedure SetSlantAngle();

  procedure SetSlanted();

  procedure SetOnColor();

  procedure SetOffColor();

  procedure SetRows();

  procedure SetColumns();

  procedure SetBGColor();

  procedure SelectSegments();

  property Version: string; [rws]

  property BorderStyle: TLedNumberBorderStyle; [rw]

  property Columns: Integer; [rw]

  property Rows: Integer; [rw]

  property BgColor: TColor; [rw]

  property OffColor: TColor; [rw]

  property OnColor: TColor; [rw]

  property Size: TSegmentSize; [rw]

  property SlantAngle: Integer; [rw]

  property Slanted: Boolean; [rw]

  property Transparent: Boolean; [rw]

  property ZeroToO: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

end;

TCustomLEDNumber

TObject