Class TframeScreenObjectHydmod

Unit

frameScreenObjectHydmodUnit

Declaration

type TframeScreenObjectHydmod = class(TFrame)

Description

Hierarchy

• TFrame
• TframeScreenObjectHydmod

Overview

Fields

	pnlCaption: TPanel;
	lblHYDLBL: TLabel;
	edHYDLBL: TRbwEdit;
	rgINTYP: TRadioGroup;
	gbBasic: TGroupBox;
	gbSubsidence: TGroupBox;
	clbBasic: TCheckListBox;
	clbSub: TCheckListBox;
	comboLayerGroup: TJvImageComboBox;
	lblLayerGroup: TLabel;
	lblNoDelayBed: TLabel;
	comboNoDelayBed: TJvImageComboBox;
	clbLayer: TCheckListBox;
	lblLayer: TLabel;
	gbSFR: TGroupBox;
	clbSFR: TCheckListBox;

Methods

	procedure clbSFRClickCheck(Sender: TObject);
	procedure comboLayerGroupChange(Sender: TObject);
	procedure comboNoDelayBedChange(Sender: TObject);
	procedure edHYDLBLExit(Sender: TObject);
	function InterpolationAllowed( const List: TScreenObjectEditCollection): boolean;
	procedure SetAllowedAssignmentMethod;
	procedure FillListOfScreenObjects(ListOfScreenObjects: TList; List: TScreenObjectEditCollection);
	procedure GetData(const List: TScreenObjectEditCollection);
	procedure SetData(List: TScreenObjectEditCollection; SetAll: boolean; ClearAll: boolean);

Description

Fields

	pnlCaption: TPanel;

	lblHYDLBL: TLabel;

	edHYDLBL: TRbwEdit;

	rgINTYP: TRadioGroup;

	gbBasic: TGroupBox;

	gbSubsidence: TGroupBox;

	clbBasic: TCheckListBox;

	clbSub: TCheckListBox;

	comboLayerGroup: TJvImageComboBox;

	lblLayerGroup: TLabel;

	lblNoDelayBed: TLabel;

	comboNoDelayBed: TJvImageComboBox;

	clbLayer: TCheckListBox;

	lblLayer: TLabel;

	gbSFR: TGroupBox;

	clbSFR: TCheckListBox;

Methods

	procedure clbSFRClickCheck(Sender: TObject);

	procedure comboLayerGroupChange(Sender: TObject);

	procedure comboNoDelayBedChange(Sender: TObject);

	procedure edHYDLBLExit(Sender: TObject);

	function InterpolationAllowed( const List: TScreenObjectEditCollection): boolean;

	procedure SetAllowedAssignmentMethod;

	procedure FillListOfScreenObjects(ListOfScreenObjects: TList; List: TScreenObjectEditCollection);

	procedure GetData(const List: TScreenObjectEditCollection);
Private declarations

	procedure SetData(List: TScreenObjectEditCollection; SetAll: boolean; ClearAll: boolean);