PB中窗口自动居中

    在计算机软件开发的过程中，经常遇到计算机显示器的分辨率设置不一样的情况。如在程序设计中不注意，可能造成程序界面在不同分辨率下，显示不一致的现象。为了解决这个问题，我设计了一段程序，在每一个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