... ::HideSel() // Text not found -> Undo selected text endcase return( .T. ) // Convert latin characters to ANSI upper case // (for any reason AnsiUpper cause a GPF with Comercial xHB) STATIC function ToUpper( cString ) cString := upper( cString ) cString := strtran(strtran(strtran(strtran(cString,"á","Á"),"à","À"),"ã","Ã"),"â","Â") ...