Gorilla.Utils.Tools
Unit Gorilla.Utils.Tools.pasClasses
- TGorilla3DToolsWin = class ( TForm )
Enumerations
- enum TGorilla3DEditTool = ( etNone, etTranslate, etRotate, etScale ) ;
Constants
TGorilla3DToolsWin
Ancestors
Members
Fields
- published TranslateButton :
TSpeedButton
- published RotateButton :
TSpeedButton
- published ScaleButton :
TSpeedButton
- published Image1 :
TImage
- published Image2 :
TImage
- published Image3 :
TImage
- published ToolsList :
TFlowLayout
- published EditMode :
TGroupBox
- published XValue :
TNumberBox
- published Label1 :
TLabel
- published YValue :
TNumberBox
- published Label2 :
TLabel
- published ZValue :
TNumberBox
- published Label3 :
TLabel
- published ViewportObjects :
TComboBox
- private FViewport :
TGorillaViewport
- public Gorilla3DToolsWindow :
TGorilla3DToolsWin
Methods
- published procedure TranslateButtonClick ( Sender : TObject ) ;
- published procedure RotateButtonClick ( Sender : TObject ) ;
- published procedure ScaleButtonClick ( Sender : TObject ) ;
- published procedure ViewportObjectsChange ( Sender : TObject ) ;
- published procedure XValueChange ( Sender : TObject ) ;
- published procedure YValueChange ( Sender : TObject ) ;
- published procedure ZValueChange ( Sender : TObject ) ;
- private procedure ScanForObjects ( ) ;
- private function GetSelectedObject ( ) : TControl3D ;
- private procedure LoadObjectData ( ACtrl : TControl3D ) ;
- private procedure ApplyTransformation ( ) ;
- private function GetEditTool ( ) : TGorilla3DEditTool ;
- public procedure ShowTools ( AViewport : TGorillaViewport ) ; class;
- public procedure HideTools ( ) ; class;
- public procedure Open ( AViewport : TGorillaViewport ) ;