Annotation of sbbs/sbbs3/ctrl/ftpcfgdlgunit.dfm, revision 1.1.1.2

1.1       root        1: object FtpCfgDlg: TFtpCfgDlg
1.1.1.2 ! root        2:   Left = 600
        !             3:   Top = 428
1.1       root        4:   BorderStyle = bsDialog
                      5:   Caption = 'FTP Server Configuration'
1.1.1.2 ! root        6:   ClientHeight = 301
1.1       root        7:   ClientWidth = 352
                      8:   Color = clBtnFace
                      9:   ParentFont = True
                     10:   OldCreateOrder = True
                     11:   Position = poScreenCenter
                     12:   OnShow = FormShow
1.1.1.2 ! root       13:   DesignSize = (
        !            14:     352
        !            15:     301)
1.1       root       16:   PixelsPerInch = 120
                     17:   TextHeight = 16
                     18:   object PageControl: TPageControl
                     19:     Left = 4
                     20:     Top = 4
                     21:     Width = 342
1.1.1.2 ! root       22:     Height = 245
        !            23:     ActivePage = SoundTabSheet
        !            24:     TabIndex = 3
1.1       root       25:     TabOrder = 0
                     26:     object GeneralTabSheet: TTabSheet
                     27:       Caption = 'General'
                     28:       object MaxClientesLabel: TLabel
                     29:         Left = 9
1.1.1.2 ! root       30:         Top = 106
1.1       root       31:         Width = 96
1.1.1.2 ! root       32:         Height = 25
1.1       root       33:         AutoSize = False
                     34:         Caption = 'Max Clients'
                     35:       end
                     36:       object MaxInactivityLabel: TLabel
                     37:         Left = 9
1.1.1.2 ! root       38:         Top = 138
1.1       root       39:         Width = 96
1.1.1.2 ! root       40:         Height = 25
1.1       root       41:         AutoSize = False
                     42:         Caption = 'Max Inactivity'
                     43:       end
                     44:       object PortLabel: TLabel
                     45:         Left = 9
1.1.1.2 ! root       46:         Top = 74
1.1       root       47:         Width = 96
1.1.1.2 ! root       48:         Height = 25
1.1       root       49:         AutoSize = False
                     50:         Caption = 'Control Port'
                     51:       end
                     52:       object InterfaceLabel: TLabel
                     53:         Left = 9
1.1.1.2 ! root       54:         Top = 42
1.1       root       55:         Width = 96
1.1.1.2 ! root       56:         Height = 25
1.1       root       57:         AutoSize = False
                     58:         Caption = 'Interface (IP)'
                     59:       end
1.1.1.2 ! root       60:       object QwkTimeoutLabel: TLabel
        !            61:         Left = 9
        !            62:         Top = 170
        !            63:         Width = 96
        !            64:         Height = 25
        !            65:         AutoSize = False
        !            66:         Caption = 'QWK Timeout'
        !            67:       end
1.1       root       68:       object AutoStartCheckBox: TCheckBox
                     69:         Left = 9
1.1.1.2 ! root       70:         Top = 12
1.1       root       71:         Width = 144
1.1.1.2 ! root       72:         Height = 25
1.1       root       73:         Hint = 'Automatically start FTP server'
                     74:         Caption = 'Auto Startup'
                     75:         ParentShowHint = False
                     76:         ShowHint = True
                     77:         TabOrder = 0
                     78:       end
                     79:       object MaxClientsEdit: TEdit
                     80:         Left = 105
1.1.1.2 ! root       81:         Top = 106
1.1       root       82:         Width = 48
                     83:         Height = 24
                     84:         Hint = 'Maximum number of simultaneous clients (default=10)'
                     85:         ParentShowHint = False
                     86:         ShowHint = True
1.1.1.2 ! root       87:         TabOrder = 4
1.1       root       88:       end
                     89:       object MaxInactivityEdit: TEdit
                     90:         Left = 105
1.1.1.2 ! root       91:         Top = 138
1.1       root       92:         Width = 48
                     93:         Height = 24
                     94:         Hint = 
                     95:           'Maximum number of seconds of inactivity before disconnect (defau' +
                     96:           'lt=300)'
                     97:         ParentShowHint = False
                     98:         ShowHint = True
