Clipper On Line • Ver Tópico - Necesito ayuda con el use de gtwvg

Necesito ayuda con el use de gtwvg

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Necesito ayuda con el use de gtwvg

Mensagempor Adalberto » 02 Nov 2019 23:32

Buenas noches amigos del foro.

Estoy haciendo uso de:

aPaint:= {}
AAdd(aPaint, {NIL, {|| Wvt_DrawImage(00, 00, 24, 79, 'bFondo.jpg')}, NIL})   WvtSetPaint(aPaint)


Con este código obtengo un fondo de pantalla completo, necesito que ese fondo de pantalla permanezca 3 segundos y luego desaparezca y continuar 100% consola.

¿Como se hace para borrar ese fondo de pantalla?

Espero y agradezco la ayuda que me puedan brindar.

Muchas gracias!!!

Adalberto
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 03 Nov 2019 00:04

Se esse fonte já resolve o que precisa, então basta limpar aPaint

aPaint:= {}
AAdd(aPaint, {NIL, { || Wvt_DrawImage(00, 00, 24, 79, 'bFondo.jpg')}, NIL})   
WvtSetPaint( aPaint )

Inkey(3)
wvtSetPaint( {} )


Faça um teste também assim:
Wvt_DrawImage(00, 00, 24, 79, 'bFondo.jpg')
Inkey(3)
CLS


Se for apresentação do aplicativo, talvez seja mais interessante manter em uma tela de login.

telalogin.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor Adalberto » 03 Nov 2019 15:14

Buenas tardes Maestro JoséQuintas.

Muchas gracias por su ayuda.

Estoy leyendo un montón de Post y ayudas suyas, empecé ayer temprano, ya conseguí tener la imagen de presentación, y con su ayuda eliminar esa imagen, pero no tengo idea de como hacer un get/read para el loguin.

Mientras espero su colaboración seguiré leyendo los mensajes y estudiando sus fuentes.

Saludos desde la convulsionada Bolivia. (parece que mañana se desata el infierno en mi país, Dios nos ampare)

Adalberto.
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 04 Nov 2019 00:58

Adalberto escreveu: pero no tengo idea de como hacer un get/read para el loguin.


É uma opção:

aPaint:= {}
AAdd(aPaint, {NIL, { || Wvt_DrawImage(00, 00, 20, 79, 'bFondo.jpg')}, NIL})   
WvtSetPaint( aPaint )
@ 23, 30 SAY "user" GET cUser
@ 24, 30 SAY "Password" GET cPassword
READ
wvtSetPaint( {} )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor Adalberto » 04 Nov 2019 14:51

Buenas tardes maestro JoséQuintas.

a su ejemplo le aumenté lo siguiente:
aPaint:= {}
AAdd(aPaint, {NIL, { || Wvt_DrawImage(00, 00, 20, 79, 'bFondo.jpg')}, NIL})   
WvtSetPaint( aPaint )
//
cUser:= cPassWord:= SPACE(10)     // Sólo eso aumenté
//
@ 23, 30 SAY "user" GET cUser
@ 24, 30 SAY "Password" GET cPassword
READ
wvtSetPaint( {} )


Lamentablemente no corre, tal vez un Include, o algo así me falta.
Solo quiero poder hacer un GET/READ sobre la imagen.

Mil disculpas por las molestias, espero y agradezco su ayuda.

Adalberto
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 04 Nov 2019 17:43

Adalberto escreveu:Solo quiero poder hacer un GET/READ sobre la imagen.


O texto cobre a imagem, ao mesmo tempo que se ficar repintando a imagem cobre o texto.
Terá que escolher entre um ou outro, ou parte da tela com texto e parte com imagem.

Wvt_DrawImage(00, 00, MaxRow(), MaxCol(), 'bFondo.jpg')
cUser:= cPassWord:= SPACE(10)     // Sólo eso aumenté
@ 23, 30 SAY "user" GET cUser
@ 24, 30 SAY "Password" GET cPassword
READ


Nessa opção, a imagem é "temporariamente" desenhada, e o texto cobre a imagem.
Mas se minimizar, alterar tamanho da janela, ou qualquer outro movimento na janela, a imagem não vai ser repintada.
A melhor saída é dividir a tela em parte imagem, e parte texto.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 04 Nov 2019 17:47

Talvez uma janela wvgCrt() modal.
Desta forma vai ter uma janela sobre a imagem pra digitar usuário/senha.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 04 Nov 2019 18:11

Se não houvesse o problema de sumir imagem....

Imagem
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor Adalberto » 04 Nov 2019 19:47

Buenas noches Maestro JoséQuintas.

Consegui la funcion WvgCrt y lo implementé así:

