Class TCustomSubLayerItem

Unit

ModflowSubsidenceDefUnit

Declaration

type TCustomSubLayerItem = class(TOrderedItem)

Description

TOrderedItem is designed to allow TOrderedCollection to identify changed and new items during TOrderedCollection.Assign.

Hierarchy

• TCollectionItem
• TOrderedItem
• TCustomSubLayerItem

Overview

Fields

	FUsedLayers: TUseLayersCollection;
	FUseInAllLayers: boolean;
	FName: string;
	FAssociatedModelDataSetNames: TStringList;
	FDataArrayTypes: TStringList;
	FDataArrayDisplayTypes: TStringList;

Methods

	procedure SetName(const Value: string);
	procedure SetUsedLayers(const Value: TUseLayersCollection);
	procedure SetUseInAllLayers(const Value: boolean);
	procedure UpdateArrayNames(NewNames, NewDisplayNames: TStringList); virtual; abstract;
	procedure UpdateAssociatedDataSetNames(NewNames: TStringList);
	function IsSame(AnotherItem: TOrderedItem): boolean; override;
	procedure SetDataArrayName(var StoredName: string; NewName, NewDisplayName: string; CreateDataArray: boolean);
	procedure SetArrayNames(NewName: string);
	procedure Assign(Source: TPersistent); override;
	Constructor Create(Collection: TCollection); override;
	Destructor Destroy; override;

Properties

	property UseInAllLayers: boolean read FUseInAllLayers write SetUseInAllLayers;
	property UsedLayers: TUseLayersCollection read FUsedLayers write SetUsedLayers;
	property Name: string read FName write SetName;

Description

Fields

	FUsedLayers: TUseLayersCollection;

	FUseInAllLayers: boolean;

	FName: string;

	FAssociatedModelDataSetNames: TStringList;

	FDataArrayTypes: TStringList;

	FDataArrayDisplayTypes: TStringList;

Methods

	procedure SetName(const Value: string);

	procedure SetUsedLayers(const Value: TUseLayersCollection);

	procedure SetUseInAllLayers(const Value: boolean);

	procedure UpdateArrayNames(NewNames, NewDisplayNames: TStringList); virtual; abstract;

	procedure UpdateAssociatedDataSetNames(NewNames: TStringList);

	function IsSame(AnotherItem: TOrderedItem): boolean; override;

	procedure SetDataArrayName(var StoredName: string; NewName, NewDisplayName: string; CreateDataArray: boolean);

	procedure SetArrayNames(NewName: string);

	procedure Assign(Source: TPersistent); override;

	Constructor Create(Collection: TCollection); override;

	Destructor Destroy; override;

Properties

	property UseInAllLayers: boolean read FUseInAllLayers write SetUseInAllLayers;

	property UsedLayers: TUseLayersCollection read FUsedLayers write SetUsedLayers;

	property Name: string read FName write SetName;