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

#include "AboutDlg.h"
#include "LEADAnn.hpp"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma warn -8080

TAboutDlg1 *AboutDlg1;
//---------------------------------------------------------------------------
__fastcall TAboutDlg1::TAboutDlg1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TAboutDlg1::FormCreate(TObject *Sender)
{
   TLEADAnn *Temp = new TLEADAnn(this);
   Temp->Parent = this;
   Temp->Visible = false;

   Label7->Caption = "LEAD Product: " + Temp->VersionProduct;
   Label8->Caption = "Professional Edition Version: " + IntToStr(Temp->VersionMajor) + "." + IntToStr(Temp->VersionMinor);
   Label9->Caption = "Date: " + Temp->VersionDate;
   Label10->Caption = "Time: " + Temp->VersionTime;
   Temp->Free();
}
//---------------------------------------------------------------------------