Gorilla.UI.ModelViewer

Unit Gorilla.UI.ModelViewer.pas

Classes

TModelViewerFrame = class ( TPanel )

Constants

const GORILLA_MODELVIEWER_PACKAGE : string = "ModelViewerPackage";

TModelViewerFrame

Ancestors

-TPresentedControl

-TStyledControl

Members

Fields

private FViewport : TGorillaViewport
private FCameraDummy : TDummy
private FCamera : TCamera
private FLight : TLight
private FGrid : TGorillaGrid3D
private FMove : Boolean
private FLatest : TPointF
private FAssetsManager : TGorillaAssetsManager
private FPackage : TGorillaAssetsPackage
private FModel : TGorillaModel
private FModelEditor : TPanel
private FXRotationBar : TTrackBar
private FXRotationLbl : TLabel
private FXRotation : TRectangle
private FZRotation : TRectangle
private FZRotationBar : TTrackBar
private FZRotationLbl : TLabel
private FYRotation : TRectangle
private FYRotationBar : TTrackBar
private FYRotationLbl : TLabel
private FXYZScale : TRectangle
private FScaleBar : TTrackBar
private FScaleLbl : TLabel
private FXRotationValLbl : TLabel
private FYRotationValLbl : TLabel
private FZRotationValLbl : TLabel
private FScaleValLbl : TLabel
private FSplitter1 : TSplitter
private FGrpRotation : TGroupBox
private FGrpScaling : TGroupBox
private FWrapModeSelect : TComboBox
private FGrpAnimation : TGroupBox
private FAnimationBox : TComboBox
private FBtnCalcSmoothNormals : TButton
private FGrpFunctions : TGroupBox
private FBtnCalcBiTangents : TButton
private FBtnCalcFaceNormals : TButton
private FChkBx_Wireframe : TCheckBox
private FGrpAnalyze : TGroupBox
private FChkBx_Normals : TCheckBox

Methods

public constructor Create ( AOwner : TComponent ) ;
public destructor Destroy ( ) ;
private procedure SetModel ( AValue : TGorillaModel ) ;
private procedure ViewportMouseDown ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ;
private procedure ViewportMouseUp ( Sender : TObject; Button : TMouseButton; Shift : TShiftState; X : Single; Y : Single ) ;
private procedure ViewportMouseMove ( Sender : TObject; Shift : TShiftState; X : Single; Y : Single ) ;
private procedure ViewportMouseWheel ( Sender : TObject; Shift : TShiftState; WheelDelta : Integer; var Handled : Boolean ) ;
private procedure XRotationBarChange ( Sender : TObject ) ;
private procedure YRotationBarChange ( Sender : TObject ) ;
private procedure ZRotationBarChange ( Sender : TObject ) ;
private procedure ScaleBarChange ( Sender : TObject ) ;
private procedure WrapModeSelectChange ( Sender : TObject ) ;
private procedure AnimationBoxChange ( Sender : TObject ) ;
private procedure BtnCalcSmoothNormalsClick ( Sender : TObject ) ;
private procedure BtnCalcBiTangentsClick ( Sender : TObject ) ;
private procedure BtnCalcFaceNormalsClick ( Sender : TObject ) ;
private procedure ChkBx_WireframeChange ( Sender : TObject ) ;
private procedure ChkBx_NormalsChange ( Sender : TObject ) ;
private procedure SetupComponents ( ) ;
public procedure Clear ( ) ;
public function IsModelAvailable ( ) : Boolean ;
public procedure LoadModel ( const AFilename : string ) ; overload;
public procedure LoadModel ( const AAsset : TGorillaModelAsset ) ; overload;
public function AddAnimationToModel ( const AFilename : string ) : TGorillaAnimation ;

Properties

public Viewport : TGorillaViewport
read FViewport
public ModelEditor : TPanel
read FModelEditor
public Splitter : TSplitter
read FSplitter1
public Model : TGorillaModel
read FModel
write SetModel
public AssetsManager : TGorillaAssetsManager
read FAssetsManager
public Package : TGorillaAssetsPackage
read FPackage