Class TCurtain (unit Curtain) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- **********************************************************************************) (***********************************************************************************) (
procedure curtainonoff(newstate : curtainstate);
**********************************************************************************)
procedure versionwrite(newversion : string);
**********************************************************************************)
property Version : string
event onoff : curtainstate
fonoff : curtainstate;
fVersion : string;
constructor Create(AOwner: TComponent);
**********************************************************************************) (***********************************************************************************) (
procedure curtainonoff(newstate : curtainstate);
**********************************************************************************)
procedure versionwrite(newversion : string);
**********************************************************************************)
property Version : string
event onoff : curtainstate
fonoff : curtainstate;
fVersion : string;