IDR64/AboutDlg.cpp at master · crypto2011/IDR64 · GitHub

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
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "AboutDlg.h"
#include "Misc.h"

//---------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

//extern	String	IDR64Version;

TFAboutDlg_11011981 *FAboutDlg_11011981;
//---------------------------------------------------------------------
__fastcall TFAboutDlg_11011981::TFAboutDlg_11011981(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TFAboutDlg_11011981::FormCreate(TObject *Sender)
{
	lVer->Caption = "Version: " + idr.GetVersion();
    ScaleForm(this);
}
//---------------------------------------------------------------------------
void __fastcall TFAboutDlg_11011981::lEmailClick(TObject *Sender)
{
	ShellExecute(Handle, "open", "mailto:crypto2011@gmail.com", 0, 0, 1);
}
//---------------------------------------------------------------------------
void __fastcall TFAboutDlg_11011981::lWWWClick(TObject *Sender)
{
	ShellExecute(Handle, "open", "http://kpnc.org/idr32/en/", 0, 0, 1);
}
//---------------------------------------------------------------------------
void __fastcall TFAboutDlg_11011981::bDonateClick(TObject *Sender)
{
	ShellExecute(Handle, "open", "http://kpnc.org/idr32/en/donation.htm", 0, 0, 1);
}
//---------------------------------------------------------------------------