GUI & telas de abertura/finalização ("splashscreen")

[Dr.Microso]

Prezados, saudações!

Fazendo testes com as GTs (wvw, wvg, wvt), estou encontrando dificuldade em implementar uma tela de abertura com imagem.
Fico grato por qualquer contribuição/idéia.

Um abraço!

[Imatech]

Olá !

Basicamente ira abrir nova janela usando:

Código: Selecionar todos

  LOCAL nTime := Time()
  LOCAL aPaint := { 'Img_Splash', { || Wvt_DrawImage( nTop,nLeft, nBottom, nRight, cFileName ) }, NIL }
  Local oCrt := WvgCrt():New( , , { -1,-1 }, { MaxRow()+1, MaxCol()+1 }, , .T. )

  oCrt:lModal := .T.
  oCrt:icon   := "Icon_From_Ressource"
  oCrt:create()
  oCrt:resizable := .F.

  WvtSetPaint( aPaint )

  While ( nTime + 5 ) < Time()
   Inkey( 1/10 )
  End

  oCrt:destroy()

*----------------------------------------------------------------------*
* This function must be linked with the application
*----------------------------------------------------------------------*
FUNCTION Wvt_Paint()
   WvtPaintObjects()
   RETURN NIL

.
.
.
.
.
Melhor fonte de informações sobre WVG:

...\contrib\gtwvg\tests

.
.
.
.
.
Para manter as imagens na tela, estudar o uso da função:

WvtSetPaint( aArray )
.
.
.
.
.
A beginer wvg tuto by: Giovanni Di Maria

http://www.elektrosoft.it/tutorials/gtwvg/gtwvg.asp

[Dr.Microso]

Muito grato pelo código/exemplo!
Um abraço!

[Abel]

Ronaldo, Imatech,

vi os exemplos, os comando wvt_ e pergunto,
consigo utilizar programacao modo console, compilado com -gui e comecar aos poucos a criar telas com a aparencia que vi no exemplo ?

se sim, quais libs ou #includes devo colocar no fonte e na compilacao ?

utilizo harbour, 3.1 nighty , e com a -gtwvt , para usar os comandos hb_gtinfo.

Abracos, desde ja agradeço
ABEL

[Imatech]

Olá Abel !

Acredito que nos post's abaixo ira encontrar o necessário:

https://pctoledo.org/forum/viewto ... hbp#p76218

https://pctoledo.org/forum/viewto ... hbp#p75618

Minha recomendação é: após ajustar o projeto usando Wvt/Wvg, fazer a migração gradual diretamente para hbQT...

Qualquer dúvida esteja a vontade para novas perguntas
.
.
.
Abç

[Dr.Microso]

Senhores, saudações!

Particularmente, acho que o assunto da tela de entrada ("splashscreen")poderia ser mais explorado, afinal, seja no ínicio do seu app ou no fim, acaba conferindo uma personalização melhor à seu produto (os softwares profissionais e de grandes corporações as possuem...).
Em função disso, criei um tópico dedicado ao tema com a finalidade de compartilhamos telas/codificação nas mais diversas GUIs (GTs, HbQt, HwGui, Fivewin...), para que possamos comparar a simplicidade ou trabalho que dá, trocarmos idéias, apresentar tecnologias e nossa arte, por que não?

Caro Abel, compartilho então no tópico abaixo, um exemplo em GTWVW...

Telas de abertura/finalização ("splashscreen")

Um abraço!

[Dr.Microso]

Ilustres colegas, saudações!

Sempre senti falta de um tópico dedicado à esse tema, desde quando codificava ainda em CA-Clipper...

Em fóruns de outras linguagens, é comum encontrarmos um ou outro tópico dedicado a explorar melhor, certos elementos (objetos) e/ou facetas que são comuns à aplicativos (browser, box, transparência, efeitos visuais, etc.) que costumam "encantar" o cliente.
A intenção é colher pontos-de-vista sobre o trabalhão que dá e/ou a facilidade de implantar determinadas estruturas, a partir da GUI que foi eleita, evidenciando até as situações onde possa se mesclar GUIs, a fim de obter certo resultado desejado, mas que pela linguagem "carro-chefe", seria complicado.

ACHO que seria interessante e muito útil, poupar-mos comentários como: "essa GUI é ultrapassada/descontinuada...", "por que você não faz na GUI tal...", "se for feito na linguagem tal, dá menos trabalho..." Tente convencer pelo exemplo compartilhando seu código e telas!
Poderá ser muito RICO se concentrarmos aqui as formas diferentes de implantação, que pode ser feita inclusive na mesma linguagem.

Excelentes postagens à todos.

[Dr.Microso]

Um simples exemplo em GTwvw

Tela de abertura


Janela principal


splash.prg

Código: Selecionar todos

#include "winuser.ch"

ANNOUNCE Hb_NoStartUpWindow              

*--------
procedure Main()
*--------
local nA

setcursor(0)	                                   
Scroll( )                                                    				

wvw_SetMainCoord( .F. )	
wvw_seticon(, 100)		                    
wvw_SetDefCentreWindow( .t. ) 	                    

*___splash
nA:=wvw_nOpenWindow( , 0, 0, 13, 39,WS_POPUP)
wvw_drawImage(nA, ,,,, "_img\splash.jpg")  	
inkey(3)                                               	
wvw_lCloseWindow(nA)                                    

*___define cor da janela
setcolor("N/W")                                                             
Scroll()

*___janela MAIN
setmode(25,80)
nA:=wvw_nOpenWindow("Janela MAIN - 25x80") 
inkey(0)					
wvw_lCloseWindow(nA)			

return *--------

Baixe aqui o arquivo executável...
Um abraço!

[Abel]

Dr.Microso,
ao clicar no topico da msg

O tópico requisitado não existe.

Abel

[Pablo César]

Caro Abel, compartilho então no tópico abaixo, um exemplo em GTWVW...

Telas de abertura/finalização ("splashscreen")

Dr.Microso,
ao clicar no topico da msg

O tópico requisitado não existe.

Abel