main.dfm

原版翎风(LF)引擎(M2)源码(Delphi)

object FrmMain: TFrmMain
  Left = 352
  Top = 190
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 193
  ClientWidth = 269
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar: TStatusBar
    Left = 0
    Top = 173
    Width = 269
    Height = 20
    Panels = <
      item
        Alignment = taCenter
        Text = '????'
        Width = 45
      end
      item
        Alignment = taCenter
        Text = #26410#36830#25509
        Width = 60
      end
      item
        Alignment = taCenter
        Text = '????'
        Width = 70
      end
      item
        Alignment = taCenter
        Text = '????'
        Width = 50
      end>
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 269
    Height = 173
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #26381#21153#22120#26085#24535
      object Label1: TLabel
        Left = 51
        Top = 8
        Width = 204
        Height = 12
        Caption = #20013#22269'Lom2'#24320#21457#32852#30431#28216#25103#36890#35759#32593#20851#26381#21153#22120
      end
      object MemoLog: TMemo
        Left = 0
        Top = 0
        Width = 261
        Height = 146
        Align = alClient
        Color = clMenuText
        Font.Charset = ANSI_CHARSET
        Font.Color = clLime
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssHorizontal
        TabOrder = 0
        OnChange = MemoLogChange
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36890#35759#20449#24687
      ImageIndex = 1
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 261
        Height = 209
        Align = alTop
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 0
        object LbLack: TLabel
          Left = 12
          Top = 57
          Width = 18
          Height = 12
          Caption = '0/0'
        end
        object GroupBox1: TGroupBox
          Left = 9
          Top = 8
          Width = 243
          Height = 73
          Caption = #32593#32476#27969#37327
          TabOrder = 0
          object LabelReviceMsgSize: TLabel
            Left = 12
            Top = 21
            Width = 30
            Height = 12
            Caption = #25509#25910':'
          end
          object LabelSendBlockSize: TLabel
            Left = 12
            Top = 37
            Width = 30
            Height = 12
            Caption = #21457#36865':'
          end
          object LabelLogonMsgSize: TLabel
            Left = 92
            Top = 21
            Width = 30
            Height = 12
            Caption = #30331#38470':'
          end
          object LabelPlayMsgSize: TLabel
            Left = 92
            Top = 37
            Width = 30
            Height = 12
            Caption = #26222#36890':'
          end
          object LabelDeCodeMsgSize: TLabel
            Left = 172
            Top = 21
            Width = 30
            Height = 12
            Caption = #35299#30721':'
          end
          object LabelProcessMsgSize: TLabel
            Left = 172
            Top = 37
            Width = 30
            Height = 12
            Caption = #32534#30721':'
          end
          object LabelBufferOfM2Size: TLabel
            Left = 12
            Top = 53
            Width = 66
            Height = 12
            Caption = #26381#21153#22120#36890#35759':'
          end
          object LabelSelfCheck: TLabel
            Left = 132
            Top = 53
            Width = 54
            Height = 12
            Caption = #36890#35759#33258#26816':'
          end
        end
        object GroupBoxProcessTime: TGroupBox
          Left = 9
          Top = 83
          Width = 243
          Height = 54
          Caption = #22788#29702#26102#38388
          TabOrder = 1
          object LabelSendTime: TLabel
            Left = 12
            Top = 32
            Width = 30
            Height = 12
            Caption = #21457#36865':'
          end
          object LabelReceTime: TLabel
            Left = 12
            Top = 16
            Width = 30
            Height = 12
            Caption = #25509#25910':'
          end
          object LabelLoop: TLabel
            Left = 188
            Top = 16
            Width = 54
            Height = 12
            Caption = #25968#25454#22788#29702':'
          end
          object LabelReviceLimitTime: TLabel
            Left = 76
            Top = 16
            Width = 78
            Height = 12
            Caption = #25509#25910#22788#29702#38480#21046':'
          end
          object LabelSendLimitTime: TLabel
            Left = 76
            Top = 32
            Width = 78
            Height = 12
            Caption = #21457#36865#22788#29702#38480#21046':'
          end
          object LabelLoopTime: TLabel
            Left = 188
            Top = 32
            Width = 48
            Height = 12
            Alignment = taCenter
            AutoSize = False
            Caption = '--------'
          end
        end
      end
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 42
  end
  object SendTimer: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = SendTimerTimer
    Left = 77
  end
  object ClientSocket: TClientSocket
    Active = False
    Address = '127.0.0.1'
    ClientType = ctNonBlocking
    Port = 50000
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 10
  end
  object Timer: TTimer
    OnTimer = TimerTimer
    Left = 108
  end
  object DecodeTimer: TTimer
    Interval = 1
    OnTimer = DecodeTimerTimer
    Left = 170
  end
  object MainMenu: TMainMenu
    Left = 203
    object MENU_CONTROL: TMenuItem
      Caption = #25511#21046
      object MENU_CONTROL_START: TMenuItem
        Caption = #21551#21160#26381#21153
        ShortCut = 16467
        OnClick = MENU_CONTROL_STARTClick
      end
      object MENU_CONTROL_STOP: TMenuItem
        Caption = #20572#27490#26381#21153
        ShortCut = 16468
        OnClick = MENU_CONTROL_STOPClick
      end
      object MENU_CONTROL_RECONNECT: TMenuItem
        Caption = #21047#26032#36830#25509
        ShortCut = 16466
        OnClick = MENU_CONTROL_RECONNECTClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MENU_CONTROL_RELOADCONFIG: TMenuItem
        Caption = #37325#26032#21152#36733#37197#32622
        OnClick = MENU_CONTROL_RELOADCONFIGClick
      end
      object MENU_CONTROL_CLEAELOG: TMenuItem
        Caption = #28165#38500#26085#24535
        ShortCut = 16451
        OnClick = MENU_CONTROL_CLEAELOGClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MENU_CONTROL_EXIT: TMenuItem
        Caption = #36864#20986
        ShortCut = 16472
        OnClick = MENU_CONTROL_EXITClick
      end
    end
    object MENU_OPTION: TMenuItem
      Caption = #35774#32622
      object MENU_OPTION_GENERAL: TMenuItem
        Caption = #22522#26412#35774#32622
        ShortCut = 16455
        OnClick = MENU_OPTION_GENERALClick
      end
      object MENU_OPTION_PERFORM: TMenuItem
        Caption = #21442#25968#35774#32622
        ShortCut = 16464
        OnClick = MENU_OPTION_PERFORMClick
      end
      object MENU_OPTION_IPFILTER: TMenuItem
        Caption = #23433#20840#36807#28388
        ShortCut = 16454
        OnClick = MENU_OPTION_IPFILTERClick
      end
      object MENU_OPTION_FILTERMSG: TMenuItem
        Caption = #23383#31526#36807#28388
        ShortCut = 16449
        OnClick = MENU_OPTION_FILTERMSGClick
      end
    end
    object N4: TMenuItem
      Caption = #24110#21161
      object N5: TMenuItem
        Caption = #20851#20110
        OnClick = N5Click
      end
    end
  end
  object StartTimer: TTimer
    Interval = 200
    OnTimer = StartTimerTimer
    Left = 140
  end
  object PopupMenu: TPopupMenu
    Left = 200
    Top = 32
    object POPMENU_PORT: TMenuItem
      AutoHotkeys = maManual
      Caption = '??'
    end
    object POPMENU_CONNSTAT: TMenuItem
      AutoHotkeys = maManual
      Caption = '????'
    end
    object POPMENU_CONNCOUNT: TMenuItem
      AutoHotkeys = maManual
      Caption = '???'
    end
    object POPMENU_CHECKTICK: TMenuItem
      AutoHotkeys = maManual
      Caption = '????'
    end
    object N1: TMenuItem
      Caption = '--------------------'
    end
    object POPMENU_OPEN: TMenuItem
      Caption = '????(&O)'
    end
    object POPMENU_START: TMenuItem
      Caption = '????(&S)'
      OnClick = MENU_CONTROL_STARTClick
    end
    object POPMENU_CONNSTOP: TMenuItem
      Caption = '????(&T)'
      OnClick = MENU_CONTROL_STOPClick
    end
    object POPMENU_RECONN: TMenuItem
      Caption = '????(&R)'
      OnClick = MENU_CONTROL_RECONNECTClick
    end
    object POPMENU_EXIT: TMenuItem
      Caption = '??(&X)'
      OnClick = MENU_CONTROL_EXITClick
    end
  end
end