HABILITABARRADESPLAZAMIENTO

Sinopsis
HABILITABARRADESPLAZAMIENTO nombre habilitar
SCROLLBARENABLE nombre habilitar
Descripción

Habilita o deshabilita la barra de desplazamiento identificada por nombre. Si el argumento habilitar iguala a CIERTO, entonces se habilita la barra de desplazamiento. Si el argumento habilitar iguala a FALSO, entonces se deshabilita la barra de desplazamiento.

Cuando una barra de desplazamiento está deshabilitada, la posición del deslizador está oculta. Si quieres que el usuario pueda ver la posición del deslizador pero no ser capaz de cambiarla, entonces usa una barra de desplazamiento habilitada y haz que la retrollamada reponga el valor correcto a la posición de la barra de desplazamiento. Este patrón se lo muestra en el segundo ejemplo abajo.

Ejemplo

Deshabilitar una barra de desplazamiento:

CREAVENTANA "raíz "miventana "Ejemplo 0 0 100 100 []
CREABARRADESPLAZAMIENTO "miventana "mibarra 25 25 50 0 []

HABILITABARRADESPLAZAMIENTO "mibarra "FALSO
Ahora, la barra de desplazamiento está deshabilitada

HABILITABARRADESPLAZAMIENTO "mibarra "CIERTO
Ahora, la barra de desplazamiento está habilitada de nuevo

BORRAVENTANA "miventana

Crear una barra de desplazamiento de solo lectura:

PARA BARRARETROLLAMADA
  ; Cuando el usuario cambie la posición de la barra de
  ; desplazamiento, ponerla el valor correcto, que se
  ; almacena en :ValorDeBarraDeDesplazamiento
  ;
  ; Para evitar un bucle infinito, solo cambia el valor
  ; si está diferente de lo que pondremos.

  SI NOIGUALES? :ValorDeBarraDeDesplazamiento LEEBARRADESPLAZAMIENTO "mibarra [
    PONBARRADESPLAZAMIENTO "mibarra 0 360 :ValorDeBarraDeDesplazamiento
  ]
FIN

PARA ACTUALIZARBARRADEDESPLAZAMIENTO :ValorNuevo
  ; Ejecuta esto cuando quieres actualizar el valor.
  HAZ "ValorDeBarraDeDesplazamiento :ValorNuevo
  BARRARETROLLAMADA
FIN

; Crea una ventana con una barra de desplazamiento de solo lectura.
CREAVENTANA "raíz "miventana [Ejemplo barra de desplazamiento de solo lectura] 0 0 100 30 []
CREABARRADESPLAZAMIENTO "miventana "mibarra 5 5 90 0 [ BARRARETROLLAMADA ]

; Pon el valor inicial.
ACTUALIZARBARRADEDESPLAZAMIENTO 50

Intenta cambiar la posición de la barra de desplazamiento con el ratón.
Ve como regrese al valor que puso ACTUALIZARBARRADEDESPLAZAMIENTO en BARRARETROLLAMADA.

; Cambia el valor programáticamente.
ACTUALIZARBARRADEDESPLAZAMIENTO 50

; Borra la ventana cuando hayas terminado.
BORRAVENTANA "miventana


SourceForge.net Logo