Power Builder - Resolucion de Pantalla en Power Builder 12,5

   
Vista:

Resolucion de Pantalla en Power Builder 12,5

Publicado por Marcelo (21 intervenciones) el 10/05/2013 18:01:07
Estimados:
Alguien sabe si la version 12,5 de Power Builder trae alguna solucion para la adaptacion automatica de las aplicaciones a la resolucion de la pantalla del pc.

Saludos y gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

...Por si no lo leiste...

Publicado por Leopoldo Taylhardat (690 intervenciones) el 16/07/2013 19:13:10
Yo desarrollé esto...

Creo la Función... f_posición
(argumentos a_w, a_h integer los dos...) es el ancho y alto de la ventana

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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


Y con esto centro las pantallas.. (open de la ventana)...
string posicion
posicion=f_posicion (this.Width, this.Height)
this.X=integer(left(posicion,5))
this.Y=integer(right(posicion,5))
---------------------------------------------------------------------------------
Esto (que está en la función) me determina la resolución....
GetEnvironment(env)
h=env.ScreenHeight
w=env.ScreenWidth
-----------
h= Altura
w=Ancho

lo que está en la ventana lo tienes que ampliar o reducir a tu conveniencia...
Espero que te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar