Class TframePackage

Unit

framePackageUnit

Declaration

type TframePackage = class(TFrame)

Description

Hierarchy

• TFrame
• TframePackage

Overview

Fields

	lblComments: TLabel;
	memoComments: TMemo;
	lblPackage: TLabel;
	rcSelectionController: TRbwController;
	Node: TTreeNode;
	FSelected: boolean;
	FSelectionType: TSelectionType;
	FOnSelectedChange: TNotifyEvent;
	FCanSelect: boolean;

Methods

	procedure SetNodeStateIndex;
	procedure SetCanSelect(const Value: boolean);
	procedure SetSelected(const Value: boolean); virtual;
	procedure MoveControlsToTab(ParentPageControl: TPageControl);
	procedure EnableMultiEditControl(Control: TControl; DataGrid: TRbwDataGrid4);
	procedure GetData(Package: TModflowPackageSelection); virtual;
	procedure SetData(Package: TModflowPackageSelection); virtual;
	constructor Create(AOwner: TComponent); override;
	procedure NilNode;

Properties

	property CanSelect: boolean read FCanSelect write SetCanSelect;
	property Selected: boolean read FSelected write SetSelected;
	property SelectionType: TSelectionType read FSelectionType write FSelectionType;
	property OnSelectedChange: TNotifyEvent read FOnSelectedChange write FOnSelectedChange;

Description

Fields

	lblComments: TLabel;

	memoComments: TMemo;

	lblPackage: TLabel;

	rcSelectionController: TRbwController;

	Node: TTreeNode;

	FSelected: boolean;

	FSelectionType: TSelectionType;

	FOnSelectedChange: TNotifyEvent;

	FCanSelect: boolean;

Methods

	procedure SetNodeStateIndex;

	procedure SetCanSelect(const Value: boolean);

	procedure SetSelected(const Value: boolean); virtual;
Private declarations

	procedure MoveControlsToTab(ParentPageControl: TPageControl);
MoveControlsToTab moves the control on TframePackage to the first tab of ParentPageControl. MoveControlsToTab is used in TframeGMG.

	procedure EnableMultiEditControl(Control: TControl; DataGrid: TRbwDataGrid4);

	procedure GetData(Package: TModflowPackageSelection); virtual;

	procedure SetData(Package: TModflowPackageSelection); virtual;

	constructor Create(AOwner: TComponent); override;

	procedure NilNode;

Properties

	property CanSelect: boolean read FCanSelect write SetCanSelect;

	property Selected: boolean read FSelected write SetSelected;

	property SelectionType: TSelectionType read FSelectionType write FSelectionType;

	property OnSelectedChange: TNotifyEvent read FOnSelectedChange write FOnSelectedChange;