Class TRotateGridTool

Unit

InteractiveTools

Declaration

type TRotateGridTool = class(TCustomInteractiveTool)

Description

TRotateGridTool is used to rotate the grid on the top view of the model.

Hierarchy

TComponent
TCustomInteractiveTool
TRotateGridTool

Overview

Fields

	`FRotating: boolean;`
	`FStartAngle: double;`

Methods

	`procedure DrawRotatedGrid;`
	`function GridCenter: T2DRealPoint;`
	`procedure Activate; override;`
	`procedure Draw(const Sender: TObject; const Direction: TViewDirection); override;`
	`procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
	`procedure RightClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`

Properties

	`property Rotating: boolean read FRotating;`
	`property StartAngle: double read FStartAngle;`

Description

Fields

	`FRotating: boolean;`
`FRotating`: boolean; See Rotating.

	`FStartAngle: double;`
`FStartAngle`: double; See StartAngle.

Methods

	`procedure DrawRotatedGrid;`
`DrawRotatedGrid` draws the rotated grid.

	`function GridCenter: T2DRealPoint;`
`GridCenter` returns the point at the center of the grid on the top view of the model.

	`procedure Activate; override;`
`Activate` sets the Hint of TfrmGoPhast.frameTopView, TfrmGoPhast.frameFrontView, and TfrmGoPhast.frameSideView. Each is set to a different value.

	`procedure Draw(const Sender: TObject; const Direction: TViewDirection); override;`
`Draw` draws the rotated grid.

	`procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseDown` starts rotating the grid.

	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
`MouseMove` causes ZoomBox.PaintBox to be redrawn.

	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseUp` rotates the grid.

	`procedure RightClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
Abort grid rotation

Properties

	`property Rotating: boolean read FRotating;`
`Rotating` indicates whether the grid is being rotated.

	`property StartAngle: double read FStartAngle;`
`StartAngle` indicates the grid angle when rotating was started.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:39