[NE][更新]使用Window对话框的角色名称输入组件，支持背景图

这个动态链接库以Delphi6制作完成，本人仍旧保证其中绝无有意为之的任何形式的有害代码，

其源代码在以下位置(共三个)

http://www.fslcy.com.cn/RgssInputBox.dpr

http://www.fslcy.com.cn/UntInputBox.pas

http://www.fslcy.com.cn/UntInputBox.dfm
使用者也可以自行下载检查源代码并且进行编译，以获得这个动态链接库。

#--------------------------------------------------------------------------
# ● 显示RgssInputBox.dll中的输入角色名称的对话框
#    作者：notexist
#--------------------------------------------------------------------------
def ActorNameInput(actorID)
  actor = $game_actors[actorID]
  thename = actor.name
  thename = $NameInputBox.Call(thename)
  actor.name = thename
end

$NameInputBox = Win32API.new(\
  "RgssInputBox.dll", "NameInputBox", ['P'], 'P')

#创建对话框窗口，在调用NameInputBox之前必须调用这个函数
$CreateInputBox =  Win32API.new(\
  "RgssInputBox.dll", "CreateInputBox", [], '')

#设置窗口，参数分别为宽度，高度，和载入的skin图片是否拉伸
#在后面的LoadSkin调用中会根据图片情况自动设置窗口宽度高度
#所以不必手工调用这个函数
$InputBox_SetBox =  Win32API.new(\
  "RgssInputBox.dll", "SetBox", ['I','I','I'], '')

#载入背景图片，内容为图片的文件名（不包括路径）
#支持BMP和GIF，载入后会自动设置输入的窗口宽度和高度
$InputBox_LoadSkin =  Win32API.new(\
  "RgssInputBox.dll", "LoadSkin", ['P'], '')  

#设置窗口中文本输入框的位置和大小
#参数分别为X偏移(偏移相对于窗口左上角)，Y偏移，宽度，高度
#以及输入框底色的蓝色，绿色，红色分量，颜色分量的范围是0～255
$InputBox_SetEdit =  Win32API.new(\
  "RgssInputBox.dll", "SetEdit", ['I','I','I','I','I','I','I'], '')

#设置文本输入框内输入文字的字体信息
#参数分别为字体名称（例如“宋体”），字体大小（五号字为11）
#字体颜色的蓝色，绿色，红色分量，颜色分量的范围是0～255
$InputBox_SetEditFont =  Win32API.new(\
  "RgssInputBox.dll", "SetEditFont", ['P','I','I','I','I'], '')

#释放对话框窗口，理论上创建之后就应该释放，不过游戏退出时应该能自动释放
#所以不必手工调用这个函数
$FreeInputBox =  Win32API.new(\
  "RgssInputBox.dll", "FreeInputBox", [], '')

#创建
$CreateInputBox.Call
#载入背景图fox.jpg，这时设定了窗口宽度高度
$InputBox_LoadSkin.Call('fox.jpg')
#设置文本输入框位置，并且设定底色为红色
$InputBox_SetEdit.Call(50,20,200,32,0,0,255)
#设定输入字体为黑体，字号为12(应该是“小四”)，颜色为白色
$InputBox_SetEditFont.Call('黑体',12,255,255,255)
#重新设置输入窗口宽度和高度
$InputBox_SetBox.Call(300,72,0)

ActorNameInput(1)

$InputBox_LoadSkin.Call('另一张背景图片.jpg')

ActorNameInput(2)