Class TframeScreenObjectMNW2

Description

Hierarchy

Fields

Methods

Properties

Unit

frameScreenObjectMNW2Unit

Declaration

type TframeScreenObjectMNW2 = class(TframeScreenObject)

Description

no description available, TframeScreenObject description follows

Hierarchy

TFrame
TframeScreenObject
TframeScreenObjectMNW2

Overview

Fields

	`pnlCaption: TPanel;`
	`pcMnw2: TPageControl;`
	`tabBasic: TTabSheet;`
	`lblWellId: TLabel;`
	`edWellId: TRbwEdit;`
	`lblLossType: TLabel;`
	`comboLossType: TJvImageComboBox;`
	`cbConstrainPumping: TCheckBox;`
	`cbPartialPenetrationFlag: TCheckBox;`
	`cbPumpCap: TCheckBox;`
	`tabLossControls: TTabSheet;`
	`lblWellRadius: TLabel;`
	`lblSkinRadius: TLabel;`
	`lblBCoefficient: TLabel;`
	`lblCCoefficient: TLabel;`
	`lblPCoefficient: TLabel;`
	`lblCellToWellConductance: TLabel;`
	`cbSpecifyPump: TCheckBox;`
	`tabDischargeAdjustment: TTabSheet;`
	`rdeReferenceHead: TRbwDataEntry;`
	`lblReferenceHead: TLabel;`
	`lblLiftQ0: TLabel;`
	`rdeLiftQ0: TRbwDataEntry;`
	`lblLiftQMax: TLabel;`
	`rdeLiftQMax: TRbwDataEntry;`
	`lblWellTolerance: TLabel;`
	`rdeWellTolerance: TRbwDataEntry;`
	`rdgLiftTable: TRbwDataGrid4;`
	`seLiftTableRows: TJvSpinEdit;`
	`btnInsertLift: TButton;`
	`btnDeleteLift: TButton;`
	`lflLiftTableRows: TLabel;`
	`lblLiftTable: TLabel;`
	`tabPumpingRate: TTabSheet;`
	`rdgTimeTable: TRbwDataGrid4;`
	`Panel1: TPanel;`
	`seTimeTableRows: TJvSpinEdit;`
	`lblTimeTableRows: TLabel;`
	`btnInsertTime: TButton;`
	`btnDeleteTime: TButton;`
	`Panel2: TPanel;`
	`lblFormula: TLabel;`
	`rdeFormula: TRbwDataEntry;`
	`lblKSkin: TLabel;`
	`lblPartialPenetration: TLabel;`
	`comboQCUT: TJvImageComboBox;`
	`lblQCUT: TLabel;`
	`edPartialPenetration: TJvComboEdit;`
	`edWellRadius: TJvComboEdit;`
	`edSkinRadius: TJvComboEdit;`
	`edKSkin: TJvComboEdit;`
	`edBCoefficient: TJvComboEdit;`
	`edCCoefficient: TJvComboEdit;`
	`edPCoefficient: TJvComboEdit;`
	`edCellToWellConductance: TJvComboEdit;`
	`framePumpLocationMethod: TframeLocationMethod;`
	`lblZPump: TLabel;`
	`rdeZPump: TRbwDataEntry;`
	`gbMNWI: TGroupBox;`
	`cbSaveExternal: TCheckBox;`
	`cbSaveInternal: TCheckBox;`
	`tabWellScreens: TTabSheet;`
	`Panel3: TPanel;`
	`Label1: TLabel;`
	`seVerticalScreens: TJvSpinEdit;`
	`btnInsertVertialScreen: TButton;`
	`btnDeleteVertialScreen: TButton;`
	`rdgVerticalScreens: TRbwDataGrid4;`
	`Panel4: TPanel;`
	`Label2: TLabel;`
	`rdeWellScreenFormula: TRbwDataEntry;`
	`lblWellScreenFormula: TLabel;`
	`cbSaveMnwiBasic: TCheckBox;`
	`FOnChange: TNotifyEvent;`
	`FChanging: Boolean;`
	`FVerticalWell: TCheckBoxState;`

