发新话题
打印

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

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

窗口使用技巧系列文章--自动调整窗口
----------------------------------------------------------------------------
----
转载  来源http://www.study01job.com文章库 PB论坛

在一定的屏幕分辨率下开发的应用程序到别的计算机上运行时,很可能遇到和开发环境
中的分辨率不同的情况,这时要保证窗口界面仍然显示居中,就得在开发时考虑这个问
题。解决方法是在窗口打开时判断屏幕的分辨率,根据分辨率来决定窗口显示的位置。
要用到两个单位换算函数和一个获取运行环境信息的函数。
在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[]是窗口
的一个属性,用来标识窗口中的所有控件。

TOP

这个功能不错的,收藏了,

TOP

发新话题