1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
/* Copyright (c) MediaArea.net SARL. All Rights Reserved.
*
* Use of this source code is governed by a BSD-style license that can
* be found in the License.html file in the root of the source tree.
*/
//---------------------------------------------------------------------------
// Compilation condition
#ifndef MEDIAINFOGUI_ABOUT_NO
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "GUI/VCL/GUI_About.h"
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TAboutF *AboutF;
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include "Common/Preferences.h"
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
const ZenLib::Char* MEDIAINFO_ABOUT= __T("MediaInfo X.X.X.X\\r\\nCopyright (c) MediaArea.net SARL");
const ZenLib::Char* MEDIAINFO_URL= __T("https://MediaArea.net/MediaInfo");
const ZenLib::Char* MEDIAINFO_NEWVERSION=__T("https://MediaArea.net/MediaInfo");
const ZenLib::Char* MEDIAINFO_DONATE= __T("https://MediaArea.net/MediaInfo/Donate");
const ZenLib::Char* MEDIAINFO_MAILTO= __T("mailto:info@mediaarea.net");
//---------------------------------------------------------------------------
//***************************************************************************
// Class
//***************************************************************************
//---------------------------------------------------------------------------
__fastcall TAboutF::TAboutF(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TAboutF::FormShow(TObject *Sender)
{
//Information
ZenLib::Ztring C1;
C1+=MEDIAINFO_ABOUT;
C1.FindAndReplace(__T("X.X.X.X"), MediaInfo_Version_GUI);
C1+=__T("\r\n\r\n");
C1+=Prefs->Translate(__T("MediaInfo_About")).c_str();
C1.FindAndReplace(__T("\\r\\n"), __T("\r\n"), 0, ZenLib::Ztring_Recursive);
Memo->Text=C1.c_str();
//Translation
Caption=Prefs->Translate(__T("About")).c_str();
OK->Caption=Prefs->Translate(__T("OK")).c_str();
WebSite->Caption=Prefs->Translate(__T("Go to WebSite")).c_str();
NewVersion->Caption=Prefs->Translate(__T("CheckNewVersion")).c_str();
Donate->Caption=Prefs->Translate(__T("Donate")).c_str();
WriteMe->Caption=Prefs->Translate(__T("WriteMe")).c_str();
if (Prefs->Translate(__T(" Author_Name")).size()==0)
Translator->Visible=false;
else
{
Translator->Caption=(Prefs->Translate(__T("Translator"))+Prefs->Translate(__T(": "))+Prefs->Translate(__T(" Author_Name"))).c_str();
Translator->Visible=true;
}
Translator_Url=Prefs->Translate(__T(" Author_Email"));
if (Translator_Url.size()==0 || Translator_Url==__T("Info@MediaArea.net"))
WriteToTranslator->Visible=false;
else
{
WriteToTranslator->Caption=Prefs->Translate(__T("WriteToTranslator")).c_str();
WriteToTranslator->Visible=true;
}
Sponsor_Label->Visible=false;
if (Prefs->Sponsored && !Prefs->Donated && !Prefs->Translate(__T("SponsorMessage")).empty() && !Prefs->Translate(__T("SponsorMessage")).empty())
{
Sponsor_Label->Caption = (__T("<a href=\"") + Prefs->Translate(__T("SponsorUrl")) + __T("\">") + Prefs->Translate(__T("SponsorMessage")) + __T("</a>")).c_str();
Sponsor_Label->Visible=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TAboutF::NewVersionClick(TObject *Sender)
{
ShellExecute(NULL, NULL, MEDIAINFO_NEWVERSION, NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TAboutF::DonateClick(TObject *Sender)
{
ShellExecute(NULL, NULL, MEDIAINFO_DONATE, NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TAboutF::WriteMeClick(TObject *Sender)
{
ShellExecute(NULL, NULL, MEDIAINFO_MAILTO, NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TAboutF::WriteToTranslatorClick(TObject *Sender)
{
ZenLib::Ztring Url=ZenLib::Ztring(__T("mailto:"))+Translator_Url;
ShellExecute(NULL, NULL, Url.c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TAboutF::WebSiteClick(TObject *Sender)
{
ShellExecute(NULL, NULL, MEDIAINFO_URL, NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TAboutF::SponsorClick(TObject *Sender, const UnicodeString Link, TSysLinkType LinkType)
{
ShellExecute(NULL, NULL, Link.c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//***************************************************************************
// C++
//***************************************************************************
#endif //MEDIAINFOGUI_ABOUT_NO
|
