10. Utextbox: deshacer y rehacer

Este código creado inicialmente por angelnu, y mejorado por fabianfv en el hilo del foro gambas-es.org (http://www.gambas-es.org/viewtopic.php?f=4&t=1031&postdays=0&postorder=asc&start=0), nos describe como crear un control textbox añadiendole la propiedad de deshacer y rehacer. A destacar que crea sus propios eventos con su propio observador de eventos y con varios niveles de undo.

Según la documentación:

hObserver = NEW Observer ( Object AS Object [ , After AS Boolean ] )

Crea un nuevo observador en el objeto especificado.

Si el valor de After se establece en TRUE, entonces el observador capturará los eventos después de que hayan sido procesados. En ese caso, no podrá cancelarlos.

A continuación el código:

EXPORT

INHERITS TextBox

'Para que el control se dibuje como un TextBox

PUBLIC CONST _DrawWith AS String = "TextBox"

PRIVATE MiTexto AS String[] 'almacena el texto

PRIVATE indice AS Integer ' numero de elementos del array

PRIVATE DondeEstoy AS Integer ' posicion dentro del array

PRIVATE $hObserver AS Observer ' interceptar el evento change del textbox

PRIVATE BolDeshago AS Boolean ' bandera para no disparar el evento change cada vez que deshacemos o rehacemos

PUBLIC SUB _new()

MiTexto = NEW String[]

MiTexto.Add(SUPER.Text, 0)

$hObserver = NEW Observer(ME) AS "TextBox"

END

PUBLIC SUB TextBox_Change()

IF BolDeshago THEN

STOP EVENT

ELSE

indice += 1

MiTexto.Add(SUPER.Text, indice)

DondeEstoy = indice

ENDIF

END

PUBLIC SUB Deshacer()

IF indice > 0 AND DondeEstoy > 0 THEN

BolDeshago = TRUE

DondeEstoy -= 1

SUPER.Text = MiTexto[DondeEstoy]

BolDeshago = FALSE

ENDIF

END

PUBLIC SUB Rehacer()

IF indice > 0 AND DondeEstoy < indice THEN

BolDeshago = TRUE

DondeEstoy += 1

SUPER.Text = MiTexto[DondeEstoy]

BolDeshago = FALSE

ENDIF

END

PUBLIC SUB Limpiar_Deshacer()

MiTexto.Clear

MiTexto.Add("", 0) 'Añadimos un elemento vacio

indice = 0

BolDeshago = FALSE

DondeEstoy = 0

END

Bien, una vez hecho todo esto, para crear el control haríamos como los casos anteriores (no los voy a explicar ya que están dicho en las paginas 18 y 19 )

Ahora vamos a probarlo en un programa. Creamos un programa llamado “pruebautextbox”, añadimos el componente que hemos diseñado “utextbox” y en el formulario, añadimos 2 botones (hacer y deshacer) y un utextbox, que quede así:

Luego en el código ponemos:

PUBLIC SUB Buttonrehacer_Click()

utextbox1.Rehacer()

END

PUBLIC SUB Buttondeshacer_Click()

utextbox1.Deshacer()

END

Le damos a ejecutar, metemos varios caracteres (incluso podemos borrar) y pulsando el boton deshacer y rehacer vemos como se van realizado los cambios.