-
-
Notifications
You must be signed in to change notification settings - Fork 445
/
loginform.pas
56 lines (44 loc) · 1.29 KB
/
loginform.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
55
56
unit loginform;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, gnugettext, System.UITypes, extra_controls;
type
TfrmLogin = class(TExtForm)
btnOK: TButton;
pnlBackground: TPanel;
lblPrompt: TLabel;
lblUsername: TLabel;
lblPassword: TLabel;
editPassword: TEdit;
editUsername: TEdit;
imgIcon: TImage;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses apphelpers, main;
{$R *.dfm}
{$I const.inc}
procedure TfrmLogin.FormCreate(Sender: TObject);
begin
Caption := APPNAME + ' - Login';
MainForm.VirtualImageListMain.GetBitmap(144, imgIcon.Picture.Bitmap);
lblPrompt.Font.Size := 10;
lblPrompt.Font.Color := GetThemeColor(clHotlight);
lblPrompt.Font.Style := lblPrompt.Font.Style + [fsBold];
editUsername.Text := '';
editPassword.Text := '';
end;
procedure TfrmLogin.FormShow(Sender: TObject);
begin
if editPassword.CanFocus and (editUsername.GetTextLen > 0) and (editPassword.GetTextLen = 0) then
editPassword.SetFocus
else if editUsername.CanFocus then
editUsername.SetFocus;
end;
end.