Class TAdMouseLibrary

Unit

AdGUI

Declaration

type TAdMouseLibrary = class(TAdList)

Description

A Andorra list class. Will soon be replaced by some own list type.

Hierarchy

• TList
• TAdList
• TAdMouseLibrary

Overview

Methods

	constructor Create(AParent:TAdDraw);
	destructor Destroy; override;
	procedure Move(TimeGap:double);
	procedure Draw;
	procedure LoadFromFile(AFile:string);
	procedure SaveToFile(AFile:string);
	procedure LoadFromXML(aroot:TAdSimpleXMLElem); virtual;
	function SaveToXML(aroot:TAdSimpleXMLElems):TAdSimpleXMLElem; virtual;

Properties

	property Items[Index:integer]: TAdMouseCursor read GetItem write SetItem;
	property Images: TAdImageList read FImages write FImages;
	property X: integer read FX write FX;
	property Y: integer read FY write FY;
	property Parent: TAdDraw read FParent write FParent;
	property CurrentCursor: string read FCurrentCursorString write SetCurrentCursor;
	property Visible: boolean read FVisible write FVisible;

Description

Methods

	constructor Create(AParent:TAdDraw);

	destructor Destroy; override;

	procedure Move(TimeGap:double);

	procedure Draw;

	procedure LoadFromFile(AFile:string);

	procedure SaveToFile(AFile:string);

	procedure LoadFromXML(aroot:TAdSimpleXMLElem); virtual;

	function SaveToXML(aroot:TAdSimpleXMLElems):TAdSimpleXMLElem; virtual;

Properties

	property Items[Index:integer]: TAdMouseCursor read GetItem write SetItem;

	property Images: TAdImageList read FImages write FImages;

	property X: integer read FX write FX;

	property Y: integer read FY write FY;

	property Parent: TAdDraw read FParent write FParent;

	property CurrentCursor: string read FCurrentCursorString write SetCurrentCursor;

	property Visible: boolean read FVisible write FVisible;