Class TColRowLayerSelectorTool

Unit

InteractiveTools

Declaration

type TColRowLayerSelectorTool = class(TCustomCellSelectionTool)

Description

TCustomCellSelectionTool is an abstract base class. Its descendants are used for cases where the user selects a range of cells on which to perform some action.

See also

TSpacingGridTool

TSpacingGridTool is used to set the size of selected columns, rows, or layers in TPhastGrid.

TSubdivideGridTool

TSubdivideGridTool is used to subdivide elements in TPhastGrid into multiple columns, rows, and layers.

TColRowLayerSelectorTool

Hierarchy

• TComponent
• TCustomInteractiveTool
• TCustomCellSelectionTool
• TColRowLayerSelectorTool

Overview

Fields

	FNewRow: integer;
	FNewColumn: integer;
	FNewLayer: integer;
	FShouldDraw: boolean;

Methods

	procedure DrawNewColRowLayerSelection(const Direction: TViewDirection; const BitMap: TBitmap32);
	procedure DrawExistingColRowLayerSelection(const Direction: TViewDirection; const BitMap: TBitmap32);
	procedure GetCellUnderMouse(X, Y: integer);
	procedure SetNewSelection;
	procedure DrawASelection(Col, Row, Lay: Integer; Color1, Color2: TColor; const BitMap: TBitmap32; const Direction: TViewDirection);
	procedure DrawOnBitMap32(Sender: TObject; Buffer: TBitmap32); override;
	function GetHint: string; override;
	procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;
	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
	procedure Activate; override;

Properties

	property NewColumn: integer read FNewColumn;
	property NewRow: integer read FNewRow;
	property NewLayer: integer read FNewLayer;

Description

Fields

	FNewRow: integer;

	FNewColumn: integer;

	FNewLayer: integer;

	FShouldDraw: boolean;

Methods

	procedure DrawNewColRowLayerSelection(const Direction: TViewDirection; const BitMap: TBitmap32);

	procedure DrawExistingColRowLayerSelection(const Direction: TViewDirection; const BitMap: TBitmap32);

	procedure GetCellUnderMouse(X, Y: integer);

	procedure SetNewSelection;

	procedure DrawASelection(Col, Row, Lay: Integer; Color1, Color2: TColor; const BitMap: TBitmap32; const Direction: TViewDirection);

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

	function GetHint: string; override;

	procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); override;

	procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

	procedure Activate; override;

Properties

	property NewColumn: integer read FNewColumn;

	property NewRow: integer read FNewRow;

	property NewLayer: integer read FNewLayer;