Class TTCEdit (unit TCEdit)

Inherits from

TEdit

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure BadTime;

Return miliseconds of timecode string

procedure BuildHMSF;


procedure DblClick;

This will optionally auto clear the timecode if the user double clicks it

procedure DoEnter;

When user enters TCEdit, make sure we're in H,M,S fields

procedure DoExit;

Validates TC box and updates Milisecs

procedure GetFrames(NewValue : byte);


procedure GetHours(NewValue : byte);

Coverts it to a formatted string

procedure GetMilisecs(NewValue : integer);


procedure GetMins(NewValue : byte);


procedure GetSecs(NewValue : byte);


procedure KeyPress(var Key: Char);

Validate each keypress, and format text in edit box.

function MiliToTC(TCTime: integer) : string;

Converts a time in miliseconds into a formatted timecode string This is messy, yet somehow I can't work out any simpler way!

function TCToMili(TimeString: string) : Integer;

Converts a formatted timecode string into milisecs integer

Properties

property DblClickClr : boolean


property DoFrames : boolean


property FrameRate : byte


property Frames : byte


property Hours : byte


property MaxHours : byte


property MaxMins : byte


property MaxSecs : byte


property Milisecs : integer


property Mins : byte


property Offset : boolean


property Secs : byte


property Text :


Events

Variables

FDblClickClr : boolean;


FDoFrames : boolean;


FFrameRate : byte;


FFrames : byte;


FHours : byte;


FMaxHours : byte;


FMaxMins : byte;


FMaxSecs : byte;


FMilisecs : integer;


FMins : byte;


FOffset : boolean;


FSecs : byte;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure BadTime;

Return miliseconds of timecode string


procedure BuildHMSF;


procedure DblClick;

This will optionally auto clear the timecode if the user double clicks it


procedure DoEnter;

When user enters TCEdit, make sure we're in H,M,S fields


procedure DoExit;

Validates TC box and updates Milisecs


procedure GetFrames(NewValue : byte);


procedure GetHours(NewValue : byte);

Coverts it to a formatted string


procedure GetMilisecs(NewValue : integer);


procedure GetMins(NewValue : byte);


procedure GetSecs(NewValue : byte);


procedure KeyPress(var Key: Char);

Validate each keypress, and format text in edit box...


function MiliToTC(TCTime: integer) : string;

Converts a time in miliseconds into a formatted timecode string This is messy, yet somehow I can't work out any simpler way!


function TCToMili(TimeString: string) : Integer;

Converts a formatted timecode string into milisecs integer


Properties


property DblClickClr : boolean


property DoFrames : boolean


property FrameRate : byte


property Frames : byte


property Hours : byte


property MaxHours : byte


property MaxMins : byte


property MaxSecs : byte


property Milisecs : integer


property Mins : byte


property Offset : boolean


property Secs : byte


property Text :


Events


Variables


FDblClickClr : boolean;


FDoFrames : boolean;


FFrameRate : byte;


FFrames : byte;


FHours : byte;


FMaxHours : byte;


FMaxMins : byte;


FMaxSecs : byte;


FMilisecs : integer;


FMins : byte;


FOffset : boolean;


FSecs : byte;