Class TInfoForm (unit InfoDll) |
Inherits from
TForm
Renamed from Info.pas 6/14/1998 Paul Rice to avoid conflict with other work.
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);
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;
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);
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;