home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / About.cpp next >
Encoding:
C/C++ Source or Header  |  1998-07-03  |  1.1 KB  |  35 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "About.h"
  6. //--------------------------------------------------------------------- 
  7. #pragma link "LTOCX10N"
  8. #pragma resource "*.dfm"
  9. TAboutBox *AboutBox;
  10. //--------------------------------------------------------------------- 
  11. __fastcall TAboutBox::TAboutBox(TComponent* AOwner)
  12.     : TForm(AOwner)
  13. {
  14. }
  15. //---------------------------------------------------------------------
  16. void __fastcall TAboutBox::FormCreate(TObject *Sender)
  17. {
  18.    char s[10];
  19.  
  20.    Product->Caption=Lead1->VersionProduct;
  21.    BDate->Caption=Lead1->VersionDate;
  22.    BTime->Caption=Lead1->VersionTime;
  23.    if(Lead1->VersionLevel==VERSIONLEVEL_EXP)
  24.      Level->Caption="Pro Express";
  25.    else if(Lead1->VersionLevel==VERSIONLEVEL_MEDICAL)
  26.      Level->Caption="Medical Express";
  27.    else
  28.      Level->Caption="Professional";
  29.    itoa(Lead1->VersionMajor,s,10);
  30.    Version->Caption=s;
  31.    itoa(Lead1->VersionMinor,s,10);
  32.    Version->Caption=Version->Caption + "." + s;
  33. }
  34. //---------------------------------------------------------------------------
  35.