uformmain.dfm

泡泡堂游戏,使用delphi7+delphiX开发,完成一些基本功能,大家可以用来参考.

object FormMain: TFormMain
  Left = 188
  Top = 105
  AutoSize = True
  BorderStyle = bsDialog
  Caption = '泡泡堂单机测试版'
  ClientHeight = 585
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002040000001000800A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA60004040400080808000C0C0C0011111100161616001C1C1C002222
    220029292900555555004D4D4D004242420039393900807CFF005050FF009300
    D600FFECCC00C6D6EF00D6E7E70090A9AD000000330000006600000099000000
    CC00003300000033330000336600003399000033CC000033FF00006600000066
    330000666600006699000066CC000066FF000099000000993300009966000099
    99000099CC000099FF0000CC000000CC330000CC660000CC990000CCCC0000CC
    FF0000FF660000FF990000FFCC00330000003300330033006600330099003300
    CC003300FF00333300003333330033336600333399003333CC003333FF003366
    00003366330033666600336699003366CC003366FF0033990000339933003399
    6600339999003399CC003399FF0033CC000033CC330033CC660033CC990033CC
    CC0033CCFF0033FF330033FF660033FF990033FFCC0033FFFF00660000006600
    330066006600660099006600CC006600FF006633000066333300663366006633
    99006633CC006633FF00666600006666330066666600666699006666CC006699
    00006699330066996600669999006699CC006699FF0066CC000066CC330066CC
    990066CCCC0066CCFF0066FF000066FF330066FF990066FFCC00CC00FF00FF00
    CC009999000099339900990099009900CC009900000099333300990066009933
    CC009900FF00996600009966330099336600996699009966CC009933FF009999
    330099996600999999009999CC009999FF0099CC000099CC330066CC660099CC
    990099CCCC0099CCFF0099FF000099FF330099CC660099FF990099FFCC0099FF
    FF00CC00000099003300CC006600CC009900CC00CC0099330000CC333300CC33
    6600CC339900CC33CC00CC33FF00CC660000CC66330099666600CC669900CC66
    CC009966FF00CC990000CC993300CC996600CC999900CC99CC00CC99FF00CCCC
    0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF330099FF
    6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC330000FF33
    3300FF336600FF339900FF33CC00FF33FF00FF660000FF663300CC666600FF66
    9900FF66CC00CC66FF00FF990000FF993300FF996600FF999900FF99CC00FF99
    FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF3300CCFF
    6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66FF00FFFF
    66002100A5005F5F5F00777777008686860096969600CBCBCB00B2B2B200D7D7
    D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000A0A
    0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0AD4D4D4D4D4D4D4D4ACACAC666666ACAC0A0A0A0A0A0A0A0A0A0A
    0AD4D4D4D4D4D40A0A0A0A0A0A0A0A0A0A0A0A0A0AAC6666ACAC0A0A0A0A0A0A
    D4D40A0A0A0A0A09090909090909DBDBDBDBDBD5D43C0A0A0A0A66A60A0A0A0A
    0A10090909090909098B430A0A0A0A0A0A43668BB3D4D5D5D5DC0A0A0A0A0A0A
    0909090909098B0C0A0A0A0A0AEFEB0A0A0A0A0A0C8BB3D5D5D5D5D50A0A0A0A
    0909090909098B0C0A0A0A0AEFF7ECEB6D0A0A0A0C8BD4D4D5D5D5D50A0A0A0A
    0A0AD5D5D5D5D5D58B66430AEFEFEC6D6D0A668BB3D4D4D5D5D50A0A0A0A0A0A
    0A0A0F0F0A0A0ADBD5DBD50AEFEFEC6D6D0AD5D5D50A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A0A0A0A0AEFEFEFEB6D0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A0A0A0A0AEF07EC6D6D0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A0A0A0A0AEFEFEC6D6D0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A0A0A0A0AECEC1213120A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A0A0A0AEC6DEA13140A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A0A0A0A0A0A0A14140A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A1E1E1E1E1E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A1FE91F1F0101011E1D1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A1F2040414140E9E9011E1E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A1F2041414141414040E9011E1E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A40414141414141414040E9011E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A1F4141414141414141414040E9011E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A1F4141414141414141414040E9011E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A1F4141414141414141414040E9E91E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A1F41B1B7B7B1414141414040E9E91E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A1FB1BDBDBDBDB14141414040E9E91E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A1FB7BDFFFFBDB74141414040E9E91E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A94BDFFFFBDB741414140E9E901010A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A6FBDBDBDBDB1414140E9E9E9011E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A6FB7B7B1414140E9E9E9011E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A011F414040E9E9E91E1E0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A1E01010101010A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
    0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0AFF80
    01FFF000000FC000000380000001800000018000000180000001C0000003F000
    000FFF8001FFFFF01FFFFFF01FFFFFF01FFFFFE03FFFFF803FFFFE003FFFFC00
    3FFFF8001FFFF0000FFFF0000FFFE00007FFE00007FFE00007FFE00007FFE000
    07FFE00007FFF0000FFFF0000FFFF8001FFFFC003FFFFE007FFFFF81FFFF}
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object DXDraw: TDXDraw
    Left = 0
    Top = 0
    Width = 800
    Height = 600
    AutoInitialize = True
    AutoSize = True
    Color = clBlack
    Display.BitCount = 16
    Display.FixedBitCount = True
    Display.FixedRatio = True
    Display.FixedSize = False
    Display.Height = 600
    Display.Width = 800
    Options = [doCenter, doDirectX7Mode, doHardware, doSelectDriver]
    SurfaceHeight = 600
    SurfaceWidth = 800
    TabOrder = 0
    OnMouseMove = DXDrawMouseMove
    OnMouseUp = DXDrawMouseUp
  end
  object Edit1: TEdit
    Left = 336
    Top = 448
    Width = 189
    Height = 20
    BevelInner = bvNone
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 336
    Top = 476
    Width = 189
    Height = 20
    TabOrder = 2
  end
  object ComboBox1: TComboBox
    Left = 336
    Top = 528
    Width = 189
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 3
  end
  object DXInput: TDXInput
    ActiveOnly = True
    Joystick.BindInputStates = True
    Joystick.Effects.Effects = {
      FF0A0044454C50484958464F524345464545444241434B454646454354003010
      7F000000545046301D54466F726365466565646261636B456666656374436F6D
      706F6E656E74025F3107456666656374730E01044E616D650607456666656374
      730A45666665637454797065070665744E6F6E6506506572696F64023205506F
      7765720310270454696D6503E8030E537461727444656C617954696D65020000
      000000}
    Joystick.Enabled = True
    Joystick.ForceFeedback = False
    Joystick.AutoCenter = True
    Joystick.DeadZoneX = 50
    Joystick.DeadZoneY = 50
    Joystick.DeadZoneZ = 50
    Joystick.ID = 0
    Joystick.RangeX = 1000
    Joystick.RangeY = 1000
    Joystick.RangeZ = 1000
    Keyboard.BindInputStates = True
    Keyboard.Effects.Effects = {
      FF0A0044454C50484958464F524345464545444241434B454646454354003010
      7F000000545046301D54466F726365466565646261636B456666656374436F6D
      706F6E656E74025F3107456666656374730E01044E616D650607456666656374
      730A45666665637454797065070665744E6F6E6506506572696F64023205506F
      7765720310270454696D6503E8030E537461727444656C617954696D65020000
      000000}
    Keyboard.Enabled = True
    Keyboard.ForceFeedback = False
    Keyboard.Assigns = {
      4B00000026000000680000004A00000028000000620000004800000025000000
      640000004C00000027000000660000005A000000200000000000000058000000
      0D00000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000071000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000}
    Mouse.BindInputStates = False
    Mouse.Effects.Effects = {
      FF0A0044454C50484958464F524345464545444241434B454646454354003010
      7F000000545046301D54466F726365466565646261636B456666656374436F6D
      706F6E656E74025F3107456666656374730E01044E616D650607456666656374
      730A45666665637454797065070665744E6F6E6506506572696F64023205506F
      7765720310270454696D6503E8030E537461727444656C617954696D65020000
      000000}
    Mouse.Enabled = False
    Mouse.ForceFeedback = False
    UseDirectInput = True
    Left = 52
    Top = 16
  end
  object DXSpriteEngine: TDXSpriteEngine
    DXDraw = DXDraw
    Left = 80
    Top = 16
  end
  object DXTimer: TDXTimer
    ActiveOnly = True
    Enabled = True
    Interval = 16
    OnTimer = DXTimerTimer
    Left = 108
    Top = 16
  end
  object DXImageList: TDXImageList
    DXDraw = DXDraw
    Items.ColorTable = {
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000}
    Items = <>
    Left = 24
    Top = 16
  end
end