Class TOptionenForm (unit Optionen)

Inherits from

TForm

Constructors



Functions

procedure aenderung(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);

Verzeichnis

procedure btnBackClick(Sender: TObject);


procedure btnCreateClick(Sender: TObject);


procedure btnDUNClick(Sender: TObject);


procedure btnHelpClick(Sender: TObject);


procedure btnLoeschClick(Sender: TObject);


procedure btnLoeschenClick(Sender: TObject);


procedure btnNeinClick(Sender: TObject);


procedure btnNetscapeMailClick(Sender: TObject);


procedure btnNetscapeNavClick(Sender: TObject);


procedure btnNetscapeNewsClick(Sender: TObject);


procedure btnOkClick(Sender: TObject);


procedure btnUpdateClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure checkBugClick(Sender: TObject);


procedure checkConnections(Sender: TObject);

If Menu exists.

procedure checkKeepAliveClick(Sender: TObject);

get the Progs for the active connection

procedure editURLChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);

Write the retries value to the Registry

procedure FormShow(Sender: TObject);

get the Progs for the active connection

procedure grpSpracheClick(Sender: TObject);


procedure NotebookPageChanged(Sender: TObject);

This is new stuff: With this lines I save the programs to the registry.

procedure optDkSettingsClick(Sender: TObject);


procedure optHTTPClick(Sender: TObject);


procedure optPingClick(Sender: TObject);

set the timeout

procedure optSkConnectClick(Sender: TObject);


procedure pcChange(Sender: TObject);


procedure spinPingChange(Sender: TObject);


procedure tvChange(Sender: TObject; Node: TTreeNode);


procedure tvChanging(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);


procedure DeletePassword(connection:String);

Let RasInTask save the password

The password


procedure getAlive(connection:String);

Creates the Options-Tree

function getNetscape:String;

The list is now in the registry

function GetPassword(connection:String):String;

Delete the password from the Registry

procedure getProgs(connection:String);


procedure getRasOptions(connection: String);

undo changes during the test

procedure loadOptions;

a new entry is created

procedure recreateTree;

How Many retries

procedure renameRas(connection, newname: String);

Get the Ras Entries for the Connection entered.

procedure saveOptions;

InfoFOrm.

procedure SavePassword(connection:String);

Returns the directory of Netscape 4.

procedure updateconf;

Renames the active connection

function CanSave:Boolean;


procedure CreateRas;

Save settings for the programs

procedure SaveAlive(connection:String);

Is it possible to save the password??

procedure saveProgs;

Save settings for the Keep alive

-1 because the string has a | at the end (teest|test|<--


Properties

Events

Variables

allg : TTabSheet;


beschKenn : TLabel;


beschname : TLabel;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


BitBtn1 : TBitBtn;


btnBack : TButton;


btnCreate : TButton;


btnDUN : TButton;


btnHelp : TBitBtn;


btnLoesch : TButton;


btnLoeschen : TButton;


btnNein : TBitBtn;


btnNetscapeMail : TButton;


btnNetscapeNav : TButton;


btnNetscapeNews : TButton;


btnOk : TBitBtn;


btnUpdate : TButton;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button6 : TButton;


checkAnim : TCheckBox;


checkAutorun : TCheckBox;


checkBug : TCheckBox;


checkHinweise : TCheckBox;


checkKeepAlive : TCheckBox;


combdkConnect : TComboBox;


combskConnect : TComboBox;


editBname : TEdit;


editFilen : TFilenameEdit;


editName : TEdit;


editPass1 : TEdit;


EditPass2 : TEdit;


editURL : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


groupKeep : TGroupBox;


grpSprache : TRadioGroup;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


labBesServer : TLabel;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


labErk1 : TLabel;


LabErk2 : TLabel;


lbProg : TListBox;


Notebook : TNotebook;


optdkConnect : TRadioButton;


optDkSettings : TRadioButton;


optHTTP : TRadioButton;


optPing : TRadioButton;


optSkConnect : TRadioButton;


optSkMenu : TRadioButton;


optSkSettings : TRadioButton;


pc : TPageControl;


pr : TTabSheet;


s : TLabel;


spinBesetzt : TSpinEdit;


spinPing : TSpinEdit;


StaticText1 : TStaticText;


tsStayalive : TTabSheet;


tv : TTreeView;


aktName : String;


ConnectDk : String;

Connect to .

connectsk : String;


devices : TStringList;

Creates an new phonebook entry

dialparams : TRasDialParams;


Dk : Byte;

On SingelClick do .

Hinweise : Boolean;


retBusy : Byte;

Show Infos while Dialing / Show Tutorials

retNoC : Byte;


ShowInfo : Boolean;

On DoubleClick do .

Sk : Byte;

Connect to .

sprache : Integer;

The Name of all devices

isSaved : Boolean;


ndir : String;


okP : Boolean;



Constructors


Functions


procedure aenderung(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);

Verzeichnis


procedure btnBackClick(Sender: TObject);


procedure btnCreateClick(Sender: TObject);


procedure btnDUNClick(Sender: TObject);


procedure btnHelpClick(Sender: TObject);


procedure btnLoeschClick(Sender: TObject);


procedure btnLoeschenClick(Sender: TObject);


procedure btnNeinClick(Sender: TObject);


procedure btnNetscapeMailClick(Sender: TObject);


procedure btnNetscapeNavClick(Sender: TObject);


procedure btnNetscapeNewsClick(Sender: TObject);


procedure btnOkClick(Sender: TObject);


procedure btnUpdateClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure checkBugClick(Sender: TObject);


procedure checkConnections(Sender: TObject);

If Menu exists.... else we get an exception


procedure checkKeepAliveClick(Sender: TObject);

get the Progs for the active connection


procedure editURLChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);

