HABILITABARRADESPLAZAMIENTOnombre
habilitar
SCROLLBARENABLEnombre
habilitar
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.
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