Synchronet now requires the libarchive development package (e.g. libarchive-dev on Debian-based Linux distros, libarchive.org for more info) to build successfully.

Commit fded7e38 authored by rswindell's avatar rswindell
Browse files

Bugfix: restore the current working dir (ctrl dir) when done selecting sound

files from cfg dialogs.
Don't add selected sound files to recent documents history.
parent 804ecbce
object FtpCfgDlg: TFtpCfgDlg
Left = 600
Top = 428
Left = 779
Top = 375
BorderStyle = bsDialog
Caption = 'FTP Server Configuration'
ClientHeight = 301
......@@ -411,6 +411,7 @@ object FtpCfgDlg: TFtpCfgDlg
end
object OpenDialog: TOpenDialog
Filter = 'Wave Files|*.wav'
Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing, ofDontAddToRecent]
Top = 240
end
end
......@@ -53,8 +53,8 @@ object MailCfgDlg: TMailCfgDlg
Top = 4
Width = 342
Height = 245
ActivePage = RelayTabSheet
TabIndex = 4
ActivePage = SoundTabSheet
TabIndex = 5
TabOrder = 3
object GeneralTabSheet: TTabSheet
Caption = 'General'
......@@ -821,6 +821,7 @@ object MailCfgDlg: TMailCfgDlg
end
object OpenDialog: TOpenDialog
Filter = 'Wave Files|*.wav'
Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing, ofDontAddToRecent]
Left = 8
Top = 480
end
......
......@@ -3,12 +3,12 @@ object ServicesCfgDlg: TServicesCfgDlg
Top = 317
BorderStyle = bsDialog
Caption = 'Services Configuration'
ClientHeight = 245
ClientWidth = 286
ClientHeight = 302
ClientWidth = 352
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
......@@ -40,33 +40,33 @@ object ServicesCfgDlg: TServicesCfgDlg
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
286
245)
PixelsPerInch = 96
TextHeight = 13
352
302)
PixelsPerInch = 120
TextHeight = 16
object PageControl: TPageControl
Left = 3
Top = 3
Width = 278
Height = 199
ActivePage = GeneralTabSheet
TabIndex = 0
Left = 4
Top = 4
Width = 342
Height = 245
ActivePage = SoundTabSheet
TabIndex = 1
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
object InterfaceLabel: TLabel
Left = 7
Top = 34
Width = 78
Height = 20
Left = 9
Top = 42
Width = 96
Height = 24
AutoSize = False
Caption = 'Interface (IP)'
end
object AutoStartCheckBox: TCheckBox
Left = 7
Top = 10
Width = 117
Height = 20
Left = 9
Top = 12
Width = 144
Height = 25
Hint = 'Automatically start Services'
Caption = 'Auto Startup'
ParentShowHint = False
......@@ -74,9 +74,9 @@ object ServicesCfgDlg: TServicesCfgDlg
TabOrder = 0
end
object NetworkInterfaceEdit: TEdit
Left = 85
Top = 34
Width = 156
Left = 105
Top = 42
Width = 192
Height = 24
Hint = 'Your network adapter'#39's static IP address or blank for <ANY>'
ParentShowHint = False
......@@ -84,10 +84,10 @@ object ServicesCfgDlg: TServicesCfgDlg
TabOrder = 2
end
object HostnameCheckBox: TCheckBox
Left = 148
Top = 10
Width = 119
Height = 20
Left = 182
Top = 12
Width = 147
Height = 25
Hint = 'Automatically lookup client'#39's hostnames via DNS'
Caption = 'Hostname Lookup'
ParentShowHint = False
......@@ -95,10 +95,10 @@ object ServicesCfgDlg: TServicesCfgDlg
TabOrder = 1
end
object ServicesIniButton: TButton
Left = 7
Top = 74
Width = 250
Height = 23
Left = 9
Top = 91
Width = 307
Height = 28
Hint = 'services.ini'
Caption = 'Edit Services Configuration File'
ParentShowHint = False
......@@ -111,55 +111,55 @@ object ServicesCfgDlg: TServicesCfgDlg
Caption = 'Sound'
ImageIndex = 2
object AnswerSoundLabel: TLabel
Left = 7
Top = 10
Width = 65
Height = 20
Left = 9
Top = 12
Width = 80
Height = 25
AutoSize = False
Caption = 'Connect'
end
object HangupSoundLabel: TLabel
Left = 7
Top = 36
Width = 65
Height = 20
Left = 9
Top = 44
Width = 80
Height = 25
AutoSize = False
Caption = 'Disconnect'
end
object AnswerSoundEdit: TEdit
Left = 85
Top = 10
Width = 156
Height = 21
Left = 105
Top = 12
Width = 192
Height = 24
Hint = 'Sound file to play when users connect'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object AnswerSoundButton: TButton
Left = 247
Top = 10
Width = 20
Height = 21
Left = 304
Top = 12
Width = 25
Height = 26
Caption = '...'
TabOrder = 1
OnClick = AnswerSoundButtonClick
end
object HangupSoundEdit: TEdit
Left = 85
Top = 36
Width = 156
Height = 21
Left = 105
Top = 44
Width = 192
Height = 24
Hint = 'Sound file to play when users disconnect'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object HangupSoundButton: TButton
Left = 247
Top = 36
Width = 20
Height = 21
Left = 304
Top = 44
Width = 25
Height = 26
Caption = '...'
TabOrder = 3
OnClick = HangupSoundButtonClick
......@@ -167,10 +167,10 @@ object ServicesCfgDlg: TServicesCfgDlg
end
end
object OKBtn: TButton
Left = 20
Top = -38
Width = 76
Height = 24
Left = 25
Top = -47
Width = 93
Height = 30
Anchors = [akLeft, akBottom]
Caption = 'OK'
Default = True
......@@ -178,10 +178,10 @@ object ServicesCfgDlg: TServicesCfgDlg
TabOrder = 1
end
object CancelBtn: TButton
Left = 104
Top = -38
Width = 75
Height = 24
Left = 128
Top = -47
Width = 92
Height = 30
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Cancel'
......@@ -189,20 +189,20 @@ object ServicesCfgDlg: TServicesCfgDlg
TabOrder = 2
end
object ApplyBtn: TButton
Left = 189
Top = -38
Width = 76
Height = 24
Left = 233
Top = -47
Width = 93
Height = 30
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Apply'
TabOrder = 3
end
object OKButton: TButton
Left = 20
Top = 211
Width = 76
Height = 25
Left = 25
Top = 260
Width = 93
Height = 30
Anchors = [akLeft, akBottom]
Caption = 'OK'
Default = True
......@@ -211,10 +211,10 @@ object ServicesCfgDlg: TServicesCfgDlg
OnClick = OKButtonClick
end
object CancelButton: TButton
Left = 104
Top = 211
Width = 75
Height = 25
Left = 128
Top = 260
Width = 92
Height = 30
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Cancel'
......@@ -222,10 +222,10 @@ object ServicesCfgDlg: TServicesCfgDlg
TabOrder = 5
end
object ApplyButton: TButton
Left = 189
Top = 211
Width = 76
Height = 25
Left = 233
Top = 260
Width = 93
Height = 30
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Apply'
......@@ -234,6 +234,7 @@ object ServicesCfgDlg: TServicesCfgDlg
end
object OpenDialog: TOpenDialog
Filter = 'Wave Files|*.wav'
Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing, ofDontAddToRecent]
Left = 128
Top = 144
end
......
......@@ -3,54 +3,54 @@ object TelnetCfgDlg: TTelnetCfgDlg
Top = 354
BorderStyle = bsDialog
Caption = 'Telnet Server Configuration'
ClientHeight = 234
ClientWidth = 286
ClientHeight = 288
ClientWidth = 352
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
PixelsPerInch = 120
TextHeight = 16
object PageControl: TPageControl
Left = 3
Top = 3
Width = 278
Height = 186
ActivePage = GeneralTabSheet
TabIndex = 0
Left = 4
Top = 4
Width = 342
Height = 229
ActivePage = SoundTabSheet
TabIndex = 3
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
object FirstNodeLabel: TLabel
Left = 7
Top = 10
Width = 78
Height = 20
Left = 9
Top = 12
Width = 96
Height = 25
AutoSize = False
Caption = 'First Node'
end
object LastNodeLabel: TLabel
Left = 7
Top = 36
Width = 74
Height = 20
Left = 9
Top = 44
Width = 91
Height = 25
AutoSize = False
Caption = 'Last Node'
end
object XtrnPollsLabel: TLabel
Left = 7
Top = 62
Width = 74
Height = 20
Left = 9
Top = 76
Width = 91
Height = 25
AutoSize = False
Caption = 'External Yield'
end
object AutoStartCheckBox: TCheckBox
Left = 148
Top = 10
Width = 117
Height = 19
Left = 182
Top = 12
Width = 144
Height = 24
Hint = 'Automatically start Telnet server'
Caption = 'Auto Startup'
ParentShowHint = False
......@@ -58,20 +58,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 5
end
object FirstNodeEdit: TEdit
Left = 85
Top = 10
Width = 39
Height = 21
Left = 105
Top = 12
Width = 48
Height = 24
Hint = 'First node number available for Telnet logins'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object XtrnMinCheckBox: TCheckBox
Left = 148
Top = 36
Width = 117
Height = 20
Left = 182
Top = 44
Width = 144
Height = 25
Hint = 'External programs run in a minimized window'
Caption = 'Minimize Externals'
ParentShowHint = False
......@@ -79,20 +79,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 6
end
object LastNodeEdit: TEdit
Left = 85
Top = 36
Width = 39
Height = 21
Left = 105
Top = 44
Width = 48
Height = 24
Hint = 'Last node number available for Telnet logins'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object HostnameCheckBox: TCheckBox
Left = 7
Top = 88
Width = 117
Height = 19
Left = 9
Top = 108
Width = 144
Height = 24
Hint = 'Automatically lookup client'#39's hostname via DNS'
Caption = 'Hostname Lookup'
ParentShowHint = False
......@@ -100,10 +100,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 3
end
object QWKEventsCheckBox: TCheckBox
Left = 148
Top = 88
Width = 117
Height = 20
Left = 182
Top = 108
Width = 144
Height = 25
Hint = 'Handle QWK Message Packet Events in This Instance'
Caption = 'QWK Msg Events'
ParentShowHint = False
......@@ -111,10 +111,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 7
end
object JavaScriptCheckBox: TCheckBox
Left = 148
Top = 114
Width = 117
Height = 20
Left = 182
Top = 140
Width = 144
Height = 25
Hint = 'Enable JavaScript Support'
Caption = 'JavaScript Support'
ParentShowHint = False
......@@ -122,10 +122,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 8
end
object XtrnYieldEdit: TEdit
Left = 85
Top = 62
Width = 39
Height = 21
Left = 105
Top = 76
Width = 48
Height = 24
Hint =
'Number of polls before yielding time-slices for external DOS/FOS' +
'SIL programs'
......@@ -134,10 +134,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 2
end
object IdentityCheckBox: TCheckBox
Left = 7
Top = 114
Width = 117
Height = 19
Left = 9
Top = 140
Width = 144
Height = 24
Hint = 'Automatically lookup client'#39's identity via IDENT protocol'
Caption = 'Identity Lookup'
ParentShowHint = False
......@@ -145,10 +145,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 4
end
object EventsCheckBox: TCheckBox
Left = 148
Top = 62
Width = 117
Height = 20
Left = 182
Top = 76
Width = 144
Height = 25
Hint = 'Enable the events thread'
Caption = 'Events Enabled'
ParentShowHint = False
......@@ -160,26 +160,26 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'Telnet'
ImageIndex = 1
object InterfaceLabel: TLabel
Left = 7
Top = 36
Width = 78
Height = 21
Left = 9
Top = 44
Width = 96
Height = 26
AutoSize = False
Caption = 'Interface (IP)'
end
object TelnetPortLabel: TLabel
Left = 7
Top = 10
Width = 78
Height = 21
Left = 9
Top = 12
Width = 96
Height = 26
AutoSize = False
Caption = 'Listening Port'
end
object CmdLogCheckBox: TCheckBox
Left = 7
Top = 88
Width = 169
Height = 21
Left = 9
Top = 108
Width = 208
Height = 26
Hint = 'Log (debug) all transmitted and received Telnet commands'
Caption = 'Log Telnet Commands'
ParentShowHint = False
......@@ -187,9 +187,9 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 3
end
object TelnetInterfaceEdit: TEdit
Left = 85
Top = 36
Width = 156
Left = 105
Top = 44
Width = 192
Height = 21
Hint =
'Enter your Network adapter'#39's static IP address here or blank for' +
......@@ -199,9 +199,9 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 1
end
object TelnetPortEdit: TEdit
Left = 85
Top = 10
Width = 39
Left = 105
Top = 12
Width = 48
Height = 21
Hint = 'TCP port for incoming connections (default=23)'
ParentShowHint = False
......@@ -209,10 +209,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 0
end
object TelnetGaCheckBox: TCheckBox
Left = 7
Top = 62
Width = 169
Height = 21
Left = 9
Top = 76
Width = 208
Height = 26
Hint =
'Send periodic Telnet GA commands to help detect dropped connecti' +
'ons'
......@@ -222,10 +222,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 2
end
object AutoLogonCheckBox: TCheckBox
Left = 7
Top = 114
Width = 117
Height = 19
Left = 9
Top = 140
Width = 144
Height = 24
Hint = 'Allow V-exempt users to auto-logon based on their IP address'
Caption = 'AutoLogon via IP'
ParentShowHint = False
......@@ -237,25 +237,25 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'RLogin'
ImageIndex = 3
object RLoginPortLabel: TLabel
Left = 7
Top = 10
Width = 78
Height = 21
Left = 9
Top = 12
Width = 96
Height = 26
AutoSize = False
Caption = 'Listening Port'
end
object RLoginInterfaceLabel: TLabel
Left = 7
Top = 36
Width = 78
Height = 21
Left = 9
Top = 44
Width = 96
Height = 26
AutoSize = False
Caption = 'Interface (IP)'
end
object RLoginPortEdit: TEdit
Left = 85
Top = 10