mirror of
https://bitbucket.org/grumdrig/pq.git
synced 2026-09-28 16:23:59 -06:00
Eric Fredricksen
a1fa177943
svn, so that changes will be trackable thataway This is version 6.1 as found in the old sources. Used whathappened.py to update it.
61 lines
1.3 KiB
ObjectPascal
61 lines
1.3 KiB
ObjectPascal
unit Login;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, Psock, NMHttp;
|
|
|
|
type
|
|
TLoginForm = class(TForm)
|
|
GroupBox1: TGroupBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Login: TButton;
|
|
Button1: TButton;
|
|
GroupBox2: TGroupBox;
|
|
LabeledEdit1: TLabeledEdit;
|
|
LabeledEdit2: TLabeledEdit;
|
|
Label3: TLabel;
|
|
GroupBox3: TGroupBox;
|
|
Account: TLabeledEdit;
|
|
Password: TLabeledEdit;
|
|
Label4: TLabel;
|
|
procedure Label2Click(Sender: TObject);
|
|
procedure AccountChange(Sender: TObject);
|
|
procedure LoginClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
LoginForm: TLoginForm;
|
|
|
|
implementation
|
|
|
|
uses ShellAPI, Main, NewGuy, SelServ;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TLoginForm.Label2Click(Sender: TObject);
|
|
begin
|
|
ShellExecute(GetDesktopWindow(), 'open', PChar(TLabel(Sender).Caption), nil, '', SW_SHOW);
|
|
end;
|
|
|
|
procedure TLoginForm.AccountChange(Sender: TObject);
|
|
begin
|
|
Login.Enabled := (Account.Text <> '') and (Password.Text <> '');
|
|
end;
|
|
|
|
procedure TLoginForm.LoginClick(Sender: TObject);
|
|
begin
|
|
MainForm.SetLogin(Account.Text);
|
|
MainForm.SetPassword(Password.Text);
|
|
if ServerSelectForm.Go then
|
|
ModalResult := mrOk;
|
|
end;
|
|
|
|
end.
|