Skip to content
Snippets Groups Projects
Commit ff64292e authored by rswindell's avatar rswindell
Browse files

Fixed a couple of control hints.

parent acf1d84e
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
+ 138
− 133
View file @ ff64292e
object TelnetCfgDlg: TTelnetCfgDlg object TelnetCfgDlg: TTelnetCfgDlg
Left = 766 Left = 699
Top = 707 Top = 411
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Telnet Server Configuration' Caption = 'Telnet Server Configuration'
ClientHeight = 234 ClientHeight = 288
ClientWidth = 286 ClientWidth = 352
Color = clBtnFace Color = clBtnFace
ParentFont = True ParentFont = True
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 120
TextHeight = 13 TextHeight = 16
object PageControl: TPageControl object PageControl: TPageControl
Left = 3 Left = 4
Top = 3 Top = 4
Width = 278 Width = 342
Height = 186 Height = 229
ActivePage = RLoginTabSheet ActivePage = GeneralTabSheet
TabOrder = 0 TabOrder = 0
object GeneralTabSheet: TTabSheet object GeneralTabSheet: TTabSheet
Caption = 'General' Caption = 'General'
object FirstNodeLabel: TLabel object FirstNodeLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 78 Width = 96
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'First Node' Caption = 'First Node'
end end
object LastNodeLabel: TLabel object LastNodeLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 74 Width = 91
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'Last Node' Caption = 'Last Node'
end end
object AutoStartCheckBox: TCheckBox object AutoStartCheckBox: TCheckBox
Left = 148 Left = 182
Top = 10 Top = 12
Width = 117 Width = 144
Height = 19 Height = 24
Hint = 'Automatically start Telnet server' Hint = 'Automatically start Telnet server'
Caption = 'Auto Startup' Caption = 'Auto Startup'
ParentShowHint = False ParentShowHint = False
...@@ -49,20 +49,20 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -49,20 +49,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 0 TabOrder = 0
end end
object FirstNodeEdit: TEdit object FirstNodeEdit: TEdit
Left = 85 Left = 105
Top = 10 Top = 12
Width = 39 Width = 48
Height = 21 Height = 24
Hint = 'First node number available for Telnet logins' Hint = 'First node number available for Telnet logins'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
end end
object XtrnMinCheckBox: TCheckBox object XtrnMinCheckBox: TCheckBox
Left = 148 Left = 182
Top = 62 Top = 76
Width = 117 Width = 144
Height = 20 Height = 25
Hint = 'External programs run in a minimized window' Hint = 'External programs run in a minimized window'
Caption = 'Minimize Externals' Caption = 'Minimize Externals'
ParentShowHint = False ParentShowHint = False
...@@ -70,20 +70,20 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -70,20 +70,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 2 TabOrder = 2
end end
object LastNodeEdit: TEdit object LastNodeEdit: TEdit
Left = 85 Left = 105
Top = 36 Top = 44
Width = 39 Width = 48
Height = 21 Height = 24
Hint = 'Last node number available for Telnet logins' Hint = 'Last node number available for Telnet logins'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 3
end end
object HostnameCheckBox: TCheckBox object HostnameCheckBox: TCheckBox
Left = 148 Left = 182
Top = 36 Top = 44
Width = 117 Width = 144
Height = 19 Height = 24
Hint = 'Automatically lookup client'#39's hostnames via DNS' Hint = 'Automatically lookup client'#39's hostnames via DNS'
Caption = 'Hostname Lookup' Caption = 'Hostname Lookup'
ParentShowHint = False ParentShowHint = False
...@@ -95,26 +95,26 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -95,26 +95,26 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'Telnet' Caption = 'Telnet'
ImageIndex = 1 ImageIndex = 1
object InterfaceLabel: TLabel object InterfaceLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Interface (IP)' Caption = 'Interface (IP)'
end end
object TelnetPortLabel: TLabel object TelnetPortLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Listening Port' Caption = 'Listening Port'
end end
object CmdLogCheckBox: TCheckBox object CmdLogCheckBox: TCheckBox
Left = 7 Left = 9
Top = 88 Top = 108
Width = 169 Width = 208
Height = 21 Height = 26
Hint = 'Log (debug) all received Telnet commands' Hint = 'Log (debug) all received Telnet commands'
Caption = 'Log Received Commands' Caption = 'Log Received Commands'
ParentShowHint = False ParentShowHint = False
...@@ -122,10 +122,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -122,10 +122,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 0 TabOrder = 0
end end
object TelnetInterfaceEdit: TEdit object TelnetInterfaceEdit: TEdit
Left = 85 Left = 105
Top = 36 Top = 44
Width = 156 Width = 192
Height = 21 Height = 24
Hint = Hint =
'Enter your Network adapter'#39's static IP address here or blank for' + 'Enter your Network adapter'#39's static IP address here or blank for' +
' <ANY>' ' <ANY>'
...@@ -134,20 +134,20 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -134,20 +134,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 1 TabOrder = 1
end end
object TelnetPortEdit: TEdit object TelnetPortEdit: TEdit
Left = 85 Left = 105
Top = 10 Top = 12
Width = 39 Width = 48
Height = 21 Height = 24
Hint = 'TCP port for incoming connections (default=23)' Hint = 'TCP port for incoming connections (default=23)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 2 TabOrder = 2
end end
object KeepAliveCheckBox: TCheckBox object KeepAliveCheckBox: TCheckBox
Left = 7 Left = 9
Top = 62 Top = 76
Width = 117 Width = 144
Height = 21 Height = 26
Hint = 'Instruct WinSock to keep your dial-up connection active' Hint = 'Instruct WinSock to keep your dial-up connection active'
Caption = 'Send Keep-Alives' Caption = 'Send Keep-Alives'
ParentShowHint = False ParentShowHint = False
...@@ -155,10 +155,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -155,10 +155,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 3 TabOrder = 3
end end
object AutoLogonCheckBox: TCheckBox object AutoLogonCheckBox: TCheckBox
Left = 7 Left = 9
Top = 114 Top = 140
Width = 117 Width = 144
Height = 19 Height = 24
Hint = 'Allow V-exempt users to auto-logon based on their IP address' Hint = 'Allow V-exempt users to auto-logon based on their IP address'
Caption = 'AutoLogon via IP' Caption = 'AutoLogon via IP'
ParentShowHint = False ParentShowHint = False
...@@ -170,36 +170,36 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -170,36 +170,36 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'RLogin' Caption = 'RLogin'
ImageIndex = 3 ImageIndex = 3
object Label1: TLabel object Label1: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Listening Port' Caption = 'Listening Port'
end end
object Label2: TLabel object Label2: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Interface (IP)' Caption = 'Interface (IP)'
end end
object RLoginPortEdit: TEdit object RLoginPortEdit: TEdit
Left = 85 Left = 105
Top = 10 Top = 12
Width = 39 Width = 48
Height = 21 Height = 24
Hint = 'TCP port for incoming connections (default=513)' Hint = 'TCP port for incoming connections (default=513)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
end end
object RLoginInterfaceEdit: TEdit object RLoginInterfaceEdit: TEdit
Left = 85 Left = 105
Top = 36 Top = 44
Width = 156 Width = 192
Height = 21 Height = 24
Hint = Hint =
'Enter your Network adapter'#39's static IP address here or blank for' + 'Enter your Network adapter'#39's static IP address here or blank for' +
' <ANY>' ' <ANY>'
...@@ -208,30 +208,35 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -208,30 +208,35 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 1 TabOrder = 1
end end
object RLoginEnabledCheckBox: TCheckBox object RLoginEnabledCheckBox: TCheckBox
Left = 184 Left = 226
Top = 10 Top = 12
Width = 73 Width = 90
Height = 17 Height = 21
Hint = 'Enable the RLogin port'
Caption = 'Enabled' Caption = 'Enabled'
ParentShowHint = False
ShowHint = True
TabOrder = 2 TabOrder = 2
OnClick = RLoginEnabledCheckBoxClick OnClick = RLoginEnabledCheckBoxClick
end end
object RLoginIPallowButton: TButton object RLoginIPallowButton: TButton
Left = 158 Left = 194
Top = 62 Top = 76
Width = 83 Width = 103
Height = 21 Height = 26
Hint = 'RLOGIN.CAN' Hint = 'IP addresses of trusted hosts to allow RLogins from'
Caption = 'Allowed IPs' Caption = 'Allowed IPs'
ParentShowHint = False
ShowHint = True
TabOrder = 3 TabOrder = 3
OnClick = RLoginIPallowButtonClick OnClick = RLoginIPallowButtonClick
end end
object RLogin2ndNameCheckBox: TCheckBox object RLogin2ndNameCheckBox: TCheckBox
Left = 7 Left = 9
Top = 62 Top = 76
Width = 138 Width = 169
Height = 21 Height = 26
Hint = 'Instruct WinSock to keep your dial-up connection active' Hint = 'Use 2nd RLogin account name for the BBS user name'
Caption = 'Use 2nd Login Name' Caption = 'Use 2nd Login Name'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
...@@ -242,55 +247,55 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -242,55 +247,55 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'Sound' Caption = 'Sound'
ImageIndex = 2 ImageIndex = 2
object AnswerSoundLabel: TLabel object AnswerSoundLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 52 Width = 64
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'Answer' Caption = 'Answer'
end end
object HnagupSoundLabel: TLabel object HnagupSoundLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 52 Width = 64
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'Hangup' Caption = 'Hangup'
end end
object AnswerSoundEdit: TEdit object AnswerSoundEdit: TEdit
Left = 72 Left = 89
Top = 10 Top = 12
Width = 169 Width = 208
Height = 21 Height = 24
Hint = 'Sound file to play when accepting an incoming connection' Hint = 'Sound file to play when accepting an incoming connection'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
end end
object AnswerSoundButton: TButton object AnswerSoundButton: TButton
Left = 247 Left = 304
Top = 10 Top = 12
Width = 20 Width = 25
Height = 21 Height = 26
Caption = '...' Caption = '...'
TabOrder = 1 TabOrder = 1
OnClick = AnswerSoundButtonClick OnClick = AnswerSoundButtonClick
end end
object HangupSoundEdit: TEdit object HangupSoundEdit: TEdit
Left = 72 Left = 89
Top = 36 Top = 44
Width = 169 Width = 208
Height = 21 Height = 24
Hint = 'Sound file to play when disconnecting' Hint = 'Sound file to play when disconnecting'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 2 TabOrder = 2
end end
object HangupSoundButton: TButton object HangupSoundButton: TButton
Left = 247 Left = 304
Top = 36 Top = 44
Width = 20 Width = 25
Height = 21 Height = 26
Caption = '...' Caption = '...'
TabOrder = 3 TabOrder = 3
OnClick = HangupSoundButtonClick OnClick = HangupSoundButtonClick
...@@ -298,10 +303,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -298,10 +303,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
end end
end end
object OKBtn: TButton object OKBtn: TButton
Left = 20 Left = 25
Top = 201 Top = 247
Width = 76 Width = 93
Height = 25 Height = 31
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1
...@@ -309,20 +314,20 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -309,20 +314,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
OnClick = OKBtnClick OnClick = OKBtnClick
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 104 Left = 128
Top = 201 Top = 247
Width = 75 Width = 92
Height = 25 Height = 31
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 2 TabOrder = 2
end end
object ApplyBtn: TButton object ApplyBtn: TButton
Left = 189 Left = 233
Top = 201 Top = 247
Width = 76 Width = 93
Height = 25 Height = 31
Cancel = True Cancel = True
Caption = 'Apply' Caption = 'Apply'
TabOrder = 3 TabOrder = 3
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment