winscp/forms/Licence.cpp

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

#include <Common.h>
#include <TextsWin.h>

#include <VCLCommon.h>
#include "WinInterface.h"
#include "Licence.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
int LicenceStr[2] = { LICENCE, LICENCE_PUTTY };
int LicenceCount[2] = { 17, 2 };
//---------------------------------------------------------------------------
void __fastcall DoLicenceDialog(TLicence Licence)
{
  TLicenceDialog *LicenceDialog = NULL;
  try
  {
    LicenceDialog = new TLicenceDialog(Application);
    LicenceDialog->Licence = Licence;
    LicenceDialog->ShowModal();
  }
  __finally
  {
    delete LicenceDialog;
  }
}
//---------------------------------------------------------------------------
void __fastcall DoLicenceDialog(const AnsiString LicenceText)
{
  TLicenceDialog *LicenceDialog = NULL;
  try
  {
    LicenceDialog = new TLicenceDialog(Application);
    LicenceDialog->LicenceText = LicenceText;
    LicenceDialog->ShowModal();
  }
  __finally
  {
    delete LicenceDialog;
  }
}
//---------------------------------------------------------------------------
__fastcall TLicenceDialog::TLicenceDialog(TComponent* Owner)
        : TForm(Owner)
{
  FLicence = lcNoLicence;
  UseSystemSettings(this);
}
//---------------------------------------------------------------------------
void __fastcall TLicenceDialog::SetLicence(TLicence value)
{
  if (FLicence != value)
  {
    FLicence = value;
    TStrings * LicenceList = new TStringList();
    AnsiString ALicence = LoadStr(LicenceStr[FLicence]);
    for (Integer i = 1; i < LicenceCount[FLicence]; i++)
    {
      ALicence += LoadStr(LicenceStr[FLicence] + i);
    }
    LicenceList->Text = ALicence;
    assert(LicenceList->Count > 0);
    Caption = FMTLOAD(LICENCE_CAPTION, (LicenceList->Strings[0]));
    LicenceList->Delete(0);
    LicenceText = LicenceList->Text;
  }
}
//---------------------------------------------------------------------------
void __fastcall TLicenceDialog::SetLicenceText(AnsiString value)
{
  LicenceMemo->Lines->Text = value;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TLicenceDialog::GetLicenceText()
{
  return LicenceMemo->Lines->Text;
}