Class TfrmTimeControl

Properties

Unit

frmTimeControlUnit

Declaration

type TfrmTimeControl = class(TfrmCustomGoPhast)

Description

TfrmTimeControl is used to edit frmGoPhast.Model.Times.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmTimeControl

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`lblNumberOfPeriods: TLabel;`
	`pnlBottom: TPanel;`
	`seTimeCount: TJvSpinEdit;`
	`dgTime: TRbwDataGrid4;`
	`rdeStartTime: TRbwDataEntry;`
	`lblStartTime: TLabel;`
	`pnlTop: TPanel;`
	`rdeLength: TRbwDataEntry;`

Methods

	`procedure btnOKClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure seTimeCountChange(Sender: TObject);`
	`procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure dgTimeColSize(Sender: TObject; ACol, PriorWidth: Integer);`
	`procedure dgTimeHorizontalScroll(Sender: TObject);`
	`procedure dgTimeMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure rdeLengthChange(Sender: TObject);`
	`procedure dgTimeSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);`
	`function CheckTimes: boolean;`
	`procedure GetData;`
	`procedure SetData;`
	`procedure LayoutMultiRowEditControl;`

Description

Fields

	`btnCancel: TBitBtn;`
Clicking `btnCancel` closes `TfrmTimeControl` without changing anything.

	`btnHelp: TBitBtn;`
Clicking `btnHelp` displays help on `TfrmTimeControl`.

	`btnOK: TBitBtn;`
See btnOKClick.

	`lblNumberOfPeriods: TLabel;`
`lblNumberOfPeriods` displays "Number of Periods".

	`pnlBottom: TPanel;`
`pnlBottom` holds the controls at the bottom of `TfrmTimeControl`.

	`seTimeCount: TJvSpinEdit;`
`seTimeCount` specifies the number of stress periods. See seTimeCountChange.

	`dgTime: TRbwDataGrid4;`
`dgTime` holds the time step sizes and ending times of the stress periods.

	`rdeStartTime: TRbwDataEntry;`

	`lblStartTime: TLabel;`

	`pnlTop: TPanel;`

	`rdeLength: TRbwDataEntry;`

Methods

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` calls CheckTimes if it returns `True`, `btnOKClick` calls SetData. Otherwise ModalResult is set to mrNone.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` initializes `TfrmTimeControl` and calls GetData.

	`procedure seTimeCountChange(Sender: TObject);`
`seTimeCountChange` changes the number of rows in dgTime to be consistent with the value in seTimeCount.

	`procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`

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

	`procedure dgTimeHorizontalScroll(Sender: TObject);`

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

	`procedure rdeLengthChange(Sender: TObject);`

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

	`function CheckTimes: boolean;`
`CheckTimes` checks that the ending times of all the stress periods are unique. If they aren't, the user will be given a chance to cancel setting the data. If the user chooses to continue, the the rows with the duplicate ending times will be deleted before setting the data.

	`procedure GetData;`
`GetData` displays frmGoPhast.Model.Times in `TfrmTimeControl`.

	`procedure SetData;`
`SetData` sets frmGoPhast.Model.Times with the values in `TfrmTimeControl` using a TUndoTimes.

	`procedure LayoutMultiRowEditControl;`

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