TJppBasicSpeedButton

type TJppBasicSpeedButton = class(TGraphicControl)

protected

  procedure Paint; override;

  property ButtonState: TJppBasicSpeedButtonState; [r]

  property MouseInControl: Boolean; [r]

  procedure Loaded; override;

  procedure CMMouseEnter(); message;

  procedure CMMouseLeave(); message;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure CMEnabledChanged(); message;

  procedure PropsChanged();

  procedure ActionChange(); override;

  procedure Notification(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Click; override;

  function CaptionWidth;

  procedure SetBounds(); override;

published

  property TagExt: TJppTagExt; [rw]

  property OnMouseEnter: TNotifyEvent; [rw]

  property OnMouseLeave: TNotifyEvent; [rw]

  property Caption: string; [rw]

  property Appearance: TJppBasicSpeedButtonAppearance; [rw]

  property PngImage: TPngImage; [rws]

  property PngOptions: TPngOptions; [rw]

  property Layout: TButtonLayout; [rw]

  property Margin: Integer; [rw]

  property Spacing: Integer; [rw]

  property AutoWidth: Boolean; [rw]

  property AutoWidthMargin: ShortInt; [rw]

  property AutoWidthRightJustify: Boolean; [rw]

  property AnchoredControls: TJppAnchoredControls; [rw]

  property Action;

  property Align;

  property Anchors;

  property BiDiMode;

  property Constraints;

  property Cursor;

  property Enabled;

  property Font;

  property ParentBiDiMode;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property BorderSpacing;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnChangeBounds;

end;

TJppBasicSpeedButton

TObject