1.1.1.2 ! root       99:         TabOrder = 5
1.1       root      100:       end
                    101:       object PortEdit: TEdit
                    102:         Left = 105
1.1.1.2 ! root      103:         Top = 74
1.1       root      104:         Width = 48
                    105:         Height = 24
                    106:         Hint = 'TCP port to use for FTP control connections (default=21)'
                    107:         ParentShowHint = False
                    108:         ShowHint = True
                    109:         TabOrder = 3
                    110:       end
                    111:       object NetworkInterfaceEdit: TEdit
                    112:         Left = 105
1.1.1.2 ! root      113:         Top = 42
1.1       root      114:         Width = 192
                    115:         Height = 24
                    116:         Hint = 'Your network adapter'#39's static IP address or blank for <ANY>'
                    117:         ParentShowHint = False
                    118:         ShowHint = True
1.1.1.2 ! root      119:         TabOrder = 2
1.1       root      120:       end
                    121:       object AllowQWKCheckBox: TCheckBox
                    122:         Left = 182
1.1.1.2 ! root      123:         Top = 74
1.1       root      124:         Width = 147
1.1.1.2 ! root      125:         Height = 25
1.1       root      126:         Hint = 'Allow QWK packet transfers'
                    127:         Caption = 'QWK Packets'
                    128:         ParentShowHint = False
                    129:         ShowHint = True
                    130:         TabOrder = 7
                    131:       end
                    132:       object LocalFileSysCheckBox: TCheckBox
                    133:         Left = 182
1.1.1.2 ! root      134:         Top = 106
1.1       root      135:         Width = 147
1.1.1.2 ! root      136:         Height = 25
1.1       root      137:         Hint = 
                    138:           'Allow sysop access to local file system (requires sysop password' +
                    139:           ')'
                    140:         Caption = 'Local File System'
                    141:         ParentShowHint = False
                    142:         ShowHint = True
                    143:         TabOrder = 8
                    144:       end
                    145:       object HostnameCheckBox: TCheckBox
                    146:         Left = 182
1.1.1.2 ! root      147:         Top = 12
1.1       root      148:         Width = 147
1.1.1.2 ! root      149:         Height = 25
1.1       root      150:         Hint = 'Automatically lookup client'#39's hostnames via DNS'
                    151:         Caption = 'Hostname Lookup'
                    152:         ParentShowHint = False
                    153:         ShowHint = True
1.1.1.2 ! root      154:         TabOrder = 1
1.1       root      155:       end
                    156:       object DirFilesCheckBox: TCheckBox
                    157:         Left = 182
1.1.1.2 ! root      158:         Top = 135
1.1       root      159:         Width = 154
                    160:         Height = 25
                    161:         Hint = 'Allow users access to files in directory, but not in database'
                    162:         Caption = 'Directory File Access'
                    163:         ParentShowHint = False
                    164:         ShowHint = True
