Queres que la ventana se acomode a la resolucion de pantalla que estan ejecutando??
No es tarea facil y mucho menos viable ya que da mucho trabajo. A menos que encuentres la manera de hacerlo generico para todas, para dejarlo lo mas automatizado posible.
Lo primero que vas a necesitar es saber en que resolucion lo estan ejecutando.
Variables Globales:
CONSTANT Integer DevelopWidth = 1024
environment env
Long scrHeight
Long scrWidth
Crea una Function con el nombre winsize y pegale este codigo en el Edit Source
global type winsize from function_object
end type
forward prototypes
global function integer winsize (window w_ref, boolean b_sizewindow)
end prototypes
global function integer winsize (window w_ref, boolean b_sizewindow);dragobject temp
line temp2
integer cnt, i
double ratio
// Cálculo de la relación
ratio = scrWidth / DevelopWidth
// Si la relación es 1 , entonces la resolución actual es la misma que la resolución en la que se desarrolló la aplicación, así que no hacemos nada.
if ratio = 1 then
return 10
elseif ratio < 1 then
return 9
else
return 11
end if
end function
espero que te sirva...
