nRow, nColNuméricoObligatorio
Fila y columna donde se coloca el área de texto. Con PIXEL, las coordenadas parten de la esquina superior izquierda del componente padre.
COMANDOPublicado
@ ... GET MULTILINE
@ <nRow>, <nCol> GET [<oMultiGet> VAR] <uVar> MULTILINE [OF <oWnd>] [SIZE <nWidth>, <nHeight>] [WHEN <cbWhen>] [VALID <cbValid>] [READONLY] [NOBORDER] [NO VSCROLL]Crea un campo TMultiGet para editar o mostrar texto de varias líneas.
Descripción general
El comando @ ... GET MULTILINE crea un área de texto vinculada a una variable de carácter. Durante la compilación se traduce al constructor New() de la clase TMultiGet. De forma predeterminada, permite desplazamiento vertical cuando el contenido supera la altura; también puede configurarse como solo lectura, sin borde o sin desplazamiento vertical.
Sintaxis
@ <nRow>, <nCol> GET [<oMultiGet> VAR] <uVar> MULTILINE [OF <oWnd>] [SIZE <nWidth>, <nHeight>] [WHEN <cbWhen>] [VALID <cbValid>] [READONLY] [NOBORDER] [NO VSCROLL]Parámetros
oMultiGet VARObjetoOpcional
Variable que recibe el objeto TMultiGet. Cuando se informa, VAR debe preceder a la variable editada.
uVarCaractereObligatorio
Variable de carácter cuyo texto se muestra y edita.
MULTILINECláusulaObligatorio
Selecciona el control multilínea. TEXT y MEMO son aceptados, pero MULTILINE es recomendado.
OF oWndObjetoOpcional
Diálogo, panel, folder u otro contenedor propietario. OF es recomendado.
SIZE nWidth, nHeightNuméricoOpcional
Ancho y alto del área de texto.
WHEN cbWhenLógicoOpcional
Condición que determina si el componente puede recibir foco.
VALID cbValidLógicoOpcional
Validación ejecutada al perder el foco; debe devolver .T. para permitir la salida.
READONLYCláusulaOpcional
Permite selección y copia, pero impide modificar el texto.
NOBORDER / NO BORDERCláusulaOpcional
Crea el componente sin el borde visual predeterminado.
NO VSCROLLCláusulaOpcional
Deshabilita el desplazamiento vertical aunque existan más líneas de las visibles.
COLOR · SIZE · FONT · PIXELCláusulasOpcional
Personalizan colores, dimensiones, fuente y sistema de coordenadas.
Edición de observaciones multilínea
#Include "TOTVS.ch"
User Function ExGetMultiline()
Local oDlg
Local oObservacion
Local cObservacion := ""
Define Dialog oDlg Title "Observaciones del pedido" ;
From 100, 100 To 380, 620 Pixel
@ 15, 20 Get oObservacion Var cObservacion ;
Multiline Size 250, 90 Of oDlg Pixel ;
Valid Len(AllTrim(cObservacion)) <= 500
Activate Dialog oDlg Centered
ReturnResultado esperado
El usuario puede insertar saltos de línea. VALID limita el contenido a 500 caracteres antes de permitir la salida.
Texto informativo de solo lectura
#Include "TOTVS.ch"
User Function ExTextoLeitura()
Local oDlg
Local cTexto := "Orientações:" + CRLF + ;
"1. Confira os dados." + CRLF + ;
"2. Confirme o processamento."
Define Dialog oDlg Title "Orientações" ;
From 0, 0 To 260, 520 Pixel
@ 15, 20 Get cTexto Multiline ReadOnly ;
Size 220, 75 Of oDlg Pixel NOBORDER
Activate Dialog oDlg Centered
ReturnResultado esperado
READONLY conserva la selección y copia; NOBORDER proporciona una presentación más discreta.
- Incluye TOTVS.ch para que el compilador reconozca el comando.
- La variable editada debe ser de carácter; usa GET común para valores numéricos o fechas.
- Prefiere MULTILINE a TEXT y MEMO para mantener el estándar.
- La barra vertical aparece automáticamente cuando es necesaria.
- Utiliza READONLY para textos largos que puedan seleccionarse y copiarse.
- Prefiere OF para identificar explícitamente el contenedor propietario.
- La documentación oficial advierte que COLOR/COLORS fue agregado posteriormente; confirma las versiones de AppServer y SmartClient en entornos antiguos.
- Sin MULTILINE, TEXT o MEMO, el precompilador puede generar un TGet de una sola línea.
- Cuando se informa un objeto, omitir VAR invalida la declaración.
- NO VSCROLL puede ocultar contenido que supera la altura disponible.
- VALID y WHEN deben devolver valores lógicos.
- Sin OF, el componente se asocia a la ventana o diálogo activo.
- Textos muy grandes pueden requerir límites, persistencia y tratamiento específicos.