Class TCasseteContador (unit Tcascont)

Inherits from

TLabel

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;



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;