Class TfrmModflowTime

Unit

frmModflowTimeUnit

Declaration

type TfrmModflowTime = class(TfrmCustomGoPhast)

Description

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

• TForm
• TfrmCustomGoPhast
• TfrmModflowTime

Overview

Fields

	pnlTop: TPanel;
	dgTime: TRbwDataGrid4;
	rdePeriodLength: TRbwDataEntry;
	rdeMaxFirstStepLength: TRbwDataEntry;
	rdeMultiplier: TRbwDataEntry;
	comboSteadyTransient: TJvImageComboBox;
	lblPeriodLength: TLabel;
	lblMaxFirstTimeStepLength: TLabel;
	lblMultiplier: TLabel;
	lblSteadyTransient: TLabel;
	pnlBottom: TPanel;
	btnCancel: TBitBtn;
	btnOK: TBitBtn;
	pgcMain: TPageControl;
	tabModflow: TTabSheet;
	btnHelp: TBitBtn;
	tabMt3dms: TTabSheet;
	pnlModflowBottom: TPanel;
	seNumPeriods: TJvSpinEdit;
	lblNumPeriods: TLabel;
	comboTimeUnit: TJvComboBox;
	lblTimeUnit: TLabel;
	btnDelete: TButton;
	btnInsert: TButton;
	frameGrid: TframeGrid;
	FModflowStressPeriods: TModflowStressPeriods;
	FDeleting: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure dgTimeSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure dgTimeSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure seNumPeriodsChange(Sender: TObject);
	procedure btnDeleteClick(Sender: TObject);
	procedure btnInsertClick(Sender: TObject);
	procedure dgTimeMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure dgTimeColSize(Sender: TObject; ACol, PriorWidth: Integer);
	procedure rdePeriodLengthChange(Sender: TObject);
	procedure rdeMaxFirstStepLengthChange(Sender: TObject);
	procedure rdeMultiplierChange(Sender: TObject);
	procedure comboSteadyTransientChange(Sender: TObject);
	procedure dgTimeBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
	procedure FormDestroy(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure dgTimeHorizontalScroll(Sender: TObject);
	procedure FormResize(Sender: TObject);
	procedure dgTimeButtonClick(Sender: TObject; ACol, ARow: Integer);
	procedure frameGridGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure pgcMainChange(Sender: TObject);
	procedure GetData;
	procedure SetData;
	procedure FillEmptyCells;
	procedure LayoutMultiRowEditControls;
	procedure GetTimePeriodValues(ARow: Integer; var PerLength: Double; var MaxTimeStepLength: Double; var TimeStepMultiplier: Double);
	procedure SetDeleteButtonEnabled;
	procedure UpdateNumberOfTimeSteps(const ARow: integer);

Description

Fields

	pnlTop: TPanel;

	dgTime: TRbwDataGrid4;

	rdePeriodLength: TRbwDataEntry;

	rdeMaxFirstStepLength: TRbwDataEntry;

	rdeMultiplier: TRbwDataEntry;

	comboSteadyTransient: TJvImageComboBox;

	lblPeriodLength: TLabel;

	lblMaxFirstTimeStepLength: TLabel;

	lblMultiplier: TLabel;

	lblSteadyTransient: TLabel;

	pnlBottom: TPanel;

	btnCancel: TBitBtn;

	btnOK: TBitBtn;

	pgcMain: TPageControl;

	tabModflow: TTabSheet;

	btnHelp: TBitBtn;

	tabMt3dms: TTabSheet;

	pnlModflowBottom: TPanel;

	seNumPeriods: TJvSpinEdit;

	lblNumPeriods: TLabel;

	comboTimeUnit: TJvComboBox;

	lblTimeUnit: TLabel;

	btnDelete: TButton;

	btnInsert: TButton;

	frameGrid: TframeGrid;

	FModflowStressPeriods: TModflowStressPeriods;

	FDeleting: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;

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

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

	procedure seNumPeriodsChange(Sender: TObject);

	procedure btnDeleteClick(Sender: TObject);

	procedure btnInsertClick(Sender: TObject);

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

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

	procedure rdePeriodLengthChange(Sender: TObject);

	procedure rdeMaxFirstStepLengthChange(Sender: TObject);

	procedure rdeMultiplierChange(Sender: TObject);

	procedure comboSteadyTransientChange(Sender: TObject);

	procedure dgTimeBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);

	procedure FormDestroy(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure dgTimeHorizontalScroll(Sender: TObject);

	procedure FormResize(Sender: TObject);

	procedure dgTimeButtonClick(Sender: TObject; ACol, ARow: Integer);

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

	procedure pgcMainChange(Sender: TObject);

	procedure GetData;

	procedure SetData;

	procedure FillEmptyCells;

	procedure LayoutMultiRowEditControls;

	procedure GetTimePeriodValues(ARow: Integer; var PerLength: Double; var MaxTimeStepLength: Double; var TimeStepMultiplier: Double);

	procedure SetDeleteButtonEnabled;

	procedure UpdateNumberOfTimeSteps(const ARow: integer);