1.1.1.2 ! root      165:         TabOrder = 9
        !           166:       end
        !           167:       object QwkTimeoutEdit: TEdit
        !           168:         Left = 105
        !           169:         Top = 170
        !           170:         Width = 48
        !           171:         Height = 24
        !           172:         Hint = 'Maximum number of seconds before QWK packet creation timeout'
        !           173:         ParentShowHint = False
        !           174:         ShowHint = True
        !           175:         TabOrder = 6
        !           176:       end
        !           177:     end
        !           178:     object IndexTabSheet: TTabSheet
        !           179:       Caption = 'Index'
        !           180:       ImageIndex = 3
        !           181:       object HtmlJavaScriptLabel: TLabel
        !           182:         Left = 9
        !           183:         Top = 76
        !           184:         Width = 80
        !           185:         Height = 25
        !           186:         AutoSize = False
        !           187:         Caption = 'JavaScript'
        !           188:       end
        !           189:       object AutoIndexCheckBox: TCheckBox
        !           190:         Left = 9
        !           191:         Top = 12
        !           192:         Width = 96
        !           193:         Height = 24
        !           194:         Hint = 'Automatically generate index files for file descriptions'
        !           195:         Caption = 'ASCII'
        !           196:         ParentShowHint = False
        !           197:         ShowHint = True
        !           198:         TabOrder = 0
        !           199:         OnClick = AutoIndexCheckBoxClick
        !           200:       end
        !           201:       object IndexFileNameEdit: TEdit
        !           202:         Left = 105
        !           203:         Top = 12
        !           204:         Width = 192
        !           205:         Height = 24
        !           206:         Hint = 'Name of ASCII index file (default=00index)'
        !           207:         ParentShowHint = False
        !           208:         ShowHint = True
        !           209:         TabOrder = 1
        !           210:       end
        !           211:       object HtmlIndexCheckBox: TCheckBox
        !           212:         Left = 9
        !           213:         Top = 44
        !           214:         Width = 96
        !           215:         Height = 24
        !           216:         Hint = 'Automatically generate HTML index files for file descriptions'
        !           217:         Caption = 'HTML'
        !           218:         ParentShowHint = False
        !           219:         ShowHint = True
        !           220:         TabOrder = 2
        !           221:         OnClick = HtmlIndexCheckBoxClick
        !           222:       end
        !           223:       object HtmlFileNameEdit: TEdit
        !           224:         Left = 105
        !           225:         Top = 44
        !           226:         Width = 192
        !           227:         Height = 24
        !           228:         Hint = 'Name of HTML index file (default=00index.html)'
        !           229:         ParentShowHint = False
        !           230:         ShowHint = True
        !           231:         TabOrder = 3
        !           232:       end
        !           233:       object HtmlJavaScriptEdit: TEdit
        !           234:         Left = 105
        !           235:         Top = 76
        !           236:         Width = 192
        !           237:         Height = 24
        !           238:         Hint = 'JavaScript filename to execute to generate HTML index file'
        !           239:         ParentShowHint = False
        !           240:         ShowHint = True
        !           241:         TabOrder = 4
1.1       root      242:       end
                    243:     end
                    244:     object LogTabSheet: TTabSheet
                    245:       Caption = 'Log'
                    246:       ImageIndex = 1
                    247:       object DebugTxCheckBox: TCheckBox
                    248:         Left = 9
1.1.1.2 ! root      249:         Top = 42
1.1       root      250:         Width = 192
                    251:         Height = 24
                    252:         Hint = 'Log (debug) transmitted FTP responses'
                    253:         Caption = 'Transmitted Responses'
                    254:         ParentShowHint = False
                    255:         ShowHint = True
1.1.1.2 ! root      256:         TabOrder = 1
1.1       root      257:       end
                    258:       object CmdLogCheckBox: TCheckBox
                    259:         Left = 9
1.1.1.2 ! root      260:         Top = 12
1.1       root      261:         Width = 192
                    262:         Height = 24
                    263:         Hint = 'Log (debug) all received FTP commands'
                    264:         Caption = 'Received Commands'
                    265:         ParentShowHint = False
                    266:         ShowHint = True
1.1.1.2 ! root      267:         TabOrder = 0
1.1       root      268:       end
                    269:       object DebugDataCheckBox: TCheckBox
                    270:         Left = 9
1.1.1.2 ! root      271:         Top = 72
1.1       root      272:         Width = 192
                    273:         Height = 24
                    274:         Hint = 'Log (debug) data channel operations'
                    275:         Caption = 'Data Channel Activity'
                    276:         ParentShowHint = False
                    277:         ShowHint = True
                    278:         TabOrder = 2
                    279:       end
                    280:       object LogFileCheckBox: TCheckBox
                    281:         Left = 9
1.1.1.2 ! root      282:         Top = 102
1.1       root      283:         Width = 144
                    284:         Height = 25
                    285:         Hint = 'Save log entries to a file (in your DATA directory)'
                    286:         Caption = 'Log to Disk'
                    287:         ParentShowHint = False
                    288:         ShowHint = True
                    289:         TabOrder = 3
                    290:       end
                    291:     end
                    292:     object SoundTabSheet: TTabSheet
                    293:       Caption = 'Sound'
                    294:       ImageIndex = 2
                    295:       object AnswerSoundLabel: TLabel
                    296:         Left = 9
                    297:         Top = 12
                    298:         Width = 80
                    299:         Height = 25
                    300:         AutoSize = False
                    301:         Caption = 'Connect'
                    302:       end
