//---------------------------------------------------------------------
#include <vcl.h>
#include "all.h"
#pragma hdrstop

#include "About.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
#pragma warn -par  // disable 'parameter not used' warning
TAboutBox *AboutBox;
//--------------------------------------------------------------------- 
__fastcall TAboutBox::TAboutBox(TComponent *Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::FormCreate(TObject *Sender)
{
   VERSIONINFO VI;
   L_CHAR      szMessage[1024];

   memset(szMessage,0,sizeof(szMessage));
   LBase::VersionInfo(&VI,sizeof(VI));
   wsprintf(szMessage,
            "LEAD Product: %s\r\n%s"
            "Version %d.%d\r\n"
            "Date: %s\r\n"
            "Time: %s",
            (L_CHAR L_FAR *)VI.Product,
            (L_CHAR L_FAR *)((VI.Level==TOOLKIT_LEVEL_DOCUMENT)
            ?"Express editions ":"Professional Edition"),
            VI.MajorNumber,VI.MinorNumber,
            (L_CHAR L_FAR *)VI.Date,
            (L_CHAR L_FAR *)VI.Time);

   VersionInfo->Caption=szMessage;
}
//---------------------------------------------------------------------------