#INCLUDE "HBGTINFO.CH"
FUNCTION MAIN()
WvgCrt()
cUser:= SPACE(10)
cPassword:= SPACE(10)
@ 23, 30 SAY "user"    GET cUser
@ 24, 30 SAY "Password" GET cPassword
READ
oCrt:destroy()
RETURN NIL
//
STATIC FUNCTION WvgCrt()
oCrt:= WvgCrt():Nuevo(,, {-1, -1}, {24,79},, .t.)
oCrt:lModal:= .T.
oCrt:Title:= 'EninSoft'
oCrt:icon:= 'Enin.Ico'
oCrt:create()
oCrt:ReSizable:= .T.
oCrt:Show()
CLS
RETURN NIL


No tuve éxito, al ejecutar me dice que la variable lModal no existe, da error en oCrt:Title y en oCrt:Icon; seguiré buscando, leyendo y probando todo lo que encuentre, pero también estaré esperando vuestra ayuda.

Muchas gracias Maestro.

Adalberto
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 04 Nov 2019 20:35

STATIC FUNCTION WvgCrt()


Criou uma função com o nome da função da GTWVG???? assim não funciona.

oCrt:= WvgCrt():Nuevo(,, {-1, -1}, {24,79},, .t.)


Não existe Nuevo(), só existe New()

FUNCTION MAIN()

   CLS
   Wvt_DrawImage(00, 00, MaxRow(), MaxCol(), 'lucy.jpg' )
   Login()
   ? "ok"
   Inkey(0)

   RETURN NIL

STATIC FUNCTION Login()

   LOCAL cUser:= Space(10), cPassword:= Space(10), GetList := {}, oCrt

   oCrt:= WvgCrt():New(,, { 10, 30 }, { 4, 20 },, .t. )
   oCrt:lModal:= .T.
   oCrt:Title:= 'Login'
   oCrt:icon:= 'Enin.Ico'
   oCrt:ReSizable:= .F.
   oCrt:create()
   SetColor( "W/B*,N/W,,,W/B*" )
   CLS
   @ 2, 2 SAY "user"    GET cUser
   @ 3, 2 SAY "Password" GET cPassword
   READ
   oCrt:Destroy()

   RETURN NIL


login.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 04 Nov 2019 20:45

Ou assim, usando WITH OBJECT

FUNCTION MAIN()

   CLS
   Wvt_DrawImage(00, 00, MaxRow(), MaxCol(), 'lucy.jpg' )
   Login()
   ? "ok"
   Inkey(0)

   RETURN NIL

STATIC FUNCTION Login()

   LOCAL cUser:= Space(10), cPassword:= Space(10), GetList := {}, oCrt

   WITH OBJECT oCrt := WvgCrt():New(,, { 17, 30 }, { 4, 20 },, .t. )
      :lModal    := .T.
      :Title     := 'Login'
      :icon      := 'icojpa.Ico'
      :ReSizable := .F.
      :Create()
   ENDWITH

   SetColor( "W/B*,N/W,,,W/B*" )
   CLS
   @ 2, 2 SAY "user"    GET cUser
   @ 3, 2 SAY "Password" GET cPassword
   READ
   oCrt:Destroy()

   RETURN NIL


telagtwvg.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 04 Nov 2019 21:04

Completo.
Reduzi a imagem 16 vezes, no teste era 1.20MB, 7216 X 5412

test.zip
(1.03 MiB) Baixado 171 vezes
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Necesito ayuda con el use de gtwvg

Mensagempor asimoes » 05 Nov 2019 08:29

Quintas qual é o nome da moça? não quero saber do código, kkk
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Necesito ayuda con el use de gtwvg

Mensagempor Adalberto » 05 Nov 2019 14:42

:)) Aseimoes, buenas tardes, la chica se llama Lucy.

Maestro JoséQuintas, buenas tardes.

Ahora sí funcionó muy bien, le agradezco muchisimo, ahora me pondré a buscar y estudiar como poner mensajes en modo gráfico; MsgInfo(), MsgYesNo()

Gracias nuevamente, Dios lo bendiga.

Adalberto
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Necesito ayuda con el use de gtwvg

Mensagempor JoséQuintas » 05 Nov 2019 17:10

Não gosto delas, mas uso...

FUNCTION MsgYesNo( cText )

   LOCAL lValue

   lValue := wapi_MessageBox( wvgSetAppWindow():hWnd, cText, "Confirmação", WIN_MB_YESNO + WIN_MB_ICONQUESTION

   RETURN lValue

FUNCTION MsgExclamation( cText )

   wapi_MessageBox( wvgSetAppWindow():hWnd, cText, "Atenção", WIN_MB_ICONASTERISK )

   RETURN NIL

FUNCTION MsgWarning( cText )

   wapi_MessageBox( wvgSetAppWindow():hWnd, cText, "Atenção", WIN_MB_ICONEXCLAMATION )

   RETURN NIL

FUNCTION MsgStop( cText )

   wapi_MessageBox( wvgSetAppWindow():hWnd, cText, "Atenção", WIN_MB_ICONHAND )

   RETURN NIL
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro