Caps Lock Desligado

[Grings]

.

[Luciano Bonfim]

pelo xharbour eu näo conheço näo, mas antigamente e bota antigamente nisso era possível deixar a tecla NUMLOCK ligada quando a máquina era inicializada setando uns parâmetros no setup da máquina ve se dá pra fazer com o Caps Lock.

mas porque vc quer ativar a caps lock? näo dá pra resolver usando a funçäo UPPER() ?

[Grings]

Luciano, o motivo é que uso memoedit() ...//...O problema é que durante a edição aparece minúsculo.

Nota de Moderação:
por [url=https://pctoledo.org/forum/memberlist.php?mode=viewprofile&u=100899][color=#00AA00]Pablo César[/color][/url]: Mensagem recuperada através de citações de outros usuários. Pois esta mensagem foi re-editada pelo próprio autor apagando o seu conteúdo e prejudicando o entendimento do tópico. Esta prática não é aceita no fórum.

[sygecom]

Grings ! acho que vc apenas pode dar um aviso !! ex:
IF KSetcaps( .F. )
ALERT("Caps Lock Desligado, favor ligar")
ENDIF

[MARCELOG]

KSetCaps()
Queries or changes the status of the Caps lock key
Syntax
KSetcaps( [<lNewMode>] ) --> lOldMode

Arguments
<lNewMode>
This is an optional logical value defining the new status for the Caps lock key. .T. (true) activates the Caps lock key, and .F. (false) deactivates it. Return
The function returns the previous activation mode of the Caps lock key as a logical value.

Taí.

[Grings]

.

[sygecom]

Grings.
O KSetcaps() é pára testar a situação atual do CAPS LOCK e não para mudar a situação dele !! se der uma procurada na NET talvez ache algo para mudar a situação do CAPS LOCK ou apenas de o aviso como eu disse no post acima !!!

[MARCELOG]

Bem,
eu não uso, mas o manual tá dizendo:
<lNewMode>
This is an optional logical value defining the new status for the Caps lock key. .T. (true) activates the Caps lock key, and .F. (false) deactivates it. Return
The function returns the previous activation mode of the Caps lock key as a logical value.

[Grings]

Fiz o teste:

Código: Selecionar todos

Function Main()
Scroll()
If kSetCaps(.T.)
@ 10,20 Say ´Caps Lock ativado´
Else
@ 10,20 Say ´Caps Lock desativao´
EndIf
Return(.T.)

Não retorna absolutamente nada, estando ativado ou não, também não muda o estado.

Nota de Moderação:
por [url=https://pctoledo.org/forum/memberlist.php?mode=viewprofile&u=100899][color=#00AA00]Pablo César[/color][/url]: Mensagem recuperada através de citações de outros usuários. Pois esta mensagem foi re-editada pelo próprio autor apagando o seu conteúdo e prejudicando o entendimento do tópico. Esta prática não é aceita no fórum.

[sygecom]

Procure por KbdStat() no help dp xharbour que a saida esta por ai !!!

[sygecom]

Em Tempo...segue abaixo...

Código: Selecionar todos

IF ISBIT(KbdStat(), 7)
   alert("ativado")
else
   alert("desativado")
ENDIF

Bits set for special keys Bit Key pressed
1 Shift key
3 Ctrl key
4 Alt key
5 Scroll Lock ON
6 Num Lock ON
7 Caps Lock ON
8 Insert ON

Abraços
Leonardo Machado

[ederxc]

Fiz o teste:

Function Main()
Scroll()
If kSetCaps(.T.)
@ 10,20 Say ´Caps Lock ativado´
Else
@ 10,20 Say ´Caps Lock desativao´
EndIf
Return(.T.)

Não retorna absolutamente nada, estando ativado ou não, também não muda o estado.

Brother , tinha feito mesmo teste , e só fiquei esperando alguem passar aqui pra dar a solução" apenas por curiosidade " , mas agora fiquei ainda mais curioso ,

PARA QUE SERVE kSetCaps(.T.) se não resolve nada !

[sygecom]

Fiz o teste:

Function Main()
Scroll()
If kSetCaps(.T.)
@ 10,20 Say ´Caps Lock ativado´
Else
@ 10,20 Say ´Caps Lock desativao´
EndIf
Return(.T.)

Não retorna absolutamente nada, estando ativado ou não, também não muda o estado.

Brother , tinha feito mesmo teste , e só fiquei esperando alguem passar aqui pra dar a solução" apenas por curiosidade " , mas agora fiquei ainda mais curioso ,

PARA QUE SERVE kSetCaps(.T.) se não resolve nada !

Pior, acho que para uma tentativa de compatibilidade com a CA-TOOLS

[sygecom]

Mas a ultima que postei funciona direitinho !!!

[Maligno]

PARA QUE SERVE kSetCaps(.T.) se não resolve nada !

Resolve sim. Mas depende de onde. Essa função, muito provavelmente, pra configurar o estado do CapsLock, altera a área de dados do BIOS (salvo engano, no endereço 40:17). Mas só em DOS ou Windows não-NT, já que no kernel NT, praticamente tudo do BIOS é controlado pelo kernel do SO. Ou seja, para funcionar em XP, por exemplo, seria necessária outra abordagem que simplesmente alterar um byte.

Teste no Windows 98. Deve funcionar. Há uns 15 anos atrás fiz um programa pequeno para desativar o NumLock (o processo é o mesmo). Não funciona no NT, mas no Windows 98 vai que é uma beleza.