Class TCurtain (unit Curtain)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

**********************************************************************************) (***********************************************************************************) (


Functions

procedure curtainonoff(newstate : curtainstate);

**********************************************************************************)

procedure versionwrite(newversion : string);

**********************************************************************************)

Properties

property Version : string


Events

event onoff : curtainstate


Variables

fonoff : curtainstate;


fVersion : string;



Constructors


constructor Create(AOwner: TComponent);

**********************************************************************************) (***********************************************************************************) (


Functions


procedure curtainonoff(newstate : curtainstate);

**********************************************************************************)


procedure versionwrite(newversion : string);

**********************************************************************************)


Properties


property Version : string


Events


event onoff : curtainstate


Variables


fonoff : curtainstate;


fVersion : string;