TCustomECBitBtn

type TCustomECBitBtn = class(TCustomControl)

protected

const

  cDefHeight = 27

  cDefWidth = 75

protected

  Core: TECBtnCore;

  ECTimer: TCustomECTimer;

  UpdateCount: SmallInt;

  procedure CalculatePreferredSize(); override;

  procedure Click; override;

  procedure CMBiDiModeChanged(); message;

  procedure CMButtonPressed(); message;

  procedure CMColorChanged(); message;

  procedure CMParentColorChanged(); message;

  procedure CreateTimer;

  function DialogChar(); override;

  procedure FontChanged(); override;

  function GetActionLinkClass; override;

  procedure MouseDown(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseUp(); override;

  procedure Paint; override;

  procedure Redraw;

  procedure Resize; override;

  procedure ResizeInvalidate;

  procedure SetAction(); override;

  procedure SetAutoSize(); override;

  procedure SetParent(); override;

  procedure SetTimerEvent;

  procedure TextChanged; override;

  procedure TimerOnTimerDelay();

  procedure TimerOnTimerHold();

  procedure TimerOnTimerRepeating();

  procedure UpdateGroup;

  property CheckFromAction: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate;

  procedure EndUpdate;

  property AllowAllUp: Boolean; [rw]

  property BtnBitmaps []: TBitmap; [r]

  property Checked: Boolean; [rw]

  property CheckedFontColor: TColor; [rw]

  property CheckedFontStyles: TFontStyles; [rw]

  property Delay: Integer; [rw]

  property DropDownGlyph: TDropDownGlyph; [rw]

  property Flat: Boolean; [rw]

  property GlyphColor: TColor; [rw]

  property GlyphDesign: TGlyphDesign; [rw]

  property GlyphDesignChecked: TGlyphDesign; [rw]

  property GroupIndex: Integer; [rw]

  property ImageIndex: TImageIndex; [rw]

  property ImageIndexChecked: TImageIndex; [rw]

  property Images: TCustomImageList; [rw]

  property ImageWidth: SmallInt; [rw]

  property Layout: TObjectPos; [rw]

  property Margin: SmallInt; [rw]

  property Mode: TButtonMode; [rw]

  property Repeating: Integer; [rw]

  property ShowCaption: Boolean; [rw]

  property Spacing: SmallInt; [rw]

  property Transparent: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnDrawGlyph: TOnDrawGlyph; [rw]

  property OnHoldDown: TNotifyEvent; [rw]

  property OnRelease: TNotifyEvent; [rw]

  property OnRepeating: TNotifyEvent; [rw]

end;

TCustomECBitBtn

TObject