Class TframeScreenObjectNoParam

Description

Hierarchy

Fields

Methods

Properties

Unit

frameScreenObjectNoParamUnit

Declaration

type TframeScreenObjectNoParam = class(TframeScreenObject)

Description

TframeScreenObjectNoParam is used to define time-varying MODFLOW boundary condition data associated with TScreenObjects when parameter instances can NOT be defined.

Typically, the first two columns of dgModflowBoundary will have the start and ending times for the boundary condtion. Following that will be columns representing the values to be assigned the boundary.

Hierarchy

TFrame
TframeScreenObject
TframeScreenObjectNoParam

Overview

Fields

	`dgModflowBoundary: TRbwDataGrid4;`
	`pnlBottom: TPanel;`
	`seNumberOfTimes: TJvSpinEdit;`
	`lblNumTimes: TLabel;`
	`btnDelete: TBitBtn;`
	`btnInsert: TBitBtn;`
	`pnlTop: TPanel;`
	`pnlCaption: TPanel;`
	`pnlGrid: TPanel;`
	`pnlEditGrid: TPanel;`
	`lblFormula: TLabel;`
	`rdeFormula: TRbwDataEntry;`
	`FSelectedText: string;`
	`FDeleting: Boolean;`
	`FDeletedCells: array of array of boolean;`
	`ConductanceColumn: Integer;`

Methods

	`procedure dgModflowBoundarySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure seNumberOfTimesChange(Sender: TObject);`
	`procedure btnDeleteClick(Sender: TObject);`
	`procedure btnInsertClick(Sender: TObject);`
	`procedure dgModflowBoundaryMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure rdeFormulaChange(Sender: TObject);`
	`procedure dgModflowBoundaryHorizontalScroll(Sender: TObject);`
	`procedure dgModflowBoundaryColSize(Sender: TObject; ACol, PriorWidth: Integer);`
	`procedure FrameResize(Sender: TObject);`
	`procedure dgModflowBoundarySetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);`
	`procedure dgModflowBoundaryBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);`
	`procedure LayoutMultiRowEditControls;`
	`function GetDeletedCells(ACol, ARow: integer): boolean;`
	`procedure SetDeletedCells(ACol, ARow: integer; const Value: boolean);`
	`procedure ClearDeletedCells;`
	`function ConductanceCaption(DirectCaption: string): string; virtual;`
	`procedure InitializeNoParamFrame( Boundary: TModflowBoundary);`
	`constructor Create(AOwner: TComponent); override;`
	`destructor Destroy; override;`
	`procedure GetStartTimes(Col: integer);`
	`procedure GetEndTimes(Col: Integer);`
	`procedure SetButtonCaptions;`

Properties

property DeletedCells[ACol,ARow:integer]: boolean read GetDeletedCells write SetDeletedCells;

Description

Fields

	`dgModflowBoundary: TRbwDataGrid4;`
`dgModflowBoundary` is used to indicate the time-varying boundary condition values.

	`pnlBottom: TPanel;`
`pnlBottom` holds buttons and controls that affect dgModflowBoundary.

	`seNumberOfTimes: TJvSpinEdit;`
`seNumberOfTimes` specifies the number of times at which the parameter is specified and thus the number of rows in dgModflowBoundary.

	`lblNumTimes: TLabel;`
`lblNumTimes` labels seNumberOfTimes.

	`btnDelete: TBitBtn;`
`btnDelete` deletes one of the times at which the parameter is specified.

	`btnInsert: TBitBtn;`
`btnInsert` inserts a new time at which the boundary condition is specified.

	`pnlTop: TPanel;`

	`pnlCaption: TPanel;`

	`pnlGrid: TPanel;`

	`pnlEditGrid: TPanel;`

	`lblFormula: TLabel;`

	`rdeFormula: TRbwDataEntry;`

	`FSelectedText: string;`

	`FDeleting: Boolean;`

	`FDeletedCells: array of array of boolean;`

	`ConductanceColumn: Integer;`
Private declarations

Methods

	`procedure dgModflowBoundarySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
`dgModflowBoundarySelectCell` prevents the user from selecting certain cells.

	`procedure seNumberOfTimesChange(Sender: TObject);`
`seNumberOfTimesChange` changes the number of rows in dgModflowBoundary and takes other related actions. `seNumberOfTimesChange` is the OnChange event handler for seNumberOfTimes.

	`procedure btnDeleteClick(Sender: TObject);`
`btnDeleteClick` deletes the selected row in dgModflowBoundary. `btnDeleteClick` is the OnClick eventhandler for btnDelete.

	`procedure btnInsertClick(Sender: TObject);`
`btnInsertClick` inserts a new row beneath the selected row in dgModflowBoundary. `btnInsertClick` is the OnClick eventhandler for btnInsert.

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

	`procedure rdeFormulaChange(Sender: TObject);`

	`procedure dgModflowBoundaryHorizontalScroll(Sender: TObject);`

	`procedure dgModflowBoundaryColSize(Sender: TObject; ACol, PriorWidth: Integer);`

	`procedure FrameResize(Sender: TObject);`

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

	`procedure dgModflowBoundaryBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);`

	`procedure LayoutMultiRowEditControls;`

	`function GetDeletedCells(ACol, ARow: integer): boolean;`
See DeletedCells

	`procedure SetDeletedCells(ACol, ARow: integer; const Value: boolean);`
See DeletedCells

	`procedure ClearDeletedCells;`

	`function ConductanceCaption(DirectCaption: string): string; virtual;`

	`procedure InitializeNoParamFrame( Boundary: TModflowBoundary);`

	`constructor Create(AOwner: TComponent); override;`

	`destructor Destroy; override;`

	`procedure GetStartTimes(Col: integer);`
`GetStartTimes` loads the starting times of all the MODFLOW stress periods into the PickList of the column of dgModflowBoundary specified by Col.

	`procedure GetEndTimes(Col: Integer);`
`GetEndTimes` loads the ending times of all the MODFLOW stress periods into the PickList of the column of dgModflowBoundary specified by Col.

	`procedure SetButtonCaptions;`

Properties

	`property DeletedCells[ACol,ARow:integer]: boolean read GetDeletedCells write SetDeletedCells;`

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