Description | Hierarchy | Fields | Methods | Properties |
type TRotateGridTool = class(TCustomInteractiveTool)
TRotateGridTool
is used to rotate the grid on the top view of the model.
FRotating: boolean; |
|
FStartAngle: double; |
procedure DrawRotatedGrid(Bitmap: TBitmap32); |
|
function GridCenter: TPoint2D; |
|
procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override; |
|
procedure Activate; 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; |
property Rotating: boolean read FRotating; |
|
property StartAngle: double read FStartAngle; |
FRotating: boolean; |
|
|
FStartAngle: double; |
|
|
procedure DrawRotatedGrid(Bitmap: TBitmap32); |
|
|
function GridCenter: TPoint2D; |
|
|
procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override; |
|
procedure Activate; 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; |
|
Abort grid rotation |
property Rotating: boolean read FRotating; |
|
|
property StartAngle: double read FStartAngle; |
|
|