帮帮忙

[wk442027490]

哪位高手帮我写个窗口居中的全局函数谢谢

[leio]

pb9及以上，窗口有个center属性，直接勾上就行。

pb9以下在open事件中写

long ll_ScreenH,ll_ScreenW
Environment le_Env

GetEnvironment(le_Env)

ll_ScreenH = PixelsToUnits(le_Env.ScreenHeight, YPixelsToUnits!)
ll_ScreenW = PixelsToUnits(le_Env.ScreenWidth , XPixelsToUnits!)

w_Window.Y = (ll_ScreenH - w_Window.Height) / 2
w_Window.X = (ll_ScreenW - w_Window.Width ) / 2

[SKY_4K_PPM]

// F_CENTER() RETURNS INTEGER

=========================================================
INT LI_SCREENHEIGHT,LI_SCREENWIDTH,LI_RC,LI_X=1,LI_Y=1
ENVIRONMENT LENV_OBJ
IF ISNULL(THIS) OR NOT ISVALID(THIS) THEN RETURN -1
IF GETENVIRONMENT(LENV_OBJ)=-1 THEN RETURN -1
LI_SCREENHEIGHT=PIXELSTOUNITS(LENV_OBJ.SCREENHEIGHT,YPIXELSTOUNITS!)
LI_SCREENWIDTH =PIXELSTOUNITS(LENV_OBJ.SCREENWIDTH ,XPIXELSTOUNITS!)
IF NOT(LI_SCREENHEIGHT>0) OR NOT (LI_SCREENWIDTH>0) THEN RETURN -1
IF LI_SCREENWIDTH>THIS.WIDTH THEN
LI_X=(LI_SCREENWIDTH/2) - (THIS.WIDTH/2)
END IF
IF LI_SCREENHEIGHT>THIS.HEIGHT THEN
LI_Y=(LI_SCREENHEIGHT/2) -(THIS.HEIGHT/2)
END IF
LI_RC=THIS.MOVE(LI_X,LI_Y)
IF LI_RC<>1 THEN RETURN -1
RETURN 1
=================================================================

[lllyyymmm]

支持1楼的