Página 1 de 1
JPG com gtwvt em xharbour
Enviado: 29 Fev 2008 10:07
por paulovirt
Função para exibir imagem com gtwvt
Function Main()
Wvt_Core()
Wvt_DrawImage( 0, 0, 24, 80, "teste.jpg" )
Entretanto, se o programa é minimizado ou outra janela do Windows sobrepõe a da aplicação, a imagem é apagada, parcial ou totalmente.
Preciso então de uma rotina que insira novamente a imagem nestes casos.
Alguém possui alguma já pronta e eficiente?
Abraços
Paulo
RAZÃO
Enviado: 29 Fev 2008 18:06
por ERASMO ANDRIOLI
Colega...
Você tem toda razão...
Fiz o teste aqui e zapt...
A Imagem sumiu... e gora José...
Esperamos a turma de genios pra resolver...
Abraços
Enviado: 09 Mar 2008 14:04
por sygecom
Acontece que tem que dar um REFRESH nessa imagem cada vez que ela sair de foco, e isso no meu ponto de vista é um problema mesmo, inclusive logo no começo que passei a usar xharbour com gtwvt, coloquei uma imagem no fundo do meus sistema, e cada vez que os MENUS da VL passavam por cima ele queimava a imgem e eu tinha que deixar o comando Wvt_DrawImage() para cada saida do menu para voltar a imgen. foi um saco, o melhor que se tem a fazer é partir para uma LIB de visual grafico mesmo como a HWGUI ou MINIGUI, ai não tem essas frescura. Ou ainda se não quer partir ainda para visual totalmente grafico pode usar a wvwtools que é a melhor opção recentemente para modo semi-grafico.
Enviado: 11 Mar 2008 14:11
por clebervn
sobre essa questão... estou começando com imagem agora
o q ponho no .BC para compilar o comando wvt_drawimage ??
acho q é simples...
Enviado: 11 Mar 2008 14:42
por sygecom
deve linkar a "gtgui.lib" e a "gtwvt.lib" , ou se preferir pelo HBMAKE use a opção "GTWVT"
Enviado: 11 Mar 2008 15:15
por clebervn
ok...deu certinho compilar essas duas lib´s ai... porém não sei o q acontece q não aparece imagem alguma na tela.. pus formatos jpg e gif....
igagem
Enviado: 11 Mar 2008 19:23
por paiva
na wvw basta criar uma funcao que ela se encarrega de re-pintar a imagem ai eu coloquei um flag para ela NAo repintar cas esteja dentro de um prg + - assim
PAiva
Código: Selecionar todos
FUNCTION WVW_PAINT( nCurWindow )
LOCAL nLen := Len( aInfoPaint ), nElem
if S_WVW = [S]
if pfigura = 1
if nLen > 0
FOR nElem := 1 TO nLen
IF aInfoPaint[nElem][1] == nCurWindow
eval( aInfoPaint[nElem][2], nCurWindow )
ENDIF
NEXT
ENDIF
endif
if pfigura = 2
wvw_drawimage(0,0,0,24,79,1)
endif
endif
RETURN ( 0 )
Enviado: 23 Abr 2008 07:55
por acelconsultoria
Linkei meu PRG com as libs, tudo certinho, coloquei as chamadas wvt_core() e wvt_drawimage() e nada funcionou também. Não dá nenhum erro. Simplesmente, a imagem não aparece.
Será que é porque estou usando também a Visual Lib
??