Methods

	`procedure edWellIdChange(Sender: TObject);`
	`procedure seLiftTableRowsChange(Sender: TObject);`
	`procedure rdgTimeTableEndUpdate(Sender: TObject);`
	`procedure seTimeTableRowsChange(Sender: TObject);`
	`procedure cbSpecifyPumpClick(Sender: TObject);`
	`procedure comboLossTypeChange(Sender: TObject);`
	`procedure cbPartialPenetrationFlagClick(Sender: TObject);`
	`procedure rdgTimeTableSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure cbPumpCapClick(Sender: TObject);`
	`procedure rdgLiftTableEndUpdate(Sender: TObject);`
	`procedure btnInsertLiftClick(Sender: TObject);`
	`procedure btnDeleteLiftClick(Sender: TObject);`
	`procedure btnInsertTimeClick(Sender: TObject);`
	`procedure btnDeleteTimeClick(Sender: TObject);`
	`procedure cbConstrainPumpingClick(Sender: TObject);`
	`procedure rdeFormulaChange(Sender: TObject);`
	`procedure rdgTimeTableColSize(Sender: TObject; ACol, PriorWidth: Integer);`
	`procedure rdgTimeTableHorizontalScroll(Sender: TObject);`
	`procedure rdgTimeTableSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);`
	`procedure rdgTimeTableMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure comboQCUTChange(Sender: TObject);`
	`procedure cbSaveExternalClick(Sender: TObject);`
	`procedure cbSaveInternalClick(Sender: TObject);`
	`procedure framePumpLocationMethodcomboLocationChoiceChange(Sender: TObject);`
	`procedure edPartialPenetrationChange(Sender: TObject);`
	`procedure edWellRadiusChange(Sender: TObject);`
	`procedure rdgVerticalScreensSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure seVerticalScreensChange(Sender: TObject);`
	`procedure btnInsertVertialScreenClick(Sender: TObject);`
	`procedure btnDeleteVertialScreenClick(Sender: TObject);`
	`procedure rdgVerticalScreensEndUpdate(Sender: TObject);`
	`procedure rdeWellScreenFormulaChange(Sender: TObject);`
	`procedure rdgVerticalScreensColSize(Sender: TObject; ACol, PriorWidth: Integer);`
	`procedure rdgVerticalScreensHorizontalScroll(Sender: TObject);`
	`procedure rdgVerticalScreensMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure cbSaveMnwiBasicClick(Sender: TObject);`
	`procedure Changed;`
	`procedure SetVerticalWell(const Value: TCheckBoxState);`
	`procedure EnablePartialPenetration;`
	`procedure InitializeControls;`
	`procedure EnableDeleteLiftButton;`
	`procedure EnableDeleteTimeButton;`
	`procedure AssignFirstItem(LocalList: TList);`
	`procedure UpdateCheckBox(NewValue: Boolean; CheckBox: TCheckBox);`
	`procedure UpdateFormulaEdit(NewFormula: string; Control: TJvComboEdit; ShouldCheck: Boolean); overload;`
	`procedure UpdateFormulaEdit(NewFormula: string; Control: TRbwDataEntry; ShouldCheck: Boolean); overload;`
	`procedure SetEdForFirstItem(NewFormula: string; Control: TJvComboEdit; ShouldSet: boolean); overload;`
	`procedure SetEdForFirstItem(NewFormula: string; Control: TRbwDataEntry; ShouldSet: boolean); overload;`
	`procedure SetTimeGridCellForFirstItem(Column: TMnwTimeColumns; SetValue: Boolean; TimeIndex: Integer; TimeItem: TMnw2TimeItem; Value: string);`
	`procedure UpdateTimeGridCell(Value: string; Column: TMnwTimeColumns; TimeIndex: Integer; ShouldSet: boolean; AnObject: TObject);`
	`procedure UpdateSpatialValueControls(Boundary: TMnw2Boundary);`
	`procedure UpdateLiftTable(Boundary: TMnw2Boundary);`
	`procedure UpdateTimeTable(Boundary: TMnw2Boundary);`
	`procedure LayoutMultiCellEditControlsForStressPeriods;`
	`procedure SetOnChange(const Value: TNotifyEvent);`
	`procedure SetChanging(const Value: Boolean);`
	`procedure EnableVerticalScreenButton;`
	`procedure UpdateVerticalScreenTable(Boundary: TMnw2Boundary);`
	`procedure LayoutMultiCellEditControlsForWellScreens;`
	`procedure UpdateVerticalScreenGridCell(ScreenIndex: Integer; VerticalScreen: TVerticalScreen; AValue: string; Column: TVerticalScreenColumns);`
	`procedure GetData(ScreenObjectList: TScreenObjectEditCollection);`
	`procedure SetData(List: TScreenObjectEditCollection; SetAll: boolean; ClearAll: boolean);`
	`constructor Create(AOwner: TComponent); override;`

