TfpgBaseButton

type TfpgBaseButton = class(TfpgWidget, ICommandHolder)

protected

  FImageMargin: Integer;

  FImageSpacing: Integer;

  FEmbedded: Boolean;

  FDown: Boolean;

  FImage: TfpgImage;

  FText: String;

  FFont: TfpgFont;

  FDefault: Boolean;

  FState: Integer;

  procedure SetShowImage();

  procedure HandlePaint; override;

  procedure HandleKeyPress(); override;

  procedure HandleKeyRelease(); override;

  procedure HandleLMouseDown(); override;

  procedure HandleLMouseUp(); override;

  procedure HandleMouseExit; override;

  procedure HandleMouseEnter; override;

  property AllowAllUp: Boolean; [rw]

  property AllowDown: Boolean; [rw]

  property Default: Boolean; [rw]

  property Down: Boolean; [rw]

  property Embedded: Boolean; [rw]

  property Flat: Boolean; [rw]

  property FontDesc: String; [rw]

  property GroupIndex: Integer; [rw]

  property ImageMargin: Integer; [rw]

  property ImageName: String; [rw]

The registered name of a image to display on the button

  property ImageSpacing: Integer; [rw]

The spacing between the Image and the Text

  property ImageLayout: TImageLayout; [rw]

Defines where on the button the image will be displayed

  property ModalResult: TfpgModalResult; [rw]

  property ShowImage: Boolean; [rw]

  property Text: String; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Click;

  function GetCommand;

  procedure SetCommand();

  property Font: TfpgFont; [r]

end;

TfpgBaseButton,ICommandHolder

Base class the represents a push button control

TfpgWidget

TfpgWindow

TfpgWindowImpl

TObject