mainform.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 1,078 行 · 第 1/4 页

object frmMain: TfrmMain
  Left = 272
  Top = 187
  Width = 550
  Height = 331
  Caption = 'SSH Indy chat server demo'
  Color = clBtnFace
  Constraints.MinHeight = 331
  Constraints.MinWidth = 550
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000FFFF0DDDD0FFFF0000000DDDD00000000CC000DD000CC000000
    000DD00000000000000DD00000000000000DD00000000FFFF0DDDD0FFFF00000
    00DDDD00000000CC000DD000CC000000000DD000000000000000000000000000
    00FFFF00000000000000000000000000000EE0000000000000000000000003C0
    000000000000000000008661000086610000FE7F000002400000000000000000
    00008661000086610000F81F0000F81F0000F81F0000FC3F0000FC3F0000}
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 285
    Width = 542
    Height = 19
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 153
    Height = 285
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 29
      Width = 151
      Height = 16
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Caption = ' Client Connections'
      TabOrder = 0
    end
    object lbClients: TListBox
      Left = 1
      Top = 45
      Width = 151
      Height = 239
      Hint = 'All currently active clients names are listed here.'
      Align = alClient
      ItemHeight = 13
      TabOrder = 1
      OnClick = lbClientsClick
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 151
      Height = 28
      AutoSize = True
      ButtonHeight = 26
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = [ebBottom]
      Flat = True
      Images = ImageList1
      Indent = 8
      TabOrder = 2
      object btnServerUp: TToolButton
        Left = 8
        Top = 0
        Hint = 'Start up server'
        Caption = 'btnServerUp'
        ImageIndex = 0
        Style = tbsCheck
        OnClick = btnServerUpClick
      end
      object ToolButton1: TToolButton
        Left = 39
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object btnClients: TToolButton
        Left = 47
        Top = 0
        Hint = 'Refresh Client List'
        Caption = 'btnClients'
        Enabled = False
        ImageIndex = 3
        OnClick = btnClientsClick
      end
      object btnKillClient: TToolButton
        Left = 78
        Top = 0
        Hint = 'Disconnect Client'
        Caption = 'btnKillClient'
        Enabled = False
        ImageIndex = 2
        OnClick = btnKillClientClick
      end
    end
  end
  object pcMain: TPageControl
    Left = 153
    Top = 0
    Width = 389
    Height = 285
    ActivePage = tsUsers
    Align = alClient
    TabOrder = 2
    object tsServerInformation: TTabSheet
      Caption = 'Server Information'
      ImageIndex = 2
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 55
        Height = 13
        Caption = 'Local DNS:'
      end
      object lblDNS: TLabel
        Left = 64
        Top = 8
        Width = 48
        Height = 13
        Caption = 'LocalHost'
      end
      object Label4: TLabel
        Left = 8
        Top = 32
        Width = 67
        Height = 13
        Caption = 'Resident Port:'
      end
      object Label6: TLabel
        Left = 8
        Top = 80
        Width = 96
        Height = 13
        Caption = 'Inital entry message:'
      end
      object Label7: TLabel
        Left = 8
        Top = 160
        Width = 39
        Height = 13
        Caption = 'E-Motes'
      end
      object Label12: TLabel
        Left = 168
        Top = 31
        Width = 63
        Height = 13
        Caption = 'Sysop Name:'
      end
      object lServerKey: TLabel
        Left = 8
        Top = 57
        Width = 58
        Height = 13
        Caption = 'Server Key :'
      end
      object lServerKeyInfo: TLabel
        Left = 72
        Top = 57
        Width = 56
        Height = 13
        Caption = '(not loaded)'
      end
      object seBinding: TSpinEdit
        Left = 80
        Top = 28
        Width = 65
        Height = 22
        Hint = 
          'Sets the port that the server will be running on.'#13#10'(The port wil' +
          'l be bound by the system, so make'#13#10' sure that it isn'#39't allredi i' +
          'n use by another program)'#13#10'Some example ports are:'#13#10'  007 - Echo' +
          #13#10'  023 - Telnet'#13#10'  025 - SMTP Mail'#13#10'  079 - Finger'#13#10'  080 - HTT' +
          'P'#13#10'  119 - NNTP News'#13#10'  517 - Talk'#13#10'  '
        MaxValue = 65535
        MinValue = 7
        TabOrder = 0
        Value = 23
        OnChange = seBindingChange
      end
      object memEntry: TMemo
        Left = 0
        Top = 96
        Width = 380
        Height = 57
        Hint = 
          'This is the message that the user will see when they first log i' +
          'nto the server.'#13#10'(This is after they have entered their user nam' +
          'e)'
        Anchors = [akLeft, akTop, akRight]
        Lines.Strings = (
          'Welcome to SSH chat demo!!'
          'Type /help to receive list of available emotes.')
        PopupMenu = puLogMenu
        TabOrder = 1
        WordWrap = False
      end
      object memEMotes: TMemo
        Left = 0
        Top = 176
        Width = 380
        Height = 80
        Hint = 
          'These are simple Emotion Replacments that you can add to.  The f' +
          'ormat is as follows:'#13#10'<EMOTE>=<REPLACE TEXT>'#13#10'for example:'#13#10'/gri' +
          'n=%s grins.'#13#10'so if someone named Garry types /grin everyone else' +
          ' will see: Garry grins.'#13#10'%s will be replaced with the senders na' +
          'me.'
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          '/help=Here are the EMotes: /grin, /lol, /kiss, /rose'
          '/grin=%s grins.'
          '/lol=%s Laughs out loud.'
          '/kiss=%s blows everyone a big kiss.'
          '/rose=A @--'#39'--- for you from %s.')
        PopupMenu = puLogMenu
        TabOrder = 2
      end
      object edSysopName: TEdit
        Left = 232
        Top = 28
        Width = 145
        Height = 21
        Hint = 
          'This is the name that will apear when you send a message.'#13#10'(This' +
          ' name cannot be changed while the server is online)'
        Anchors = [akLeft, akTop, akRight]
        AutoSelect = False
        TabOrder = 3
        Text = 'Sysop'
      end
      object btnLoadKey: TButton
        Left = 304
        Top = 57
        Width = 75
        Height = 20
        Caption = 'Load key'
        TabOrder = 4
        OnClick = btnLoadKeyClick
      end
    end
    object tsClientInformation: TTabSheet
      Caption = 'Client Information'
      ImageIndex = 1
      object lClientName: TLabel
        Left = 0