Class TSpiritHolder

Unit

type TSpiritHolder = class()

*****************************************************************************

	`Constructor Create( aParentList: TObjectList; aManager: TForm; aSpiritBar: TToolBar; aThing: AIThing);`
	`Destructor Destroy; override;`
	`procedure Hide;`
	`procedure OnDown(Sender: TObject);`
	`procedure Show;`

Constructor Create( aParentList: TObjectList; aManager: TForm; aSpiritBar: TToolBar; aThing: AIThing);

Destructor Destroy; override;

procedure Hide;

procedure OnDown(Sender: TObject);

procedure Show;

	`property ParentList: TObjectList;`
	`property SpiritButton: TDynamicToolButton;`
	`property SpiritForm: TfmSpirit;`
	`property Thing: AIThing;`
	`property Visible: boolean;`

property ParentList: TObjectList;

property SpiritButton: TDynamicToolButton;

property SpiritForm: TfmSpirit;

property Thing: AIThing;

property Visible: boolean;

Generated by PasDoc 0.8.7 on Wed 01/ Oct 2003 00:51:39