unit _uf_wizard;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,FileCtrl, StdCtrls;
type
TF_SETUP_WIZARD = class(TForm)
AA_0532_Label2: TLabel;
edz: TEdit;
AA_0533_Label3: TLabel;
fed: TEdit;
Button1: TButton;
AA_0569_cNo: TButton;
cOk: TButton;
Bevel1: TBevel;
Bevel2: TBevel;
AA_0531_Label1: TLabel;
AA_0551_ccRouter: TCheckBox;
LbbPorts: TLabel;
procedure fedChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure AA_0569_cNoClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure cOkClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure AA_0551_ccRouterClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
implementation
uses _uc_refs_consts, _uc_refs_vars, _uc_GuiLanG, _uc_funcs;
{$R *.DFM}
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.fedChange(Sender: TObject);
begin
cOk.Enabled:=(length(edz.Text)in[2..16]) and (fed.Text<>'') and (edz.Text<>' ');
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.Button1Click(Sender: TObject);
var
s: string;
begin
if SelectDirectory(___ccc__0049__SelectPubFolder,'',s)then
begin
fed.text:=s+'\';
fed.text:=stringreplace(fed.text,'\\','\',[rfReplaceAll]);
end;
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.AA_0569_cNoClick(Sender: TObject);
begin
Application.Terminate;
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=(tag=1);
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.cOkClick(Sender: TObject);
var
s,z:string;
begin
z:=UpperCase(edz.Text); // nik
if (z<>'') then begin
if (pos('EXOSEE',z)>0)
or (pos('EXO-SEE',z)>0)
or (pos('EXOSE',z)>0)
or (pos('XOSEE',z)>0)
or (pos('XO-SEE',z)>0)
or (pos('EXO-C',z)>0)
or (pos('XO-C',z)>0)
or (pos('TO XOC',z)>0)
then begin
ShowMessage('Application resreved words are not allowed.'+ret+ret+
'Check "Nickname" entry !');
exit;
end;
end;
s:=fed.text;
EXPLORER_PUBLIC_ROOTS.Add(s);
_VV_LOCAL_USER_NIKO:=edz.text;
if (_VV_LOCAL_CONFIG_ROUTER_IS_ON) then _VV_LOCAL_USER_IP_IS_OK_WAN:=true;
s:=s+'_My_downloads';
CreateDir(s);
_VV_LOCAL_CONFIG_THE_DOWNLOADS_FOLDER:=s+'\';
tag:=1;
close;
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.FormCreate(Sender: TObject);
begin
GoSetLANG(Self); //----- go loadLang --- if ok (1st here)
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.AA_0551_ccRouterClick(Sender: TObject);
begin
_VV_LOCAL_CONFIG_ROUTER_IS_ON:=AA_0551_ccRouter.Checked;
LbbPorts.Visible:=AA_0551_ccRouter.Checked;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,FileCtrl, StdCtrls;
type
TF_SETUP_WIZARD = class(TForm)
AA_0532_Label2: TLabel;
edz: TEdit;
AA_0533_Label3: TLabel;
fed: TEdit;
Button1: TButton;
AA_0569_cNo: TButton;
cOk: TButton;
Bevel1: TBevel;
Bevel2: TBevel;
AA_0531_Label1: TLabel;
AA_0551_ccRouter: TCheckBox;
LbbPorts: TLabel;
procedure fedChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure AA_0569_cNoClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure cOkClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure AA_0551_ccRouterClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
implementation
uses _uc_refs_consts, _uc_refs_vars, _uc_GuiLanG, _uc_funcs;
{$R *.DFM}
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.fedChange(Sender: TObject);
begin
cOk.Enabled:=(length(edz.Text)in[2..16]) and (fed.Text<>'') and (edz.Text<>' ');
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.Button1Click(Sender: TObject);
var
s: string;
begin
if SelectDirectory(___ccc__0049__SelectPubFolder,'',s)then
begin
fed.text:=s+'\';
fed.text:=stringreplace(fed.text,'\\','\',[rfReplaceAll]);
end;
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.AA_0569_cNoClick(Sender: TObject);
begin
Application.Terminate;
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=(tag=1);
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.cOkClick(Sender: TObject);
var
s,z:string;
begin
z:=UpperCase(edz.Text); // nik
if (z<>'') then begin
if (pos('EXOSEE',z)>0)
or (pos('EXO-SEE',z)>0)
or (pos('EXOSE',z)>0)
or (pos('XOSEE',z)>0)
or (pos('XO-SEE',z)>0)
or (pos('EXO-C',z)>0)
or (pos('XO-C',z)>0)
or (pos('TO XOC',z)>0)
then begin
ShowMessage('Application resreved words are not allowed.'+ret+ret+
'Check "Nickname" entry !');
exit;
end;
end;
s:=fed.text;
EXPLORER_PUBLIC_ROOTS.Add(s);
_VV_LOCAL_USER_NIKO:=edz.text;
if (_VV_LOCAL_CONFIG_ROUTER_IS_ON) then _VV_LOCAL_USER_IP_IS_OK_WAN:=true;
s:=s+'_My_downloads';
CreateDir(s);
_VV_LOCAL_CONFIG_THE_DOWNLOADS_FOLDER:=s+'\';
tag:=1;
close;
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.FormCreate(Sender: TObject);
begin
GoSetLANG(Self); //----- go loadLang --- if ok (1st here)
end;
//------------------------------------------------------------------------------
procedure TF_SETUP_WIZARD.AA_0551_ccRouterClick(Sender: TObject);
begin
_VV_LOCAL_CONFIG_ROUTER_IS_ON:=AA_0551_ccRouter.Checked;
LbbPorts.Visible:=AA_0551_ccRouter.Checked;
end;
end.