if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
if chr( nKey ) = "ñ"
nKey = 209 //Ñ en mayusculas
else
nKey = Asc( Upper( Chr( nKey ) ) )
end
endif
Andrés González wrote:Un poco basto pero funciona, el problema es que realizas una comparacion mas por cada pulsacion. Supongo que el error debe de estar en la funcion Upper que no realiza el trabajo bien.
- Code: Select all Expand view RUN
if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
if chr( nKey ) = "ñ"
nKey = 209 //Ñ en mayusculas
else
nKey = Asc( Upper( Chr( nKey ) ) )
end
endif
Andrés González wrote:La sentencia que indicas ya viene incluida en la clase y justamente en el lugar que indicas, por lo que me temo que no es eso la solucion....
Gracias
ARCC wrote:Buen día para todos...Andrés González wrote:La sentencia que indicas ya viene incluida en la clase y justamente en el lugar que indicas, por lo que me temo que no es eso la solucion....
Gracias
Fe de errata, el problema es la funcion Upper y se resuelve con este código que se me olvidó colocar en mi post anterior. fijate lo que coloque antes y veras la función UpperCase(), lo que se me olvidó es este código colocalo al final de la clase y listo. Disculpa que pasé por alto esto.
DLL32 STATIC Function UpperCase(cStr AS STRING) AS STRING PASCAL;
FROM "CharUpperA" LIB "user32.dll"
Nota: Por favor utilizalo y me comentas.
REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN
function Main()
HB_LangSelect("ES") // Para mensajes, fechas, etc..
HB_SetCodePage("ESWIN") // Para ordenación, requiere CodePage.lib
MsgInfo( Upper( "ñ" ) )
return nil
Antonio Linares wrote:Ojo, aqui funciona bien con Harbour pero NO con xHarbour
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 95 guests