1.1.1.2 ! root      303:       object HangupSoundLabel: TLabel
1.1       root      304:         Left = 9
                    305:         Top = 44
                    306:         Width = 80
                    307:         Height = 25
                    308:         AutoSize = False
                    309:         Caption = 'Disconnect'
                    310:       end
1.1.1.2 ! root      311:       object HackAttemptSoundLabel: TLabel
        !           312:         Left = 9
        !           313:         Top = 76
        !           314:         Width = 80
        !           315:         Height = 25
        !           316:         AutoSize = False
        !           317:         Caption = 'Hack Attempt'
        !           318:       end
1.1       root      319:       object AnswerSoundEdit: TEdit
1.1.1.2 ! root      320:         Left = 105
1.1       root      321:         Top = 12
1.1.1.2 ! root      322:         Width = 192
1.1       root      323:         Height = 24
                    324:         Hint = 'Sound file to play when users connect'
                    325:         ParentShowHint = False
                    326:         ShowHint = True
                    327:         TabOrder = 0
                    328:       end
                    329:       object AnswerSoundButton: TButton
                    330:         Left = 304
                    331:         Top = 12
                    332:         Width = 25
                    333:         Height = 26
                    334:         Caption = '...'
                    335:         TabOrder = 1
                    336:         OnClick = AnswerSoundButtonClick
                    337:       end
                    338:       object HangupSoundEdit: TEdit
1.1.1.2 ! root      339:         Left = 105
1.1       root      340:         Top = 44
1.1.1.2 ! root      341:         Width = 192
1.1       root      342:         Height = 24
                    343:         Hint = 'Sound file to play when users disconnect'
                    344:         ParentShowHint = False
                    345:         ShowHint = True
                    346:         TabOrder = 2
                    347:       end
                    348:       object HangupSoundButton: TButton
                    349:         Left = 304
                    350:         Top = 44
                    351:         Width = 25
                    352:         Height = 26
                    353:         Caption = '...'
                    354:         TabOrder = 3
                    355:         OnClick = HangupSoundButtonClick
                    356:       end
1.1.1.2 ! root      357:       object HackAttemptSoundEdit: TEdit
        !           358:         Left = 105
        !           359:         Top = 76
        !           360:         Width = 192
        !           361:         Height = 24
        !           362:         Hint = 'Sound file to play when users disconnect'
        !           363:         ParentShowHint = False
        !           364:         ShowHint = True
        !           365:         TabOrder = 4
        !           366:       end
        !           367:       object HackAttemptSoundButton: TButton
        !           368:         Left = 304
        !           369:         Top = 76
        !           370:         Width = 25
        !           371:         Height = 26
        !           372:         Caption = '...'
        !           373:         TabOrder = 5
        !           374:         OnClick = HackAttemptSoundButtonClick
        !           375:       end
1.1       root      376:     end
                    377:   end
                    378:   object OKBtn: TButton
                    379:     Left = 25
1.1.1.2 ! root      380:     Top = 260
1.1       root      381:     Width = 93
                    382:     Height = 30
                    383:     Anchors = [akLeft, akBottom]
                    384:     Caption = 'OK'
                    385:     Default = True
                    386:     ModalResult = 1
                    387:     TabOrder = 1
                    388:     OnClick = OKBtnClick
                    389:   end
                    390:   object CancelBtn: TButton
                    391:     Left = 128
1.1.1.2 ! root      392:     Top = 260
1.1       root      393:     Width = 92
                    394:     Height = 30
                    395:     Anchors = [akLeft, akBottom]
                    396:     Cancel = True
                    397:     Caption = 'Cancel'
                    398:     ModalResult = 2
                    399:     TabOrder = 2
                    400:   end
                    401:   object ApplyBtn: TButton
                    402:     Left = 233
1.1.1.2 ! root      403:     Top = 260
1.1       root      404:     Width = 93
                    405:     Height = 30
                    406:     Anchors = [akLeft, akBottom]
                    407:     Cancel = True
                    408:     Caption = 'Apply'
                    409:     TabOrder = 3
                    410:     OnClick = OKBtnClick
                    411:   end
                    412:   object OpenDialog: TOpenDialog
                    413:     Filter = 'Wave Files|*.wav'
                    414:     Top = 240
                    415:   end
                    416: end

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.