TCustomBCButtonFocus

type TCustomBCButtonFocus = class(TBCStyleCustomControl)

protected

  procedure LimitMemoryUsage;

  procedure CalculatePreferredSize(); override;

  class function GetControlClassDefaultSize; override;

  procedure Click; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure SetEnabled(); override;

  procedure TextChanged; override;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure ActionChange(); override;

  function GetActionLinkClass; override;

  procedure Notification(); override;

  procedure Render(); virtual;

  procedure RenderState(); virtual;

  property ClickOffset: Boolean; [rw]

  property DropDownArrow: Boolean; [rw]

  property DropDownMenu: TPopupMenu; [rw]

  property DropDownStyle: TBCButtonFocusDropDownStyle; [rw]

  property DropDownPosition: TBCButtonFocusDropDownPosition; [rw]

  property ImageIndex: Integer; [rw]

  property ShowCaption: Boolean; [rw]

  function GetStyleExtension; override;

  procedure DrawControl; override;

  procedure RenderControl; override;

  procedure WMSetFocus(); message;

  procedure WMKillFocus(); message;

  procedure UpdateFocus();

  property AutoSizeExtraVertical: Integer; [r]

  property AutoSizeExtraHorizontal: Integer; [r]

  property StateNormal: TBCButtonFocusState; [rw]

  property StateHover: TBCButtonFocusState; [rw]

  property StateClicked: TBCButtonFocusState; [rw]

  property Down: Boolean; [rw]

  property DropDownWidth: Integer; [rw]

  property DropDownArrowSize: Integer; [rw]

  property FlipArrow: Boolean; [rw]

  property Glyph: TBitmap; [rw]

  property GlyphMargin: Integer; [rw]

  property GlyphAlignment: TBCAlignment; [rw]

  property GlyphOldPlacement: Boolean; [rw]

  property Style: TBCButtonFocusStyle; [rw]

  property StaticButton: Boolean; [rw]

  property GlobalOpacity: Byte; [rw]

  property Rounding: TBCRounding; [rw]

  property RoundingDropDown: TBCRounding; [rw]

  property TextApplyGlobalOpacity: Boolean; [rw]

  property OnAfterRenderBCButton: TOnAfterRenderBCButtonFocus; [rw]

  property OnButtonClick: TNotifyEvent; [rw]

  property MemoryUsage: TBCButtonFocusMemoryUsage; [rw]

  property InnerMargin: single; [rw]

  property OnPaintButton: TNotifyEvent; [rw]

  property PreserveGlyphOnAssign: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure SetSizeVariables();

  procedure UpdateControl; override;

  property Images: TCustomImageList; [rw]

  procedure SaveToFile();

  procedure LoadFromFile();

  procedure AssignFromFile();

  procedure OnFindClass();

end;

TCustomBCButtonFocus

TBCStyleCustomControl

TBCCustomControl

TBGRACustomCtrl

TObject