Function TForm

source/aboutbox.cpp:14–24

---------------------------------------------------------------------------

TAboutBoxForm * AboutBoxForm;
//---------------------------------------------------------------------------
__fastcall TAboutBoxForm::TAboutBoxForm(TComponent* Owner)
    : TForm(Owner)
{
  Caption = GetFullAppName() + " [" + __DATE__ + "]";
  try
  {
    Memo->Lines->LoadFromFile(ExtractFilePath(ApplicationExeName) + "changelog.txt");
  }
  catch (...)
  {}
}
//---------------------------------------------------------------------------
void __fastcall TAboutBoxForm::LabelClick(TObject * Sender)
{