JPG com gtwvt em xharbour

[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

[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

[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.

[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...

[sygecom]

deve linkar a "gtgui.lib" e a "gtwvt.lib" , ou se preferir pelo HBMAKE use a opção "GTWVT"

[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....

[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 )

[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 ??