Class TOptionenForm (unit Optionen) |
Inherits from
TForm
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 passwordThe 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|<--
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;
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|<--
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;