Class TCasseteContador (unit Tcascont) |
Inherits from
TLabel
Constructor Create(AOwner:TComponent);
- Public declarations
Creador del Objeto
Destructor Destroy;
Destructor del Objeto
Procedure ResetTimeCode;
Lleva a cero el contador de cassete
Procedure SetOperacion(Operacion:OperacionCinta);
Function SetTCodeStr(Timecode:string):Boolean;
Permite setear el Time Code desde una string, si la string no es valida} {devuelve false, si es mayor que el maximo permitido coloca el maximo
procedure WriteCaption;
Protected declarations
Procedure FTimerOnTimer(Sender:TObject);
Esto es fijo} {Conversion a Formato BCD
Function GetTime:FormatoTimeCode;
Entrega el valor del contador en BCD
procedure SetTime(time:FormatoTimeCode);
Change speed of FF and RwdInterno: Actualiza el Contador de Cassete
property CountLimit : Integer
property FastSpeed : Integer
property TimeCode : FormatoTimeCode
FContador : FormatoTimeCode;
Private declarations
FLimite : Integer;
FOpera : OperacionCinta;
FSpeed : Integer;
FTimer : TTimer;
Constructor Create(AOwner:TComponent);
Public declarations
Creador del Objeto
Destructor Destroy;
Destructor del Objeto
Procedure ResetTimeCode;
Lleva a cero el contador de cassete
Procedure SetOperacion(Operacion:OperacionCinta);
Function SetTCodeStr(Timecode:string):Boolean;
Permite setear el Time Code desde una string, si la string no es valida} {devuelve false, si es mayor que el maximo permitido coloca el maximo
procedure WriteCaption;
Protected declarations
Procedure FTimerOnTimer(Sender:TObject);
Esto es fijo} {Conversion a Formato BCD
Function GetTime:FormatoTimeCode;
Entrega el valor del contador en BCD
procedure SetTime(time:FormatoTimeCode);
Change speed of FF and Rwd
Interno: Actualiza el Contador de Cassete
property CountLimit : Integer
property FastSpeed : Integer
property TimeCode : FormatoTimeCode
FContador : FormatoTimeCode;
Private declarations
FLimite : Integer;
FOpera : OperacionCinta;
FSpeed : Integer;
FTimer : TTimer;