Class TframeScreenObjectSFR

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TframeScreenObjectSFR = class(TframeScreenObject)

Description

no description available, TframeScreenObject description follows

Hierarchy

Overview

Fields

Implicit pcSFR: TPageControl;
Implicit tabSegment: TTabSheet;
Implicit tabTable: TTabSheet;
Implicit tabChannel: TTabSheet;
Implicit tabEquation: TTabSheet;
Implicit dgSfrEquation: TRbwDataGrid4;
Implicit jvplTable: TJvPageList;
Implicit jvplCrossSection: TJvPageList;
Implicit pnlSegmentUpstream: TPanel;
Implicit dgUp: TRbwDataGrid4;
Implicit pnlSegmentDownstream: TPanel;
Implicit dgDown: TRbwDataGrid4;
Implicit Splitter1: TSplitter;
Implicit Panel4: TPanel;
Implicit dgTableTime: TRbwDataGrid4;
Implicit Splitter2: TSplitter;
Implicit Panel5: TPanel;
Implicit dgSfrRough: TRbwDataGrid4;
Implicit Splitter3: TSplitter;
Implicit rdeSegmentNumber: TRbwDataEntry;
Implicit Label1: TLabel;
Implicit tabBasic: TTabSheet;
Implicit gReachProperties: TGroupBox;
Implicit lblStreamTop: TLabel;
Implicit lblSlope: TLabel;
Implicit lblStreambedThickness: TLabel;
Implicit lblStreambedK: TLabel;
Implicit lblSaturatedVolumetricWater: TLabel;
Implicit lblInitialVolumetricWater: TLabel;
Implicit lblBrooksCoreyExponent: TLabel;
Implicit lblMaxUnsaturatedKz: TLabel;
Implicit tabUnsaturatedProperties: TTabSheet;
Implicit zbChannel: TQRbwZoomBox2;
Implicit gpFlowTable: TGridPanel;
Implicit zbFlowDepthTable: TQRbwZoomBox2;
Implicit zbFlowWidthTable: TQRbwZoomBox2;
Implicit pnlCaption: TPanel;
Implicit gbUnsatUpstream: TGroupBox;
Implicit Label6: TLabel;
Implicit Label17: TLabel;
Implicit Label18: TLabel;
Implicit Label19: TLabel;
Implicit gbUnsatDownstream: TGroupBox;
Implicit Label20: TLabel;
Implicit Label21: TLabel;
Implicit Label22: TLabel;
Implicit Label23: TLabel;
Implicit tabFlows: TTabSheet;
Implicit dgFlowTimes: TRbwDataGrid4;
Implicit pnlDownstream: TPanel;
Implicit pnlUpstream: TPanel;
Implicit jceStreamTop: TJvComboEdit;
Implicit jceSlope: TJvComboEdit;
Implicit jceStreambedThickness: TJvComboEdit;
Implicit jceStreambedK: TJvComboEdit;
Implicit jceSaturatedVolumetricWater: TJvComboEdit;
Implicit jceInitialVolumetricWater: TJvComboEdit;
Implicit jceBrooksCoreyExponent: TJvComboEdit;
Implicit jceMaxUnsaturatedKz: TJvComboEdit;
Implicit jceSaturatedVolumetricWaterUpstream: TJvComboEdit;
Implicit jceInitialVolumetricWaterUpstream: TJvComboEdit;
Implicit jceBrooksCoreyExponentUpstream: TJvComboEdit;
Implicit jceMaxUnsaturatedKzUpstream: TJvComboEdit;
Implicit jceSaturatedVolumetricWaterDownstream: TJvComboEdit;
Implicit jceInitialVolumetricWaterDownstream: TJvComboEdit;
Implicit jceBrooksCoreyExponentDownstream: TJvComboEdit;
Implicit jceMaxUnsaturatedKzDownstream: TJvComboEdit;
Implicit lblReachLength: TLabel;
Implicit jvcReachLength: TJvComboEdit;
Implicit pnlFlowTop: TPanel;
Implicit rdeFlowFormula: TRbwDataEntry;
Implicit lblFlowFormula: TLabel;
Implicit lblUpstreamFormula: TLabel;
Implicit rdeUpstreamFormula: TRbwDataEntry;
Implicit lblDownstreamFormula: TLabel;
Implicit rdeDownstreamFormula: TRbwDataEntry;
Implicit pnlChannelTop: TPanel;
Implicit lblChannelFormula: TLabel;
Implicit rdeChannelFormula: TRbwDataEntry;
Implicit pnlEquationTop: TPanel;
Implicit lblEquationFormula: TLabel;
Implicit rdeEquationFormula: TRbwDataEntry;
Implicit tabTime: TTabSheet;
Implicit pnlParamTop: TPanel;
Implicit lblParameterChoices: TLabel;
Implicit rdgParameters: TRbwDataGrid4;
Implicit pnlParamBottom: TPanel;
Implicit lblParametersCount: TLabel;
Implicit seParametersCount: TJvSpinEdit;
Implicit btnInserParameters: TBitBtn;
Implicit btnDeleteParameters: TBitBtn;
Implicit comboParameterChoices: TJvImageComboBox;
Implicit lblIcalcChoice: TLabel;
Implicit comboIcalcChoice: TJvImageComboBox;
Implicit tabGage: TTabSheet;
Implicit rgGages: TRadioGroup;
Implicit gbObservationTypes: TGroupBox;
Implicit cbGagStandard: TCheckBox;
Implicit cbGag1: TCheckBox;
Implicit cbGag2: TCheckBox;
Implicit cbGag3: TCheckBox;
Implicit cbGag5: TCheckBox;
Implicit cbGag6: TCheckBox;
Implicit cbGag7: TCheckBox;
Implicit tabNetwork: TTabSheet;
Implicit pnlNetwork: TPanel;
Implicit lblSegment: TLabel;
Implicit rdeNetwork: TRbwDataEntry;
Implicit comboMultiIprior: TJvImageComboBox;
Implicit rdgNetwork: TRbwDataGrid4;
Implicit tabExternalFlowFile: TTabSheet;
Implicit frameExternalFileValues: TframeGrid;
Implicit pnlFlowFile: TPanel;
Implicit rgExternalFlowChoice: TRadioGroup;
Implicit rgReferenceTimeChoice: TRadioGroup;
Implicit fedExternalFileName: TJvFilenameEdit;
Implicit lblExternalFileName: TLabel;
Private FGettingData: boolean;
Private FISFROPT: integer;
Private FGetParser: TGetParserEvent;
Private FOnButtonClick: TGridButtonEvent;
Private FDeletingRow: Boolean;
Private FOnEdited: TNotifyEvent;
Private FUpdatingICalc: Boolean;
Private FDeletingTime: Boolean;
Private FTimesChanged: boolean;

