更改窗体分辨率真实版。

美兽

针对提问区的两个问题而写，
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

美兽

针对提问区的两个问题而写，
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

美兽

以下引用暴动冲锋于2007-8-15 16:28:58的发言：

是不是直接把画面扯成高分辨率?

将原本更改窗体改为更改用户区。

面粉

还需要改一下视口的大小，同时很多坐标以及矩形的边缘也需要调整……

再测试测试 - -bbb

亿万星辰

这个太好了,直接可以把分辨率弄大了....

找了一下,原来实现并不复杂,只是从来没想过这个问题竟然可以这样解决.......太神奇了....{/fd}

yehaojie

以下引用亿万星辰于2007-8-15 17:07:48的发言：

这个太好了,直接可以把分辨率弄大了....

找了一下,原来实现并不复杂,只是从来没想过这个问题竟然可以这样解决.......太神奇了....


[本贴由作者于 2007-8-15 17:19:06 最后编辑]

哈哈~{/cy}

minji

AdjustWindowRectEx

---

版主对此帖的评论：『你在干嘛？』，积分『-200』。这些被扣积分的一半会用于对本帖正确答案的悬赏。

---

版主对此帖的认可：『不好意思』，积分『+220』。

面粉

目前试验结果如下 - -bbbbbb

修改viewports和矩形坐标、范围后，战斗场景可以实现800*600

问题是地图类……仅仅修改Tilemap的关联视口范围会产生比较RP的问题……

只能显示部分640*480之外的地图元件。

怀疑是否需要接着修改Tilemap类中的一些方法，因为不能显示出来的大多是自动元件。

而Tilemap类在帮助内并没有给出……

头脑混乱了  @_@

BB崽

minji发言的

AdjustWindowRectEx

不是乱写的

AdjustWindowRectEx 是API函数 该函数依据所需客户矩形大小，计算需要的窗口矩形的大小

望版主 加上他的分~

BB崽

这个东西研究了很久了~~

就是无法完美化~~~

{/cy}{/cy}{/cy}

美兽大大 不如 出两套套800X600和1024X78的默认系统

刷新以前是一个大问题，再就是速度