更改窗体分辨率真实版。

美兽

针对提问区的两个问题而写，
http://rpg.blue/viewthread.php?tid=61618
http://rpg.blue/viewthread.php?tid=63926

费了差不多一小时，主要最开始陷入误区，在MSDN找了许久
SetClientRect函数，却没找到，只好绕圈换个角度修改。

解决两个问题，
一：更改客户区大小，即显示画面真实的分辨率，而不是窗体。
二：自动居中。

if $myfirst == nil
  
   $myfirst = 'myGod'  
   宽度=800
   高度=600
   游戏ini名=".\\Game.ini"
   val = "\0"*256
   gps = Win32API.new('kernel32', 'GetPrivateProfileString','pppplp', 'l')
   gps.call("Game", "Title", "", val, 256, 游戏ini名)
   val.delete!("\0")
   title = val
   fw = Win32API.new('user32', 'FindWindow', 'pp', 'i')
   hWnd = fw.call("RGSS Player", title)
   swp = Win32API.new('user32', 'SetWindowPos', 'lliiiii', 'i')

   pointwds = [0,0,0,0].pack('llll')
   pointcet = [0, 0].pack('ll')

   wdsrect = Win32API.new('user32.dll', 'GetWindowRect', 'lp', 'l')
   client_screen = Win32API.new("user32", "ClientToScreen", 'ip', 'i')

   wdsrect.call(hWnd,pointwds)
   client_screen.call(hWnd, pointcet)

   wds = pointwds.unpack('llll')
   cet = pointcet.unpack('ll')

   addw =  wds[2] - wds[0] - 640
   addh =  wds[3] - wds[1] - 480

   x = wds[0] - (宽度 - 640) / 2
   y = wds[1] - (高度 - 480) / 2

   swp.call(hWnd, 0, x, y, 宽度 + addw, 高度 + addh, 0x20)
   
end

此为原版，对照测试下，即可明白区别。
http://rpg.blue/web/htm/news547.htm

冰城飞狐

那个……汗……
Graphics库究竟是怎么改的啊？

阁中人

以下引用冰城飞狐于2008-9-13 22:19:33的发言：

那个……还有个问题……
怎么实现800*600窗口的全屏啊？
默认全屏是这样的：

   本帖相关代码如下：
$keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
$keybd.call 0xA4, 0, 0, 0
$keybd.call 13, 0, 0, 0
$keybd.call 13, 0, 2, 0
$keybd.call 0xA4, 0, 2, 0



[本贴由作者于 2008-9-13 22:21:29 最后编辑]

这几行脚本不是用来全屏的…………RMXP有默认按下ALT+ENTER就全屏的功能，这几行脚本只是用脚本来模拟键盘按键而已……

冰城飞狐

那个……还有个问题……
怎么实现800*600窗口的全屏啊？
默认全屏是这样的：

1. 
   
2. $keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
   
3. $keybd.call 0xA4, 0, 0, 0
   
4. $keybd.call 13, 0, 0, 0
   
5. $keybd.call 13, 0, 2, 0
   
6. $keybd.call 0xA4, 0, 2, 0
   

复制代码

美兽

有个API可以冻结画面,但保持程序运行,测试成功.

有个API重绘部分画面,测试出现错误,当年只做到这里,之后在下因为那件事不玩RM了,抱歉,今天才想起还拖欠叶子一个回复......

阁中人

疑难问题终于要解决了吗- -

我在用本来就有透明的PNG在冒充渐变效果呢- -