Gorilla.UI.VirtualGamepad

Unit Gorilla.UI.VirtualGamepad.pas

Classes

TGorillaVirtualGamepad = class ( TRectangle )

Constants

const GORILLA_VIRTUALGAMEPAD_ID_MOVEMENTAREA : string = "MovementArea";
const GORILLA_VIRTUALGAMEPAD_ID_MOVEMENTCIRCLEAREA : string = "MovementCircleArea";
const GORILLA_VIRTUALGAMEPAD_ID_STICK : string = "Stick";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONAREA : string = "ButtonArea";
const GORILLA_VIRTUALGAMEPAD_ID_SYSTEMBUTTONAREA : string = "SystemButtonArea";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONA : string = "ButtonA";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONB : string = "ButtonB";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONX : string = "ButtonX";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONY : string = "ButtonY";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONSTART : string = "ButtonStart";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONMODE : string = "ButtonMode";
const GORILLA_VIRTUALGAMEPAD_ID_BUTTONBACK : string = "ButtonBack";
const GORILLA_VIRTUALGAMEPAD_ID_INFOLABEL : string = "InfoLabel";

TGorillaVirtualGamepad

Ancestors

-TRectangle

-TShape

-TControl

-TFmxObject

-TComponent

-TPersistent

-TObject

Members

Fields

protected FDispatchTimer : TTimer
protected FMovementArea : TRectangle
protected FButtonArea : TRectangle
protected FSystemButtonArea : TRectangle
protected FMovementCircleArea : TCircle
protected FButtonA : TButton
protected FButtonB : TButton
protected FButtonX : TButton
protected FButtonY : TButton
protected FButtonStart : TButton
protected FButtonMode : TButton
protected FButtonBack : TButton
protected FStick : TCircle
protected FInfoLabel : TLabel
protected FLastStickPos : TPointF
protected FStickMove : Boolean
protected FStickPosLeft : TGorillaInputMessage
protected FInputController : TGorillaInputController
protected FHandler : TGorillaInputHandler
protected FOnMessage : TOnVirtualGamepadMessage

Methods

public constructor Create ( AOwner : TComponent ) ;
public destructor Destroy ( ) ;
protected function GetStickNormal ( ) : TPointF ;
protected function GetComponentId ( AId : string ) : string ;
protected procedure Loaded ( ) ; override;
protected procedure DoClear ( ) ; virtual;
protected procedure DoRelink ( ) ; virtual;
protected procedure DoSetup ( ) ; virtual;
protected procedure DoSetupVirtualGamepad ( ) ; virtual;
protected procedure DoSetupMovementArea ( ) ; virtual;
protected procedure DoSetupMovementCircleArea ( ) ; virtual;
protected procedure DoSetupStick ( ) ; virtual;
protected procedure DoSetupButtonA ( ) ; virtual;
protected procedure DoSetupButtonB ( ) ; virtual;
protected procedure DoSetupButtonX ( ) ; virtual;
protected procedure DoSetupButtonY ( ) ; virtual;
protected procedure DoSetupButtonArea ( ) ; virtual;
protected procedure DoSetupButtonStart ( ) ; virtual;
protected procedure DoSetupButtonMode ( ) ; virtual;
protected procedure DoSetupButtonBack ( ) ; virtual;
protected procedure DoSetupInfoLabel ( ) ; virtual;
protected procedure DoSetupSystemButtonArea ( ) ; virtual;
protected procedure DoOnStickMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnStickMouseMove ( Sender : TObject; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnStickMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonStartMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonStartMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonModeMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonModeMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonBackMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonBackMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonAMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonAMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonBMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonBMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonXMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonXMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonYMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DoOnButtonYMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ; virtual;
protected procedure DispatchInputMessage ( AMessage : TGorillaInputMessage ) ; virtual;
protected function DeepComponentSearch ( AParent : TFmxObject; AName : string ) : TFmxObject ;
protected procedure DoOnDispatchTimer ( ASender : TObject ) ;

Properties

public StickNormal : TPointF
Returns the current 2D-normal vector of the stick position.
read GetStickNormal
published MovementArea : TRectangle
Get or set the visual representation of the button area at the left side of the virtual gamepad.
read FMovementArea
published MovementCircleArea : TCircle
Get or set the visual representation of a circle inside of the movement area.
read FMovementCircleArea
published Stick : TCircle
Get or set the visual representation of the stick circle.
read FStick
published ButtonArea : TRectangle
Get or set the visual representation of the button area at the right side of the virtual gamepad.
read FButtonArea
published SystemButtonArea : TRectangle
Get or set the visual representation of the system button area in the middle of the virtual gamepad.
read FSystemButtonArea
published InfoLabel : TLabel
Get or set the visual representation of the an info label at the bottom.
read FInfoLabel
published ButtonA : TButton
Get or set the visual representation of the A button.
read FButtonA
published ButtonB : TButton
Get or set the visual representation of the B button.
read FButtonB
published ButtonX : TButton
Get or set the visual representation of the X button.
read FButtonX
published ButtonY : TButton
Get or set the visual representation of the Y button.
read FButtonY
published ButtonStart : TButton
Get or set the visual representation of the start button.
read FButtonStart
published ButtonMode : TButton
Get or set the visual representation of the mode button.
read FButtonMode
published ButtonBack : TButton
Get or set the visual representation of the back button.
read FButtonBack
published InputController : TGorillaInputController
Link an input controller to send messages to. The virtual gamepad will produce input messages and dispatch those to a linked controller.
read FInputController
write FInputController