Methods

Implicit procedure dgTableTimeSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure dgSfrRoughSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure dgUpSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure dgFlowTableSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure dgFlowTimesSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure rdeFlowFormulaChange(Sender: TObject);
Implicit procedure dgFlowTimesMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure dgFlowTimesColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure dgFlowTimesHorizontalScroll(Sender: TObject);
Implicit procedure FrameResize(Sender: TObject);
Implicit procedure dgFlowTimesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure rdeUpstreamFormulaChange(Sender: TObject);
Implicit procedure rdeDownstreamFormulaChange(Sender: TObject);
Implicit procedure dgUpMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure dgDownMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure dgUpColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure dgUpHorizontalScroll(Sender: TObject);
Implicit procedure dgUpSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure dgDownSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure dgDownColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure dgDownHorizontalScroll(Sender: TObject);
Implicit procedure rdeChannelFormulaChange(Sender: TObject);
Implicit procedure dgSfrRoughMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure dgSfrRoughSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure dgSfrRoughColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure dgSfrRoughHorizontalScroll(Sender: TObject);
Implicit procedure rdeEquationFormulaChange(Sender: TObject);
Implicit procedure dgSfrEquationMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure dgSfrEquationSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure dgSfrEquationColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure dgSfrEquationHorizontalScroll(Sender: TObject);
Implicit procedure dgTableTimeSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure seParametersCountChange(Sender: TObject);
Implicit procedure btnInserParametersClick(Sender: TObject);
Implicit procedure btnDeleteParametersClick(Sender: TObject);
Implicit procedure rdgParametersHorizontalScroll(Sender: TObject);
Implicit procedure rdgParametersColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure rdgParametersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure rdgParametersSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure comboParameterChoicesChange(Sender: TObject);
Implicit procedure comboIcalcChoiceChange(Sender: TObject);
Implicit procedure dgSfrEquationSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure rdgParametersBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
Implicit procedure rdeSegmentNumberChange(Sender: TObject);
Implicit procedure cbSfrGagClick(Sender: TObject);
Implicit procedure rgGagesClick(Sender: TObject);
Implicit procedure rdgNetworkHorizontalScroll(Sender: TObject);
Implicit procedure rdgNetworkColSize(Sender: TObject; ACol, PriorWidth: Integer);
Implicit procedure rdgNetworkMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Implicit procedure rdgNetworkSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure rdgNetworkSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Implicit procedure comboMultiIpriorChange(Sender: TObject);
Implicit procedure rdeNetworkChange(Sender: TObject);
Implicit procedure rgExternalFlowChoiceClick(Sender: TObject);
Private procedure AddFrame(FrameClass: TFrameClass; PageList: TJvPageList; out Frame: TFrame);
Private procedure InsertDataGridTime(DataGrid: TRbwDataGrid4; SpinEdit: TJvSpinEdit; PageList: TJvPageList; Row: integer);
Private procedure DeleteDataGridTime(DataGrid: TRbwDataGrid4; PageList: TJvPageList; Row: integer);
Private procedure PaintCrossSection(Sender: TObject; Buffer: TBitmap32);
Private procedure DrawCrossSection(ABitMap: TBitmap32);
Private procedure dgCrossSectionSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
Private procedure PaintFlowDepth(Sender: TObject; Buffer: TBitmap32);
Private procedure PaintFlowWidth(Sender: TObject; Buffer: TBitmap32);
Private procedure DrawFlowDepth(ABitMap: TBitmap32);
Private procedure DrawFlowWidth(ABitMap: TBitmap32);
Private procedure DrawFlowTable(ABitMap: TBitmap32; YColumn: Integer; ZoomBox: TQRbwZoomBox2);
Private procedure SetISFROPT(const Value: integer);
Private procedure EnableUnsatControls;
Private procedure GetSfrValues(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure GetSfrFlows(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure GetSfrSegments(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure GetSfrChannel(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure GetSfrEquation(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure GetSfrFlowTable(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure GetUnsaturatedValues(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure SetSfrValues(Boundary: TSfrBoundary);
Private procedure SetSfrFlows(Boundary: TSfrBoundary);
Private procedure SetSfrSegments(Boundary: TSfrBoundary);
Private procedure SetSfrChannel(Boundary: TSfrBoundary);
Private procedure SetSfrEquation(Boundary: TSfrBoundary);
Private procedure SetSfrFlowTable(Boundary: TSfrBoundary);
Private procedure SetUnsaturatedValues(Boundary: TSfrBoundary);
Private procedure ClearTable(Grid: TStringGrid);
Private procedure SetOnButtonClick(const Value: TGridButtonEvent);
Private procedure GetStartTimes(Grid: TRbwDataGrid4; Col: integer);
Private procedure GetEndTimes(Grid: TRbwDataGrid4; Col: integer);
Private procedure AssignSelectedCellsInGrid(DataGrid: TRbwDataGrid4; const NewText: string);
Private procedure EnableMultiEditControl(EdControl: TControl; DataGrid: TRbwDataGrid4);
Private procedure LayoutMultiRowFlowEditControls;
Private procedure UpdateSpinEditValue(DataGrid: TRbwDataGrid4; SpinEdit: TJvSpinEdit);
Private procedure LayoutMultiRowUpstreamEditControls;
Private procedure LayoutMultiRowDownstreamEditControls;
Private procedure LayoutMultiRowChannelEditControls;
Private procedure LayoutMultiRowEquationEditControls;
Private procedure LayoutMultiRowParamIcalcControls;
Private procedure AssignParamIcalcInGrid(ColIndex: Integer; NewText: string);
Private procedure GetParamIcalcValues(Boundary: TSfrBoundary; FoundFirst: Boolean);
Private procedure SetSfrParamIcalc(Boundary: TSfrBoundary);
Private function IcalcSet: TByteSet;
Private procedure EnableTabs;
Private procedure UpdatedTimesInSfrGrids(const Value: string; ACol: Integer; ARow: Integer);
Private function LocateRowFromStartAndEndTimes(StartTime, EndTime: double): integer;
Private function IcalcRowSet(Row: integer): TByteSet;
Private procedure dg8PointSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Private procedure dgSfrTableSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Private procedure UpdateICalc;
Private procedure UpdateKCaption;
Private procedure LayoutMultiRowNetworkControls;
Private procedure AssignMultipleIPrior(NewText: string; ColIndex: Integer);
Private procedure GetExternalFlows(Boundary: TSfrBoundary);
Private procedure SetExternalFlowFile(Boundary: TSfrBoundary);
Protected procedure Loaded; override;
Private procedure Edited;
Public procedure Initialize;
Public procedure GetData(List: TScreenObjectEditCollection);
Public procedure SetData(List: TScreenObjectEditCollection; SetAll: boolean; ClearAll: boolean);
Public constructor Create(AOwner: TComponent); override;

Properties

Public property ISFROPT: integer read FISFROPT write SetISFROPT;
Public property GetParser: TGetParserEvent read FGetParser write FGetParser;
Public property OnButtonClick: TGridButtonEvent read FOnButtonClick write SetOnButtonClick;
Public property OnEdited: TNotifyEvent read FOnEdited write FOnEdited;

Description

Fields

Implicit pcSFR: TPageControl;
 
Implicit tabSegment: TTabSheet;
 
Implicit tabTable: TTabSheet;
 
Implicit tabChannel: TTabSheet;
 
Implicit tabEquation: TTabSheet;
 
Implicit dgSfrEquation: TRbwDataGrid4;
 
Implicit jvplTable: TJvPageList;
 
Implicit jvplCrossSection: TJvPageList;
 
Implicit pnlSegmentUpstream: TPanel;
 
Implicit dgUp: TRbwDataGrid4;
 
Implicit pnlSegmentDownstream: TPanel;
 
Implicit dgDown: TRbwDataGrid4;
 
Implicit Splitter1: TSplitter;
 
Implicit Panel4: TPanel;
 
Implicit dgTableTime: TRbwDataGrid4;
 
Implicit Splitter2: TSplitter;
 
Implicit Panel5: TPanel;
 
Implicit dgSfrRough: TRbwDataGrid4;
 
Implicit Splitter3: TSplitter;
 
Implicit rdeSegmentNumber: TRbwDataEntry;
 
Implicit Label1: TLabel;
 
Implicit tabBasic: TTabSheet;
 
Implicit gReachProperties: TGroupBox;
 
Implicit lblStreamTop: TLabel;
 
Implicit lblSlope: TLabel;
 
Implicit lblStreambedThickness: TLabel;
 
Implicit lblStreambedK: TLabel;
 
Implicit lblSaturatedVolumetricWater: TLabel;
 
Implicit lblInitialVolumetricWater: TLabel;
 
Implicit lblBrooksCoreyExponent: TLabel;
 
Implicit lblMaxUnsaturatedKz: TLabel;
 
Implicit tabUnsaturatedProperties: TTabSheet;
 
Implicit zbChannel: TQRbwZoomBox2;
 
Implicit gpFlowTable: TGridPanel;
 
Implicit zbFlowDepthTable: TQRbwZoomBox2;
 
Implicit zbFlowWidthTable: TQRbwZoomBox2;
 
Implicit pnlCaption: TPanel;
 
Implicit gbUnsatUpstream: TGroupBox;
 
Implicit Label6: TLabel;
 
Implicit Label17: TLabel;
 
Implicit Label18: TLabel;
 
Implicit Label19: TLabel;
 
Implicit gbUnsatDownstream: TGroupBox;
 
Implicit Label20: TLabel;
 
Implicit Label21: TLabel;
 
Implicit Label22: TLabel;
 
Implicit Label23: TLabel;
 
Implicit tabFlows: TTabSheet;
 
Implicit dgFlowTimes: TRbwDataGrid4;
 
Implicit pnlDownstream: TPanel;
 
Implicit pnlUpstream: TPanel;
 
Implicit jceStreamTop: TJvComboEdit;
 
Implicit jceSlope: TJvComboEdit;
 
Implicit jceStreambedThickness: TJvComboEdit;
 
Implicit jceStreambedK: TJvComboEdit;
 
Implicit jceSaturatedVolumetricWater: TJvComboEdit;
 
Implicit jceInitialVolumetricWater: TJvComboEdit;
 
Implicit jceBrooksCoreyExponent: TJvComboEdit;
 
Implicit jceMaxUnsaturatedKz: TJvComboEdit;
 
Implicit jceSaturatedVolumetricWaterUpstream: TJvComboEdit;
 
Implicit jceInitialVolumetricWaterUpstream: TJvComboEdit;
 
Implicit jceBrooksCoreyExponentUpstream: TJvComboEdit;
 
Implicit jceMaxUnsaturatedKzUpstream: TJvComboEdit;
 
Implicit jceSaturatedVolumetricWaterDownstream: TJvComboEdit;
 
Implicit jceInitialVolumetricWaterDownstream: TJvComboEdit;
 
Implicit jceBrooksCoreyExponentDownstream: TJvComboEdit;
 
Implicit jceMaxUnsaturatedKzDownstream: TJvComboEdit;
 
Implicit lblReachLength: TLabel;
 
Implicit jvcReachLength: TJvComboEdit;
 
Implicit pnlFlowTop: TPanel;
 
Implicit rdeFlowFormula: TRbwDataEntry;
 
Implicit lblFlowFormula: TLabel;
 
Implicit lblUpstreamFormula: TLabel;
 
Implicit rdeUpstreamFormula: TRbwDataEntry;
 
Implicit lblDownstreamFormula: TLabel;
 
Implicit rdeDownstreamFormula: TRbwDataEntry;
 
Implicit pnlChannelTop: TPanel;
 
Implicit lblChannelFormula: TLabel;
 
Implicit rdeChannelFormula: TRbwDataEntry;
 
Implicit pnlEquationTop: TPanel;
 
Implicit lblEquationFormula: TLabel;
 
Implicit rdeEquationFormula: TRbwDataEntry;
 
Implicit tabTime: TTabSheet;
 
Implicit pnlParamTop: TPanel;
 
Implicit lblParameterChoices: TLabel;
 
Implicit rdgParameters: TRbwDataGrid4;
 
Implicit pnlParamBottom: TPanel;
 
Implicit lblParametersCount: TLabel;
 
Implicit seParametersCount: TJvSpinEdit;
 
Implicit btnInserParameters: TBitBtn;
 
Implicit btnDeleteParameters: TBitBtn;
 
Implicit comboParameterChoices: TJvImageComboBox;
 
Implicit lblIcalcChoice: TLabel;
 
Implicit comboIcalcChoice: TJvImageComboBox;
 
Implicit tabGage: TTabSheet;
 
Implicit rgGages: TRadioGroup;
 
Implicit gbObservationTypes: TGroupBox;
 
Implicit cbGagStandard: TCheckBox;
 
Implicit cbGag1: TCheckBox;
 
Implicit cbGag2: TCheckBox;
 
Implicit cbGag3: TCheckBox;
 
Implicit cbGag5: TCheckBox;
 
Implicit cbGag6: TCheckBox;
 
Implicit cbGag7: TCheckBox;
 
Implicit tabNetwork: TTabSheet;
 
Implicit pnlNetwork: TPanel;
 
Implicit lblSegment: TLabel;
 
Implicit rdeNetwork: TRbwDataEntry;
 
Implicit comboMultiIprior: TJvImageComboBox;
 
Implicit rdgNetwork: TRbwDataGrid4;
 
Implicit tabExternalFlowFile: TTabSheet;
 
Implicit frameExternalFileValues: TframeGrid;
 
Implicit pnlFlowFile: TPanel;
 
Implicit rgExternalFlowChoice: TRadioGroup;
 
Implicit rgReferenceTimeChoice: TRadioGroup;
 
Implicit fedExternalFileName: TJvFilenameEdit;
 
Implicit lblExternalFileName: TLabel;
 
Private FGettingData: boolean;
 
Private FISFROPT: integer;
 
Private FGetParser: TGetParserEvent;
 
Private FOnButtonClick: TGridButtonEvent;
 
Private FDeletingRow: Boolean;
 
Private FOnEdited: TNotifyEvent;
 
Private FUpdatingICalc: Boolean;
 
Private FDeletingTime: Boolean;
 
Private FTimesChanged: boolean;
 

Methods

Implicit procedure dgTableTimeSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure dgSfrRoughSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure dgUpSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure dgFlowTableSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure dgFlowTimesSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure rdeFlowFormulaChange(Sender: TObject);
 
Implicit procedure dgFlowTimesMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure dgFlowTimesColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure dgFlowTimesHorizontalScroll(Sender: TObject);
 
Implicit procedure FrameResize(Sender: TObject);
 
Implicit procedure dgFlowTimesSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure rdeUpstreamFormulaChange(Sender: TObject);
 
Implicit procedure rdeDownstreamFormulaChange(Sender: TObject);
 
Implicit procedure dgUpMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure dgDownMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure dgUpColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure dgUpHorizontalScroll(Sender: TObject);
 
Implicit procedure dgUpSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure dgDownSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure dgDownColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure dgDownHorizontalScroll(Sender: TObject);
 
Implicit procedure rdeChannelFormulaChange(Sender: TObject);
 
Implicit procedure dgSfrRoughMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure dgSfrRoughSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure dgSfrRoughColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure dgSfrRoughHorizontalScroll(Sender: TObject);
 
Implicit procedure rdeEquationFormulaChange(Sender: TObject);
 
Implicit procedure dgSfrEquationMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure dgSfrEquationSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure dgSfrEquationColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure dgSfrEquationHorizontalScroll(Sender: TObject);
 
Implicit procedure dgTableTimeSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure seParametersCountChange(Sender: TObject);
 
Implicit procedure btnInserParametersClick(Sender: TObject);
 
Implicit procedure btnDeleteParametersClick(Sender: TObject);
 
Implicit procedure rdgParametersHorizontalScroll(Sender: TObject);
 
Implicit procedure rdgParametersColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure rdgParametersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure rdgParametersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure rdgParametersSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure comboParameterChoicesChange(Sender: TObject);
 
Implicit procedure comboIcalcChoiceChange(Sender: TObject);
 
Implicit procedure dgSfrEquationSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure rdgParametersBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
 
Implicit procedure rdeSegmentNumberChange(Sender: TObject);
 
Implicit procedure cbSfrGagClick(Sender: TObject);
 
Implicit procedure rgGagesClick(Sender: TObject);
 
Implicit procedure rdgNetworkHorizontalScroll(Sender: TObject);
 
Implicit procedure rdgNetworkColSize(Sender: TObject; ACol, PriorWidth: Integer);
 
Implicit procedure rdgNetworkMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 
Implicit procedure rdgNetworkSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure rdgNetworkSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Implicit procedure comboMultiIpriorChange(Sender: TObject);
 
Implicit procedure rdeNetworkChange(Sender: TObject);
 
Implicit procedure rgExternalFlowChoiceClick(Sender: TObject);
 
Private procedure AddFrame(FrameClass: TFrameClass; PageList: TJvPageList; out Frame: TFrame);
 
Private procedure InsertDataGridTime(DataGrid: TRbwDataGrid4; SpinEdit: TJvSpinEdit; PageList: TJvPageList; Row: integer);
 
Private procedure DeleteDataGridTime(DataGrid: TRbwDataGrid4; PageList: TJvPageList; Row: integer);
 
Private procedure PaintCrossSection(Sender: TObject; Buffer: TBitmap32);
 
Private procedure DrawCrossSection(ABitMap: TBitmap32);
 
Private procedure dgCrossSectionSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
 
Private procedure PaintFlowDepth(Sender: TObject; Buffer: TBitmap32);
 
Private procedure PaintFlowWidth(Sender: TObject; Buffer: TBitmap32);
 
Private procedure DrawFlowDepth(ABitMap: TBitmap32);
 
Private procedure DrawFlowWidth(ABitMap: TBitmap32);
 
Private procedure DrawFlowTable(ABitMap: TBitmap32; YColumn: Integer; ZoomBox: TQRbwZoomBox2);
 
Private procedure SetISFROPT(const Value: integer);
 
Private procedure EnableUnsatControls;
 
Private procedure GetSfrValues(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure GetSfrFlows(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure GetSfrSegments(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure GetSfrChannel(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure GetSfrEquation(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure GetSfrFlowTable(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure GetUnsaturatedValues(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure SetSfrValues(Boundary: TSfrBoundary);
 
Private procedure SetSfrFlows(Boundary: TSfrBoundary);
 
Private procedure SetSfrSegments(Boundary: TSfrBoundary);
 
Private procedure SetSfrChannel(Boundary: TSfrBoundary);
 
Private procedure SetSfrEquation(Boundary: TSfrBoundary);
 
Private procedure SetSfrFlowTable(Boundary: TSfrBoundary);
 
Private procedure SetUnsaturatedValues(Boundary: TSfrBoundary);
 
Private procedure ClearTable(Grid: TStringGrid);
 
Private procedure SetOnButtonClick(const Value: TGridButtonEvent);
 
Private procedure GetStartTimes(Grid: TRbwDataGrid4; Col: integer);
 
Private procedure GetEndTimes(Grid: TRbwDataGrid4; Col: integer);
 
Private procedure AssignSelectedCellsInGrid(DataGrid: TRbwDataGrid4; const NewText: string);
 
Private procedure EnableMultiEditControl(EdControl: TControl; DataGrid: TRbwDataGrid4);
 
Private procedure LayoutMultiRowFlowEditControls;
 
Private procedure UpdateSpinEditValue(DataGrid: TRbwDataGrid4; SpinEdit: TJvSpinEdit);
 
Private procedure LayoutMultiRowUpstreamEditControls;
 
Private procedure LayoutMultiRowDownstreamEditControls;
 
Private procedure LayoutMultiRowChannelEditControls;
 
Private procedure LayoutMultiRowEquationEditControls;
 
Private procedure LayoutMultiRowParamIcalcControls;
 
Private procedure AssignParamIcalcInGrid(ColIndex: Integer; NewText: string);
 
Private procedure GetParamIcalcValues(Boundary: TSfrBoundary; FoundFirst: Boolean);
 
Private procedure SetSfrParamIcalc(Boundary: TSfrBoundary);
 
Private function IcalcSet: TByteSet;
 
Private procedure EnableTabs;
 
Private procedure UpdatedTimesInSfrGrids(const Value: string; ACol: Integer; ARow: Integer);
 
Private function LocateRowFromStartAndEndTimes(StartTime, EndTime: double): integer;
 
Private function IcalcRowSet(Row: integer): TByteSet;
 
Private procedure dg8PointSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Private procedure dgSfrTableSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Private procedure UpdateICalc;
 
Private procedure UpdateKCaption;
 
Private procedure LayoutMultiRowNetworkControls;
 
Private procedure AssignMultipleIPrior(NewText: string; ColIndex: Integer);
 
Private procedure GetExternalFlows(Boundary: TSfrBoundary);
 
Private procedure SetExternalFlowFile(Boundary: TSfrBoundary);
 
Protected procedure Loaded; override;
 
Private procedure Edited;
 
Public procedure Initialize;

Private declarations

Public procedure GetData(List: TScreenObjectEditCollection);
 
Public procedure SetData(List: TScreenObjectEditCollection; SetAll: boolean; ClearAll: boolean);
 
Public constructor Create(AOwner: TComponent); override;
 

Properties

Public property ISFROPT: integer read FISFROPT write SetISFROPT;
 
Public property GetParser: TGetParserEvent read FGetParser write FGetParser;
 
Public property OnButtonClick: TGridButtonEvent read FOnButtonClick write SetOnButtonClick;
 
Public property OnEdited: TNotifyEvent read FOnEdited write FOnEdited;
 

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