Estou com problema com a Tecla DEL no Harbour.
Este Exemplo logo abaixo, Funciona 100% no xHarbour, já no Harbour nao funciona a tecla DEL, se alguém puder me ajudar a solucionar esta questão, agradeço, vlw
Código: Selecionar todos
//============================================================================//
// TESTE DA TECLA 'DEL' NO HARBOUR //
//============================================================================//
#include "inkey.ch"
Function Main()
Local nLinha := 0, nColuna := 0, nOpcao := 0, nArquivo := 0, nLastKey := 0
Local aFiles := { "úItem 1 " , ;
"úItem 2 " , ;
"úItem 3 " , ;
"úItem 4 " , ;
"úItem 5 " , ;
"úItem 6 " , ;
"úItem 7 " , ;
"úItem 8 " , ;
"úItem 9 " , ;
"úItem 10 " }
Clear
Set Century On
Set Cursor Off
Set Date British
Set Deleted On
Set Exclusive Off
Set ScoreBoard Off
Set Wrap On
Set Color To w+/b+
@ 00,00 Clear To 24,79
Set Color To gr+/b+
@ 00,00 To 21,79 Double
@ 22,00 To 24,79 double
@ 23,05 Say ' Enter ==> Marca | Del ==> Desmarca | Esc ==> Cancela '
@ 01,01 say ' ARQUIVOS ³'
For nLinha := 2 To Len(aFiles)+1
@ nLinha,01 say ' ³'
Next
Do While .T.
nOpcao++
nLinha := 2
nColuna := 2
For nArquivo = 1 To Len(aFiles)
@ nLinha++,nColuna Prompt aFiles[nArquivo]
Next
//--> Tecla Del
Menu To nOpcao
Do Case
Case nOpcao = 0
Exit
Case .not. LastKey() = K_DEL
aFiles[nOpcao] = StrTran(aFiles[nOpcao],'ú','')
Alert(aFiles[nOpcao]+" - "+"Tecla Enter")
otherwise
aFiles[nOpcao] = StrTran(aFiles[nOpcao],'','ú')
Alert(aFiles[nOpcao]+" - "+"Tecla Del")
EndCase
EndDo
Set Color To
Clear
Return(nil)
r]
