Power Builder - Ajuste de Ventanas

//Funcion: f_posicion... retorna string

string sl_retorno

int x, y

x = (gi_x - a_w) / 2

y = (gi_y - a_h) / 2

sl_retorno= left("00000",(5 - (len(string(x))))) + string(x) + "," + &

            left("00000",(5 - (len(string(y))))) + string(y)

return(sl_retorno)

// Open de la aplicación...

// Obtiene la resolución del monitor...

// Declarar varables globales tipo integer: gi_y, gi_x

environment env

integer rtn

rtn = GetEnvironment(env)

IF rtn <> 1 THEN

    HALT

else

    gi_y=PixelsToUnits ( env.ScreenHeight, YPixelsToUnits!  )

    gi_x=PixelsToUnits ( env.ScreenWidth, XPixelsToUnits!  )

    open(w_ventana)

END IF

//open de la ventana...la centra de acuerdo a la resolución del monitor...

string posicion

posicion=f_posicion (this.Width, this.Height)

this.X=integer(left(posicion,5))

this.Y=integer(right(posicion,5))