Tecla | Acción |
---|---|
ARRIBA | Mover el cursor una línea arriba.¹ El texto se deselecciona. |
CTRL + ARRIBA | Mover el cursor un procedimiento arriba.¹ El texto se deselecciona. |
ALT + ARRIBA | Intercambiar la línea actual con la anterior y mover el cursor una línea arriba. Si el texto está seleccionado, mover la selección una línea arriba. |
ABAJO | Mover el cursor una línea abajo.¹ El texto se deselecciona. |
CTRL + ABAJO | Mover el cursor un procedimiento abajo.¹ El texto se deselecciona. |
ALT + ABAJO | Intercambiar la línea actual con la siguiente y mover el cursor una línea abajo. Si el texto está seleccionado, mover la selección una línea abajo. |
IZQUIERDA | Mover el cursor un carácter a la izquierda.¹ El texto se deselecciona. |
CTRL + IZQUIERDA | Mover el cursor una palabra a la izquierda.¹ El texto se deselecciona. |
DERECHA | Mover el cursor un carácter a la derecha.¹ El texto se deselecciona. |
CTRL + DERECHA | Mover el cursor una palabra a la derecha.¹ El texto se deselecciona. |
INICIO | Mover el cursor al inicio de la línea, teniendo en cuenta la indentación.¹ El texto se deselecciona. |
CTRL + INICIO | Mover el cursor al inicio del archivo. El texto se deselecciona. |
ALT + INICIO | Mover el cursor a la primera línea anterior no vacía con el mismo nivel de indentación.¹ El texto se deselecciona. |
FIN | Mover el cursor al final de la línea.¹ El texto se deselecciona. |
CTRL + FIN | Mover el cursor al final del archivo. El texto se deselecciona. |
ALT + FIN | Mover el cursor a la primera línea siguiente no vacía con el mismo nivel de indentación.¹ El texto se deselecciona. |
ENTER o RETURN | Insertar una nueva línea, con posible inserción automática.² El texto seleccionado se elimina. |
CTRL + ENTER | Colapsar o expandir la parte de texto actual entre dos límites. |
CTRL + ALT + ENTER | Colapsar o expandir todos los límites. |
BACKSPACE | Eliminar un carácter a la izquierda y mover el cursor en consecuencia. El texto seleccionado se elimina. |
CTRL + BACKSPACE | Eliminar una palabra a la izquierda y mover el cursor en consecuencia. El texto seleccionado se elimina. |
SUPRIMIR | Eliminar un carácter a la derecha sin mover el cursor. El texto seleccionado se elimina. |
SHIFT + SUPRIMIR | Eliminar la línea actual. |
CTRL + SUPRIMIR | Eliminar una palabra a la derecha sin mover el cursor. El texto seleccionado se elimina. |
AV PÁG | Mover el cursor una página arriba.¹ El texto se deselecciona. |
CTRL + AV PÁG | Cambiar al archivo editado anterior. |
RE PÁG | Mover el cursor una página abajo.¹ El texto se deselecciona. |
CTRL + RE PÁG | Cambiar al siguiente archivo editado. |
TAB | Insertar un carácter de tabulación si no hay texto seleccionado. De lo contrario, el texto seleccionado se indenta.³ |
SHIFT + TAB | Desindentar el texto seleccionado. No hace nada si no hay texto seleccionado. |
INSERT | Alternar el modo de inserción / selección de bloque del editor. |
CTRL + A | Seleccionar todo el texto. |
CTRL + C | Copiar el texto seleccionado al portapapeles. |
CTRL + X | Eliminar el texto seleccionado y copiarlo al portapapeles. |
CTRL + V | Pegar el contenido del portapapeles. El texto seleccionado se reemplaza. |
CTRL + Z | Deshacer el último cambio. |
CTRL + Y | Rehacer el último cambio deshecho. |
F2 | Buscar la definición de un símbolo. |
SHIFT + F2 | Volver a la posición anterior registrada del cursor. |
F3 | Buscar la siguiente ocurrencia. |
SHIFT + F3 | Buscar la ocurrencia anterior. |
F12 | Alternar entre el editor de formularios y el editor de código. |
Public Sub tv_Data(Row As Integer, Column As Integer)
'rellenamos las celdas con el contenido de los campos.
$res.MoveTo(row)
If $cfields[tv.columns[column].title] = Gb.Boolean Then 'los campos booleanos según el picture de la celda
If $res[tv.columns[column].title] = True Then
tv[row, Column].Picture = Stock["24/ok"]
Else
tv[row, Column].Picture = Null
Endif
Else
tv[row, column].Text = $res[tv.columns[column].title] 'Se guarda el texto en Text
If $completos Then
calcHeight(row, column) 'Se cambia el alto de la fila si es necesario.
Endif
Endif
End
Private Sub calcHeight(row As Integer, column As Integer)
Dim nAlto, nAncho, anchoLinea As Integer
Dim alineas, alinea As String[]
Dim linea As String
nAncho = tv.columns[column].W
alineas = Split(tv[row, column].text, "\n")
nAlto = alineas.Length
For Each linea In alineas
anchoLinea = tv[row, column].Font.TextWidth(linea)
If ancholinea > nAncho Then
If InStr(linea, " ") > 0 Then
nAlto += Int(ancholinea / nancho)
Endif
Endif
Next
If nAlto > 1 Then
tv.Rows[row].H = (nAlto * tv.Font.h) + tv.Rows.h
tv[row, column].WordWrap = True
Endif
End