TcyBaseButton

type TcyBaseButton = class(TButton)

protected

  FCanvas: TCanvas;

  FDesignDraw: Boolean;

  FDesignState: TButtonState;

  FMouseOver: Boolean;

  FMouseLeftDown: Boolean;

  procedure CalcLayout();

  procedure DrawButton(); virtual;

  procedure DrawBackground(); virtual;

  procedure DrawBorders();

  procedure DrawCaption();

  procedure DrawGlyph();

  procedure DrawInnerBorders();

  procedure CreateParams(); override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure SetButtonStyle();

  property MouseOver: Boolean; [r]

  property MouseLeftDown: Boolean; [r]

  property CaptionOrientation: TCaptionOrientation; [rw]

  property DisabledGlyphDrawing: TDisabledGlyphOptions; [rw]

  property DisabledColor: TColor; [rw]

  property Layout: TButtonLayout; [rw]

  property Margin: Integer; [rw]

  property MonochromeGlyphColor: TColor; [rw]

  property NumGlyphs: TNumGlyphs; [rw]

  property GlyphX: TPicture; [rw]

  property Spacing: Integer; [rw]

  property OnPaint: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  property Canvas: TCanvas; [r]

end;

TcyBaseButton

TObject