Unit frmCustomGoPhastUnit

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

The purpose of frmCustomGoPhastUnit is to declare TfrmCustomGoPhast, the ancestor of all TForms in ModelMuse.

It also provides the ShowAForm method.

Uses

Overview

Classes, Interfaces, Objects and Records

Name Description
Class TEdgeDisplayEdit  
Class TBoundaryClassification  
Class TfrmCustomGoPhast TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

Functions and Procedures

procedure ChangeSelectedCellsInColumn(Grid: TRbwDataGrid4; const Column: integer; const NewText: string);
procedure ChangeSelectedCellsStateInColumn(Grid: TRbwDataGrid4; const Column: integer; const NewState: TCheckBoxState);
procedure EnableMultiEditControl(Grid: TRbwDataGrid4; AControl: TControl; Col: integer); overload;
procedure EnableMultiEditControl(Grid: TRbwDataGrid4; AControl: TControl; Cols: array of integer); overload;
function ShowAForm(const FormClass: TFormClass): integer;
procedure LayoutControls(Grid: TRbwDataGrid4; Control: TControl; ALabel: TLabel; Column: Integer; ControlOffSet: integer = 0);
Procedure UpdateDialogBoxFileName(Dialog: TOpenDialog; NewFileName: string);
Procedure FillVirtualStringTreeWithDataSets(Tree : TVirtualStringTree; ClassificationObjectOwnerList: TList; SelectedDataArray: TDataArray; DataSetAllowed: TDataSetAllowedEvent = nil);
procedure FillDataSetLists(HufDataArrays: TClassificationList; LayerGroupList: TClassificationList; ClassificationObjects: TClassificationList; ClassificationObjectOwnerList: TList; DataSetAllowed: TDataSetAllowedEvent = nil);
procedure GetNodeCaption(Node: PVirtualNode; var CellText: string; Sender: TBaseVirtualTree);
procedure SelectOnlyLeaves(Node: PVirtualNode; TreeCombo: TRbwStringTreeCombo; Sender: TBaseVirtualTree; var SelectedNode: PVirtualNode);
procedure FillComboWithModelNames(Combo: TComboBox);
procedure UpdateTreeComboText(SelectedNode: PVirtualNode; TreeCombo: TRbwStringTreeCombo);
procedure FillVirtStrTreeWithBoundaryConditions( SelectedDataArray: TDataArray; SelectedTimeList: TCustomTimeList; SelectedEdgeDisplay: TCustomModflowGridEdgeDisplay; LocalBoundaryClassifications: TList; EdgeEdits: TList; ATree: TVirtualStringTree; CanSelectBoundary: TCanSelectBoundary = nil);
function ShowHelp(const Keyword: string): boolean;

Types

TCanSelectBoundary = function (BoundaryClassification: TBoundaryClassification): Boolean of object;
TDesiredPosition = (...);
TDataSetAllowedEvent = function (DataArray: TDataArray): boolean of object;

Constants

StrNone = 'none';

Variables

GlobalFont: TFont = nil;
GlobalColor: TColor = clBtnFace;

Description

Functions and Procedures

procedure ChangeSelectedCellsInColumn(Grid: TRbwDataGrid4; const Column: integer; const NewText: string);

ChangeSelectedCellsInColumn changes all the cells in Grid that are in Column and that are selected to NewText.

procedure ChangeSelectedCellsStateInColumn(Grid: TRbwDataGrid4; const Column: integer; const NewState: TCheckBoxState);

ChangeSelectedCellsStateInColumn changes all the checked stated of all cells in Grid that are in Column and that are selected to NewState.

procedure EnableMultiEditControl(Grid: TRbwDataGrid4; AControl: TControl; Col: integer); overload;

EnableMultiEditControl checks all the cells in Grid that are in Col. If at least one such cell is selected, AControl will be enabled. Otherwise, it will be disabled.

procedure EnableMultiEditControl(Grid: TRbwDataGrid4; AControl: TControl; Cols: array of integer); overload;
 
function ShowAForm(const FormClass: TFormClass): integer;

ShowAForm creates an instance of FormClass and calls ShowModal on that instance.

procedure LayoutControls(Grid: TRbwDataGrid4; Control: TControl; ALabel: TLabel; Column: Integer; ControlOffSet: integer = 0);

LayoutControls sets the Left and Width of Control and ALabel so that they are lined up over Column in Grid. ALabel.Alignment should be taCenter.

Procedure UpdateDialogBoxFileName(Dialog: TOpenDialog; NewFileName: string);
 
Procedure FillVirtualStringTreeWithDataSets(Tree : TVirtualStringTree; ClassificationObjectOwnerList: TList; SelectedDataArray: TDataArray; DataSetAllowed: TDataSetAllowedEvent = nil);
 
procedure FillDataSetLists(HufDataArrays: TClassificationList; LayerGroupList: TClassificationList; ClassificationObjects: TClassificationList; ClassificationObjectOwnerList: TList; DataSetAllowed: TDataSetAllowedEvent = nil);
 
procedure GetNodeCaption(Node: PVirtualNode; var CellText: string; Sender: TBaseVirtualTree);
 
procedure SelectOnlyLeaves(Node: PVirtualNode; TreeCombo: TRbwStringTreeCombo; Sender: TBaseVirtualTree; var SelectedNode: PVirtualNode);
 
procedure FillComboWithModelNames(Combo: TComboBox);
 
procedure UpdateTreeComboText(SelectedNode: PVirtualNode; TreeCombo: TRbwStringTreeCombo);
 
procedure FillVirtStrTreeWithBoundaryConditions( SelectedDataArray: TDataArray; SelectedTimeList: TCustomTimeList; SelectedEdgeDisplay: TCustomModflowGridEdgeDisplay; LocalBoundaryClassifications: TList; EdgeEdits: TList; ATree: TVirtualStringTree; CanSelectBoundary: TCanSelectBoundary = nil);
 
function ShowHelp(const Keyword: string): boolean;
 

Types

TCanSelectBoundary = function (BoundaryClassification: TBoundaryClassification): Boolean of object;
 
TDesiredPosition = (...);

TDesiredPosition is used in AdjustFormPosition to tell whether the form should be to the right or to the left of the main form.

Values
  • dpLeft:  
  • dpRight:  
  • dpBottomLeft:  
  • dpBottomRight:  
TDataSetAllowedEvent = function (DataArray: TDataArray): boolean of object;
 

Constants

StrNone = 'none';
 

Variables

GlobalFont: TFont = nil;
 
GlobalColor: TColor = clBtnFace;
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:41:34