home *** CD-ROM | disk | FTP | other *** search
- object PrefForm: TPrefForm
- Left = 237
- Top = 208
- BorderStyle = bsDialog
- Caption = 'Preferences'
- ClientHeight = 272
- ClientWidth = 394
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- ShowHint = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object TabbedNotebook1: TTabbedNotebook
- Left = 0
- Top = 0
- Width = 289
- Height = 272
- Align = alClient
- TabFont.Charset = DEFAULT_CHARSET
- TabFont.Color = clBtnText
- TabFont.Height = -11
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 0
- OnChange = TabbedNotebook1Change
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Dialing'
- object Label1: TLabel
- Left = 16
- Top = 8
- Width = 95
- Height = 13
- Caption = 'Dial-Up Connection:'
- end
- object Label2: TLabel
- Left = 48
- Top = 179
- Width = 64
- Height = 13
- Caption = 'Redial Count:'
- end
- object Label5: TLabel
- Left = 16
- Top = 211
- Width = 100
- Height = 13
- Caption = 'Wait for Connection :'
- end
- object Label6: TLabel
- Left = 161
- Top = 210
- Width = 46
- Height = 13
- Caption = '[seconds]'
- end
- object ComboBox1: TComboBox
- Left = 16
- Top = 24
- Width = 241
- Height = 21
- Hint = 'Select Your Internet Connection From The Drop-Down List'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- end
- object CheckBox1: TCheckBox
- Left = 16
- Top = 64
- Width = 145
- Height = 17
- Hint = 'Checked => Dial Automatically on Startup'
- Caption = 'Use Auto-Dial on Startup'
- TabOrder = 1
- end
- object Edit1: TEdit
- Left = 117
- Top = 174
- Width = 28
- Height = 21
- Hint = 'Number Of Times To Redial When Cannot Connect e.g. Busy Line'
- TabOrder = 5
- Text = '0'
- OnKeyPress = Edit1KeyPress
- end
- object UpDown1: TUpDown
- Left = 145
- Top = 174
- Width = 15
- Height = 21
- Associate = Edit1
- Min = 0
- Max = 99
- Position = 0
- TabOrder = 6
- Wrap = False
- end
- object Edit4: TEdit
- Left = 117
- Top = 206
- Width = 28
- Height = 21
- Hint = 'Maximum Number Of Seconds To Wait For Connection'
- TabOrder = 7
- Text = '1'
- OnKeyPress = Edit1KeyPress
- end
- object UpDown4: TUpDown
- Left = 145
- Top = 206
- Width = 15
- Height = 21
- Associate = Edit4
- Min = 1
- Max = 120
- Position = 1
- TabOrder = 8
- Wrap = False
- end
- object StartHiddenCB: TCheckBox
- Left = 16
- Top = 88
- Width = 145
- Height = 17
- Hint = 'Checked => Hide Main Window on Startup'
- Caption = 'Start Hidden'
- TabOrder = 2
- end
- object ShowConnectCB: TCheckBox
- Left = 16
- Top = 112
- Width = 145
- Height = 17
- Hint = 'Checked => Show Connect Window on Startup'
- Caption = 'Show Connect on Startup'
- TabOrder = 3
- end
- object AutoDial_CB: TCheckBox
- Left = 16
- Top = 136
- Width = 257
- Height = 17
- Hint = 'If you have Direct Internet Connection leave it Unchecked'
- Caption = 'Use Auto Dialing (uncheck for direct connection)'
- TabOrder = 4
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'FTP Mode'
- object RadioGroup2: TRadioGroup
- Left = 8
- Top = 8
- Width = 153
- Height = 81
- Caption = 'FTP Mode'
- ItemIndex = 0
- Items.Strings = (
- 'Automatic'
- 'Binary'
- 'Text'
- 'EBCDIC (Mainframes)')
- TabOrder = 0
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 96
- Width = 257
- Height = 137
- Caption = 'Text File Extensions (in Automatic FTP Mode)'
- TabOrder = 1
- object Label14: TLabel
- Left = 8
- Top = 16
- Width = 114
- Height = 13
- Caption = 'Add Text File Extension:'
- end
- object TextExtEdit: TEdit
- Left = 8
- Top = 32
- Width = 169
- Height = 21
- TabOrder = 0
- end
- object ListBox1: TListBox
- Left = 8
- Top = 56
- Width = 169
- Height = 73
- ItemHeight = 13
- TabOrder = 1
- end
- object Button1: TButton
- Left = 184
- Top = 32
- Width = 67
- Height = 25
- Caption = '&Add'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 184
- Top = 72
- Width = 67
- Height = 25
- Caption = '&Delete'
- TabOrder = 3
- OnClick = Button2Click
- end
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Transfers'
- object Label3: TLabel
- Left = 104
- Top = 34
- Width = 49
- Height = 25
- AutoSize = False
- Caption = 'Active Tranfers:'
- Visible = False
- WordWrap = True
- end
- object Label4: TLabel
- Left = 5
- Top = 96
- Width = 104
- Height = 13
- Caption = 'Failed Tranfer Retries:'
- end
- object Label15: TLabel
- Left = 217
- Top = 25
- Width = 41
- Height = 13
- Caption = '[Kb/sec]'
- Visible = False
- end
- object Label16: TLabel
- Left = 104
- Top = 8
- Width = 152
- Height = 13
- Caption = 'Add Transfers if Transfer Rate is'
- Visible = False
- end
- object Label17: TLabel
- Left = 106
- Top = 25
- Width = 66
- Height = 13
- Caption = 'Greater Than:'
- Visible = False
- end
- object RadioGroup1: TRadioGroup
- Left = 6
- Top = 8
- Width = 86
- Height = 57
- Hint = 'How To Transfer Files e.g. Serial => One File At A Time'
- Caption = 'Transfer Mode'
- ItemIndex = 1
- Items.Strings = (
- 'Automatic'
- 'Serial'
- 'Parallel')
- TabOrder = 0
- Visible = False
- OnClick = RadioGroup1Click
- end
- object Edit2: TEdit
- Left = 152
- Top = 39
- Width = 17
- Height = 21
- Hint = 'Number Of Active Transfers in Parallel Mode'
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 1
- Text = '1'
- Visible = False
- OnChange = Edit2Change
- end
- object UpDown2: TUpDown
- Left = 169
- Top = 39
- Width = 15
- Height = 21
- Associate = Edit2
- Min = 1
- Max = 5
- Position = 1
- TabOrder = 2
- Visible = False
- Wrap = False
- end
- object Edit3: TEdit
- Left = 116
- Top = 94
- Width = 17
- Height = 21
- Hint =
- 'Number Of Times To Retry Aborted FTP Transfers e.g. When Timeout' +
- ' Occurs'
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 3
- Text = '0'
- end
- object UpDown3: TUpDown
- Left = 133
- Top = 94
- Width = 15
- Height = 21
- Associate = Edit3
- Min = 0
- Max = 9
- Position = 0
- TabOrder = 4
- Wrap = False
- end
- object SlowRateEd: TEdit
- Left = 173
- Top = 23
- Width = 42
- Height = 21
- Hint =
- 'The Trigger Value For Increasing The Number Of Simultaneous Tran' +
- 'sfers'
- MaxLength = 6
- TabOrder = 5
- Text = '1.0'
- Visible = False
- OnExit = RateEdExit
- OnKeyPress = RateEdKeyPress
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Auto-Transfers'
- object Label13: TLabel
- Left = 8
- Top = 9
- Width = 138
- Height = 13
- Caption = 'Aborted Auto-Tranfer Retries:'
- end
- object Label18: TLabel
- Left = 129
- Top = 166
- Width = 26
- Height = 13
- Caption = 'hours'
- end
- object Label19: TLabel
- Left = 29
- Top = 165
- Width = 67
- Height = 13
- Caption = 'In More Than:'
- end
- object Edit5: TEdit
- Left = 148
- Top = 7
- Width = 17
- Height = 21
- Hint = 'Number Of Times To Reschedule Failed Auto-Transfers'
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 0
- Text = '0'
- end
- object UpDown5: TUpDown
- Left = 165
- Top = 7
- Width = 15
- Height = 21
- Associate = Edit5
- Min = 0
- Max = 9
- Position = 0
- TabOrder = 1
- Wrap = False
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 36
- Width = 265
- Height = 98
- Caption = 'Abort Auto-Transfer if:'
- TabOrder = 2
- object Label7: TLabel
- Left = 219
- Top = 18
- Width = 41
- Height = 13
- Caption = '[Kb/sec]'
- end
- object Label8: TLabel
- Left = 29
- Top = 34
- Width = 25
- Height = 13
- Caption = 'After:'
- end
- object Label9: TLabel
- Left = 94
- Top = 34
- Width = 39
- Height = 13
- Caption = 'minutes.'
- end
- object Label10: TLabel
- Left = 225
- Top = 56
- Width = 36
- Height = 13
- Caption = 'minutes'
- end
- object Label11: TLabel
- Left = 26
- Top = 72
- Width = 25
- Height = 13
- Caption = 'After:'
- end
- object Label12: TLabel
- Left = 91
- Top = 72
- Width = 39
- Height = 13
- Caption = 'minutes.'
- end
- object CheckBox2: TCheckBox
- Left = 8
- Top = 16
- Width = 163
- Height = 17
- Hint = 'Checked => Abort If Transfer Is Slower Than Specified'
- Caption = 'Transfer Rate Is Slower Than:'
- TabOrder = 0
- OnClick = CheckBox2Click
- end
- object RateEd: TEdit
- Left = 175
- Top = 15
- Width = 42
- Height = 21
- Hint = 'Abort Transfer Slower Than This Rate'
- Enabled = False
- MaxLength = 6
- TabOrder = 1
- Text = '1.0'
- OnExit = RateEdExit
- OnKeyPress = RateEdKeyPress
- end
- object Time1Ed: TEdit
- Left = 56
- Top = 31
- Width = 32
- Height = 21
- Hint = 'Abort Transfer When Slow After This Number Of Minutes'
- Enabled = False
- MaxLength = 3
- TabOrder = 2
- Text = '10'
- OnExit = Time1EdExit
- OnKeyPress = Edit1KeyPress
- end
- object CheckBox3: TCheckBox
- Left = 8
- Top = 54
- Width = 187
- Height = 17
- Hint =
- 'Checked => Abort If Estimated Transfer Time Is Longer Than Speci' +
- 'fied'
- Caption = 'Est. Transfer Time Is Greater Than:'
- TabOrder = 3
- OnClick = CheckBox3Click
- end
- object TransferTimeEd: TEdit
- Left = 192
- Top = 53
- Width = 30
- Height = 21
- Hint =
- 'Abort Transfer If Est. Time Is Longer Than This Number Of Minute' +
- 's'
- Enabled = False
- MaxLength = 3
- TabOrder = 4
- Text = '120'
- OnExit = Time1EdExit
- OnKeyPress = Edit1KeyPress
- end
- object Time2Ed: TEdit
- Left = 53
- Top = 69
- Width = 32
- Height = 21
- Hint =
- 'Abort Transfer When Est. Time Is Too Long After This Number Of M' +
- 'inutes'
- Enabled = False
- MaxLength = 3
- TabOrder = 5
- Text = '10'
- OnExit = Time1EdExit
- OnKeyPress = Edit1KeyPress
- end
- end
- object ShutdownCB: TCheckBox
- Left = 8
- Top = 146
- Width = 241
- Height = 17
- Hint = 'Will Exit From Windows And Turns Off Power If Possible'
- Caption = 'Shutdown if Next Auto-Transfer Is Scheduled'
- TabOrder = 3
- OnClick = ShutdownCBClick
- end
- object HoursEd: TEdit
- Left = 97
- Top = 163
- Width = 30
- Height = 21
- Hint = 'Shutdown If No Transfer Scheduled in This Number Of Hours'
- Enabled = False
- MaxLength = 3
- TabOrder = 4
- Text = '8'
- OnExit = HoursEdExit
- OnKeyPress = Edit1KeyPress
- end
- end
- end
- object Panel1: TPanel
- Left = 289
- Top = 0
- Width = 105
- Height = 272
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- object BitBtn1: TBitBtn
- Left = 16
- Top = 16
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 0
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 16
- Top = 56
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 1
- Kind = bkCancel
- end
- object BitBtn3: TBitBtn
- Left = 16
- Top = 96
- Width = 75
- Height = 25
- TabOrder = 2
- OnClick = BitBtn3Click
- Kind = bkHelp
- end
- end
- end
-