TGLGizmo

type TGLGizmo = class(TComponent)

public

  PickableObjectsWithRayCast: TList;

  constructor Create(); override;

  destructor Destroy; override;

  procedure Loaded; override;

  procedure Notification(); override;

  procedure ViewerMouseMove();

  procedure ViewerMouseDown();

  procedure ViewerMouseUp();

  procedure UpdateGizmo();

  procedure SetVisible();

  function GetPickedObjectPoint();

  procedure LooseSelection; virtual;

  procedure UndoAdd();

  property RootGizmo: TGLBaseSceneObject; [rw]

published

  property Viewer: TGLSceneViewer; [rw]

  property GizmoElements: TGLGizmoElements; [rw]

  property BoundingBoxColor: TGLColor; [rw]

  property SelectedColor: TGLColor; [rw]

  property SelAxis: TGLGizmoAxis; [rw]

  property ForceAxis: Boolean; [rw]

  property SelectedObj: TGLBaseSceneObject; [rw]

  property Operation: TGLGizmoOperation; [rw]

  property ForceOperation: Boolean; [rw]

  property ForceUniformScale: Boolean; [rw]

  property ExcludeObjects: Boolean; [rw]

  property ExcludeObjectsList: TStrings; [rw]

  property VisibleInfoLabels: TGLGizmoVisibleInfoLabels; [rw]

  property VisibleInfoLabelsColor: TGLColor; [rw]

  property AutoZoom: Boolean; [rw]

  property AutoZoomFactor: Single; [rw]

  property ZoomFactor: Single; [rw]

  property MoveCoef: Single; [rw]

  property RotationCoef: Single; [rw]

  property ScaleCoef: Single; [rw]

  property NoZWrite: Boolean; [rw]

  property GizmoThickness: Single; [rw]

  property Enabled: Boolean; [rw]

  property LabelFont: TGLCustomBitmapFont; [rw]

  property OnBeforeSelect: TGLGizmoAcceptEvent; [rw]

  property OnSelectionLost: TNotifyEvent; [rw]

  property OnBeforeUpdate: TGLGizmoUpdateEvent; [rw]

  property PickMode: TGLGizmoPickMode; [rw]

end;

TGLGizmo

TObject