mas estou com as seguintes dúvidas compilando com HABOUR 3.2.0(dev) GTWVG:
1-A tela principal do sistema demora para abrir e todas as outras telas chamadas, demoram também por causa dessa imagem
com tamanho de 20 KB.
2-Como faço para a imagem ficar apenas na tela principal do sistema, no caso de imagens, tem como restaurar a tela ?
STATIC PROCEDURE IMAGEM
LOCAL aPaint
Wvt_SetGui( .T. )
SetMode( 25, 80 )
SetColor( "N/W" )
aPaint := {}
AAdd( aPaint, { NIL , { || Wvt_DrawImage(21, 1 , 22, 78, "rodape.jpg" ) } , NIL } ) // linha, coluna, linha,coluna
WvtSetPaint( aPaint )
@ 23, 0
* WAIT
RETURN
FUNCTION Wvt_Paint()
WvtPaintObjects()
RETURN NIL