在计算机软件开发的过程中,经常遇到计算机显示器的分辨率设置不一样的情况。如在程序设计中不注意,可能造成程序界面在不同分辨率下,显示不一致的现象。为了解决这个问题,我设计了一段程序,在每一个Windows的窗口打开之时,窗口自动位于屏幕中央。
下列代码放在Window对象的OPEN事件之中:
EnvironmentGe_Env//EnvironmentVirable
INTEGERGi_ScreenH=0//Gi_ScreenH
INTEGERGi_ScreenW=0//Gi_ScreenW
GetEnvironment(Ge_Env)
Gi_ScreenH=PixelsToUnits(600,YPixelsToUnits!)
Gi_ScreenW=PixelsToUnits(800,XPixelsToUnits!)
This.Y=(Gi_ScreenH-This.Height)/2
This.X=(Gi_ScreenW-This.Width)/2