Class TfrmHUF_Layers

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TfrmHUF_Layers = class(TfrmCustomGoPhast)

Description

no description available, TfrmCustomGoPhast description follows

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

Overview

Fields

Implicit Panel3: TPanel;
Implicit GridPanel1: TGridPanel;
Implicit sbAddUnit: TSpeedButton;
Implicit sbInsertUnit: TSpeedButton;
Implicit sbDeleteUnit: TSpeedButton;
Implicit tvHufLayers: TTreeView;
Implicit Splitter1: TSplitter;
Implicit pcMain: TPageControl;
Implicit Properties: TTabSheet;
Implicit lblHydrogeologicUnitName: TLabel;
Implicit edHydrogeologicUnitName: TEdit;
Implicit lblHorizontalAnisotropy: TLabel;
Implicit rdeHorizontalAnisotropy: TRbwDataEntry;
Implicit lblVK_Method: TLabel;
Implicit comboVK_Method: TJvImageComboBox;
Implicit lblVerticalAnisotropy: TLabel;
Implicit rdeVerticalAnisotropy: TRbwDataEntry;
Implicit tabParameters: TTabSheet;
Implicit tabPrint: TTabSheet;
Implicit rdgParameters: TRbwDataGrid4;
Implicit clbItemsToPrint: TCheckListBox;
Implicit comboPrintFormat: TJvImageComboBox;
Implicit lblPrintFormat: TLabel;
Implicit Panel4: TPanel;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit btnCancel: TBitBtn;
Private FSelectedUnits: TList;
Private FSelectedTreeNodes: TList;
Private FHydrogeologicUnits: THydrogeologicUnits;
Private FSelectingUnits: Boolean;

Methods

Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure FormDestroy(Sender: TObject); override;
Implicit procedure rdeHorizontalAnisotropyChange(Sender: TObject);
Implicit procedure edHydrogeologicUnitNameChange(Sender: TObject);
Implicit procedure rdeVerticalAnisotropyChange(Sender: TObject);
Implicit procedure sbAddUnitClick(Sender: TObject);
Implicit procedure sbInsertUnitClick(Sender: TObject);
Implicit procedure tvHufLayersChange(Sender: TObject; Node: TTreeNode);
Implicit procedure sbDeleteUnitClick(Sender: TObject);
Implicit procedure comboVK_MethodChange(Sender: TObject);
Implicit procedure rdgParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);
Implicit procedure comboPrintFormatChange(Sender: TObject);
Implicit procedure clbItemsToPrintClickCheck(Sender: TObject);
Implicit procedure edHydrogeologicUnitNameExit(Sender: TObject);
Implicit procedure pcMainChange(Sender: TObject);
Private procedure GetData;
Private procedure SetData;
Private procedure UpdateSelectedUnits;
Private procedure AssignHorizontalAnisotropy;
Private procedure AssignVerticalAnisotropy(HufUnit: THydrogeologicUnit);
Private procedure AssignVK_Method(HufUnit: THydrogeologicUnit);
Private procedure AssignParameters(HufUnit: THydrogeologicUnit);
Private function GenerateNewName: string;
Private procedure AssignUseMultiplier(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter);
Private procedure AssignUseZone(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter);
Private procedure AssignPrintFormat(HufUnit: THydrogeologicUnit);
Private procedure AssignPrint(HufUnit: THydrogeologicUnit);
Private function CheckHuf: boolean;

Description

Fields

Implicit Panel3: TPanel;
 
Implicit GridPanel1: TGridPanel;
 
Implicit sbAddUnit: TSpeedButton;
 
Implicit sbInsertUnit: TSpeedButton;
 
Implicit sbDeleteUnit: TSpeedButton;
 
Implicit tvHufLayers: TTreeView;
 
Implicit Splitter1: TSplitter;
 
Implicit pcMain: TPageControl;
 
Implicit Properties: TTabSheet;
 
Implicit lblHydrogeologicUnitName: TLabel;
 
Implicit edHydrogeologicUnitName: TEdit;
 
Implicit lblHorizontalAnisotropy: TLabel;
 
Implicit rdeHorizontalAnisotropy: TRbwDataEntry;
 
Implicit lblVK_Method: TLabel;
 
Implicit comboVK_Method: TJvImageComboBox;
 
Implicit lblVerticalAnisotropy: TLabel;
 
Implicit rdeVerticalAnisotropy: TRbwDataEntry;
 
Implicit tabParameters: TTabSheet;
 
Implicit tabPrint: TTabSheet;
 
Implicit rdgParameters: TRbwDataGrid4;
 
Implicit clbItemsToPrint: TCheckListBox;
 
Implicit comboPrintFormat: TJvImageComboBox;
 
Implicit lblPrintFormat: TLabel;
 
Implicit Panel4: TPanel;
 
Implicit btnHelp: TBitBtn;
 
Implicit btnOK: TBitBtn;
 
Implicit btnCancel: TBitBtn;
 
Private FSelectedUnits: TList;
 
Private FSelectedTreeNodes: TList;
 
Private FHydrogeologicUnits: THydrogeologicUnits;
 
Private FSelectingUnits: Boolean;
 

Methods

Implicit procedure FormCreate(Sender: TObject); override;
 
Implicit procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure btnOKClick(Sender: TObject);
 
Implicit procedure FormDestroy(Sender: TObject); override;
 
Implicit procedure rdeHorizontalAnisotropyChange(Sender: TObject);
 
Implicit procedure edHydrogeologicUnitNameChange(Sender: TObject);
 
Implicit procedure rdeVerticalAnisotropyChange(Sender: TObject);
 
Implicit procedure sbAddUnitClick(Sender: TObject);
 
Implicit procedure sbInsertUnitClick(Sender: TObject);
 
Implicit procedure tvHufLayersChange(Sender: TObject; Node: TTreeNode);
 
Implicit procedure sbDeleteUnitClick(Sender: TObject);
 
Implicit procedure comboVK_MethodChange(Sender: TObject);
 
Implicit procedure rdgParametersStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);
 
Implicit procedure comboPrintFormatChange(Sender: TObject);
 
Implicit procedure clbItemsToPrintClickCheck(Sender: TObject);
 
Implicit procedure edHydrogeologicUnitNameExit(Sender: TObject);
 
Implicit procedure pcMainChange(Sender: TObject);
 
Private procedure GetData;
 
Private procedure SetData;
 
Private procedure UpdateSelectedUnits;
 
Private procedure AssignHorizontalAnisotropy;
 
Private procedure AssignVerticalAnisotropy(HufUnit: THydrogeologicUnit);
 
Private procedure AssignVK_Method(HufUnit: THydrogeologicUnit);
 
Private procedure AssignParameters(HufUnit: THydrogeologicUnit);
 
Private function GenerateNewName: string;
 
Private procedure AssignUseMultiplier(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter);
 
Private procedure AssignUseZone(ParamName: string; ParamIndex: Integer; HufUnitsThatUseParameter: TList; FirstUsedParameter: THufUsedParameter);
 
Private procedure AssignPrintFormat(HufUnit: THydrogeologicUnit);
 
Private procedure AssignPrint(HufUnit: THydrogeologicUnit);
 
Private function CheckHuf: boolean;
 

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