Class TMovingGridBoundaryTool

Unit

InteractiveTools

Declaration

type TMovingGridBoundaryTool = class(TCustomGridCursorTool)

Description

TMovingGridBoundaryTool is used to move a column, row, or layer boundary.

Hierarchy

TComponent
TCustomInteractiveTool
TCustomGridTool
TCustomGridCursorTool
TMovingGridBoundaryTool

Overview

Fields

	`FMovingColumn: boolean;`
	`FMovingLayer: boolean;`
	`FMovingRow: boolean;`
	`FColumnBeingMoved: integer;`
	`FCurrentX: integer;`
	`FCurrentY: integer;`
	`FLayerBeingMoved: integer;`
	`FRowBeingMoved: integer;`

Methods

	`procedure SetMovingColumn(const Value: boolean);`
	`procedure SetMovingLayer(const Value: boolean);`
	`procedure SetMovingRow(const Value: boolean);`
	`procedure BeginFrontMove(X, Y: Integer);`
	`procedure BeginSideMove(X, Y: Integer);`
	`procedure BeginTopMove(X, Y: Integer);`
	`function GetHint: string; override;`
	`function GetSelectedCursor: TCursor; override;`
	`procedure MoveColumnOrLayer(X, Y: Integer);`
	`procedure MoveColumnOrRow(X, Y: Integer);`
	`procedure MoveRowOrLayer(X, Y: Integer);`
	`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;`

Properties

	`property MovingColumn: boolean read FMovingColumn write SetMovingColumn;`
	`property MovingLayer: boolean read FMovingLayer write SetMovingLayer;`
	`property MovingRow: boolean read FMovingRow write SetMovingRow;`

Description

Fields

	`FMovingColumn: boolean;`
See MovingColumn.

	`FMovingLayer: boolean;`
See MovingLayer.

	`FMovingRow: boolean;`
See MovingRow.

	`FColumnBeingMoved: integer;`
`FColumnBeingMoved`: integer; `FColumnBeingMoved` is the index of the column boundary being moved.

	`FCurrentX: integer;`
Name is the X-coordinate of the cursor. It is set in MouseMove and used in GetSelectedCursor.

	`FCurrentY: integer;`
Name is the Y-coordinate of the cursor. It is set in MouseMove and used in GetSelectedCursor.

	`FLayerBeingMoved: integer;`
`FLayerBeingMoved`: integer; `FLayerBeingMoved` is the index of the layer boundary being moved.

	`FRowBeingMoved: integer;`
`FRowBeingMoved`: integer; `FRowBeingMoved` is the index of the row boundary being moved.

Methods

	`procedure SetMovingColumn(const Value: boolean);`
See MovingColumn.

	`procedure SetMovingLayer(const Value: boolean);`
See MovingLayer.

	`procedure SetMovingRow(const Value: boolean);`
See MovingRow.

	`procedure BeginFrontMove(X, Y: Integer);`
`BeginFrontMove` starts to move a column or layer on the front view of the model.

	`procedure BeginSideMove(X, Y: Integer);`
`BeginSideMove` starts to move a row or layer on the side view of the model.

	`procedure BeginTopMove(X, Y: Integer);`
`BeginTopMove` starts to move a column or row on the top view of the model.

	`function GetHint: string; override;`
Used to define Hint

	`function GetSelectedCursor: TCursor; override;`
`GetSelectedCursor` returns the correct cursor for the top, front, or side view of the model when the cursor is over a column, row, or layer boundary is is moving a column, row, or layer boundary.

	`procedure MoveColumnOrLayer(X, Y: Integer);`
`MoveColumnOrLayer` moves a column or layer on the front view of the model.

	`procedure MoveColumnOrRow(X, Y: Integer);`
`MoveColumnOrRow` moves a column or row on the top view of the model.

	`procedure MoveRowOrLayer(X, Y: Integer);`
`MoveRowOrLayer` moves a row or layer on the side view of the model.

	`procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;`

	`procedure Activate; override;`

	`procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseDown` starts to move a column, row, or layer boundary.

	`procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;`
`MouseMove` sets the cursor.

	`procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`MouseUp` moves the column, row, or layer boundary.

	`procedure RightClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;`
`RightClick` aborts movement.

Properties

	`property MovingColumn: boolean read FMovingColumn write SetMovingColumn;`
`MovingColumn` indicates that a column boundary is being moved.

	`property MovingLayer: boolean read FMovingLayer write SetMovingLayer;`
`MovingLayer` indicates that a layer boundary is being moved.

	`property MovingRow: boolean read FMovingRow write SetMovingRow;`
`MovingRow` indicates that a row boundary is being moved.

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:42