Class TConfigureAutoForm (unit RasDial3)

Inherits from

TAutoForm

Constructors



Functions

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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

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


Events

Variables

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;



Constructors


Functions


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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


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


Events


Variables


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;