-
Notifications
You must be signed in to change notification settings - Fork 6
/
ulogin.pas
54 lines (38 loc) · 897 Bytes
/
ulogin.pas
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
unit ulogin;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
LCLIntF, upaymo, uresourcestring;
type
{ TfrmLogin }
TfrmLogin = class(TForm)
btnLogin: TButton;
lblGenerateAPIKey: TLabel;
edtAPIKey: TLabeledEdit;
procedure btnLoginClick(Sender: TObject);
procedure lblGenerateAPIKeyClick(Sender: TObject);
private
public
end;
var
frmLogin: TfrmLogin;
implementation
uses
umain;
{$R *.lfm}
{ TfrmLogin }
procedure TfrmLogin.lblGenerateAPIKeyClick(Sender: TObject);
begin
OpenURL(PAYMOAPIKEYURL);
end;
procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
frmMain.Paymo.APIKey := edtAPIKey.Text;
case frmMain.Paymo.Login of
prOK: ModalResult := mrOk;
prTRYAGAIN: ShowMessage(rsTooManyRequestsTryAgainSoon);
prERROR: ShowMessage(rsErrorCantLogin);
end;
end;
end.