dbsmain.~dfm

来自「2009最新 传奇汉化0599代码 传奇汉化」· ~DFM 代码 · 共 269 行

object FrmDBSrv: TFrmDBSrv
  Left = 392
  Top = 273
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25968#25454#24211#26381#21153#22120
  ClientHeight = 213
  ClientWidth = 389
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object MemoLog: TMemo
    Left = 0
    Top = 65
    Width = 389
    Height = 101
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 389
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 1
    object Label1: TLabel
      Left = 10
      Top = 14
      Width = 54
      Height = 12
      Alignment = taCenter
      Caption = #26410#36830#25509'!!!'
    end
    object Label3: TLabel
      Left = 13
      Top = 1
      Width = 36
      Height = 12
      Caption = 'Label3'
    end
    object Label4: TLabel
      Left = 63
      Top = 1
      Width = 41
      Height = 16
      Caption = 'Label4'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LbAutoClean: TLabel
      Left = 296
      Top = 1
      Width = 42
      Height = 16
      Alignment = taRightJustify
      Caption = 'LbAuto'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LbTransCount: TLabel
      Left = 215
      Top = 13
      Width = 72
      Height = 12
      Caption = 'LbTransCount'
    end
    object Label2: TLabel
      Left = 130
      Top = 13
      Width = 54
      Height = 12
      Alignment = taRightJustify
      Caption = #36830#25509#25968': 0'
    end
    object Label6: TLabel
      Left = 10
      Top = 32
      Width = 66
      Height = 12
      Caption = #29992#25143#36830#25509#25968':'
    end
    object LbUserCount: TLabel
      Left = 80
      Top = 32
      Width = 36
      Height = 12
      Caption = '000000'
    end
    object Label8: TLabel
      Left = 10
      Top = 48
      Width = 36
      Height = 12
      Caption = 'Label8'
    end
    object Label9: TLabel
      Left = 100
      Top = 48
      Width = 36
      Height = 12
      Caption = 'Label9'
    end
    object Label10: TLabel
      Left = 190
      Top = 48
      Width = 42
      Height = 12
      Caption = 'Label10'
    end
    object Label11: TLabel
      Left = 280
      Top = 48
      Width = 42
      Height = 12
      Caption = 'Label11'
    end
    object CkViewHackMsg: TCheckBox
      Left = 190
      Top = 24
      Width = 141
      Height = 21
      Caption = #26597#30475#24322#24120#20449#24687
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = CkViewHackMsgClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 166
    Width = 389
    Height = 47
    Align = alBottom
    BevelOuter = bvNone
    Caption = ' '
    Color = clSkyBlue
    TabOrder = 2
    object Label5: TLabel
      Left = 0
      Top = 0
      Width = 389
      Height = 31
      Align = alTop
      AutoSize = False
      Color = clGreen
      ParentColor = False
      Transparent = True
      Visible = False
      WordWrap = True
    end
    object BtnUserDBTool: TSpeedButton
      Left = 10
      Top = 12
      Width = 111
      Height = 26
      Caption = #20154#29289#25968#25454#31649#29702
      OnClick = BtnUserDBToolClick
    end
    object BtnReloadAddr: TButton
      Left = 144
      Top = 12
      Width = 107
      Height = 26
      Caption = #21152#36733#32593#20851#37197#32622
      TabOrder = 0
      OnClick = BtnReloadAddrClick
    end
    object BtnEditAddrs: TButton
      Left = 270
      Top = 12
      Width = 109
      Height = 26
      Caption = #28216#25103#32593#20851#35774#32622
      TabOrder = 1
      OnClick = BtnEditAddrsClick
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 6000
    ServerType = stNonBlocking
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 60
    Top = 72
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 268
    Top = 80
  end
  object AniTimer: TTimer
    Interval = 300
    OnTimer = AniTimerTimer
    Left = 236
    Top = 80
  end
  object StartTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = StartTimerTimer
    Left = 236
    Top = 112
  end
  object Timer2: TTimer
    Interval = 5000
    OnTimer = Timer2Timer
    Left = 268
    Top = 112
  end
  object MainMenu: TMainMenu
    Left = 184
    Top = 88
    object MENU_CONTROL: TMenuItem
      Caption = #25511#21046'(&C)'
      object Exit1: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = Exit1Click
      end
    end
    object MENU_OPTION: TMenuItem
      Caption = #36873#39033'(&O)'
      object MENU_OPTION_GAMEGATE: TMenuItem
        Caption = #32593#20851#35774#32622'(&R)'
        OnClick = MENU_CONTROL_STARTClick
      end
    end
    object MENU_MANAGE: TMenuItem
      Caption = #31649#29702'(&M)'
      object MENU_MANAGE_DATA: TMenuItem
        Caption = #25968#25454#31649#29702'(&D)'
        OnClick = MENU_MANAGE_DATAClick
      end
      object MENU_MANAGE_TOOL: TMenuItem
        Caption = #25968#25454#24037#20855'(&T)'
        OnClick = MENU_MANAGE_TOOLClick
      end
    end
  end
end