mirror of
https://github.com/winscp/winscp.git
synced 2026-10-24 02:28:55 +03:00
b75c57e786
With Tahoma font it does not work nicely. But the news browser control on Update box works well. It turned out to be due to Segoe UI font. While it can just be coincidence, we want to move to Segoe UI anyway. So let's do it for About dialog already now. Source commit: 3e6f173cb37d2e594de5d3bb2fdc2b6eec0e08d5
428 lines
14 KiB
C++
428 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>
|
|
#include <FtpFileSystem.h>
|
|
#include <S3FileSystem.h>
|
|
//---------------------------------------------------------------------
|
|
#pragma link "SHDocVw_OCX"
|
|
#pragma resource "*.dfm"
|
|
//---------------------------------------------------------------------------
|
|
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->Caption = AppName;
|
|
TColor MainInstructionColor;
|
|
HFONT MainInstructionFont;
|
|
HFONT InstructionFont;
|
|
GetInstrutionsTheme(MainInstructionColor, MainInstructionFont, InstructionFont);
|
|
if (MainInstructionFont != 0)
|
|
{
|
|
int PrevHeight = ApplicationLabel->Height;
|
|
ApplicationLabel->Font->Handle = MainInstructionFont;
|
|
if (MainInstructionColor != Graphics::clNone)
|
|
{
|
|
ApplicationLabel->Font->Color = MainInstructionColor;
|
|
}
|
|
ShiftControls(ApplicationLabel->Top + 1, (ApplicationLabel->Height - PrevHeight));
|
|
}
|
|
else
|
|
{
|
|
ApplicationLabel->ParentFont = true;
|
|
ApplicationLabel->Font->Style = ApplicationLabel->Font->Style << fsBold;
|
|
}
|
|
|
|
WinSCPCopyrightLabel->Caption = LoadStr(WINSCP_COPYRIGHT);
|
|
|
|
if (Registration == NULL)
|
|
{
|
|
RegistrationLabel->Visible = false;
|
|
RegistrationBox->Visible = false;
|
|
ShiftControls(RegistrationLabel->Top, (RegistrationBox->Top - ThirdPartyPanel->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 = ScaleByPixelsPerInch(48, 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::ShiftControls(int From, int Diff)
|
|
{
|
|
for (int Index = 0; Index < Panel->ControlCount; Index++)
|
|
{
|
|
if (Panel->Controls[Index]->Top > From)
|
|
{
|
|
Panel->Controls[Index]->Top = Panel->Controls[Index]->Top + Diff;
|
|
}
|
|
}
|
|
ClientHeight = ClientHeight + Diff;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
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 = ThirdPartyPanel->Color;
|
|
|
|
ReadyBrowserForStreaming(FThirdPartyWebBrowser);
|
|
DoLoadThirdParty();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::DoLoadThirdParty()
|
|
{
|
|
WaitBrowserToIdle(FThirdPartyWebBrowser);
|
|
|
|
UnicodeString ThirdParty;
|
|
UnicodeString Br = "<br/>\n";
|
|
|
|
if (!GUIConfiguration->UsingInternalTranslation())
|
|
{
|
|
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)));
|
|
|
|
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)));
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(NEON_BASED_ON2, (NeonVersion())) + Br +
|
|
LoadStr(NEON_COPYRIGHT) + Br +
|
|
CreateLink(LoadStr(NEON_URL)));
|
|
|
|
AddPara(ThirdParty,
|
|
FMTLOAD(S3_BASED_ON, (S3LibVersion())) + Br +
|
|
LoadStr(S3_COPYRIGHT) + Br +
|
|
CreateLink(LoadStr(S3_LICENSE_URL), LoadStr(ABOUT_THIRDPARTY_LICENSE)) + Br +
|
|
CreateLink(LoadStr(S3_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) + L" " + JclCommit;
|
|
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 = GenerateAppHtmlPage(Font, ThirdPartyPanel, ThirdParty, false);
|
|
|
|
LoadBrowserDocument(FThirdPartyWebBrowser, ThirdParty);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
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::FormAfterMonitorDpiChanged(TObject *, int OldDPI, int NewDPI)
|
|
{
|
|
DebugUsedParam2(OldDPI, NewDPI);
|
|
if (FThirdPartyWebBrowser != NULL)
|
|
{
|
|
DoLoadThirdParty();
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutDialog::FormKeyDown(TObject *, WORD & Key, TShiftState Shift)
|
|
{
|
|
if ((Key == L'C') && Shift.Contains(ssCtrl))
|
|
{
|
|
if ((FThirdPartyWebBrowser != NULL) &&
|
|
FThirdPartyWebBrowser->Focused() &&
|
|
(FThirdPartyWebBrowser->SelLength() > 0))
|
|
{
|
|
// Let the browser handle the Ctrl+C
|
|
}
|
|
else
|
|
{
|
|
UnicodeString Text =
|
|
ApplicationLabel->Caption + sLineBreak +
|
|
VersionLabel->Caption + sLineBreak +
|
|
sLineBreak +
|
|
WinSCPCopyrightLabel->Caption + sLineBreak +
|
|
HomepageLabel->Caption + sLineBreak +
|
|
sLineBreak +
|
|
ProductSpecificMessageLabel->Caption + sLineBreak +
|
|
ForumUrlLabel->Caption + sLineBreak;
|
|
|
|
UnicodeString ThirdPartyText;
|
|
if ((FThirdPartyWebBrowser != NULL) &&
|
|
CopyTextFromBrowser(FThirdPartyWebBrowser, ThirdPartyText))
|
|
{
|
|
Text +=
|
|
sLineBreak +
|
|
GetDividerLine() + sLineBreak +
|
|
Label3->Caption + sLineBreak +
|
|
ThirdPartyText + sLineBreak;
|
|
}
|
|
|
|
TInstantOperationVisualizer Visualizer;
|
|
CopyToClipboard(Text);
|
|
Key = 0;
|
|
}
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|