fstate.dfm

来自「2009最新 传奇汉化0599代码 传奇汉化」· DFM 代码 · 共 2,795 行 · 第 1/5 页

object FrmDlg: TFrmDlg
  Left = 206
  Top = 128
  Width = 1000
  Height = 755
  Caption = 'FrmDlg'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object DBackground: TDWindow
    Left = 0
    Top = 0
    Width = 992
    Height = 728
    OnMouseDown = DBackgroundMouseDown
    OnBackgroundClick = DBackgroundBackgroundClick
    Caption = 'DBackground'
    Visible = True
    EnableFocus = False
    Align = alClient
    ClickCount = csNorm
    Floating = True
  end
  object DStateWin: TDWindow
    Left = 504
    Top = 10
    Width = 161
    Height = 207
    OnDirectPaint = DStateWinDirectPaint
    OnMouseMove = DStateWinMouseMove
    OnClick = DStateWinClick
    Caption = 'DStateWindow'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DItemBag: TDWindow
    Left = 208
    Top = 128
    Width = 125
    Height = 121
    OnDirectPaint = DItemBagDirectPaint
    Caption = 'DItemBag'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DBottom: TDWindow
    Left = 12
    Top = 368
    Width = 381
    Height = 97
    OnDirectPaint = DBottomDirectPaint
    OnMouseMove = DBotMouseMove
    OnMouseDown = DBottomMouseDown
    OnInRealArea = DBottomInRealArea
    Caption = 'DBottom'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DMyState: TDButton
    Left = 244
    Top = 404
    Width = 29
    Height = 25
    OnDirectPaint = DMyStateDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DMyStateClick
    Caption = 'State'
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ShowHint = True
    ClickCount = csGlass
    OnClickSound = DLoginNewClickSound
  end
  object DMyBag: TDButton
    Left = 280
    Top = 392
    Width = 25
    Height = 25
    OnDirectPaint = DMyStateDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DMyStateClick
    Caption = 'Bag'
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csGlass
    OnClickSound = DLoginNewClickSound
  end
  object DMyMagic: TDButton
    Left = 316
    Top = 380
    Width = 29
    Height = 25
    OnDirectPaint = DMyStateDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DMyStateClick
    Caption = 'Magic'
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csGlass
    OnClickSound = DLoginNewClickSound
  end
  object DOption: TDButton
    Left = 356
    Top = 376
    Width = 29
    Height = 25
    OnDirectPaint = DMyStateDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DMyStateClick
    Caption = 'Option'
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csGlass
    OnClickSound = DLoginNewClickSound
  end
  object DGold: TDButton
    Left = 216
    Top = 204
    Width = 37
    Height = 29
    OnDirectPaint = DGoldDirectPaint
    OnClick = DGoldClick
    Caption = 'Gold'
    DParent = DItemBag
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DPrevState: TDButton
    Left = 644
    Top = 64
    Width = 29
    Height = 33
    OnDirectPaint = DPrevStateDirectPaint
    OnClick = DPrevStateClick
    Caption = 'Prior'
    DParent = DStateWin
    Visible = True
    EnableFocus = False
    ClickCount = csGlass
    OnClickSound = DLoginNewClickSound
  end
  object DRepairItem: TDButton
    Left = 260
    Top = 208
    Width = 37
    Height = 25
    OnDirectPaint = DRepairItemDirectPaint
    OnClick = DRepairItemClick
    OnInRealArea = DRepairItemInRealArea
    Caption = 'Use'
    DParent = DItemBag
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DCloseBag: TDButton
    Left = 304
    Top = 204
    Width = 21
    Height = 33
    OnDirectPaint = DCloseBagDirectPaint
    OnClick = DCloseBagClick
    Caption = 'Close'
    DParent = DItemBag
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DCloseState: TDButton
    Left = 644
    Top = 12
    Width = 21
    Height = 21
    OnDirectPaint = DPrevStateDirectPaint
    OnClick = DCloseStateClick
    Caption = 'X'
    DParent = DStateWin
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DLogIn: TDWindow
    Left = 11
    Top = 8
    Width = 136
    Height = 109
    Caption = 'DLogIn'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DLoginNew: TDButton
    Left = 20
    Top = 88
    Width = 33
    Height = 21
    OnDirectPaint = DLoginNewDirectPaint
    OnClick = DLoginNewClick
    Caption = 'New'
    DParent = DLogIn
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DLoginOk: TDButton
    Left = 100
    Top = 64
    Width = 37
    Height = 21
    OnDirectPaint = DLoginNewDirectPaint
    OnClick = DLoginOkClick
    Caption = 'OK'
    DParent = DLogIn
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DNewAccount: TDWindow
    Left = 152
    Top = 8
    Width = 81
    Height = 109
    OnDirectPaint = DNewAccountDirectPaint
    Caption = 'DNewAccount'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DNewAccountOk: TDButton
    Left = 160
    Top = 88
    Width = 31
    Height = 21
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DNewAccountOkClick
    Caption = 'Ok'
    DParent = DNewAccount
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DLoginClose: TDButton
    Left = 116
    Top = 16
    Width = 21
    Height = 21
    OnDirectPaint = DLoginNewDirectPaint
    OnClick = DLoginCloseClick
    Caption = 'X'
    DParent = DLogIn
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DNewAccountClose: TDButton
    Left = 196
    Top = 16
    Width = 21
    Height = 21
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DNewAccountCloseClick
    Caption = 'X'
    DParent = DNewAccount
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DSelectChr: TDWindow
    Left = 12
    Top = 124
    Width = 189
    Height = 133
    OnClick = DSelectChrClick
    Caption = 'DSelectChr'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DscSelect1: TDButton
    Left = 20
    Top = 152
    Width = 57
    Height = 21
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscSelect1'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DscSelect2: TDButton
    Left = 20
    Top = 176
    Width = 61
    Height = 21
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscSelect2'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DscStart: TDButton
    Left = 84
    Top = 136
    Width = 102
    Height = 17
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscStart'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscNewChr: TDButton
    Left = 84
    Top = 156
    Width = 106
    Height = 17
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscNewChr'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscEraseChr: TDButton
    Left = 84
    Top = 180
    Width = 106
    Height = 17
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscEraseChr'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscCredits: TDButton
    Left = 84
    Top = 200
    Width = 106
    Height = 17
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscCredits'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscExit: TDButton
    Left = 84
    Top = 224
    Width = 106
    Height = 21
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscExit'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DCreateChr: TDWindow
    Left = 352
    Top = 8
    Width = 145
    Height = 121
    OnDirectPaint = DCreateChrDirectPaint
    Caption = 'DCreateChr'
    DParent = DSelectChr
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DccWarrior: TDButton
    Tag = 55
    Left = 362
    Top = 20
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '??'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccWizzard: TDButton
    Tag = 56
    Left = 394
    Top = 20
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '??'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccMonk: TDButton
    Tag = 57
    Left = 426
    Top = 20
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '??'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccReserved: TDButton
    Left = 458
    Top = 20
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '?'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccMale: TDButton
    Tag = 58
    Left = 362
    Top = 52
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '?'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccFemale: TDButton
    Tag = 59
    Left = 394
    Top = 52
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '?'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccLeftHair: TDButton
    Left = 426
    Top = 56
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '<-'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccRightHair: TDButton
    Left = 466
    Top = 56
    Width = 29
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '->'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccOk: TDButton
    Left = 394
    Top = 88
    Width = 57
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = 'O K'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccClose: TDButton
    Left = 470
    Top = 16