Class TInfoForm (unit InfoDll)

Inherits from

TForm

Renamed from Info.pas 6/14/1998 Paul Rice to avoid conflict with other work.

Constructors



Functions

procedure btnHangupClick(Sender: TObject);

labGerat.

procedure btnOkClick(Sender: TObject);


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

Timer1.

procedure FormHide(Sender: TObject);

ModalResult:=mrYes;

procedure FormShow(Sender: TObject);

No connection open

procedure labBesIPClick(Sender: TObject);


procedure statsScan;

Timer1.

procedure TimerTimer(Sender: TObject);

ModalResult:=mrOk

procedure getActiveConnectionData;

MainForm.

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;



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;