Properties

	`property VerticalWell: TCheckBoxState read FVerticalWell write SetVerticalWell;`
	`property Changing: Boolean read FChanging write SetChanging;`
	`property OnChange: TNotifyEvent read FOnChange write SetOnChange;`

Description

Fields

	`pnlCaption: TPanel;`

	`pcMnw2: TPageControl;`

	`tabBasic: TTabSheet;`

	`lblWellId: TLabel;`

	`edWellId: TRbwEdit;`

	`lblLossType: TLabel;`

	`comboLossType: TJvImageComboBox;`

	`cbConstrainPumping: TCheckBox;`

	`cbPartialPenetrationFlag: TCheckBox;`

	`cbPumpCap: TCheckBox;`

	`tabLossControls: TTabSheet;`

	`lblWellRadius: TLabel;`

	`lblSkinRadius: TLabel;`

	`lblBCoefficient: TLabel;`

	`lblCCoefficient: TLabel;`

	`lblPCoefficient: TLabel;`

	`lblCellToWellConductance: TLabel;`

	`cbSpecifyPump: TCheckBox;`

	`tabDischargeAdjustment: TTabSheet;`

	`rdeReferenceHead: TRbwDataEntry;`

	`lblReferenceHead: TLabel;`

	`lblLiftQ0: TLabel;`

	`rdeLiftQ0: TRbwDataEntry;`

	`lblLiftQMax: TLabel;`

	`rdeLiftQMax: TRbwDataEntry;`

	`lblWellTolerance: TLabel;`

	`rdeWellTolerance: TRbwDataEntry;`

	`rdgLiftTable: TRbwDataGrid4;`

	`seLiftTableRows: TJvSpinEdit;`

	`btnInsertLift: TButton;`

	`btnDeleteLift: TButton;`

	`lflLiftTableRows: TLabel;`

	`lblLiftTable: TLabel;`

	`tabPumpingRate: TTabSheet;`

	`rdgTimeTable: TRbwDataGrid4;`

	`Panel1: TPanel;`

	`seTimeTableRows: TJvSpinEdit;`

	`lblTimeTableRows: TLabel;`

	`btnInsertTime: TButton;`

	`btnDeleteTime: TButton;`

	`Panel2: TPanel;`

	`lblFormula: TLabel;`

	`rdeFormula: TRbwDataEntry;`

	`lblKSkin: TLabel;`

	`lblPartialPenetration: TLabel;`

	`comboQCUT: TJvImageComboBox;`

	`lblQCUT: TLabel;`

	`edPartialPenetration: TJvComboEdit;`

	`edWellRadius: TJvComboEdit;`

	`edSkinRadius: TJvComboEdit;`

	`edKSkin: TJvComboEdit;`

	`edBCoefficient: TJvComboEdit;`

	`edCCoefficient: TJvComboEdit;`

	`edPCoefficient: TJvComboEdit;`

	`edCellToWellConductance: TJvComboEdit;`

	`framePumpLocationMethod: TframeLocationMethod;`

	`lblZPump: TLabel;`

	`rdeZPump: TRbwDataEntry;`

	`gbMNWI: TGroupBox;`

	`cbSaveExternal: TCheckBox;`

	`cbSaveInternal: TCheckBox;`

	`tabWellScreens: TTabSheet;`

	`Panel3: TPanel;`

	`Label1: TLabel;`

	`seVerticalScreens: TJvSpinEdit;`

	`btnInsertVertialScreen: TButton;`

	`btnDeleteVertialScreen: TButton;`

	`rdgVerticalScreens: TRbwDataGrid4;`

	`Panel4: TPanel;`

	`Label2: TLabel;`

	`rdeWellScreenFormula: TRbwDataEntry;`

	`lblWellScreenFormula: TLabel;`

	`cbSaveMnwiBasic: TCheckBox;`

	`FOnChange: TNotifyEvent;`

	`FChanging: Boolean;`

	`FVerticalWell: TCheckBoxState;`

