//--------------------------------------------------------------------------- #include #pragma hdrstop #include "About.h" #include "MainForm.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TAboutFrm *AboutFrm; //--------------------------------------------------------------------------- __fastcall TAboutFrm::TAboutFrm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TAboutFrm::FormCreate(TObject *Sender) { Label7->Caption = "LEAD Product: " + MainFrm->LEADImage1->VersionProduct; Label8->Caption = "Professional Edition Version: " + IntToStr(MainFrm->LEADImage1->VersionMajor) + "." + IntToStr(MainFrm->LEADImage1->VersionMinor); Label9->Caption = "Date: " + MainFrm->LEADImage1->VersionDate; Label10->Caption = "Time: " + MainFrm->LEADImage1->VersionTime; }