Ativar mouse em programas DOS
Enviado: 20 Jan 2009 17:59
Função para ativar o mouse:
Inclua uma chamada para a função no laço principal de sua rotina Main()
Ex:
Function main()
cls
do while .t.
oMouse()
...
...
enddo
return(nil)
funciona nos menus, gets, etc...
e é só isso
....................................
Nota da Moderação(Sygecom):
Mensagem editada para mudar as TAG de QUOTE para CODE
Código: Selecionar todos
#include 'inkey.ch'
PROCEDURE oMouse()
LOCAL nEvent, nRow, nCol
MShow()
SET EVENTMASK TO 255
nEvent := Inkey(0.1)
IF nEvent == K_LBUTTONDOWN
nRow := MRow()
nCol := MCol()
@ nRow, nCol
ENDIF
RETURN
Ex:
Function main()
cls
do while .t.
oMouse()
...
...
enddo
return(nil)
funciona nos menus, gets, etc...
e é só isso
....................................
Nota da Moderação(Sygecom):
Mensagem editada para mudar as TAG de QUOTE para CODE