Methods

	`procedure edWellIdChange(Sender: TObject);`

	`procedure seLiftTableRowsChange(Sender: TObject);`

	`procedure rdgTimeTableEndUpdate(Sender: TObject);`

	`procedure seTimeTableRowsChange(Sender: TObject);`

	`procedure cbSpecifyPumpClick(Sender: TObject);`

	`procedure comboLossTypeChange(Sender: TObject);`

	`procedure cbPartialPenetrationFlagClick(Sender: TObject);`

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

	`procedure cbPumpCapClick(Sender: TObject);`

	`procedure rdgLiftTableEndUpdate(Sender: TObject);`

	`procedure btnInsertLiftClick(Sender: TObject);`

	`procedure btnDeleteLiftClick(Sender: TObject);`

	`procedure btnInsertTimeClick(Sender: TObject);`

	`procedure btnDeleteTimeClick(Sender: TObject);`

	`procedure cbConstrainPumpingClick(Sender: TObject);`

	`procedure rdeFormulaChange(Sender: TObject);`

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

	`procedure rdgTimeTableHorizontalScroll(Sender: TObject);`

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

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

	`procedure comboQCUTChange(Sender: TObject);`

	`procedure cbSaveExternalClick(Sender: TObject);`

	`procedure cbSaveInternalClick(Sender: TObject);`

	`procedure framePumpLocationMethodcomboLocationChoiceChange(Sender: TObject);`

	`procedure edPartialPenetrationChange(Sender: TObject);`

	`procedure edWellRadiusChange(Sender: TObject);`

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

	`procedure seVerticalScreensChange(Sender: TObject);`

	`procedure btnInsertVertialScreenClick(Sender: TObject);`

	`procedure btnDeleteVertialScreenClick(Sender: TObject);`

	`procedure rdgVerticalScreensEndUpdate(Sender: TObject);`

	`procedure rdeWellScreenFormulaChange(Sender: TObject);`

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

	`procedure rdgVerticalScreensHorizontalScroll(Sender: TObject);`

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

	`procedure cbSaveMnwiBasicClick(Sender: TObject);`

	`procedure Changed;`

	`procedure SetVerticalWell(const Value: TCheckBoxState);`

	`procedure EnablePartialPenetration;`

	`procedure InitializeControls;`

	`procedure EnableDeleteLiftButton;`

	`procedure EnableDeleteTimeButton;`

	`procedure AssignFirstItem(LocalList: TList);`

	`procedure UpdateCheckBox(NewValue: Boolean; CheckBox: TCheckBox);`

	`procedure UpdateFormulaEdit(NewFormula: string; Control: TJvComboEdit; ShouldCheck: Boolean); overload;`

	`procedure UpdateFormulaEdit(NewFormula: string; Control: TRbwDataEntry; ShouldCheck: Boolean); overload;`

	`procedure SetEdForFirstItem(NewFormula: string; Control: TJvComboEdit; ShouldSet: boolean); overload;`

	`procedure SetEdForFirstItem(NewFormula: string; Control: TRbwDataEntry; ShouldSet: boolean); overload;`

	`procedure SetTimeGridCellForFirstItem(Column: TMnwTimeColumns; SetValue: Boolean; TimeIndex: Integer; TimeItem: TMnw2TimeItem; Value: string);`

	`procedure UpdateTimeGridCell(Value: string; Column: TMnwTimeColumns; TimeIndex: Integer; ShouldSet: boolean; AnObject: TObject);`

	`procedure UpdateSpatialValueControls(Boundary: TMnw2Boundary);`

	`procedure UpdateLiftTable(Boundary: TMnw2Boundary);`

	`procedure UpdateTimeTable(Boundary: TMnw2Boundary);`

	`procedure LayoutMultiCellEditControlsForStressPeriods;`

	`procedure SetOnChange(const Value: TNotifyEvent);`

	`procedure SetChanging(const Value: Boolean);`

	`procedure EnableVerticalScreenButton;`

	`procedure UpdateVerticalScreenTable(Boundary: TMnw2Boundary);`

	`procedure LayoutMultiCellEditControlsForWellScreens;`

	`procedure UpdateVerticalScreenGridCell(ScreenIndex: Integer; VerticalScreen: TVerticalScreen; AValue: string; Column: TVerticalScreenColumns);`

	`procedure GetData(ScreenObjectList: TScreenObjectEditCollection);`

	`procedure SetData(List: TScreenObjectEditCollection; SetAll: boolean; ClearAll: boolean);`

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

Properties

	`property VerticalWell: TCheckBoxState read FVerticalWell write SetVerticalWell;`

	`property Changing: Boolean read FChanging write SetChanging;`

	`property OnChange: TNotifyEvent read FOnChange write SetOnChange;`
Private declarations

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