/*[]=====================================================================[]*/
/*[]     LeadTools C++ Class Library - Version 1.0                       []*/
/*[]                                                                     []*/
/*[]                                                                     []*/
/*[]     Copyright (c) 1991-2000 LEAD Technologies, Inc.                 []*/
/*[]     All Rights Reserved.                                            []*/
/*[]=====================================================================[]*/

//include files
#include "AnnBmp.h"
#include <vcl.h>
#pragma hdrstop

#include "About.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
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;
}
//---------------------------------------------------------------------------