| Class TInfoForm (unit InfoDll) |
TForm
Renamed from Info.pas 6/14/1998 Paul Rice to avoid conflict with other work.
| Constructors |
| Functions |
procedure btnHangupClick(Sender: TObject);
procedure btnOkClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormHide(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure labBesIPClick(Sender: TObject);
procedure statsScan;
procedure TimerTimer(Sender: TObject);
procedure getActiveConnectionData;
procedure Spracheeinst(offset: Integer);| Properties |
| Events |
| Variables |
beGerat : TLabel;
beschSpeed : TLabel;
beSeit : TLabel;
beVerbind : TLabel;
btnHangup : TButton;
btnOk : TButton;
Image3 : TImage;
IpEdit : TEdit;
labBesIP : TLabel;
Label2 : TLabel;
labEmpfangen : TLabel;
labGerat : TLabel;
labHinw : TLabel;
labSeit : TLabel;
labSpeed : TLabel;
labVerb : TLabel;
labwertempf : TLabel;
labwertges : TLabel;
Panel1 : TPanel;
stats : TInterMeter;
Timer : TTimer;
connection : String;
sprache : Integer;
starttime : Integer;| Constructors |
| Functions |
procedure btnHangupClick(Sender: TObject);labGerat.Caption:=entries[1].szDeviceName; LabSeit.Caption:=MainForm.OnlineTime; ShowHintw('\Software\PH-Arts\RasInTask\Hints\', GetResStringEx(123, OptionenForm.sprache), IntTOStr(OptionenForm.sprache+159), GetResStringEx(122, optionenForm.sprache), GetResStringEx(94, OptionenForm.sprache)); labEmpfangen.Visible:=stats.visible; label2.Visible:=stats.Visible;
procedure btnOkClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);Timer1.Enabled:=False;
procedure FormHide(Sender: TObject);ModalResult:=mrYes;
procedure FormShow(Sender: TObject);No connection open
procedure labBesIPClick(Sender: TObject);
procedure statsScan;Timer1.Enabled:=False;
procedure TimerTimer(Sender: TObject);ModalResult:=mrOk
procedure getActiveConnectionData;MainForm.OnLineTimer.Enabled:=False; MainForm.pmenu.Items[MainForm.pmenu.Items.Count-1].Enabled:=True;
procedure Spracheeinst(offset: Integer);| Properties |
| Events |
| Variables |
beGerat : TLabel;
beschSpeed : TLabel;
beSeit : TLabel;
beVerbind : TLabel;
btnHangup : TButton;
btnOk : TButton;
Image3 : TImage;
IpEdit : TEdit;
labBesIP : TLabel;
Label2 : TLabel;
labEmpfangen : TLabel;
labGerat : TLabel;
labHinw : TLabel;
labSeit : TLabel;
labSpeed : TLabel;
labVerb : TLabel;
labwertempf : TLabel;
labwertges : TLabel;
Panel1 : TPanel;
stats : TInterMeter;
Timer : TTimer;
connection : String;
sprache : Integer;Private-Deklarationen
starttime : Integer;