| Class TCasseteContador (unit Tcascont) |
TLabel
| Constructors |
Constructor Create(AOwner:TComponent);Creador del Objeto
| Functions |
Destructor Destroy;
Procedure ResetTimeCode;
Procedure SetOperacion(Operacion:OperacionCinta);
Function SetTCodeStr(Timecode:string):Boolean;
procedure WriteCaption;
Procedure FTimerOnTimer(Sender:TObject);
Function GetTime:FormatoTimeCode;
procedure SetTime(time:FormatoTimeCode);Interno: Actualiza el Contador de Cassete
| Properties |
property CountLimit : Integer
property FastSpeed : Integer
property TimeCode : FormatoTimeCode| Events |
| Variables |
FContador : FormatoTimeCode;
FLimite : Integer;
FOpera : OperacionCinta;
FSpeed : Integer;
FTimer : TTimer;| Constructors |
Constructor Create(AOwner:TComponent);Public declarations
Creador del Objeto
| Functions |
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
| Properties |
property CountLimit : Integer
property FastSpeed : Integer
property TimeCode : FormatoTimeCode| Events |
| Variables |
FContador : FormatoTimeCode;Private declarations
FLimite : Integer;
FOpera : OperacionCinta;
FSpeed : Integer;
FTimer : TTimer;