Class TPositionList

Unit

frmGoPhastUnit

Declaration

type TPositionList = class(TObject)

Description

Hierarchy

• TObject
• TPositionList

Overview

Fields

	FList: TList;
	FCurrentPosition: integer;
	FMaxPositions: integer;
	FOnNewPosition: TOnNewPositionEvent;

Methods

	function GetCanRedo: boolean;
	function GetCanUndo: boolean;
	Constructor Create(MaxPositions: integer);
	Destructor Destroy; override;
	procedure Submit(NewPosition: TPositionStorage);
	procedure Undo;
	procedure Redo;
	procedure Clear;

Properties

	property OnNewPosition: TOnNewPositionEvent read FOnNewPosition write FOnNewPosition;
	property CanUndo: boolean read GetCanUndo;
	property CanRedo: boolean read GetCanRedo;

Description

Fields

	FList: TList;

	FCurrentPosition: integer;

	FMaxPositions: integer;

	FOnNewPosition: TOnNewPositionEvent;

Methods

	function GetCanRedo: boolean;

	function GetCanUndo: boolean;

	Constructor Create(MaxPositions: integer);

	Destructor Destroy; override;

	procedure Submit(NewPosition: TPositionStorage);

	procedure Undo;

	procedure Redo;

	procedure Clear;

Properties

	property OnNewPosition: TOnNewPositionEvent read FOnNewPosition write FOnNewPosition;

	property CanUndo: boolean read GetCanUndo;

	property CanRedo: boolean read GetCanRedo;