在计算机软件开发的过程中,经常遇到计算机显示器的分辨率设置不一样的情况。如在程序设计中不注意,可能造成程序界面在不同分辨率下,显示不一致的现象。为了解决这个问题,我设计了一段程序,在每一个Windows的窗口打开之时,窗口自动位于屏幕中央。
下列代码放在Window对象的OPEN事件之中:
Environment Ge_Env //Environment Virable
INTEGER Gi_ScreenH = 0 //Gi_ScreenH
INTEGER Gi_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