fstate.dfm

传奇源代码的delphi版本

object FrmDlg: TFrmDlg
  Left = 99
  Top = 92
  Width = 941
  Height = 663
  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 = 933
    Height = 629
    OnMouseDown = DBackgroundMouseDown
    OnBackgroundClick = DBackgroundBackgroundClick
    Caption = 'DBackground'
    Visible = True
    EnableFocus = False
    Align = alClient
    ClickCount = csNorm
    Floating = True
  end
  object DStateWin: TDWindow
    Left = 482
    Top = 3
    Width = 139
    Height = 154
    OnDirectPaint = DStateWinDirectPaint
    OnMouseMove = DStateWinMouseMove
    OnClick = DStateWinClick
    Caption = 'DStateWindow'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DItemBag: TDWindow
    Left = 188
    Top = 144
    Width = 93
    Height = 63
    OnDirectPaint = DItemBagDirectPaint
    OnClick = DItemBagClick
    Caption = 'DItemBag'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DBottom: TDWindow
    Left = 5
    Top = 265
    Width = 231
    Height = 89
    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 = 106
    Top = 273
    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 = 136
    Top = 271
    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 = 164
    Top = 268
    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 = 197
    Top = 268
    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 = 192
    Top = 182
    Width = 27
    Height = 20
    OnDirectPaint = DGoldDirectPaint
    OnClick = DGoldClick
    Caption = 'Gold'
    DParent = DItemBag
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DPrevState: TDButton
    Left = 591
    Top = 39
    Width = 25
    Height = 25
    OnDirectPaint = DPrevStateDirectPaint
    OnClick = DPrevStateClick
    Caption = 'Prior'
    DParent = DStateWin
    Visible = True
    EnableFocus = False
    ClickCount = csGlass
    OnClickSound = DLoginNewClickSound
  end
  object DRepairItem: TDButton
    Left = 228
    Top = 183
    Width = 26
    Height = 15
    OnDirectPaint = DRepairItemDirectPaint
    OnClick = DRepairItemClick
    OnInRealArea = DRepairItemInRealArea
    Caption = 'Use'
    DParent = DItemBag
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DCloseBag: TDButton
    Left = 262
    Top = 150
    Width = 14
    Height = 17
    OnDirectPaint = DCloseBagDirectPaint
    OnClick = DCloseBagClick
    Caption = 'x'
    DParent = DItemBag
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DCloseState: TDButton
    Left = 597
    Top = 12
    Width = 15
    Height = 15
    OnDirectPaint = DPrevStateDirectPaint
    OnClick = DCloseStateClick
    Caption = 'X'
    DParent = DStateWin
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DLogIn: TDWindow
    Left = 5
    Top = 5
    Width = 95
    Height = 71
    Caption = 'DLogIn'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DLoginNew: TDButton
    Left = 11
    Top = 56
    Width = 30
    Height = 15
    OnDirectPaint = DLoginNewDirectPaint
    OnClick = DLoginNewClick
    Caption = 'New'
    DParent = DLogIn
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DLoginOk: TDButton
    Left = 67
    Top = 14
    Width = 26
    Height = 21
    OnDirectPaint = DLoginNewDirectPaint
    OnClick = DLoginOkClick
    Caption = 'OK'
    DParent = DLogIn
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DNewAccount: TDWindow
    Left = 103
    Top = 5
    Width = 81
    Height = 72
    OnDirectPaint = DNewAccountDirectPaint
    Caption = 'DNewAccount'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DNewAccountOk: TDButton
    Left = 108
    Top = 54
    Width = 35
    Height = 15
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DNewAccountOkClick
    Caption = 'Ok'
    DParent = DNewAccount
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DLoginClose: TDButton
    Left = 43
    Top = 56
    Width = 50
    Height = 15
    OnDirectPaint = DLoginNewDirectPaint
    OnClick = DLoginCloseClick
    Caption = 'Close'
    DParent = DLogIn
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DNewAccountClose: TDButton
    Left = 168
    Top = 9
    Width = 10
    Height = 10
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DNewAccountCloseClick
    Caption = 'X'
    DParent = DNewAccount
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DSelectChr: TDWindow
    Left = 5
    Top = 81
    Width = 180
    Height = 107
    OnClick = DSelectChrClick
    Caption = 'DSelectChr'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DscSelect1: TDButton
    Left = 15
    Top = 85
    Width = 45
    Height = 15
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'Select1'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DscSelect2: TDButton
    Left = 73
    Top = 85
    Width = 45
    Height = 15
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'Select2'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DscStart: TDButton
    Left = 90
    Top = 102
    Width = 80
    Height = 15
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscStart'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscNewChr: TDButton
    Left = 90
    Top = 118
    Width = 80
    Height = 15
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscNewChr'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscEraseChr: TDButton
    Left = 90
    Top = 134
    Width = 80
    Height = 15
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscEraseChr'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscCredits: TDButton
    Left = 90
    Top = 151
    Width = 80
    Height = 15
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscCredits'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DscExit: TDButton
    Left = 90
    Top = 167
    Width = 80
    Height = 15
    OnDirectPaint = DscSelect1DirectPaint
    OnClick = DscSelect1Click
    Caption = 'DscExit'
    DParent = DSelectChr
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DCreateChr: TDWindow
    Left = 281
    Top = 4
    Width = 98
    Height = 74
    OnDirectPaint = DCreateChrDirectPaint
    Caption = 'DCreateChr'
    DParent = DSelectChr
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DccWarrior: TDButton
    Tag = 55
    Left = 286
    Top = 10
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '??'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccWizzard: TDButton
    Tag = 56
    Left = 308
    Top = 10
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '??'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccMonk: TDButton
    Tag = 57
    Left = 330
    Top = 10
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '??'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccReserved: TDButton
    Left = 352
    Top = 10
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '?'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccMale: TDButton
    Tag = 58
    Left = 285
    Top = 31
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '?'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccFemale: TDButton
    Tag = 59
    Left = 307
    Top = 31
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '?'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccLeftHair: TDButton
    Left = 330
    Top = 31
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '<-'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccRightHair: TDButton
    Left = 353
    Top = 31
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = '->'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccOk: TDButton
    Left = 297
    Top = 53
    Width = 20
    Height = 20
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DccCloseClick
    Caption = 'O K'
    DParent = DCreateChr
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DccClose: TDButton
    Left = 328
    Top = 53