PC Toledo

Enviado: **15 Jan 2008 11:33**

Olá Amigos

Peguei uma funcao aqui no CLIPPER ONLINE, para poder usar o Mouse, com a Lib CLIPMOUS, e ficou muito bom.

A pergunta que faço é a seguinte:

Como que devo fazer o .prg para usar simultaneamente o Mouse e o Menu to Prompt ?

Vejam abaixo o meu .prg, e se possivel, me ajudem.

Muito obrigado.

Rosalvo.

Código: Selecionar todos

Procedure MenuRelat 

TelMenRel() 
OK = Minit() && mouse initialization 
set cursor off 
Mshow() && show mouse cursor 
nMouse:= 0 
opcao:= 0 
Do While (.T.) 
  If My() = 06 .and. Mx() < 20 .and. Mbout() > 3 
    set cursor on 
    ** relven() 
    nMouse:= 1 
  Elseif My() = 07 .and. Mx() < 20 .and. Mbout() > 3 
    set cursor on 
    ** relmerc() 
    nMouse:= 1 
  Elseif My() = 08 .and. Mx() < 20 .and. Mbout() > 3 
    set cursor on 
    Exit 
  EndIf 
  Menu to opcao 
  Do Case 
    Case opcao = 1 
      ** relven() 
      nMouse:= 1 
    Case opcao = 2 
      ** relmerc() 
      nMouse:= 1 
    Case opcao = 3 
      ** relmerc() 
      set cursor on 
      Exit 
  EndCase 
  If nMouse = 1 
    TelMenRel() 
    Mend() && remove mouse support 
    OK = Minit() && mouse initialization 
    set cursor off 
    Mshow() && show mouse cursor 
    nMouse:= 0 
  EndIf 
EndDo 
Mend() && remove mouse support 
Return 
***************************************************8 
Func TelMenRel() 
Clear Screen 
Set Color To ("w+/b+, w+/rd+, b, ,n+/w") 
@ 1, 1 To 3, 78 Double 
@ 2, 3 Say padc(" RELATORIOS DE VENDAS ", 74) 
@ 4, 21 To 23, 78 Double 
@ 4, 1 To 12, 20 Double 
@ 5, 2 Prompt " 1 - VENDAS " 
@ 6, 2 Prompt " 2 - MERCADORIAS " 
@ 7, 2 Prompt " 3 - RETORNAR " 
***************************************************8

Enviado: **15 Jan 2008 20:30**

Bom, não sei como resolver seu problema, alias nem vi seu codigo direto,apenas uma dica, se usar a VL para desenvolver seus MENUS isso funciona automatico...

Enviado: **16 Jan 2008 09:19**

Tche Leonardo, vc foi o unico que respondeu e ainda fiquei na mão.
Mas valeu a intenção.
Obrigado mesmo assim.

Enviado: **16 Jan 2008 10:43**

Cara,

Se você quer mesmo investir em visual for DOS, utilize a bibliotca LLIBG, que é o melhor e mais completo ambiente gráfico para Clipper.

Eu no seu caso não utilizaria essas outras libs "extra-oficiais" ...

Enviado: **17 Jan 2008 00:14**

Rosalvo, procure na seção Download/Funções com Fontes, na página principal do meu site, pelo arquivo de número 028 - Exemous.

Abraços,

Enviado: **17 Jan 2008 09:25**

Muito obrigado Toledo.

Sua função é muito boa. Já tá rodando no meu sistema. Uma beleza mesmo.

Um abraço.

Rosalvo. :)Pos

Porém, no modo protegido, deu algum problema tempos atrás e tive que optar por CLIMOUSE.OBJ + CLIPMOUS.ASM.
Ficava dando erro da NTVDM. (Windows XP )
Qq coisa me avise.
Mário

Prezados colegas.

Como fazer para que o mouse poda rodar nos campos GETs?

Estou utilizando a CLIPMOUS.LIB, que baixei de pagina principal de PcToledo.

Muito obrigado pela ajuda.

Colegas clippeiros:

Ainda estou aguardando a gentil ajuda de vocês, qualquer coisa me avisem.

Muito obrigado.

Adalberto, você quer que o ponteiro do mouse fique apenas na posição onde estão os GETs ? Se fore isso, demandaria um procedimento mais elaborado que esteja em looping e você mesmo delimite os parâmetros onde pode ficar. Eu particularmente uso algumas funções modificadas que o Miro3 criou para os menús, mas não exibo ponteiro algum do mouse nos GETs.

Pablo César,

Muito abrigado pela resposta tão rápida, estou usando a LIB já mencionada, tudo bem em os menu, pois essa LIB só tem poucas instruções e a posição do ponteiro não precisa de indicar área, apenas a fila e a coluna do mouse que e capturado com o INKEY.

Mais não roda direito no GetSys que tb tem implementado um INKEY.

Grato pela ajuda, Deus abençoe você.

Adalberto escreveu:apenas a fila e a coluna do mouse que e capturado com o INKEY.

Adalberto, você utiliza o Clipper 5.2 ?. Porque na versão 5.3 o INKEY tem mais um parâmetro que utiliza-se dos eventos do mouse. Dê uma olhada no INKEY do Clipper 5.3.

Grato pela ajuda, Deus abençoe você.

Gracias, a ti tambien Adalberto.

PC Toledo

Como usar o mouse e/ou o teclado ??

Como usar o mouse e/ou o teclado ??

como usar o mouse e/ou o teclado

como usar o mouse e/ou o teclado

como usar o mouse e/ou o teclado

Re: como usar o mouse e/ou o teclado