TGLButton

type TGLButton = class(TGLFocusControl)

protected

  procedure SetPressed();

  procedure InternalMouseDown(); override;

  procedure InternalMouseUp(); override;

  procedure InternalKeyDown(); override;

  procedure InternalKeyUp(); override;

  procedure SetFocused(); override;

  procedure SetGuiLayoutNamePressed();

  procedure SetGuiLayout(); override;

  procedure SetBitBtn();

  procedure DestroyHandle; override;

  procedure SetGroup();

  procedure SetLogicWidth();

  procedure SetLogicHeight();

  procedure SetXOffset();

  procedure SetYOffset();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure InternalRender(); override;

published

  property Group: Integer; [rw]

  property BitBtn: TGLMaterial; [rw]

  property Pressed: Boolean; [rw]

  property OnButtonClick: TNotifyEvent; [rw]

  property GuiLayoutNamePressed: TGLGuiComponentName; [rw]

  property LogicWidth: Single; [rw]

  property LogicHeight: Single; [rw]

  property XOffset: Single; [rw]

  property YOffset: Single; [rw]

  property AllowUp: Boolean; [rw]

end;

TGLButton

TGLFocusControl

TGLBaseTextControl

TGLBaseFontControl

TGLBaseControl

TGLBaseComponent

TGLBaseGuiObject

TObject