Manual da Visual lib

[Manoel]

Boa tarde pessoal.
Estou precisando do manual da Visual lib - VL_52ex.lib
Se alguem puder me fornecer, obrigado.

[janio]

Olá, amigo!

diz teu e-mail pra gente poder mandar!

Janio

[Manoel]

Antecipadamente, obrigado.
segue meu e-mail mmfonseca@acessa.com
Atenciosamente

[janio]

Enviadoooooo.....

Janio

[Manoel]

Bom dia!
Deve ter dado algum problema....
Ainda não recebi.

[janio]

Olá,

Enviado novamente!

Janio

[Paulosoft]

Também gostaria de receber um manual da lib visual do clipper. Eu a uso e estou com um problema ao usar o comando PROMPT nela (o sistema não aceita o esc para abandonar o prompt).

[sygecom]

Para quem quiser é soh baixar no link abaixo:
http://www.sygecom.com.br/xharbour/Visu ... lipper.zip

Abraços
Leonardo Machado

[Paulosoft]

Vi o manual, mas naum vi nada que pudesse me ajudar m meu problema.
Criei um menu (usando o PROMPT) no meu sistema (com a visual Lib), mas o ESC não abandona o prompt (vide fonte abaixo). Ja coloquei Set Escape ON e tb não deu certo. Uso Clipper 5.3 com Exospace. Alguem ja passou por isso?


#include 'llibg.ch'
#include 'llibgtoo.ch'
#include 'inkey.ch'

Local lMouseVisible, PgtGetList := GetList, xtelpgt:=SAVESCREEN(,,,),;
oLLPgt:= Nil, vpodesair:=.t.

If sUtl <> "S"
Alert ("USUARIO SEM LIBERACAO PRA UTILITARIOS")
Close All
Return .T.
Endif

oLLPgt := LLWindow():New( 6, 3, 28, 76,'', "Utilitarios")

oLLPgt:Open()

gframe(32,109,608,130,7,15,8,3,3,3,3,LLG_MODE_SET,LLG_FRAME) // frame da Quantidade
lMouseVisible := mSetCursor(.T.)

@ 07,10 PROMPT " Manutencao "
@ 07,60 PROMPT " FIM "
Set Escape ON
MENU TO mp
If Lastkey()=K_ESC
///Aqui não esta entrando...
RESTSCREEN(,,,,xTelpgt)
Return .T.
Endif
DO CASE
CASE mp=1
oLLSen := LLWindow():New( 07,03,13,35,'', "MANUTENCAO")
oLLSen:Open()
SetCursor(1)

OP=1
@ 08,04 PROMPT "1.Gera Backup Geral dos Dados"
@ 09,04 PROMPT "2.Restaura Backup de Dados "
@ 10,04 PROMPT "3.Manuten‡Æo De Senha "
@ 11,04 PROMPT "4.Rotina de Cria‡Æo Empresas "
@ 12,04 PROMPT "5.Cria/Atualiza Indices Geral"

TELA04 = SAVESCREEN (00,00,23,79)
MENU TO OP
If Lastkey() = K_ESC
RESTSCREEN(,,,,xTelpgt)
Return .T.
Endif
DO CASE
CASE OP=1
CASE OP=2
CASE OP=3
CASE OP=4
CASE OP=5
ENDCASE

CASE mp=2
RESTSCREEN(,,,,xTelpgt)
Return .T.

ENDCASE
RESTSCREEN(,,,,xTelpgt)
RETU

[sygecom]

Tche, Paulo...antes de mais Nd..seja bem vindo ao Forum...

Acho que vc esta fazendo confusão....ou eu não entendi bem o que vc quer...eu entendi que queria a Visual Lib....mas dando uma relida...vc quer na verdade é uma LIB VISUAL para CLIPPER...esse topico se falava da VL.

A Visual Lib....não usa o PROMPT para criar Menus...veja abaixo um exemplo de Menus na Visual Lib...

#include "inkey.ch"
#include "visual2.ch"

Código: Selecionar todos

mCad  := NewDownMenu()
mCad1 := NewDownMenu()
mCad11:= NewDownMenu()
AddDownItem( mCAD  , "&1-Tabela de Precos",  "Tabelas ", mCAD1 )
AddDownItem( mCAD1, "&1-Tabela de COMPRA","Compra", mCAD11 )
AddDownItem( mCAD11,"&1-Cadastrar","Cadastra",{ || FUNCAO() })
BarMenu( mCad )

Abraços
Leonardo Machado

[Clipper]

Pelo que entendi ele quer usar a LLIBG e não a Visual Lib.

Prezado Paulo, se for isso poste novamente com o titulo se referindo a LLIBG, desta forma o pessoal que tem experiência com essa lib poderá te ajudar, o que não é meu caso diga-se de passagem.

Até logo.

Marcelo

[sygecom]

Se for a LLIBG ...vc pode baixar no link abaixo um exemplo:

http://www.sygecom.com.br/xharbour/Clipper_grafico.zip

Abraços
Leonardo Machado

[Paulosoft]

Obrigado Marcelo e Leonardo. :{ Achei que elas eram uma so coisa...
Esta lib que eu uso, alguem aki no forum usa?

Obrigado