Estimado Ralph,
Por lo visto parece que hay una solución más simple :)
Análisis de la Causa Raíz
El METHOD Paste() actual en la línea 3366 lee el portapapeles así: 1-cite-0
DEFAULT cPaste := FW_GetClipBoardData( 13, .f. )
FW_GetClipBoardData(13, .f.) lee CF_UNICODETEXT (formato 13) del portapapeles y convierte UTF-16 a UTF-8 mediante UTF16TOUTF8(): 1-cite-1
Entonces cPaste es siempre UTF-8. El problema es que para GETs no-WideChar (::IsWideChar == .f.), el buffer es ANSI. Cuando las secuencias multi-byte UTF-8 de caracteres acentuados (ej: á = 0xC3 0xA1) se insertan en un buffer ANSI, se tratan como dos caracteres separados, causando la corrupción.
El método PadText() lo confirma — para GETs no-WideChar usa PadR() basado en bytes: 1-cite-2
Curiosamente, el manejador WM_PASTE con #ifdef UTFREVN (código de WenSheng) sí maneja esto correctamente, verificando ::lUnicode y leyendo CF_TEXT para GETs no-Unicode: 1-cite-3
Pero el METHOD Paste() en la línea 3353 (usado por el menú contextual y llamadas programáticas) no hace esta distinción.
Problemas en el Parche Propuesto
El parche tiene la intención correcta y funciona en la práctica, pero tiene algunos problemas técnicos:
1. Malentendido del parámetro de FW_GetClipBoardData
El segundo parámetro de FW_GetClipBoardData es lClear (limpiar portapapeles después de leer), no un indicador de Unicode: 1-cite-4
Entonces en FW_GetClipText():
cText := FW_GetClipBoardData( 13, .T. ) // .T. = Unicode/Wide ← comentario INCORRECTO
.T. en realidad significa "vaciar el portapapeles después de leer". La llamada de respaldo FW_GetClipBoardData( 13, .F. ) no obtendría nada porque el portapapeles ya fue vaciado. Funciona en la práctica porque la primera llamada casi siempre tiene éxito (Windows sintetiza CF_UNICODETEXT a partir de CF_TEXT), pero la lógica de respaldo está rota.
2. Condición redundante en FW_CleanPaste
if Asc( c ) >= 32 .or. Asc( c ) >= 128
El .or. Asc(c) >= 128 es redundante — Asc(c) >= 32 ya cubre todos los valores de 32 a 255. La condición es equivalente a simplemente Asc(c) >= 32.
3. La corrección real que lo hace funcionar
La corrección real es la conversión Utf8ToAnsi() para GETs no-WideChar. Esto es lo que resuelve la corrupción de acentos. La función FW_CleanPaste() resuelve correctamente los caracteres invisibles de páginas web.
Corrección Simplificada Recomendada
La corrección puede ser mucho más simple — solo agregar unas líneas al Paste() existente sin necesidad de FW_GetClipText():
METHOD Paste( cPaste ) CLASS TGet
...
if cPaste == nil
cPaste := FW_GetClipBoardData( 13, .f. )
// FIX 1: Convertir UTF-8 → ANSI para GETs no-WideChar
if !Empty( cPaste ) .and. !::IsWideChar
cPaste := Utf8ToAnsi( cPaste )
endif
endif
// FIX 2: Eliminar caracteres de control (CR, LF, TAB, etc.)
if !Empty( cPaste )
cPaste := FW_CleanPaste( cPaste )
endif
...
Esto evita el wrapper FW_GetClipText() por completo y no vacía accidentalmente el portapapeles.
La función estática FW_CleanPaste() es una buena adición y debería mantenerse (con la condición simplificada):
static function FW_CleanPaste( cText )
local i, c, cOut := ""
local nLen := Len( cText )
for i := 1 to nLen
c := SubStr( cText, i, 1 )
if Asc( c ) >= 32
cOut += c
endif
next
return cOut
Resumen
| Problema | Causa | Corrección |
|---|
| Tildes y ñ corruptas | FW_GetClipBoardData devuelve UTF-8, pero el buffer del GET es ANSI | Agregar Utf8ToAnsi() cuando !::IsWideChar |
| Caracteres invisibles de web | CR, LF, TAB copiados del navegador | Filtrar con FW_CleanPaste() (descartar Asc(c) < 32) |
