Class TConfigureAutoForm (unit RasDial3) |
Inherits from
TAutoForm
procedure AutoExecuteBrowserCheckBoxClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Configure;
Public declarations * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteBrowser;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteBrowserAuto;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteMail;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteMailAuto;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteNews;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteNewsAuto;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteProg(Exe, Dir : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoConnect : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoExecuteBrowser : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoExecuteMail : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoExecuteNews : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoPassword : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoUserName : Boolean;
Private declarations * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetBrowserDir : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetBrowserExe : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMailDir : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMailExe : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMonthlyDuration : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetNewsDir : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetNewsExe : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoConnect(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoExecuteBrowser(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoExecuteMail(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoExecuteNews(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutopassword(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoUserName(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetBrowserDir(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetBrowserExe(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMailDir(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMailExe(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMonthlyDuration(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetNewsDir(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetNewsExe(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property AutoConnect : Boolean
property AutoExecuteBrowser : Boolean
property AutoExecuteMail : Boolean
property AutoExecuteNews : Boolean
property AutoPassword : Boolean
property AutoUserName : Boolean
property BrowserDir : String
property BrowserExe : String
property MailDir : String
property MailExe : String
property MonthlyDuration : Boolean
property NewsDir : String
property NewsExe : String
AutoConnectCheckBox : TCheckBox;
AutoExecuteBrowserCheckBox : TCheckBox;
AutoExecuteMailCheckBox : TCheckBox;
AutoExecuteNewsCheckBox : TCheckBox;
AutoPasswordCheckBox : TCheckBox;
AutoUserNameCheckBox : TCheckBox;
BrowserDirEdit : TEdit;
BrowserExeEdit : TEdit;
CancelButton : TButton;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
MailDirEdit : TEdit;
MailExeEdit : TEdit;
MonthlyDurationCheckBox : TCheckBox;
NewsDirEdit : TEdit;
NewsExeEdit : TEdit;
OkButton : TButton;
procedure AutoExecuteBrowserCheckBoxClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Configure;
Public declarations
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteBrowser;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteBrowserAuto;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteMail;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteMailAuto;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteNews;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteNewsAuto;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ExecuteProg(Exe, Dir : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoConnect : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoExecuteBrowser : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoExecuteMail : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoExecuteNews : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoPassword : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoUserName : Boolean;
Private declarations
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetBrowserDir : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetBrowserExe : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMailDir : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMailExe : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMonthlyDuration : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetNewsDir : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetNewsExe : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoConnect(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoExecuteBrowser(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoExecuteMail(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoExecuteNews(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutopassword(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoUserName(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetBrowserDir(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetBrowserExe(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMailDir(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMailExe(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMonthlyDuration(newValue : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetNewsDir(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetNewsExe(newValue : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property AutoConnect : Boolean
property AutoExecuteBrowser : Boolean
property AutoExecuteMail : Boolean
property AutoExecuteNews : Boolean
property AutoPassword : Boolean
property AutoUserName : Boolean
property BrowserDir : String
property BrowserExe : String
property MailDir : String
property MailExe : String
property MonthlyDuration : Boolean
property NewsDir : String
property NewsExe : String
AutoConnectCheckBox : TCheckBox;
AutoExecuteBrowserCheckBox : TCheckBox;
AutoExecuteMailCheckBox : TCheckBox;
AutoExecuteNewsCheckBox : TCheckBox;
AutoPasswordCheckBox : TCheckBox;
AutoUserNameCheckBox : TCheckBox;
BrowserDirEdit : TEdit;
BrowserExeEdit : TEdit;
CancelButton : TButton;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
MailDirEdit : TEdit;
MailExeEdit : TEdit;
MonthlyDurationCheckBox : TCheckBox;
NewsDirEdit : TEdit;
NewsExeEdit : TEdit;
OkButton : TButton;