TModelViewerFrame
Ancestors
Members
Fields
- private FViewport :
TGorillaViewport
- private FCameraDummy :
TDummy
- private FCamera :
TCamera
- private FLight :
TLight
- private FGrid :
TGrid3D
- private FMove :
Boolean
- private FLatest :
TPointF
- 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 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 ) ;
- 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 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 LoadModel ( const AAsset : TGorillaModelAsset ) ;