Description | Hierarchy | Fields | Methods | Properties |
type TfrmHUF_Layers = class(TfrmCustomGoPhast)
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. )
Panel3: TPanel; |
|
GridPanel1: TGridPanel; |
|
sbAddUnit: TSpeedButton; |
|
sbInsertUnit: TSpeedButton; |
|
sbDeleteUnit: TSpeedButton; |
|
tvHufLayers: TTreeView; |
|
Splitter1: TSplitter; |
|
pcMain: TPageControl; |
|
Properties: TTabSheet; |
|
lblHydrogeologicUnitName: TLabel; |
|
edHydrogeologicUnitName: TEdit; |
|
lblHorizontalAnisotropy: TLabel; |
|
rdeHorizontalAnisotropy: TRbwDataEntry; |
|
lblVK_Method: TLabel; |
|
comboVK_Method: TJvImageComboBox; |
|
lblVerticalAnisotropy: TLabel; |
|
rdeVerticalAnisotropy: TRbwDataEntry; |
|
tabParameters: TTabSheet; |
|
tabPrint: TTabSheet; |
|
rdgParameters: TRbwDataGrid4; |
|
clbItemsToPrint: TCheckListBox; |
|
comboPrintFormat: TJvImageComboBox; |
|
lblPrintFormat: TLabel; |
|
Panel4: TPanel; |
|
btnHelp: TBitBtn; |
|
btnOK: TBitBtn; |
|
btnCancel: TBitBtn; |
|
FSelectedUnits: TList; |
|
FSelectedTreeNodes: TList; |
|
FHydrogeologicUnits: THydrogeologicUnits; |
|
FSelectingUnits: Boolean; |
procedure FormCreate(Sender: TObject); override; |
|
procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure FormDestroy(Sender: TObject); override; |
|
procedure rdeHorizontalAnisotropyChange(Sender: TObject); |
|
procedure edHydrogeologicUnitNameChange(Sender: TObject); |
|
procedure rdeVerticalAnisotropyChange(Sender: TObject); |
|
procedure sbAddUnitClick(Sender: TObject); |
|
procedure sbInsertUnitClick(Sender: TObject); |
|
procedure tvHufLayersChange(Sender: TObject; Node: TTreeNode); |
|
procedure sbDeleteUnitClick(Sender: TObject); |
|
procedure comboVK_MethodChange(Sender: TObject); |
|
procedure rdgParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState); |
|
procedure comboPrintFormatChange(Sender: TObject); |
|
procedure clbItemsToPrintClickCheck(Sender: TObject); |
|
procedure edHydrogeologicUnitNameExit(Sender: TObject); |
|
procedure pcMainChange(Sender: TObject); |
|
procedure GetData; |
|
procedure SetData; |
|
procedure UpdateSelectedUnits; |
|
procedure AssignHorizontalAnisotropy; |
|
procedure AssignVerticalAnisotropy(HufUnit: THydrogeologicUnit); |
|
procedure AssignVK_Method(HufUnit: THydrogeologicUnit); |
|
procedure AssignParameters(HufUnit: THydrogeologicUnit); |
|
function GenerateNewName: string; |
|
procedure AssignUseMultiplier(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter); |
|
procedure AssignUseZone(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter); |
|
procedure AssignPrintFormat(HufUnit: THydrogeologicUnit); |
|
procedure AssignPrint(HufUnit: THydrogeologicUnit); |
|
function CheckHuf: boolean; |
Panel3: TPanel; |
|
GridPanel1: TGridPanel; |
|
sbAddUnit: TSpeedButton; |
|
sbInsertUnit: TSpeedButton; |
|
sbDeleteUnit: TSpeedButton; |
|
tvHufLayers: TTreeView; |
|
Splitter1: TSplitter; |
|
pcMain: TPageControl; |
|
Properties: TTabSheet; |
|
lblHydrogeologicUnitName: TLabel; |
|
edHydrogeologicUnitName: TEdit; |
|
lblHorizontalAnisotropy: TLabel; |
|
rdeHorizontalAnisotropy: TRbwDataEntry; |
|
lblVK_Method: TLabel; |
|
comboVK_Method: TJvImageComboBox; |
|
lblVerticalAnisotropy: TLabel; |
|
rdeVerticalAnisotropy: TRbwDataEntry; |
|
tabParameters: TTabSheet; |
|
tabPrint: TTabSheet; |
|
rdgParameters: TRbwDataGrid4; |
|
clbItemsToPrint: TCheckListBox; |
|
comboPrintFormat: TJvImageComboBox; |
|
lblPrintFormat: TLabel; |
|
Panel4: TPanel; |
|
btnHelp: TBitBtn; |
|
btnOK: TBitBtn; |
|
btnCancel: TBitBtn; |
|
FSelectedUnits: TList; |
|
FSelectedTreeNodes: TList; |
|
FHydrogeologicUnits: THydrogeologicUnits; |
|
FSelectingUnits: Boolean; |
|
procedure FormCreate(Sender: TObject); override; |
|
procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure FormDestroy(Sender: TObject); override; |
|
procedure rdeHorizontalAnisotropyChange(Sender: TObject); |
|
procedure edHydrogeologicUnitNameChange(Sender: TObject); |
|
procedure rdeVerticalAnisotropyChange(Sender: TObject); |
|
procedure sbAddUnitClick(Sender: TObject); |
|
procedure sbInsertUnitClick(Sender: TObject); |
|
procedure tvHufLayersChange(Sender: TObject; Node: TTreeNode); |
|
procedure sbDeleteUnitClick(Sender: TObject); |
|
procedure comboVK_MethodChange(Sender: TObject); |
|
procedure rdgParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState); |
|
procedure comboPrintFormatChange(Sender: TObject); |
|
procedure clbItemsToPrintClickCheck(Sender: TObject); |
|
procedure edHydrogeologicUnitNameExit(Sender: TObject); |
|
procedure pcMainChange(Sender: TObject); |
|
procedure GetData; |
|
procedure SetData; |
|
procedure UpdateSelectedUnits; |
|
procedure AssignHorizontalAnisotropy; |
|
procedure AssignVerticalAnisotropy(HufUnit: THydrogeologicUnit); |
|
procedure AssignVK_Method(HufUnit: THydrogeologicUnit); |
|
procedure AssignParameters(HufUnit: THydrogeologicUnit); |
|
function GenerateNewName: string; |
|
procedure AssignUseMultiplier(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter); |
|
procedure AssignUseZone(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter); |
|
procedure AssignPrintFormat(HufUnit: THydrogeologicUnit); |
|
procedure AssignPrint(HufUnit: THydrogeologicUnit); |
|
function CheckHuf: boolean; |
|