Unit MEVerLbl

Renamed from VersLab.pas 6/16/1998 Paul Rice to avoid conflicts with others' work. Unit : verslab.pas Description : A TCustomLabel derivative that displays Win32 VersionInfo data Version : 1.03, 29 July 1997 Status : Freeware. Contact : Marc Evans, marc@leviathn.demon.co.uk History: v1.01 : fixed bug stopping LangCharSet from actually doing anything at all on a non-UK system. v1.02 : Fixed resource leak bug. (surely there can't be any more? It's only 6K!) Thanks to Peter Stromblad for finding it! 1 July 1997 v1.03 : Added display of flags, tidied up code. Made LangCharSet autodetect. Thanks to Fabrice Marguerie (FabriceM@compuserve.com) for the flags code. 29 July 1997

Classes

TVersionLabel -

Functions

Register -

Types

TVersionResources

Constants

VersionLookup

Variables


Functions


procedure Register;


Types


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

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:'), ('Flags', 'Flags:'))

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

Variables