You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
904 B
Plaintext
53 lines
904 B
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit NewAccount;
|
|
|
|
{$I RnQConfig.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
|
|
RnQButtons, ICQSession;
|
|
|
|
{$I NoRTTI.inc}
|
|
|
|
type
|
|
TNewAccFrm = class(TForm)
|
|
AccEdit: TEdit;
|
|
Label1: TLabel;
|
|
OkBtn: TRnQButton;
|
|
CnclBtn: TRnQButton;
|
|
procedure OkBtnClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
// var
|
|
// NewAccFrm: TNewAccFrm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
Protocols_all,
|
|
RDGlobal, RQUtil, RnQLangs, RnQDialogs;
|
|
|
|
procedure TNewAccFrm.OkBtnClick(Sender: TObject);
|
|
begin
|
|
if TICQSession._isProtoUid(AccEdit.Text) then
|
|
ModalResult := mrOk
|
|
else
|
|
begin
|
|
ModalResult := mrNone;
|
|
MsgDlg('Not a valid user identifier', True, mtError)
|
|
end;
|
|
end;
|
|
|
|
end.
|