1
0
mirror of https://github.com/winscp/winscp.git synced 2026-10-24 02:28:55 +03:00
Files
winscp/source/forms/License.cpp
Martin Prikryl b13e2e7c2b #pragma package(smart_init) is not useful out of packages
Source commit: 7635ac3b532214f27ea2b6fe6aa80398c857cfcd
2025-08-23 01:06:48 +02:00

45 lines
1.3 KiB
C++

//---------------------------------------------------------------------------
#include <FormsPCH.h>
#pragma hdrstop
#include "License.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
static UnicodeString LicenseStr[2] =
{ L"LICENSE", L"LICENSE_EXPAT" };
//---------------------------------------------------------------------------
void __fastcall DoLicenseDialog(TLicense License)
{
TLicenseDialog * LicenseDialog = NULL;
try
{
LicenseDialog = new TLicenseDialog(Application, License);
LicenseDialog->ShowModal();
}
__finally
{
delete LicenseDialog;
}
}
//---------------------------------------------------------------------------
__fastcall TLicenseDialog::TLicenseDialog(TComponent * Owner, TLicense License)
: TForm(Owner)
{
UseSystemSettings(this);
TStrings * LicenseList = new TStringList();
try
{
LicenseList->Text = ReadResource(LicenseStr[License]);
DebugAssert(LicenseList->Count > 0);
Caption = FMTLOAD(LICENSE_CAPTION, (LicenseList->Strings[0]));
LicenseList->Delete(0);
LicenseMemo->Lines->Text = LicenseList->Text;
}
__finally
{
delete LicenseList;
}
}