fstate.dfm

传奇源代码的delphi版本

    Width = 25
    Height = 15
    OnDirectPaint = DKsF1DirectPaint
    OnClick = DKsF1Click
    Caption = 'F3'
    DParent = DKeySelDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DKsF4: TDButton
    Left = 220
    Top = 518
    Width = 25
    Height = 15
    OnDirectPaint = DKsF1DirectPaint
    OnClick = DKsF1Click
    Caption = 'F4'
    DParent = DKeySelDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DKsNone: TDButton
    Left = 327
    Top = 500
    Width = 25
    Height = 15
    OnDirectPaint = DKsF1DirectPaint
    OnClick = DKsF1Click
    Caption = 'N'
    DParent = DKeySelDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DKsOk: TDButton
    Left = 268
    Top = 499
    Width = 57
    Height = 15
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DKsOkClick
    Caption = 'OK'
    DParent = DKeySelDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DBotGroup: TDButton
    Left = 9
    Top = 317
    Width = 15
    Height = 15
    OnDirectPaint = DBotGroupDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DBotGroupClick
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DBotTrade: TDButton
    Left = 9
    Top = 284
    Width = 15
    Height = 15
    OnDirectPaint = DBotGroupDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DBotTradeClick
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DBotMiniMap: TDButton
    Left = 9
    Top = 268
    Width = 15
    Height = 15
    OnDirectPaint = DBotGroupDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DBotMiniMapClick
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DGroupDlg: TDWindow
    Left = 243
    Top = 355
    Width = 146
    Height = 43
    OnDirectPaint = DGroupDlgDirectPaint
    OnMouseMove = DGroupDlgMouseMove
    Caption = 'GroupDlg'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DGrpAllowGroup: TDButton
    Left = 249
    Top = 361
    Width = 63
    Height = 15
    OnDirectPaint = DGrpAllowGroupDirectPaint
    OnMouseMove = DGroupDlgMouseMove
    OnClick = DGrpAllowGroupClick
    Caption = 'Allow Group'
    DParent = DGroupDlg
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DGrpDlgClose: TDButton
    Left = 359
    Top = 360
    Width = 17
    Height = 16
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DGrpDlgCloseClick
    Caption = 'X'
    DParent = DGroupDlg
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DGrpCreate: TDButton
    Left = 246
    Top = 379
    Width = 45
    Height = 15
    OnDirectPaint = DSalesCancelDirectPaintt
    OnMouseMove = DGroupDlgMouseMove
    OnClick = DGrpCreateClick
    Caption = 'Create'
    DParent = DGroupDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DGrpAddMem: TDButton
    Left = 293
    Top = 379
    Width = 45
    Height = 15
    OnDirectPaint = DSalesCancelDirectPaintt
    OnMouseMove = DGroupDlgMouseMove
    OnClick = DGrpAddMemClick
    Caption = 'AddMem'
    DParent = DGroupDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DGrpDelMem: TDButton
    Left = 340
    Top = 379
    Width = 45
    Height = 15
    OnDirectPaint = DSalesCancelDirectPaintt
    OnMouseMove = DGroupDlgMouseMove
    OnClick = DGrpDelMemClick
    Caption = 'DelMem'
    DParent = DGroupDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DBotLogout: TDButton
    Left = 73
    Top = 268
    Width = 15
    Height = 15
    OnDirectPaint = DBotGroupDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DBotLogoutClick
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DBotExit: TDButton
    Left = 90
    Top = 268
    Width = 15
    Height = 15
    OnDirectPaint = DBotGroupDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DBotExitClick
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DBotGuild: TDButton
    Left = 9
    Top = 300
    Width = 15
    Height = 15
    OnDirectPaint = DBotGroupDirectPaint
    OnMouseMove = DBotMouseMove
    OnClick = DBotGuildClick
    DParent = DBottom
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DStPageUp: TDButton
    Tag = 3
    Left = 591
    Top = 120
    Width = 15
    Height = 14
    OnDirectPaint = DMsgDlgOkDirectPaint
    OnClick = DStPageUpClick
    DParent = DStateWin
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    OnClickSound = DLoginNewClickSound
  end
  object DStPageDown: TDButton
    Tag = 4
    Left = 591
    Top = 137
    Width = 15
    Height = 14
    OnDirectPaint = DMsgDlgOkDirectPaint
    OnClick = DStPageUpClick
    DParent = DStateWin
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    OnClickSound = DLoginNewClickSound
  end
  object DDealRemoteDlg: TDWindow
    Left = 282
    Top = 80
    Width = 63
    Height = 65
    OnDirectPaint = DDealRemoteDlgDirectPaint
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DDealDlg: TDWindow
    Left = 381
    Top = 6
    Width = 97
    Height = 73
    OnDirectPaint = DDealDlgDirectPaint
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DDRGrid: TDGrid
    Left = 288
    Top = 84
    Width = 49
    Height = 33
    DParent = DDealRemoteDlg
    Visible = True
    EnableFocus = False
    ColCount = 5
    RowCount = 2
    ColWidth = 36
    RowHeight = 32
    ViewTopLine = 0
    OnGridMouseMove = DDRGridGridMouseMove
    OnGridPaint = DDRGridGridPaint
  end
  object DDGrid: TDGrid
    Left = 386
    Top = 12
    Width = 81
    Height = 33
    DParent = DDealDlg
    Visible = True
    EnableFocus = False
    ColCount = 5
    RowCount = 2
    ColWidth = 36
    RowHeight = 32
    ViewTopLine = 0
    OnGridSelect = DDGridGridSelect
    OnGridMouseMove = DDGridGridMouseMove
    OnGridPaint = DDGridGridPaint
  end
  object DDealOk: TDButton
    Left = 415
    Top = 50
    Width = 25
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DDealOkClick
    DParent = DDealDlg
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DDealClose: TDButton
    Left = 443
    Top = 50
    Width = 25
    Height = 25
    OnDirectPaint = DSalesCancelDirectPaintt
    OnClick = DDealCloseClick
    DParent = DDealDlg
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DDGold: TDButton
    Left = 387
    Top = 50
    Width = 25
    Height = 25
    OnClick = DDGoldClick
    DParent = DDealDlg
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DDRGold: TDButton
    Left = 288
    Top = 121
    Width = 25
    Height = 17
    DParent = DDealRemoteDlg
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DSelServerDlg: TDWindow
    Left = 189
    Top = 6
    Width = 90
    Height = 135
    Caption = 'DSelServer'
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = False
  end
  object DSSrvClose: TDButton
    Left = 260
    Top = 11
    Width = 15
    Height = 18
    OnDirectPaint = DLoginNewDirectPaint
    OnClick = DSSrvCloseClick
    Caption = 'X'
    DParent = DSelServerDlg
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DSServer1: TDButton
    Left = 196
    Top = 9
    Width = 40
    Height = 15
    OnDirectPaint = DMsgDlgOkDirectPaint
    OnClick = DSServer1Click
    Caption = 'Server1'
    DParent = DSelServerDlg
    Visible = True
    EnableFocus = True
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DSServer2: TDButton
    Left = 196
    Top = 25
    Width = 40
    Height = 15
    OnDirectPaint = DMsgDlgOkDirectPaint
    OnClick = DSServer1Click
    Caption = 'Server2'
    DParent = DSelServerDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DUserState1: TDWindow
    Left = 624
    Top = 3
    Width = 81
    Height = 137
    OnDirectPaint = DUserState1DirectPaint
    OnMouseMove = DUserState1MouseMove
    OnMouseDown = DUserState1MouseDown
    DParent = DBackground
    Visible = False
    EnableFocus = False
    ClickCount = csNone
    Floating = True
  end
  object DCloseUS1: TDButton
    Left = 679
    Top = 7
    Width = 15
    Height = 15
    OnDirectPaint = DPrevStateDirectPaint
    OnClick = DCloseUS1Click
    Caption = 'X'
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNorm
    OnClickSound = DLoginNewClickSound
  end
  object DWeaponUS1: TDButton
    Left = 638
    Top = 39
    Width = 14
    Height = 26
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DHelmetUS1: TDButton
    Left = 655
    Top = 35
    Width = 18
    Height = 14
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DNecklaceUS1: TDButton
    Left = 682
    Top = 28
    Width = 15
    Height = 15
    OnDirectPaint = DNecklaceUS1DirectPaint
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DDressUS1: TDButton
    Left = 656
    Top = 52
    Width = 17
    Height = 49
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DLightUS1: TDButton
    Left = 682
    Top = 44
    Width = 15
    Height = 15
    OnDirectPaint = DNecklaceUS1DirectPaint
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DArmringRUS1: TDButton
    Left = 633
    Top = 70
    Width = 15
    Height = 15
    OnDirectPaint = DNecklaceUS1DirectPaint
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DRingRUS1: TDButton
    Left = 633
    Top = 86
    Width = 15
    Height = 15
    OnDirectPaint = DNecklaceUS1DirectPaint
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DArmringLUS1: TDButton
    Left = 683
    Top = 69
    Width = 15
    Height = 15
    OnDirectPaint = DNecklaceUS1DirectPaint
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DRingLUS1: TDButton
    Left = 683
    Top = 86
    Width = 15
    Height = 15
    OnDirectPaint = DNecklaceUS1DirectPaint
    OnMouseMove = DWeaponUS1MouseMove
    DParent = DUserState1
    Visible = True
    EnableFocus = False
    ClickCount = csNone
  end
  object DSServer3: TDButton
    Left = 196
    Top = 41
    Width = 40
    Height = 15
    OnDirectPaint = DMsgDlgOkDirectPaint
    OnClick = DSServer1Click
    Caption = 'Server3'
    DParent = DSelServerDlg
    Visible = True
    EnableFocus = False
    ClickCount = csStone
    OnClickSound = DLoginNewClickSound
  end
  object DSServer4: TDButton
    Left = 196