fidhum.~dfm

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

object FrmIDHum: TFrmIDHum
  Left = 249
  Top = 154
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20154#29289#31649#29702
  ClientHeight = 389
  ClientWidth = 617
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 568
    Top = 508
    Width = 36
    Height = 12
    Caption = 'lAbEl1'
  end
  object Label3: TLabel
    Left = 222
    Top = 15
    Width = 54
    Height = 12
    Caption = #20154#29289#21517#31216':'
  end
  object Label4: TLabel
    Left = 10
    Top = 34
    Width = 54
    Height = 12
    Caption = #24080#21495#21015#34920':'
    Visible = False
  end
  object Label5: TLabel
    Left = 10
    Top = 138
    Width = 54
    Height = 12
    Caption = #20154#29289#21015#34920':'
  end
  object BtnCreateChr: TSpeedButton
    Left = 10
    Top = 330
    Width = 79
    Height = 23
    Caption = #21019#24314#20154#29289'(&C)'
    OnClick = BtnCreateChrClick
  end
  object BtnEraseChr: TSpeedButton
    Left = 96
    Top = 330
    Width = 81
    Height = 23
    Caption = #21024#38500#20154#29289'(&D)'
    OnClick = BtnEraseChrClick
  end
  object BtnChrNameSearch: TSpeedButton
    Left = 404
    Top = 10
    Width = 61
    Height = 23
    Caption = #26597#25214'(&F)'
    OnClick = BtnChrNameSearchClick
  end
  object BtnSelAll: TSpeedButton
    Left = 476
    Top = 10
    Width = 85
    Height = 23
    Caption = #27169#31946#26597#25214'(S)'
    OnClick = BtnSelAllClick
  end
  object BtnDeleteChr: TSpeedButton
    Left = 182
    Top = 330
    Width = 83
    Height = 23
    Caption = #31105#29992#20154#29289'(&D)'
    OnClick = BtnDeleteChrClick
  end
  object BtnRevival: TSpeedButton
    Left = 268
    Top = 330
    Width = 77
    Height = 23
    Caption = #21551#29992#20154#29289'(&U)'
    OnClick = BtnRevivalClick
  end
  object SpeedButton1: TSpeedButton
    Left = 10
    Top = 362
    Width = 279
    Height = 23
    Caption = #20154#29289#25968#25454#31649#29702'(&M)'
    OnClick = SpeedButton1Click
  end
  object Label2: TLabel
    Left = 10
    Top = 15
    Width = 54
    Height = 12
    Caption = #30331#24405#24080#21495':'
  end
  object BtnDeleteChrAllInfo: TSpeedButton
    Left = 298
    Top = 362
    Width = 279
    Height = 23
    Caption = #21024#38500#20154#29289#21450#25968#25454'(&R)'
    OnClick = BtnDeleteChrAllInfoClick
  end
  object SpeedButton2: TSpeedButton
    Left = 354
    Top = 330
    Width = 103
    Height = 23
    Caption = #31105#29992#32034#24341#21495'(N)'
    OnClick = SpeedButton2Click
  end
  object LabelCount: TLabel
    Left = 90
    Top = 170
    Width = 6
    Height = 12
  end
  object SpeedButtonEditData: TSpeedButton
    Left = 460
    Top = 330
    Width = 93
    Height = 23
    Caption = #32534#36753#25968#25454'(&E)'
    OnClick = SpeedButtonEditDataClick
  end
  object Edit1: TEdit
    Left = 260
    Top = 500
    Width = 141
    Height = 25
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '??'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 414
    Top = 500
    Width = 141
    Height = 25
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '??'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = 'fds'
    OnKeyPress = Edit2KeyPress
  end
  object EdChrName: TEdit
    Left = 278
    Top = 10
    Width = 115
    Height = 20
    TabOrder = 2
    OnKeyPress = EdChrNameKeyPress
  end
  object IdGrid: TStringGrid
    Left = 10
    Top = 54
    Width = 599
    Height = 75
    ColCount = 8
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing]
    TabOrder = 3
    Visible = False
    ColWidths = (
      69
      70
      77
      95
      70
      78
      194
      64)
  end
  object ChrGrid: TStringGrid
    Left = 10
    Top = 158
    Width = 599
    Height = 163
    ColCount = 7
    DefaultRowHeight = 18
    FixedCols = 0
    RowCount = 8
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing]
    TabOrder = 4
    OnClick = ChrGridClick
    OnDblClick = ChrGridDblClick
    ColWidths = (
      66
      74
      75
      80
      159
      64
      64)
  end
  object CbShowDelChr: TCheckBox
    Left = 282
    Top = 36
    Width = 137
    Height = 13
    Caption = #26174#31034#24050#31105#29992#20154#29289
    Checked = True
    State = cbChecked
    TabOrder = 5
  end
  object Button1: TButton
    Left = 10
    Top = 495
    Width = 206
    Height = 31
    Caption = 'Refresh Manager Info'
    TabOrder = 6
    OnClick = Button1Click
  end
  object EdUserId: TEdit
    Left = 69
    Top = 10
    Width = 140
    Height = 20
    TabOrder = 7
    OnKeyPress = EdUserIdKeyPress
  end
  object Query1: TQuery
    DatabaseName = 'mud_db'
    Left = 464
    Top = 504
  end
end