Class TCastleTouchControl

Unit

CastleControls

Declaration

type TCastleTouchControl = class(TCastleUserInterface)

Description

Warning: this symbol is deprecated: use TCastleTouchNavigation

Touch user interface to navigate in a 3D world. Shows one "lever", that can be moved up/down/left/right, and controls the movement while Walking or Flying.

Hierarchy

• TObject
• TPersistent
• TComponent
• TCastleComponent
• TCastleUserInterface
• TCastleTouchControl

Overview

Methods

	procedure PreferredSize(var PreferredWidth, PreferredHeight: Single); override;
	constructor Create(AOwner: TComponent); override;
	procedure Render; override;
	function Press(const Event: TInputPressRelease): boolean; override;
	function Release(const Event: TInputPressRelease): boolean; override;
	function Motion(const Event: TInputMotion): boolean; override;
	procedure SetTouchMode(const Value: TCastleTouchCtlMode);
	procedure GetSensorRotation(var X, Y, Z, Angle: Double);
	procedure GetSensorTranslation(var X, Y, Z, Length: Double);

Properties

	property TouchMode: TCastleTouchCtlMode read FTouchMode write SetTouchMode default ctcmWalking;
	property Position: TCastleTouchPosition read FPosition write SetPosition default tpManual;
	property Scale: Single read FScale write SetScale default 1;

Description

Methods

	procedure PreferredSize(var PreferredWidth, PreferredHeight: Single); override;

	constructor Create(AOwner: TComponent); override;

	procedure Render; override;

	function Press(const Event: TInputPressRelease): boolean; override;

	function Release(const Event: TInputPressRelease): boolean; override;

	function Motion(const Event: TInputMotion): boolean; override;

	procedure SetTouchMode(const Value: TCastleTouchCtlMode);

	procedure GetSensorRotation(var X, Y, Z, Angle: Double);

	procedure GetSensorTranslation(var X, Y, Z, Length: Double);

Properties

	property TouchMode: TCastleTouchCtlMode read FTouchMode write SetTouchMode default ctcmWalking;

	property Position: TCastleTouchPosition read FPosition write SetPosition default tpManual;
Set position of touch control. Right now this simply sets the anchor using TCastleUserInterface.Anchor and friends. Tip: Use TCastleContainer.UIScaling to have the anchors automatically scale with screen size. The size of the control is set to be constant physical size, so it's not affected by TCastleContainer.UIScaling, only by TCastleContainer.Dpi.

	property Scale: Single read FScale write SetScale default 1;

---

Generated by PasDoc 0.16.0.