Gorilla.UI.ModelViewer

Unit Gorilla.UI.ModelViewer.pas

Classes

TModelViewerFrame = class ( TPanel )
TModelViewerEditableFrame = class ( TModelViewerFrame )

Constants

const GORILLA_MODELVIEWER_PACKAGE : string = "ModelViewerPackage";

TModelViewerFrame

The standard model viewer frame component works on referenced assets manager and package.

Ancestors

-TPresentedControl

-TStyledControl

Members

Fields

private FViewport : TGorillaViewport
private FCameraDummy : TDummy
private FCamera : TCamera
private FLight : TLight
private FPlane : TGorillaPlane
private FPlaneMat : TGorillaGridMaterialSource
private FMove : Boolean
private FLatest : TPointF
private FCurrentAssetsManager : TGorillaAssetsManager
private FCurrentPackage : TGorillaAssetsPackage
private FModel : TGorillaModel
private FOwnsModel : Boolean
private FModelEditor : TPanel
private FSplitter1 : TSplitter
private FCtrl3DFrame : TGorillaControl3DToolsFrame

Methods

public constructor Create ( AOwner : TComponent ) ;
public destructor Destroy ( ) ;
private function GetModel ( ) : TGorillaModel ; virtual;
private procedure SetModel ( AValue : TGorillaModel ) ; virtual;
private procedure UnsetModel ( ) ; virtual;
private procedure UpdateModel ( ) ; virtual;
private procedure DoOnCtrl3DFrameUpdate ( ASender : TObject ) ;
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 ResetComponents ( ) ;
private procedure SetupComponents ( ) ;
public procedure Clear ( ) ; virtual;
public procedure Unset ( ) ; virtual;
public procedure LinkToModel ( AValue : TGorillaModel ) ;
public procedure LinkAssetsManagerPackage ( AManager : TGorillaAssetsManager; APackage : TGorillaAssetsPackage ) ; virtual;
public function IsModelAvailable ( ) : Boolean ;
public procedure LoadModel ( const AFilename : string; const AIsTemporary : Boolean ) ; overload virtual;
public procedure LoadModel ( const AAsset : TGorillaModelAsset; const AIsTemporary : Boolean ) ; overload virtual;
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 GetModel
write SetModel
public CurrentAssetsManager : TGorillaAssetsManager
read FCurrentAssetsManager
public CurrentPackage : TGorillaAssetsPackage
read FCurrentPackage

TModelViewerEditableFrame

The editable model viewer component creates a standalone assets manager and package. Use this version of the frame in standalone applications.

Ancestors

-TModelViewerFrame

-TPresentedControl

-TStyledControl

Members

Fields

protected FEmbeddedAssetsManager : TGorillaAssetsManager
protected FEmbeddedPackage : TGorillaAssetsPackage

Methods

public constructor Create ( AOwner : TComponent ) ;
public destructor Destroy ( ) ;
protected function GetModel ( ) : TGorillaModel ; override;
protected procedure SetModel ( AValue : TGorillaModel ) ; override;
protected procedure UnsetModel ( ) ; override;
protected procedure UpdateModel ( ) ; override;
public procedure Clear ( ) ; override;
public procedure Unset ( ) ; override;
public procedure LinkAssetsManagerPackage ( AManager : TGorillaAssetsManager; APackage : TGorillaAssetsPackage ) ; override;