Class TUsedWithModelItem

Unit

ScreenObjectUnit

Declaration

type TUsedWithModelItem = class(TPhastCollectionItem)

Description

Hierarchy

• TCollectionItem
• TPhastCollectionItem
• TUsedWithModelItem

Overview

Fields

	FUsedModel: TBaseModel;
	FModelName: string;

Methods

	procedure SetUsedModel(const Value: TBaseModel);
	procedure SetModelName(const Value: string);
	function GetModelName: string;
	function GetUsedModel: TBaseModel;
	procedure Assign(Source: TPersistent); override;

Properties

	property UsedModel: TBaseModel read GetUsedModel write SetUsedModel;
	property ModelName: string read GetModelName write SetModelName;

Description

Fields

	FUsedModel: TBaseModel;

	FModelName: string;

Methods

	procedure SetUsedModel(const Value: TBaseModel);

	procedure SetModelName(const Value: string);

	function GetModelName: string;

	function GetUsedModel: TBaseModel;

	procedure Assign(Source: TPersistent); override;

Properties

	property UsedModel: TBaseModel read GetUsedModel write SetUsedModel;

	property ModelName: string read GetModelName write SetModelName;