TpvGUIButton

type TpvGUIButton = class(TpvGUIWidget)

protected

  function GetDown;

  procedure SetDown(); virtual;

  procedure SetCaption();

  procedure SetFont();

  function GetFontSize; override;

  procedure SetFontSize();

  function GetFontColor; override;

  function GetPreferredSize; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function KeyEvent(); override;

  function PointerEvent(); override;

  function Scrolled(); override;

  procedure PerformLayout; override;

  procedure Draw; override;

  property FontColor: TpvVector4;

published

  property Font: TpvFont; [w]

  property FontSize: TpvFloat; [w]

  property ButtonFlags: TpvGUIButtonFlags; [rw]

  property ButtonGroup: TpvGUIButtonGroup; [r]

  property Down: Boolean; [rw]

  property Caption: TpvUTF8String; [rw]

  property IconPosition: TpvGUIButtonIconPosition; [rw]

  property Icon: TObject; [rw]

  property IconHeight: TpvFloat; [rw]

  property OnClick: TpvGUIOnEvent; [rw]

  property OnChange: TpvGUIOnEvent; [rw]

  property TextHorizontalAlignment: TpvGUITextAlignment;

  property TextVerticalAlignment: TpvGUITextAlignment;

  property TextTruncation: TpvGUITextTruncation;

end;

TpvGUIButton

TpvGUIWidget

TpvGUIObject

TpvReferenceCountedObject,IpvGUIObject

TpvObject,IpvReferenceCountedObject

TObject