Anónimo
Barra de Desplazamiento
Hola.
En primera instancia quiero agradecer por tu ayuda al anterior tema.
Ahora me ha surgido un nuevo "problemilla" y me gustaría que me orientaras.
Desarrollo una aplicación el VFP9 y no se como insertar barras de desplazamiento en algunos formularios que contienen muchos datos. En mi pantalla no hay problema, pero los usuarios del programa solo manejan resolución 1024 x 768 y al visualizar el formulario los datos y los botones se pierden.
Ya probé con el "ScrollBars" del formulario pero cuando compilo no se visualiza ningún tipo de Barra; se siguen perdiendo los datos y los botones. ¿Cómo puedo solucionar esto?
Estoy adentrándome en el mundo Fox así que agradecería enormemente tu ayuda.
Gracias.
En primera instancia quiero agradecer por tu ayuda al anterior tema.
Ahora me ha surgido un nuevo "problemilla" y me gustaría que me orientaras.
Desarrollo una aplicación el VFP9 y no se como insertar barras de desplazamiento en algunos formularios que contienen muchos datos. En mi pantalla no hay problema, pero los usuarios del programa solo manejan resolución 1024 x 768 y al visualizar el formulario los datos y los botones se pierden.
Ya probé con el "ScrollBars" del formulario pero cuando compilo no se visualiza ningún tipo de Barra; se siguen perdiendo los datos y los botones. ¿Cómo puedo solucionar esto?
Estoy adentrándome en el mundo Fox así que agradecería enormemente tu ayuda.
Gracias.
1 Respuesta
Respuesta de Cesar Enrique Yamunaque Baca
1
En tu formulario usa la propiedad ScrollBars=3
En el método INIT de tu formulario pregunta por la resolución de la pantalla colocando
DO CASE
Case Sysmetric(1) == 800 and Sysmetric(2) == 600 && Resolución de pantalla normal
ThisForm.WindowState= 2 && maximizado
Case Sysmetric(1) == 1024 and Sysmetric(2) == 768
ThisForm.WindowState= 2 && normal
Endcase
En el método INIT de tu formulario pregunta por la resolución de la pantalla colocando
DO CASE
Case Sysmetric(1) == 800 and Sysmetric(2) == 600 && Resolución de pantalla normal
ThisForm.WindowState= 2 && maximizado
Case Sysmetric(1) == 1024 and Sysmetric(2) == 768
ThisForm.WindowState= 2 && normal
Endcase