Class TframeDiscretization

Unit

frameDiscretizationUnit

Declaration

type TframeDiscretization = class(TFrame)

Description

Hierarchy

• TFrame
• TframeDiscretization

Overview

Fields

	lbl1: TLabel;
	lbl2: TLabel;
	pnlDiscritization: TPanel;
	spl1: TSplitter;
	rdgSubLayerBoundaries: TRbwDataGrid4;
	pnl1: TPanel;
	lbl3: TLabel;
	pnlPaintboxParent: TPanel;
	pbSubLayers: TPaintBox;
	rdeGrowthRate: TRbwDataEntry;
	rdeVDiscretization: TRbwDataEntry;
	rgMethod: TRadioGroup;
	sbInsertLine: TSpeedButton;
	sbMoveLine: TSpeedButton;
	sbDeleteLine: TSpeedButton;
	FSettingUnit: Boolean;
	FLayerPositions: TOneDIntegerArray;
	FSelectedUnits: TList;
	FMovingLine: Boolean;
	FLineBeingMoved: integer;
	FMouseInPaintBox: Boolean;
	FMouseY: Integer;

Methods

	procedure rdeVDiscretizationChange(Sender: TObject);
	procedure rdeGrowthRateChange(Sender: TObject);
	procedure rdeGrowthRateExit(Sender: TObject);
	procedure rgMethodClick(Sender: TObject);
	procedure rdgSubLayerBoundariesEndUpdate(Sender: TObject);
	procedure rdgSubLayerBoundariesExit(Sender: TObject);
	procedure rdgSubLayerBoundariesSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure rdgSubLayerBoundariesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure pbSubLayersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure pbSubLayersMouseEnter(Sender: TObject);
	procedure pbSubLayersMouseLeave(Sender: TObject);
	procedure pbSubLayersMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure pbSubLayersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure pbSubLayersPaint(Sender: TObject);
	procedure EnableGrowthRateControl;
	procedure UpdateStringGrid;
	procedure UpdateLayerPositions;
	procedure UpdateSelectedUnitLayers;
	procedure SetSpacing(const GrowthRate: real; GrowthMethod: TGrowthMethod; const SubLayers: integer; out Fractions: TRealArray);
	procedure GetLayerPostions(const Fractions: TRealArray; out LayerPostions: TOneDIntegerArray);
	function IsOnLine(Y: Integer; out WhichLine: integer): boolean;
	procedure StartMove(X, Y: Integer);
	procedure DeleteLine(Y: integer);
	procedure InsertLine(Y: integer);
	procedure MoveLine(Y: integer);
	function ConvertY(Y: integer): real;
	procedure RearrangeValuesInStringGrid;
	procedure SetPbCursor(X,Y: integer);
	function InBox(X, Y: integer): boolean;
	procedure SetControlValues;
	constructor Create(AnOwner: TComponent); override;
	destructor Destroy; override;
	procedure UpdateSelectedUnits(List: TList);
	procedure Loaded; override;

Properties

property SettingUnit: Boolean read FSettingUnit write FSettingUnit;

Description

Fields

	lbl1: TLabel;

	lbl2: TLabel;

	pnlDiscritization: TPanel;

	spl1: TSplitter;

	rdgSubLayerBoundaries: TRbwDataGrid4;

	pnl1: TPanel;

	lbl3: TLabel;

	pnlPaintboxParent: TPanel;

	pbSubLayers: TPaintBox;

	rdeGrowthRate: TRbwDataEntry;

	rdeVDiscretization: TRbwDataEntry;

	rgMethod: TRadioGroup;

	sbInsertLine: TSpeedButton;

	sbMoveLine: TSpeedButton;

	sbDeleteLine: TSpeedButton;

	FSettingUnit: Boolean;

	FLayerPositions: TOneDIntegerArray;

	FSelectedUnits: TList;

	FMovingLine: Boolean;

	FLineBeingMoved: integer;

	FMouseInPaintBox: Boolean;

	FMouseY: Integer;

Methods

	procedure rdeVDiscretizationChange(Sender: TObject);

	procedure rdeGrowthRateChange(Sender: TObject);

	procedure rdeGrowthRateExit(Sender: TObject);

	procedure rgMethodClick(Sender: TObject);

	procedure rdgSubLayerBoundariesEndUpdate(Sender: TObject);

	procedure rdgSubLayerBoundariesExit(Sender: TObject);

	procedure rdgSubLayerBoundariesSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

	procedure rdgSubLayerBoundariesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

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

	procedure pbSubLayersMouseEnter(Sender: TObject);

	procedure pbSubLayersMouseLeave(Sender: TObject);

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

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

	procedure pbSubLayersPaint(Sender: TObject);

	procedure EnableGrowthRateControl;

	procedure UpdateStringGrid;

	procedure UpdateLayerPositions;

	procedure UpdateSelectedUnitLayers;

	procedure SetSpacing(const GrowthRate: real; GrowthMethod: TGrowthMethod; const SubLayers: integer; out Fractions: TRealArray);

	procedure GetLayerPostions(const Fractions: TRealArray; out LayerPostions: TOneDIntegerArray);

	function IsOnLine(Y: Integer; out WhichLine: integer): boolean;

	procedure StartMove(X, Y: Integer);

	procedure DeleteLine(Y: integer);

	procedure InsertLine(Y: integer);

	procedure MoveLine(Y: integer);

	function ConvertY(Y: integer): real;

	procedure RearrangeValuesInStringGrid;

	procedure SetPbCursor(X,Y: integer);

	function InBox(X, Y: integer): boolean;

	procedure SetControlValues;

	constructor Create(AnOwner: TComponent); override;

	destructor Destroy; override;

	procedure UpdateSelectedUnits(List: TList);
List must contain Link(TGrowthControls)s.

	procedure Loaded; override;

Properties

	property SettingUnit: Boolean read FSettingUnit write FSettingUnit;
Private declarations