Write the retries value to the Registry


procedure FormShow(Sender: TObject);

get the Progs for the active connection


procedure grpSpracheClick(Sender: TObject);


procedure NotebookPageChanged(Sender: TObject);

This is new stuff: With this lines I save the programs to the registry. You will find the procedure at the top of this unit. Because of a bug, this lines are removed and put in the if MessageBox = idxes brackets. In ver 1.05 the progs were saved also if you ansered no on the question if you would save the changes.


procedure optDkSettingsClick(Sender: TObject);


procedure optHTTPClick(Sender: TObject);


procedure optPingClick(Sender: TObject);

set the timeout


procedure optSkConnectClick(Sender: TObject);


procedure pcChange(Sender: TObject);


procedure spinPingChange(Sender: TObject);


procedure tvChange(Sender: TObject; Node: TTreeNode);


procedure tvChanging(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);


procedure DeletePassword(connection:String);

Let RasInTask save the password

The password


procedure getAlive(connection:String);

Creates the Options-Tree


function getNetscape:String;

The list is now in the registry


function GetPassword(connection:String):String;

Delete the password from the Registry


procedure getProgs(connection:String);


procedure getRasOptions(connection: String);

undo changes during the test


procedure loadOptions;

a new entry is created


procedure recreateTree;

How Many retries


procedure renameRas(connection, newname: String);

Get the Ras Entries for the Connection entered.


procedure saveOptions;

InfoFOrm.panel1.visible:=checkAnim.checked;


procedure SavePassword(connection:String);

Returns the directory of Netscape 4.xx

If somebody can tell me why the heck i cannot delete a value with the MUCH simper TRegIniFile-object....


procedure updateconf;

Renames the active connection


function CanSave:Boolean;


procedure CreateRas;

Save settings for the programs


procedure SaveAlive(connection:String);

Is it possible to save the password??


procedure saveProgs;

Save settings for the Keep alive

-1 because the string has a | at the end (teest|test|<--


Properties


Events


Variables


allg : TTabSheet;


beschKenn : TLabel;


beschname : TLabel;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


BitBtn1 : TBitBtn;


btnBack : TButton;


btnCreate : TButton;


btnDUN : TButton;


btnHelp : TBitBtn;


btnLoesch : TButton;


btnLoeschen : TButton;


btnNein : TBitBtn;


btnNetscapeMail : TButton;


btnNetscapeNav : TButton;


btnNetscapeNews : TButton;


btnOk : TBitBtn;


btnUpdate : TButton;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button6 : TButton;


checkAnim : TCheckBox;


checkAutorun : TCheckBox;


checkBug : TCheckBox;


checkHinweise : TCheckBox;


checkKeepAlive : TCheckBox;


combdkConnect : TComboBox;


combskConnect : TComboBox;


editBname : TEdit;


editFilen : TFilenameEdit;


editName : TEdit;


editPass1 : TEdit;


EditPass2 : TEdit;


editURL : TEdit;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


groupKeep : TGroupBox;


grpSprache : TRadioGroup;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


labBesServer : TLabel;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


labErk1 : TLabel;


LabErk2 : TLabel;


lbProg : TListBox;


Notebook : TNotebook;


optdkConnect : TRadioButton;


optDkSettings : TRadioButton;


optHTTP : TRadioButton;


optPing : TRadioButton;


optSkConnect : TRadioButton;


optSkMenu : TRadioButton;


optSkSettings : TRadioButton;


pc : TPageControl;


pr : TTabSheet;


s : TLabel;


spinBesetzt : TSpinEdit;


spinPing : TSpinEdit;


StaticText1 : TStaticText;


tsStayalive : TTabSheet;


tv : TTreeView;


aktName : String;


ConnectDk : String;

Connect to .. on SingleClick


connectsk : String;


devices : TStringList;

Creates an new phonebook entry


dialparams : TRasDialParams;


Dk : Byte;

On SingelClick do ...


Hinweise : Boolean;


retBusy : Byte;

Show Infos while Dialing / Show Tutorials


retNoC : Byte;


ShowInfo : Boolean;

On DoubleClick do ...


Sk : Byte;

Connect to .. on DoubleClick


sprache : Integer;

The Name of all devices


isSaved : Boolean;


ndir : String;


okP : Boolean;