servermain.dfm

iocp小程序

object FmMain: TFmMain
  Left = 274
  Top = 220
  Width = 847
  Height = 661
  Caption = #23436#25104#31471#21475#26381#21153#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object spl1: TSplitter
    Left = 0
    Top = 328
    Width = 839
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object pnl1: TPanel
    Left = 0
    Top = 0
    Width = 839
    Height = 30
    Align = alTop
    TabOrder = 0
    DesignSize = (
      839
      30)
    object lbl1: TLabel
      Left = 8
      Top = 8
      Width = 48
      Height = 13
      Caption = #30417#21548#31471#21475
    end
    object edtPort: TEdit
      Left = 62
      Top = 4
      Width = 606
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
      Text = '8008'
    end
    object btnStart: TButton
      Left = 674
      Top = 4
      Width = 75
      Height = 23
      Anchors = [akTop, akRight]
      Caption = 'Start'
      TabOrder = 1
      OnClick = btnStartClick
    end
    object btnStop: TButton
      Left = 755
      Top = 4
      Width = 75
      Height = 23
      Anchors = [akTop, akRight]
      Caption = 'Stop'
      Enabled = False
      TabOrder = 2
      OnClick = btnStopClick
    end
  end
  object stat1: TStatusBar
    Left = 0
    Top = 615
    Width = 839
    Height = 19
    Panels = <
      item
        Width = 400
      end
      item
        Width = 50
      end>
  end
  object pnl6: TPanel
    Left = 0
    Top = 331
    Width = 839
    Height = 284
    Align = alBottom
    TabOrder = 2
    object spl3: TSplitter
      Left = 1
      Top = 125
      Width = 837
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object grp3: TGroupBox
      Left = 1
      Top = 128
      Width = 837
      Height = 155
      Align = alBottom
      Caption = #38169#35823#20449#24687
      TabOrder = 0
      object mmoError: TMemo
        Left = 2
        Top = 15
        Width = 833
        Height = 138
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object grp2: TGroupBox
      Left = 1
      Top = 1
      Width = 837
      Height = 124
      Align = alClient
      Caption = #36816#34892'LOG'
      TabOrder = 1
      object mmoLog: TMemo
        Left = 2
        Top = 15
        Width = 833
        Height = 107
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object pnl5: TPanel
    Left = 0
    Top = 30
    Width = 839
    Height = 298
    Align = alClient
    TabOrder = 3
    object grp1: TGroupBox
      Left = 1
      Top = 35
      Width = 837
      Height = 262
      Align = alClient
      Caption = #25910#21040#30340#25968#25454
      TabOrder = 0
      object mmoMessage: TMemo
        Left = 2
        Top = 15
        Width = 833
        Height = 245
        Align = alClient
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object pnl2: TPanel
      Left = 1
      Top = 1
      Width = 837
      Height = 34
      Align = alTop
      TabOrder = 1
      DesignSize = (
        837
        34)
      object lbl2: TLabel
        Left = 8
        Top = 8
        Width = 36
        Height = 13
        Caption = #23458#25143#31471
      end
      object btnSend: TButton
        Left = 753
        Top = 5
        Width = 75
        Height = 23
        Anchors = [akTop, akRight]
        Caption = 'Send'
        TabOrder = 0
        OnClick = btnSendClick
      end
      object edtSend: TEdit
        Left = 416
        Top = 7
        Width = 329
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 1
        Text = #26381#21153#22120#21457#36865#27979#35797#25968#25454
      end
      object cbbClient: TComboBox
        Left = 48
        Top = 7
        Width = 361
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 2
        OnDropDown = cbbClientDropDown
      end
    end
  end
  object tmrMemory: TTimer
    Interval = 100
    OnTimer = tmrMemoryTimer
    Left = 225
    Top = 507
  end
end