| Class TOptionenForm (unit Optionen) |
TForm
| Constructors |
| Functions |
procedure aenderung(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
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);
procedure checkKeepAliveClick(Sender: TObject);
procedure editURLChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure grpSpracheClick(Sender: TObject);
procedure NotebookPageChanged(Sender: TObject);
procedure optDkSettingsClick(Sender: TObject);
procedure optHTTPClick(Sender: TObject);
procedure optPingClick(Sender: TObject);
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);The password
procedure getAlive(connection:String);
function getNetscape:String;
function GetPassword(connection:String):String;
procedure getProgs(connection:String);
procedure getRasOptions(connection: String);
procedure loadOptions;
procedure recreateTree;
procedure renameRas(connection, newname: String);
procedure saveOptions;
procedure SavePassword(connection:String);
procedure updateconf;
function CanSave:Boolean;
procedure CreateRas;
procedure SaveAlive(connection:String);
procedure saveProgs;-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;
connectsk : String;
devices : TStringList;
dialparams : TRasDialParams;
Dk : Byte;
Hinweise : Boolean;
retBusy : Byte;
retNoC : Byte;
ShowInfo : Boolean;
Sk : Byte;
sprache : Integer;
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;