Class TfrmLayers

Unit

frmLayersUnit

Declaration

type TfrmLayers = 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
• TfrmLayers

Overview

Fields

	Splitter1: TSplitter;
	pcLayerGroups: TPageControl;
	tabBasics: TTabSheet;
	Label1: TLabel;
	tabDiscretization: TTabSheet;
	Panel4: TPanel;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	Panel3: TPanel;
	GridPanel1: TGridPanel;
	sbAddUnit: TSpeedButton;
	sbInsertUnit: TSpeedButton;
	sbDeleteUnit: TSpeedButton;
	ilCombo: TImageList;
	Label5: TLabel;
	comboAquiferType: TJvImageComboBox;
	lblInterblockMethod: TLabel;
	lbVertKMethod: TLabel;
	rconLayerType: TRbwController;
	comboInterblockMethod: TJvImageComboBox;
	comboVertKMethod: TJvImageComboBox;
	edName: TRbwEdit;
	cbComputeSaturatedThickness: TJvCheckBox;
	tvLayerGroups: TTreeView;
	ilTreeView: TImageList;
	lblAnisotropy: TLabel;
	rdeAnisotropy: TRbwDataEntry;
	tabNoDelay: TTabSheet;
	frameSubNoDelayBeds: TframeSubBeds;
	tabDelay: TTabSheet;
	frameSubDelayBeds: TframeSubBeds;
	tabSWT: TTabSheet;
	frameSwt: TframeSubBeds;
	tabDispersion: TTabSheet;
	rdgDispersion: TRbwDataGrid4;
	pnlMultiEdit: TPanel;
	rdeMultiDispersionValues: TRbwDataEntry;
	frameDiscretization: TframeDiscretization;
	FLayerStructure: TLayerStructure;
	FSettingUnit: boolean;
	FSelectedUnits: TList;
	FSelectedTreeNodes: TList;
	FUseSaturatedThickness: Boolean;
	FEditDiffusion: boolean;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure FormDestroy(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure edNameChange(Sender: TObject);
	procedure sbDeleteUnitClick(Sender: TObject);
	procedure sbAddUnitClick(Sender: TObject);
	procedure sbInsertUnitClick(Sender: TObject);
	procedure comboAquiferTypeChange(Sender: TObject);
	procedure comboInterblockMethodChange(Sender: TObject);
	procedure comboVertKMethodChange(Sender: TObject);
	procedure pcLayerGroupsChange(Sender: TObject);
	procedure cbComputeSaturatedThicknessClick(Sender: TObject);
	procedure tvLayerGroupsChange(Sender: TObject; Node: TTreeNode);
	procedure rdeAnisotropyChange(Sender: TObject);
	procedure rdgDispersionSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure rdgDispersionSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure rdgDispersionColSize(Sender: TObject; ACol, PriorWidth: Integer);
	procedure FormResize(Sender: TObject);
	procedure rdgDispersionHorizontalScroll(Sender: TObject);
	procedure rdgDispersionMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure rdeMultiDispersionValuesChange(Sender: TObject);
	procedure UpdateDiscretization;
	procedure EnableOkButton;
	procedure GetData;
	Procedure SetData;
	function AddNewUnit(Position: integer): TTreeNode;
	function FindImageIndex(LayerGroup: TLayerGroup): integer;
	procedure UpdateSelectedUnits;
	procedure SetControlValues;
	procedure EnableComputeSatThick;
	procedure EnableK_Methods;
	procedure SetUpLayerTypeOptions;
	procedure SetUpAveragingOptions;
	procedure EnableAnisotropy;
	procedure GetSubsidenceLayers(Sender: TObject; var SubLayers: TCustomSubLayer);
	procedure GetNewSubsidenceName(Sender: TObject; var NewName: string);
	procedure UpdateDispersionValues(ACol, ARow: Integer);
	procedure LayoutMultiDispersionControl;

Description

Fields

	Splitter1: TSplitter;

	pcLayerGroups: TPageControl;

	tabBasics: TTabSheet;

	Label1: TLabel;

	tabDiscretization: TTabSheet;

	Panel4: TPanel;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	Panel3: TPanel;

	GridPanel1: TGridPanel;

	sbAddUnit: TSpeedButton;

	sbInsertUnit: TSpeedButton;

	sbDeleteUnit: TSpeedButton;

	ilCombo: TImageList;

	Label5: TLabel;

	comboAquiferType: TJvImageComboBox;
0, non-simulated 1, confined 2, convertible in LPF and HUF, Unconfined in BCF 3, limited convertible in BCF with constant transmissivity 4, fully convertible in BCF with variable transmissivity

	lblInterblockMethod: TLabel;

	lbVertKMethod: TLabel;

	rconLayerType: TRbwController;

	comboInterblockMethod: TJvImageComboBox;

	comboVertKMethod: TJvImageComboBox;

	edName: TRbwEdit;

	cbComputeSaturatedThickness: TJvCheckBox;

	tvLayerGroups: TTreeView;

	ilTreeView: TImageList;

	lblAnisotropy: TLabel;

	rdeAnisotropy: TRbwDataEntry;

	tabNoDelay: TTabSheet;

	frameSubNoDelayBeds: TframeSubBeds;

	tabDelay: TTabSheet;

	frameSubDelayBeds: TframeSubBeds;

	tabSWT: TTabSheet;

	frameSwt: TframeSubBeds;

	tabDispersion: TTabSheet;

	rdgDispersion: TRbwDataGrid4;

	pnlMultiEdit: TPanel;

	rdeMultiDispersionValues: TRbwDataEntry;

	frameDiscretization: TframeDiscretization;

	FLayerStructure: TLayerStructure;

	FSettingUnit: boolean;

	FSelectedUnits: TList;
FSelectedUnits contains the selected TLayerGroups.

	FSelectedTreeNodes: TList;

	FUseSaturatedThickness: Boolean;

	FEditDiffusion: boolean;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure FormDestroy(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure edNameChange(Sender: TObject);

	procedure sbDeleteUnitClick(Sender: TObject);

	procedure sbAddUnitClick(Sender: TObject);

	procedure sbInsertUnitClick(Sender: TObject);

	procedure comboAquiferTypeChange(Sender: TObject);

	procedure comboInterblockMethodChange(Sender: TObject);

	procedure comboVertKMethodChange(Sender: TObject);

	procedure pcLayerGroupsChange(Sender: TObject);

	procedure cbComputeSaturatedThicknessClick(Sender: TObject);

	procedure tvLayerGroupsChange(Sender: TObject; Node: TTreeNode);

	procedure rdeAnisotropyChange(Sender: TObject);

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

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

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

	procedure FormResize(Sender: TObject);

	procedure rdgDispersionHorizontalScroll(Sender: TObject);

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

	procedure rdeMultiDispersionValuesChange(Sender: TObject);

	procedure UpdateDiscretization;

	procedure EnableOkButton;

	procedure GetData;

	Procedure SetData;

	function AddNewUnit(Position: integer): TTreeNode;

	function FindImageIndex(LayerGroup: TLayerGroup): integer;

	procedure UpdateSelectedUnits;

	procedure SetControlValues;

	procedure EnableComputeSatThick;

	procedure EnableK_Methods;

	procedure SetUpLayerTypeOptions;

	procedure SetUpAveragingOptions;

	procedure EnableAnisotropy;

	procedure GetSubsidenceLayers(Sender: TObject; var SubLayers: TCustomSubLayer);

	procedure GetNewSubsidenceName(Sender: TObject; var NewName: string);

	procedure UpdateDispersionValues(ACol, ARow: Integer);
Set the dispersion values

	procedure LayoutMultiDispersionControl;