Gorilla.UI.Control3DTools

Unit Gorilla.UI.Control3DTools.pas

Classes

TGorillaControl3DToolsFrame = class ( TPanel )
TGorillaControl3DToolsForm = class ( TForm )

TGorillaControl3DToolsFrame

Ancestors

-TPresentedControl

-TStyledControl

Members

Fields

private FComponents : TComboBox
private FGrpTransform : TPanel
private FGrpPosition : TGroupBox
private FXPosEdt : TNumberBox
private FXPosLbl : TLabel
private FYPosEdt : TNumberBox
private FYPosLbl : TLabel
private FZPosEdt : TNumberBox
private FZPosLbl : TLabel
private FGrpRotation : TGroupBox
private FXRotEdt : TNumberBox
private FXRotLbl : TLabel
private FYRotEdt : TNumberBox
private FYRotLbl : TLabel
private FZRotEdt : TNumberBox
private FZRotLbl : TLabel
private FGrpScaling : TGroupBox
private FXSclEdt : TNumberBox
private FXSclLbl : TLabel
private FYSclEdt : TNumberBox
private FYSclLbl : TLabel
private FZSclEdt : TNumberBox
private FZSclLbl : TLabel
private FGrpAnimation : TGroupBox
private FAnimationBox : TComboBox
private FGrpFunctions : TGroupBox
private FWrapModeSelect : TComboBox
private FChkBx_Wireframe : TCheckBox
private FBtnCalcSmoothNormals : TButton
private FBtnCalcFaceNormals : TButton
private FBtnCalcBiTangents : TButton
private FGrpAnalyze : TGroupBox
private FChkBx_Normals : TCheckBox
private FChkBx_Adjust : TCheckBox
protected FActiveControl : TControl3D
protected FControls : TList<FMX.Controls3D.TControl3D>
protected FOnUpdate : TNotifyEvent
protected FOnUpdateControl3D : TOnControl3DUpdateEvent

Methods

public constructor Create ( AOwner : TComponent ) ;
public destructor Destroy ( ) ;
protected function GetActiveControl ( ) : TControl3D ;
protected procedure SetActiveControl ( AValue : TControl3D ) ;
protected procedure SetupComponents ( ) ;
protected procedure DoUpdateViewport ( ) ;
protected procedure UpdateControlsList ( ) ;
protected procedure DoOnComponentSelect ( Sender : TObject ) ;
protected procedure DoOnPositionChanged ( Sender : TObject ) ;
protected procedure DoOnRotationChanged ( Sender : TObject ) ;
protected procedure DoOnScalingChanged ( Sender : TObject ) ;
protected procedure WrapModeSelectChange ( Sender : TObject ) ;
protected procedure AnimationBoxChange ( Sender : TObject ) ;
protected procedure BtnCalcSmoothNormalsClick ( Sender : TObject ) ;
protected procedure BtnCalcBiTangentsClick ( Sender : TObject ) ;
protected procedure BtnCalcFaceNormalsClick ( Sender : TObject ) ;
protected procedure ChkBx_WireframeChange ( Sender : TObject ) ;
protected procedure ChkBx_NormalsChange ( Sender : TObject ) ;
protected procedure ChkBx_AdjustChange ( Sender : TObject ) ;
public procedure AddComponents ( ACtrls : TArray<System.Classes.TComponent> ) ;
public procedure AddControls ( ACtrls : TArray<FMX.Controls3D.TControl3D> ) ;
public procedure Reset ( ) ;
public procedure UpdateActiveControl ( ) ;

Properties

public ActiveControl : TControl3D
read GetActiveControl
write SetActiveControl

TGorillaControl3DToolsForm

Ancestors

-TCommonCustomForm

Members

Fields

protected GlobalControl3DToolsForm : TGorillaControl3DToolsForm
protected FFrame : TGorillaControl3DToolsFrame

Methods

public constructor Create ( AOwner : TComponent ) ;
public constructor CreateNew ( AOwner : TComponent; Dummy : NativeInt = $0 ) ;
public destructor Destroy ( ) ;
protected function GetActiveControl ( ) : TControl3D ;
protected procedure SetActiveControl ( AValue : TControl3D ) ;
public procedure AddComponents ( ACtrls : TArray<System.Classes.TComponent> ) ;
public procedure AddControls ( ACtrls : TArray<FMX.Controls3D.TControl3D> ) ;
public procedure Open ( ACtrl : TControl3D ) ; class;
public procedure OpenList ( ACtrls : TArray<FMX.Controls3D.TControl3D> ) ; class;
public procedure OpenGlobal ( ACtrl : TControl3D; AOnUpdate : TOnControl3DUpdateEvent = nil ) ; class;
public procedure OpenGlobalList ( ACtrls : TArray<FMX.Controls3D.TControl3D>; AOnUpdate : TOnControl3DUpdateEvent = nil ) ; class overload;
public procedure OpenGlobalList ( ACtrls : TArray<System.Classes.TComponent>; AOnUpdate : TOnControl3DUpdateEvent = nil ) ; class overload;
public procedure OpenViewportGlobal ( AViewport : TGorillaViewport; AOnUpdate : TOnControl3DUpdateEvent = nil ) ; class;
public function IsGlobalVisible ( ) : Boolean ; class;
public procedure HideGlobal ( ) ; class;
public function Execute ( ACtrl : TControl3D ) : Boolean ; class;

Properties

public Frame : TGorillaControl3DToolsFrame
read FFrame
public ActiveControl : TControl3D
read GetActiveControl
write SetActiveControl