fmain.dfm

来自「FIR引擎最新源码+注册」· DFM 代码 · 共 113 行

object frmLMain: TfrmLMain
  Left = 264
  Top = 73
  Width = 429
  Height = 259
  Caption = #39134#23572#19990#30028#28216#25103#24341#25806#25480#26435#26381#21153#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 121
    Width = 421
    Height = 84
    Align = alBottom
    TabOrder = 0
    object GridGate: TStringGrid
      Left = 1
      Top = 1
      Width = 419
      Height = 82
      Align = alClient
      FixedCols = 0
      TabOrder = 0
      ColWidths = (
        31
        127
        78
        82
        72)
    end
  end
  object MemoLog: TMemo
    Left = 0
    Top = 0
    Width = 421
    Height = 121
    Align = alClient
    Lines.Strings = (
      'MemoLog')
    ScrollBars = ssBoth
    TabOrder = 1
    OnChange = MemoLogChange
  end
  object ServerSocket: TServerSocket
    Active = False
    Address = '0.0.0.0'
    Port = 123
    ServerType = stNonBlocking
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 128
    Top = 16
  end
  object DecodeTime: TTimer
    Enabled = False
    Interval = 1
    OnTimer = DecodeTimeTimer
    Top = 16
  end
  object MainMenu: TMainMenu
    Left = 96
    Top = 16
    object MENU_CONTROL: TMenuItem
      Caption = #25511#21046'(&C)'
      object MENU_CONTROL_EXIT: TMenuItem
        Caption = #36864#20986'(&X)'
      end
    end
    object V1: TMenuItem
      Caption = #26597#30475'(&V)'
    end
    object MENU_OPTION: TMenuItem
      Caption = #36873#39033'(&O)'
    end
    object N1: TMenuItem
      Caption = #24037#20855
      object IP1: TMenuItem
        Caption = #33719#21462'IP'#20540
        OnClick = IP1Click
      end
      object N2: TMenuItem
        Caption = #27979#35797
        OnClick = N2Click
      end
    end
  end
  object StartTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = StartTimerTimer
    Left = 32
    Top = 16
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 64
    Top = 16
  end
end