Power Builder - Resolución (Versión Propia)

decimal{2} h, w

environment env

//st_1.text="Estación... "+PC_estacion

GetEnvironment(env)

h=env.ScreenHeight

w=env.ScreenWidth

//if w < 1024 or h < 768 then

//	Messagebox('Error!','La configuración mínima del monitor debe ser "1024x768"... El sistema se detendrá')

//	Halt

//ELSE

	STRING pantalla

	pantalla=string(w)+"X"+string(h)

gi_x=round(round(4000*1,2)/round(1024*1,2),0)*w

gi_y=round(round(3000*1,2)/round( 768*1,2),0)*h

//messagebox(string(w)+'   '+string(h),string(gi_x)+'   '+string(gi_y))

// Me establece los cálculos para centrar...

string ls_retorno

int x, y

x = (gi_x - a_w) / 2

y = (gi_y - a_h) / 2

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

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

//messagebox('...',ls_retorno)

return(ls_retorno)

//END IF