窗口居中

//移动窗口到屏幕中心
integer li_sw,li_sh
integer li_x=1,li_y=1
environment lenv
//当前窗口无效则返回
if isnull(w_main) or not isvalid(w_main) then return
//获取屏幕的宽度和高度
if getenvironment(lenv)=-1 then return
   li_sw = pixelstounits(lenv.screenwidth ,Xpixelstounits!)
   li_sh = pixelstounits(lenv.screenheight,Ypixelstounits!)
//得到中心位置的坐标
if li_sw >w_main.width then
   li_x = (li_sw - w_main.width)/2
end if
if li_sh >w_main.height then
   li_y = (li_sh - w_main.height)/2 - 200
end if
//移动窗口到屏幕中心
w_main.move(li_x,li_y)