窗口使用技巧系列文章－－自动调整窗口

傷城~ 2022-09-28 05:45 200阅读 0赞

在一定的屏幕分辨率下开发的应用程序到别的计算机上运行时，很可能遇到和开发环境中的分辨率不同的情况，这时要保证窗口界面仍然显示居中，就得在开发时考虑这个问题。解决方法是在窗口打开时判断屏幕的分辨率，根据分辨率来决定窗口显示的位置。要用到两个单位换算函数和一个获取运行环境信息的函数。  
  
在PowerBuilder中所有尺度都是用PowerBuilder单位（PBU）计量的，惟一例外是Window和DataWindow画板网格尺寸，这是用像素计量。PowerBuilder中的计量使用和Windows中相同的技术，都是基于系统字体。不同的是，Windows中采用系统字体宽度的1/4和高度的1/8，而PowerBuilder中采用系统字体宽度的1/32和高度的1/64，从而可以提供比Windows中更高的分辨率。但是，用户在PowerBuilder应用程序中调用外部函数来获取对象的尺寸或位置时就应该进行相应的转换。好在PowerBuilder本身也提供了进行单位换算的函数，所以应该尽量使用PowerBuilder本身的单位换算函数。  
  
函数UnitsToPixels()用于将PBU值换算成像素值。它的语法格式是：  
  
UnitsToPixels ( units, type )  
  
其中，Units是一个整型数值，是要转换成像素值的PBU值；Type是一个ConvertType类型的枚举值，可以是：  
  
·           XUnitsToPixels! 表示要转换成水平方向上的像素值；  
  
·           YUnitsToPixels!       表示要转换成垂直方向上的像素值。  
  
函数成功执行将返回转换后的像素值，如果执行错误，则返回-1，如果有参数为NULL，则返回NULL。  
  
函数PixelsToUnits用于将像素值换算成PBU值。它的语法格式是：  
  
      PixelsToUnits ( pixels, type )  
  
各个参数的意义和上面函数的完全相同，执行的功能相反，是将指定像素值转换成指定方向上的PBU值。  
  
因为所有窗口在打开时都有居中问题，所以可以使用全局函数解决这个问题，以便在应用中的所有窗口都可以调用该函数。该函数的脚本如下：  
  
//\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
  
//\* 功能：    将窗口移到屏幕的中央  
  
//\* 参数1:    aw\_window  要处理的窗口  
  
//\* 返回值：  (none)  
  
//\* 调用举例:         gf\_window\_center(w\_pay\_mode) //将窗口置于屏幕的中央  
  
//\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
  
   
  
Environment le\_env  
  
Int li\_ScreenHeight, li\_ScreenWidth  
  
Long ll\_posx,ll\_posy  
  
   
  
GetEnvironment(le\_env)  
  
li\_ScreenHeight = PixelsToUnits(le\_env.ScreenHeight,YPixelsToUnits!)  
  
li\_screenwidth = PixelsToUnits(le\_env.ScreenWidth,XPixelsToUnits!)  
  
   
  
If aw\_window.width > li\_ScreenWidth Then          //如果窗口超宽  
  
 ll\_posx = 1  
  
Else  
  
 ll\_posx = (li\_ScreenWidth - aw\_window.Width) / 2  
  
End If  
  
   
  
If aw\_window.height > li\_ScreenHeight Then          //如果窗口超高  
  
 ll\_posy = 1  
  
Else  
  
 ll\_posy = (li\_ScreenHeight - aw\_window.Height) / 2  
  
End If  
  
   
  
aw\_window.Move(ll\_posx ,ll\_posy)  
  
上面的脚本用函数GetEnvironment获取当前的环境信息，并将其成员变量ScreenWidth和ScreenHeight转换成PBU值，然后减去当前窗口的宽（高），取差值的1/2即为窗口居中时的起始坐标。  
  
有时窗口的位置要恢复到用户上次使用时的情况，可以借助于ini文件。在窗口关闭时将窗口的位置信息保存在一个特定的ini文件中，当窗口打开时再将这些位置信息读出并用来设置窗口的位置。具体可以参考前面MDI一章中介绍的两个函数wf\_saveToolBar和wf\_resToreToolBar的编程。  
  
当用户对窗口的大小进行调整时，窗口中的控件也应该相应地调整其大小和位置，这样才能保证整个窗口中控件的布局相对不动。可以在调整窗口大小的同时调整窗口中的控件及其相对位置，可以在窗口的Resize事件中编写脚本。首先定义如下实例变量：  
  
Int ii\_width,ii\_height  
  
在窗口的Open事件中：  
  
      ii\_width = This.Width  
  
        ii\_height = This.Height  
  
在窗口的Resize事件中：  
  
Int li\_value  
  
DragObject lw\_obj  
  
   
  
For li\_value = 1 To UpperBound(This.Control\[\])  
  
        lw\_obj = control\[li\_value\]  
  
        lw\_obj.x = lw\_obj.x \* (NewWidth / ii\_width)  
  
        lw\_obj.width = lw\_obj.width \* (NewWidth / ii\_width)  
  
       
  
        lw\_obj.y = lw\_obj.y \* (NewHeight / ii\_height)  
  
        lw\_obj.height = lw\_obj.height \* (NewHeight / ii\_height)  
  
Next  
  
ii\_width = NewWidth  
  
ii\_height = NewHeight  
  
其中，NewWidth和NewHeight是窗口Resize事件的参数，可以直接使用。NewWidth / ii\_width是横向变动比例，NewHeight / ii\_height是纵向变动比例。Control\[\]是窗口的一个属性，用来标识窗口中的所有控件。