mainformunit.dfm

Synchronet BBS Software是一个多用户BBS/Internet软件

            OnChange = EditChange
          end
          object LeechEdit: TEdit
            Left = 72
            Top = 68
            Width = 57
            Height = 21
            TabOrder = 2
            OnChange = EditChange
          end
        end
      end
      object SettingsTabSheet: TTabSheet
        Caption = 'Settings'
        ImageIndex = 3
        object GroupBox10: TGroupBox
          Left = 8
          Top = 8
          Width = 209
          Height = 153
          Caption = 'Terminal'
          TabOrder = 0
          object Label3: TLabel
            Left = 136
            Top = 120
            Width = 40
            Height = 21
            AutoSize = False
            Caption = 'Rows'
          end
          object RowsEdit: TEdit
            Left = 176
            Top = 120
            Width = 25
            Height = 21
            MaxLength = 2
            TabOrder = 0
            OnChange = EditChange
          end
          object TerminalCheckListBox: TCheckListBox
            Left = 8
            Top = 24
            Width = 193
            Height = 89
            OnClickCheck = EditChange
            Anchors = [akLeft, akTop, akRight]
            ItemHeight = 13
            Items.Strings = (
              'Auto-Detect'
              'Extended ASCII'
              'ANSI'
              'Color'
              'RIP'
              'WIP'
              'Pause'
              'Hot Keys'
              'Spinning Cursor')
            TabOrder = 1
          end
        end
        object GroupBox11: TGroupBox
          Left = 224
          Top = 8
          Width = 209
          Height = 113
          Caption = 'Logon'
          TabOrder = 1
          object LogonCheckListBox: TCheckListBox
            Left = 8
            Top = 24
            Width = 193
            Height = 73
            OnClickCheck = EditChange
            Anchors = [akLeft, akTop, akRight]
            ItemHeight = 13
            Items.Strings = (
              'Ask for New Message Scan'
              'Ask for Your Message Scan'
              'Remember Current Sub-board'
              'Quiet Mode (Q exempt)'
              'Auto-Logon via IP (V exempt)')
            TabOrder = 0
          end
        end
        object GroupBox13: TGroupBox
          Left = 224
          Top = 128
          Width = 209
          Height = 113
          Caption = 'Chat'
          TabOrder = 2
          object ChatCheckListBox: TCheckListBox
            Left = 8
            Top = 24
            Width = 193
            Height = 73
            OnClickCheck = EditChange
            Anchors = [akLeft, akTop, akRight]
            ItemHeight = 13
            Items.Strings = (
              'Multinode Chat Echo'
              'Multinode Chat Actions'
              'Available for Internode Chat'
              'Multinode Activity Alerts'
              'Split-screen Private Chat')
            TabOrder = 0
          end
        end
        object GroupBox15: TGroupBox
          Left = 8
          Top = 168
          Width = 209
          Height = 73
          Caption = 'Command Shell'
          TabOrder = 3
          object ShellEdit: TEdit
            Left = 8
            Top = 24
            Width = 73
            Height = 21
            CharCase = ecUpperCase
            TabOrder = 0
            OnChange = EditChange
          end
          object ExpertCheckBox: TCheckBox
            Left = 8
            Top = 48
            Width = 161
            Height = 17
            Caption = 'Expert Menu Mode'
            TabOrder = 1
            OnClick = EditChange
          end
        end
      end
      object MsgFileSettingsTabSheet: TTabSheet
        Caption = 'Msg/File Settings'
        ImageIndex = 4
        object GroupBox16: TGroupBox
          Left = 8
          Top = 8
          Width = 209
          Height = 97
          Caption = 'Message'
          TabOrder = 0
          object Label41: TLabel
            Left = 48
            Top = 64
            Width = 81
            Height = 21
            AutoSize = False
            Caption = 'External Editor'
          end
          object MessageCheckListBox: TCheckListBox
            Left = 8
            Top = 24
            Width = 193
            Height = 33
            OnClickCheck = EditChange
            Anchors = [akLeft, akTop, akRight]
            ItemHeight = 13
            Items.Strings = (
              'Forward Email to NetMail'
              'Clear Screen Between Messages')
            TabOrder = 0
          end
          object EditorEdit: TEdit
            Left = 128
            Top = 64
            Width = 73
            Height = 21
            Anchors = [akLeft, akTop, akRight]
            CharCase = ecUpperCase
            TabOrder = 1
            OnChange = EditChange
          end
        end
        object GroupBox12: TGroupBox
          Left = 224
          Top = 8
          Width = 209
          Height = 153
          Caption = 'File'
          TabOrder = 1
          object Label4: TLabel
            Left = 48
            Top = 120
            Width = 121
            Height = 21
            Anchors = [akLeft, akTop, akBottom]
            AutoSize = False
            Caption = 'Temp/QWK File Type'
          end
          object Label9: TLabel
            Left = 48
            Top = 88
            Width = 137
            Height = 21
            Anchors = [akLeft, akTop, akBottom]
            AutoSize = False
            Caption = 'Default Download Protocol'
          end
          object TempFileExtEdit: TEdit
            Left = 168
            Top = 120
            Width = 33
            Height = 21
            Anchors = [akLeft, akTop, akBottom]
            CharCase = ecUpperCase
            MaxLength = 3
            TabOrder = 0
            OnChange = EditChange
          end
          object ProtocolEdit: TEdit
            Left = 184
            Top = 88
            Width = 17
            Height = 21
            Anchors = [akLeft, akTop, akBottom]
            CharCase = ecUpperCase
            MaxLength = 1
            TabOrder = 1
            OnChange = EditChange
          end
          object FileCheckListBox: TCheckListBox
            Left = 8
            Top = 24
            Width = 193
            Height = 57
            OnClickCheck = EditChange
            Anchors = [akLeft, akRight, akBottom]
            ItemHeight = 13
            Items.Strings = (
              'Auto-New Scan'
              'Extended Descriptions'
              'Batch Flagging'
              'Auto-Hangup After Transfer')
            TabOrder = 2
          end
        end
        object GroupBox14: TGroupBox
          Left = 8
          Top = 112
          Width = 209
          Height = 129
          Caption = 'QWK Message Packet'
          TabOrder = 2
          object QWKCheckListBox: TCheckListBox
            Left = 8
            Top = 24
            Width = 193
            Height = 89
            OnClickCheck = EditChange
            Anchors = [akLeft, akTop, akRight]
            ItemHeight = 13
            Items.Strings = (
              'Include New Files List'
              'Include Unread Email'
              'Include ALL Email'
              'Delete Email After Download'
              'Include Messages From Self'
              'Expand Ctrl-A Codes to ANSI'
              'Strip Ctrl-A codes'
              'Include File Attachments'
              'Inlcude Index Files'
              'Include Time Zone (@TZ)'
              'Include Seen-Bys (@VIA)'
              'Extraneous Control Files')
            TabOrder = 0
          end
        end
      end
      object ExtendedCommentTabSheet: TTabSheet
        Caption = 'Extended Comment'
        ImageIndex = 5
        object Memo: TMemo
          Left = 8
          Top = 8
          Width = 425
          Height = 233
          ScrollBars = ssBoth
          TabOrder = 0
          OnChange = EditChange
        end
      end
    end
    object TopPanel: TPanel
      Left = 0
      Top = 41
      Width = 447
      Height = 40
      Align = alTop
      BevelOuter = bvNone
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object NumberLabel: TLabel
        Left = 288
        Top = 8
        Width = 49
        Height = 21
        AutoSize = False
        Caption = 'Number'
      end
      object AliasLabel: TLabel
        Left = 8
        Top = 8
        Width = 33
        Height = 21
        AutoSize = False
        Caption = 'Alias'
      end
      object NumberEdit: TEdit
        Left = 336
        Top = 8
        Width = 41
        Height = 21
        TabOrder = 1
        OnKeyPress = NumberEditKeyPress
      end
      object TotalStaticText: TStaticText
        Left = 384
        Top = 8
        Width = 57
        Height = 21
        AutoSize = False
        BorderStyle = sbsSunken
        TabOrder = 2
      end
      object AliasEdit: TEdit
        Left = 40
        Top = 8
        Width = 161
        Height = 21
        TabOrder = 0
        OnChange = EditChange
      end
    end
    object ToolBar: TToolBar
      Left = 0
      Top = 0
      Width = 447
      Height = 25
      EdgeBorders = [ebTop, ebBottom]
      EdgeOuter = esNone
      Flat = True
      Images = ImageList
      Indent = 4
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      object ToolButton2: TToolButton
        Left = 4
        Top = 0
        Action = NewUser
      end
      object ToolButton1: TToolButton
        Left = 27
        Top = 0
        Action = SaveUser
        Enabled = False
      end
      object ToolButton5: TToolButton
        Left = 50
        Top = 0
        Action = RefreshUser
      end
      object ToolButton3: TToolButton
        Left = 73
        Top = 0
        Action = DeleteUser
      end
      object ToolButton4: TToolButton
        Left = 96
        Top = 0
        Action = DeactivateUser
      end
      object ToolButton6: TToolButton
        Left = 119
        Top = 0
        Width = 7
        Caption = 'ToolButton6'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object FindEdit: TEdit
        Left = 126
        Top = 0
        Width = 121
        Height = 22
        TabOrder = 0
        OnKeyPress = FindEditKeyPress
      end
      object FindButton: TButton
        Left = 247
        Top = 0
        Width = 42
        Height = 22
        Caption = 'Find'
        TabOrder = 2