Unit verslab

Unit : verslab.pas Description : A TCustomLabel derivative that displays Win32 VersionInfo data Version : 1.00, 15 June 1997 Status : Freeware Contact : Marc Evans, marc@leviathn.demon.co.uk

Classes

TVersionLabel -

Functions

Register -

Types

TVersionResources

Constants

VersionLookup

Variables


Functions


procedure Register;


Types


TVersionResources = (vrCompanyName, vrFileDescription, vrFileVersion,
                         vrInternalName, vrLegalCopyright, vrOriginalFilename,
                         vrProductName, vrProductVersion, vrComments);

Constants

VersionLookup = ( ('CompanyName', 'Company Name:'), ('FileDescription', 'File Description:'), ('FileVersion', 'File Version:'), ('InternalName', 'Internal Name:'), ('LegalCopyright', 'Legal Copyright:'), ('OriginalFilename', 'Original Filename:'), ('ProductName', 'Product Name:'), ('ProductVersion', 'Product Version:'), ('Comments', 'Comments:'))

The order of this array must be the same as the VersionResources enum type as that is used for the index lookup

Variables