Mouse no Prompt (Continuo sem conseguir)

[managercorp]

Alguem tem uma lib, ou um fonte exemplo para funcionar o mouse na espera de um menu de prompt ??
Uso o clipper 5.3 com exospace

A lib que tenho a clipmous nao funciona no prompt

[Stanis Luksys]

Olá,

Como saída para isso você pode utilizar a lib VISUAL LIB e implementar o mouse em todas as rotinas do seu sistema.

A desvantagem dessa lib (e é por isso que eu não uso), é que o sistema fica sempre muito padronizado de acordo com o que os criadores dela quiseram, e assim quando você bate o olho no sistema você já sabe que foi utilizada a Visual Lib.

A melhor alternativa para o Clipper 5.3, ao meu ver, seria utilizar a lib LLIBG, que já vem com o clipper. Com essa lib você pode fazer gráficos, utilizar o mouse (tipo gráfico, e não aquele igual do Edit do DOS) sempre que quiser, alterar suas fontes etc...

Se quiser um tutoria da LLIBG quase(!) completo entre no meu site e baixe o tutorial do Clipper 5.3 que tem lá... (PDF)

Fora isso, aqui mesmo no fórum tem o fonte de um bom substituto para o @..prompt, que permite utilizar o mouse, e pela net você encontra várias rotinas para esse fim...

Até mais

[joseduarte]

não quero ser chato, mas bem que o colega stanis podia colocar um arquivo que servisse pra alguma coisa, pq eu fui no seu site e baixei o tutorial de clipper em formato zip, mas dá erro e não abre nada !!!!

[culik]

Ola

O clipper 5.3 tem suporte nativo a mouse.

Coloque no .prg com a funcao main
#include "set.ch"
Coloque dentro da sua funcao main, logo apos as declaracoes de memoria do mesmo.
SET(_SET_EVENTMASK,159)

[]s
Luiz

[joseduarte]

obrigado colega Culik, fiz uns testes e consegui habilitar o mouse normalmente !

[managercorp]

Nao to conseguindo colocar o mouse pra funcionar
veja exemplo: uso o clipper 5.3

Código: Selecionar todos

CLEAR
SET ESCAPE ON
SET TALK OFF
SET DELI Off
SET DELI TO '[]'
SET BELL OFF
SET CONF OFF
SET EXAC ON
SET INTE ON
SET SCOR OFF
SET DELE ON
SET DATE BRIT
SET WRAP on
SET MENU OFF
SET CURS ON
SET EXCLUSIV OFF
set CENTURY ON
ANNOUNCE RDDSYS
REQUEST DBFCDX
RDDSETDEFAUT("DBFCDX")
private nRecsDone := 0
nRecsDone := 0
clear
#include "inkey.ch"
#INCLUDE "SET.CH"
SET(_SET_EVENTMASK,159)
XMENU=1
DO WHILE .T.
   @ 10,10 PROMPT '1 - OPCAO 1'
   @ 11,10 PROMPT '2 - OPCAO 2'
   MENU TO XMENU
ENDDO

MEU LNK !
FI X
Lib extend,cld,dbfntx,dbfcdx,_dbfcdx,libman,PRN_LPT,CTP
OVERLAY CODE
BEGINAREA
SECTION INTO X1.OVL FILE X
ENDAREA

[Antonio]

Testei aqui com Harbour. Com clipper 5.3 deve funcionar tambem.

Código: Selecionar todos

Func Main() 
     
     Clear
     Set Esca On
     Set Talk Off
     Set Deli Off
     Set Deli to '[]'
     Set Bell Off
     Set Conf Off
     Set Exac On
     Set Inte On
     Set Scor Off
     Set Dele On
     Set Date Brit
     Set Wrap on
     Set Menu Off
     Set Curs On
     Set Excl Off
     Set Cent On

     Announce Rddsys
     Request DbfCdx
     RddSetDefault("DbfCdx")
     
     private nRecsDone := 0
     Set( _SET_EVENTMASK,159 )
     
     Xmenu=1
     
     Whil .t.
     
      @ 10,10 Promp '1 - Opção 1'
      @ 11,10 Promp '2 - Opção 2'
      @ 12,10 Promp '3 - Opção 3'
      @ 13,10 Promp '4 - Opção 4'
      @ 14,10 Promp '5 - Opção 5'
      @ 15,10 Promp '6 - Opção 6'
      @ 16,10 Promp '7 - Opção 7'
      @ 17,10 Promp '8 - Opção 8'

     Menu to Xmenu
     End

Return(nil)