Class TTCEdit (unit TCEdit) |
Inherits from
TEdit
constructor Create(AOwner: TComponent);
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
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 :
FDblClickClr : boolean;
FDoFrames : boolean;
FFrameRate : byte;
FFrames : byte;
FHours : byte;
FMaxHours : byte;
FMaxMins : byte;
FMaxSecs : byte;
FMilisecs : integer;
FMins : byte;
FOffset : boolean;
FSecs : byte;
constructor Create(AOwner: TComponent);
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
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 :
FDblClickClr : boolean;
FDoFrames : boolean;
FFrameRate : byte;
FFrames : byte;
FHours : byte;
FMaxHours : byte;
FMaxMins : byte;
FMaxSecs : byte;
FMilisecs : integer;
FMins : byte;
FOffset : boolean;
FSecs : byte;