mirror of
https://github.com/winscp/winscp.git
synced 2026-10-28 15:35:08 +03:00
426 lines
14 KiB
C++
426 lines
14 KiB
C++
//---------------------------------------------------------------------
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include <SysUtils.hpp>
|
|
//---------------------------------------------------------------------
|
|
#include <VCLCommon.h>
|
|
#include <Common.h>
|
|
#include <Tools.h>
|
|
#include <GUITools.h>
|
|
#include <CoreMain.h>
|
|
#include <PuttyTools.h>
|
|
#include "WinInterface.h"
|
|
#include "About.h"
|
|
#include "TextsCore.h"
|
|
#include "TextsWin.h"
|
|
#ifndef NO_COMPONENTS
|
|
// must be included before WebBrowserEx.hpp to avoid ambiguity of tagLOGFONTW
|
|
#include <TB2Version.hpp>
|
|
#include <TBX.hpp>
|
|
#endif
|
|
#include <JclBase.hpp>
|
|
#include <JclDebug.hpp>
|
|
#include <WebBrowserEx.hpp>
|
|
#include <StrUtils.hpp>
|
|
#include <Dialogs.hpp>
|
|
#ifndef NO_FILEZILLA
|
|
#include <FtpFileSystem.h>
|
|
#endif
|
|
//---------------------------------------------------------------------
|
|
#pragma link "SHDocVw_OCX"
|
|
#ifndef NO_RESOURCES
|
|
#pragma resource "*.dfm"
|
|
#endif
|
|
//---------------------------------------------------------------------------
|
|
static void __fastcall DoAboutDialog(TConfiguration * Configuration,
|
|
bool AllowLicense, TRegistration * Registration, bool LoadThirdParty)
|
|
{
|
|
TAboutDialog * AboutDialog = NULL;
|
|
try
|
|
{
|
|
AboutDialog = new TAboutDialog(Application, Configuration, AllowLicense,
|
|
Registration, LoadThirdParty);
|
|
AboutDialog->ShowModal();
|
|
}
|
|
__finally
|
|
{
|
|
delete AboutDialog;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall DoAboutDialog(TConfiguration * Configuration,
|
|
bool AllowLicense, TRegistration * Registration)
|
|
{
|
|
try
|
|
{
|
|
DoAboutDialog(Configuration, AllowLicense, Registration, true);
|
|
}
|
|
catch (EOleException & E)
|
|
{
|
|
// This happens particularly on Wine that does not support some
|
|
// functionality of embedded IE we need.
|
|
DoAboutDialog(Configuration, AllowLicense, Registration, false);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TAboutDialog::TAboutDialog(TComponent * AOwner,
|
|
TConfiguration * Configuration, bool AllowLicense, TRegistration * Registration,
|
|
bool ALoadThirdParty)
|
|
: TForm(AOwner)
|
|
{
|
|
FConfiguration = Configuration;
|
|
UseSystemSettings(this);
|
|
LinkLabel(HomepageLabel, LoadStr(HOMEPAGE_URL));
|
|
LinkLabel(ForumUrlLabel, LoadStr(FORUM_URL));
|
|
ApplicationLabel->ParentFont = true;
|
|
ApplicationLabel->Font->Style = ApplicationLabel->Font->Style << fsBold;
|
|
ApplicationLabel->Caption = AppName;
|
|
WinSCPCopyrightLabel->Caption = LoadStr(WINSCP_COPYRIGHT);
|
|
|
|
if (Registration == NULL)
|
|
{
|
|
RegistrationLabel->Visible = false;
|
|
RegistrationBox->Visible = false;
|
|
ClientHeight = ClientHeight -
|
|
(ThirdPartyPanel->Top - RegistrationBox->Top);
|
|
}
|
|
else
|
|
{
|
|
RegistrationSubjectLabel->Caption = Registration->Subject;
|
|
if (Registration->Registered)
|
|
{
|
|
UnicodeString Text;
|
|
Text = FORMAT(LoadStrPart(ABOUT_REGISTRATION_LICENSES, 1),
|
|
(Registration->Licenses >= 0 ? IntToStr(Registration->Licenses) :
|
|
UnicodeString(LoadStrPart(ABOUT_REGISTRATION_LICENSES, 2))));
|
|
if (!Registration->NeverExpires)
|
|
{
|
|
Text = FMTLOAD(ABOUT_REGISTRATION_EXPIRES,
|
|
(Text, FormatDateTime(L"ddddd", Registration->Expiration)));
|
|
}
|
|
RegistrationLicensesLabel->Caption = Text;
|
|
Text = FMTLOAD(ABOUT_REGISTRATION_PRODUCTID, (Registration->ProductId));
|
|
if (Registration->EduLicense)
|
|
{
|
|
Text = FMTLOAD(ABOUT_REGISTRATION_EDULICENSE, (Text));
|
|
}
|
|
RegistrationProductIdLabel->Caption = Text;
|
|
RegistrationProductIdLabel->Font->Style =
|
|
RegistrationProductIdLabel->Font->Style << fsBold;
|
|
}
|
|
else
|
|
{
|
|
RegistrationLicensesLabel->Visible = false;
|
|
FOnRegistrationLink = Registration->OnRegistrationLink;
|
|
RegistrationProductIdLabel->Caption = LoadStr(ABOUT_REGISTRATION_LINK);
|
|
LinkLabel(RegistrationProductIdLabel, L"");
|
|
}
|
|
}
|
|
|
|
LicenseButton->Visible = AllowLicense;
|
|
|
|
LoadData();
|
|
if (ALoadThirdParty)
|
|
{
|
|
LoadThirdParty();
|
|
}
|
|
else
|
|
{
|
|
CreateLabelPanel(ThirdPartyPanel, LoadStr(MESSAGE_DISPLAY_ERROR));
|
|
}
|
|
|
|
int IconSize = DialogImageSize(this);
|
|
FIconHandle = (HICON)LoadImage(MainInstance, L"MAINICON", IMAGE_ICON, IconSize, IconSize, 0);
|
|
IconPaintBox->Width = IconSize;
|
|
IconPaintBox->Height = IconSize;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TAboutDialog::~TAboutDialog()
|
|
{
|
|
DestroyIcon(FIconHandle);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::LoadData()
|
|
{
|
|
UnicodeString Version = FConfiguration->VersionStr;
|
|
if (!FConfiguration->ProductName.IsEmpty() &&
|
|
(FConfiguration->Version != FConfiguration->ProductVersion))
|
|
{
|
|
Version = FMTLOAD(ABOUT_BASED_ON_PRODUCT,
|
|
(Version, FConfiguration->ProductName, FConfiguration->ProductVersion));
|
|
}
|
|
VersionLabel->Caption = Version;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::LoadThirdParty()
|
|
{
|
|
FThirdPartyWebBrowser = CreateBrowserViewer(ThirdPartyPanel, L"");
|
|
|
|
reinterpret_cast<TLabel *>(FThirdPartyWebBrowser)->Color = clBtnFace;
|
|
|
|
NavigateBrowserToUrl(FThirdPartyWebBrowser, L"about:blank");
|
|
DoLoadThirdParty();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::DoLoadThirdParty()
|
|
{
|
|
while (FThirdPartyWebBrowser->ReadyState < ::READYSTATE_INTERACTIVE)
|
|
{
|
|
Application->ProcessMessages();
|
|
}
|
|
|
|
std::unique_ptr<TFont> DefaultFont(new TFont());
|
|
DefaultFont->Assign(Application->DefaultFont);
|
|
DefaultFont->Height = ScaleByPixelsPerInchFromSystem(DefaultFont->Height, this);
|
|
|
|
UnicodeString ThirdParty;
|
|
|
|
ThirdParty +=
|
|
L"<!DOCTYPE html>\n"
|
|
L"<meta charset=\"utf-8\">\n"
|
|
L"<html>\n"
|
|
L"<head>\n"
|
|
L"<style>\n"
|
|
L"\n"
|
|
L"body\n"
|
|
L"{\n"
|
|
L" font-family: '" + DefaultFont->Name + L"';\n"
|
|
L" margin: 0.5em;\n"
|
|
L" background-color: " + ColorToWebColorStr(Color) + L";\n"
|
|
L"}\n"
|
|
L"\n"
|
|
L"body\n"
|
|
L"{\n"
|
|
L" font-size: " + IntToStr(DefaultFont->Size) + L"pt;\n"
|
|
L"}\n"
|
|
L"\n"
|
|
L"p\n"
|
|
L"{\n"
|
|
L" margin-top: 0;\n"
|
|
L" margin-bottom: 1em;\n"
|
|
L"}\n"
|
|
L"\n"
|
|
L"a, a:visited, a:hover, a:visited, a:current\n"
|
|
L"{\n"
|
|
L" color: " + ColorToWebColorStr(LinkColor) + L";\n"
|
|
L"}\n"
|
|
L"</style>\n"
|
|
L"</head>\n"
|
|
L"<body>\n";
|
|
|
|
UnicodeString Br = "<br/>\n";
|
|
|
|
if (GUIConfiguration->AppliedLocale != GUIConfiguration->InternalLocale())
|
|
{
|
|
UnicodeString TranslatorUrl = LoadStr(TRANSLATOR_URL);
|
|
UnicodeString TranslatorInfo = LoadStr(TRANSLATOR_INFO2);
|
|
|
|
wchar_t LocaleNameStr[255];
|
|
GetLocaleInfo(
|
|
GUIConfiguration->AppliedLocale, LOCALE_SLOCALIZEDLANGUAGENAME,
|
|
LocaleNameStr, LENOF(LocaleNameStr));
|
|
UnicodeString LocaleName(LocaleNameStr);
|
|
|
|
// The {language} should be present only if we are using an untranslated
|
|
// (=english) string
|
|
UnicodeString TranslationHeader = ReplaceStr(LoadStr(ABOUT_TRANSLATIONS_HEADER), L"{language}", LocaleName);
|
|
|
|
AddPara(ThirdParty,
|
|
TranslationHeader + Br +
|
|
FMTLOAD(ABOUT_TRANSLATIONS_COPYRIGHT, (GUIConfiguration->AppliedLocaleCopyright())) + Br +
|
|
(!TranslatorInfo.IsEmpty() ? TranslatorInfo + Br : UnicodeString()) +
|
|
(!TranslatorUrl.IsEmpty() ? CreateLink(TranslatorUrl) : UnicodeString()));
|
|
}
|
|
|
|
AddPara(ThirdParty, LoadStr(ABOUT_THIRDPARTY_HEADER));
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(PUTTY_BASED_ON, (GetPuTTYVersion())) + Br +
|
|
LoadStr(PUTTY_COPYRIGHT) + Br +
|
|
CreateLink(LoadStr(PUTTY_LICENSE_URL), LoadStr(ABOUT_THIRDPARTY_LICENSE)) + Br +
|
|
CreateLink(LoadStr(PUTTY_URL)));
|
|
|
|
#ifndef NO_FILEZILLA
|
|
|
|
UnicodeString OpenSSLVersionText = GetOpenSSLVersionText();
|
|
CutToChar(OpenSSLVersionText, L' ', true); // "OpenSSL"
|
|
UnicodeString OpenSSLVersion = CutToChar(OpenSSLVersionText, L' ', true);
|
|
CutToChar(OpenSSLVersionText, L' ', true); // day
|
|
CutToChar(OpenSSLVersionText, L' ', true); // month
|
|
UnicodeString OpenSSLYear = CutToChar(OpenSSLVersionText, L' ', true);
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(OPENSSL_BASED_ON, (OpenSSLVersion)) + Br +
|
|
FMTLOAD(OPENSSL_COPYRIGHT2, (OpenSSLYear)) + Br +
|
|
CreateLink(LoadStr(OPENSSL_URL)));
|
|
|
|
AddPara(ThirdParty,
|
|
LoadStr(FILEZILLA_BASED_ON2) + Br +
|
|
LoadStr(FILEZILLA_COPYRIGHT2) + Br +
|
|
CreateLink(LoadStr(FILEZILLA_URL)));
|
|
|
|
#endif
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(NEON_BASED_ON, (NeonVersion())) + Br +
|
|
LoadStr(NEON_COPYRIGHT) + Br +
|
|
CreateLink(LoadStr(NEON_URL)));
|
|
|
|
#define EXPAT_LICENSE_URL L"license:expat"
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(EXPAT_BASED_ON, (ExpatVersion())) + Br +
|
|
CreateLink(EXPAT_LICENSE_URL, LoadStr(ABOUT_THIRDPARTY_LICENSE)) + Br +
|
|
CreateLink(LoadStr(EXPAT_URL)));
|
|
|
|
AddBrowserLinkHandler(FThirdPartyWebBrowser, EXPAT_LICENSE_URL, ExpatLicenceHandler);
|
|
|
|
#ifndef NO_COMPONENTS
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(ABOUT_TOOLBAR2000, (Toolbar2000Version)) + Br +
|
|
LoadStr(ABOUT_TOOLBAR2000_COPYRIGHT) + Br +
|
|
CreateLink(LoadStr(ABOUT_TOOLBAR2000_URL)));
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(ABOUT_TBX, (TBXVersionString)) + Br +
|
|
LoadStr(ABOUT_TBX_COPYRIGHT) + Br +
|
|
CreateLink(LoadStr(ABOUT_TBX_URL)));
|
|
|
|
AddPara(ThirdParty,
|
|
LoadStr(ABOUT_FILEMANAGER) + Br +
|
|
LoadStr(ABOUT_FILEMANAGER_COPYRIGHT));
|
|
|
|
#endif
|
|
|
|
UnicodeString JclVersion =
|
|
FormatVersion(JclVersionMajor, JclVersionMinor, JclVersionRelease);
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(ABOUT_JCL, (JclVersion)) + Br +
|
|
CreateLink(LoadStr(ABOUT_JCL_URL)));
|
|
|
|
AddPara(ThirdParty,
|
|
LoadStr(ABOUT_PNG) + Br +
|
|
LoadStr(ABOUT_PNG_COPYRIGHT) + Br +
|
|
CreateLink(LoadStr(ABOUT_PNG_URL)));
|
|
|
|
ThirdParty +=
|
|
L"</body>\n"
|
|
L"</html>\n";
|
|
|
|
std::unique_ptr<TMemoryStream> ThirdPartyStream(new TMemoryStream());
|
|
UTF8String ThirdPartyUTF8 = UTF8String(ThirdParty);
|
|
ThirdPartyStream->Write(ThirdPartyUTF8.c_str(), ThirdPartyUTF8.Length());
|
|
ThirdPartyStream->Seek(0, 0);
|
|
|
|
// For stream-loaded document, when set only after loading from OnDocumentComplete,
|
|
// browser stops working
|
|
SetBrowserDesignModeOff(FThirdPartyWebBrowser);
|
|
|
|
TStreamAdapter * ThirdPartyStreamAdapter = new TStreamAdapter(ThirdPartyStream.get(), soReference);
|
|
IPersistStreamInit * PersistStreamInit = NULL;
|
|
if (DebugAlwaysTrue(FThirdPartyWebBrowser->Document != NULL) &&
|
|
SUCCEEDED(FThirdPartyWebBrowser->Document->QueryInterface(IID_IPersistStreamInit, (void **)&PersistStreamInit)) &&
|
|
DebugAlwaysTrue(PersistStreamInit != NULL))
|
|
{
|
|
PersistStreamInit->Load(static_cast<_di_IStream>(*ThirdPartyStreamAdapter));
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::AddPara(UnicodeString & Text, const UnicodeString & S)
|
|
{
|
|
Text += L"<p>" + S + L"</p>\n";
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
UnicodeString __fastcall TAboutDialog::CreateLink(const UnicodeString & URL, const UnicodeString & Title)
|
|
{
|
|
return FORMAT(L"<a href=\"%s\">%s</a>", (URL, Title.IsEmpty() ? URL : Title));
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::LicenseButtonClick(TObject * /*Sender*/)
|
|
{
|
|
DoProductLicense();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::HelpButtonClick(TObject * /*Sender*/)
|
|
{
|
|
FormHelp(this);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::RegistrationProductIdLabelClick(
|
|
TObject * /*Sender*/)
|
|
{
|
|
if (FOnRegistrationLink != NULL)
|
|
{
|
|
FOnRegistrationLink(this);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::OKButtonMouseDown(TObject * /*Sender*/,
|
|
TMouseButton Button, TShiftState Shift, int /*X*/, int /*Y*/)
|
|
{
|
|
if (Button == mbRight)
|
|
{
|
|
if (Shift.Contains(ssAlt))
|
|
{
|
|
AccessViolationTest();
|
|
}
|
|
else if (Shift.Contains(ssCtrl))
|
|
{
|
|
LookupAddress();
|
|
}
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::LookupAddress()
|
|
{
|
|
UnicodeString S;
|
|
if (InputQuery(L"Address lookup", L"&Address:", S))
|
|
{
|
|
void * Address = reinterpret_cast<void *>(StrToInt(L"$" + S));
|
|
ShowMessage(GetLocationInfoStr(Address, true, true, true, true));
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::AccessViolationTest()
|
|
{
|
|
try
|
|
{
|
|
ACCESS_VIOLATION_TEST;
|
|
}
|
|
catch (Exception & E)
|
|
{
|
|
throw ExtException(&E, MainInstructions(L"Internal error test."));
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::ExpatLicenceHandler(TObject * /*Sender*/)
|
|
{
|
|
DoLicenseDialog(lcExpat);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::IconPaintBoxPaint(TObject * /*Sender*/)
|
|
{
|
|
DrawIconEx(IconPaintBox->Canvas->Handle,
|
|
0, 0, FIconHandle, IconPaintBox->Width, IconPaintBox->Height, 0, NULL, DI_NORMAL);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::Dispatch(void * Message)
|
|
{
|
|
TMessage * M = reinterpret_cast<TMessage*>(Message);
|
|
if (M->Msg == CM_DPICHANGED)
|
|
{
|
|
if (FThirdPartyWebBrowser != NULL)
|
|
{
|
|
DoLoadThirdParty();
|
|
}
|
|
TForm::Dispatch(Message);
|
|
}
|
|
else
|
|
{
|
|
TForm::Dispatch(Message);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|