Class TCurveTypesSingleton

Unit

curve_types_singleton

Declaration

type TCurveTypesSingleton = class(TInterfacedObject, ICurveFactory, ICurveTypeIterator, ICurveTypeSelector)

Description

Class-singleton containing information about curve types. Should be inherited from TCompoenent to

Hierarchy

• TInterfacedObject
• TCurveTypesSingleton

Overview

Fields

	FCurrentCurveType: TCurveType;
	FCurveTypes: TList;
	FSelectedCurveType: TCurveType;

Methods

	constructor Init;
	class function CreateCurveFactory: ICurveFactory;
	class function CreateCurveTypeIterator: ICurveTypeIterator;
	class function CreateCurveTypeSelector: ICurveTypeSelector;
	function EndCurveType: boolean;
	function GetCurveTypeId: TCurveTypeId;
	function GetCurveTypeName: string;
	function GetCurveTypeTag(CurveTypeId: TCurveTypeId): integer;
	function GetSelectedCurveType: TCurveTypeId;
	function GetSelectedExtremumMode: TExtremumMode;
	procedure FirstCurveType;
	procedure NextCurveType;
	procedure RegisterCurveType(CurveClass: TCurveClass);
	procedure SelectCurveType(TypeId: TCurveTypeId);

Description

Fields

	FCurrentCurveType: TCurveType;
Current curve type used in iteration.

	FCurveTypes: TList;

	FSelectedCurveType: TCurveType;
Curve type selected by user.

Methods

	constructor Init;

	class function CreateCurveFactory: ICurveFactory;

	class function CreateCurveTypeIterator: ICurveTypeIterator;

	class function CreateCurveTypeSelector: ICurveTypeSelector;

	function EndCurveType: boolean;

	function GetCurveTypeId: TCurveTypeId;

	function GetCurveTypeName: string;

	function GetCurveTypeTag(CurveTypeId: TCurveTypeId): integer;

	function GetSelectedCurveType: TCurveTypeId;
Returns value of FCurrentCurveType. The value should be checked on Nil.

	function GetSelectedExtremumMode: TExtremumMode;

	procedure FirstCurveType;
Implementation of ICurveTypeIterator.

	procedure NextCurveType;

	procedure RegisterCurveType(CurveClass: TCurveClass);
function CreatePointsSet(TypeId: TCurveTypeId): TNamedPointsSet; virtual; abstract;

	procedure SelectCurveType(TypeId: TCurveTypeId);
Implementation of ICurveTypeSelector.