Página 1 de 1
Imagem no Fundo de Tela
Enviado: 18 Dez 2007 11:56
por celo.michels
Código: Selecionar todos
wvw_size_ready(.t.)
screenWidth := Wvw_GetScreenWidth()
WITH OBJECT ( oApp := WvW_tApplication():New( CurDrive() + ":\" + CurDir() ) )
:Setup(19,22)
:setstyle( -1 )
:bTitle := "autoMASTER " + IK_VERatu
:lDevelopment := .T.
:SetMenu()
:AddGuiObject( {||Wvw_DrawImage(0,0,0,18,21,"Login.bmp")} )
end
IF (zPONTEIRO := zBIRO( zPONTEIRO )) == 0
EXIT
ELSEIF !zDADOS( zPONTEIRO, zNOMexe() )
RETURN
ENDIF
Em zdados executo a tela de Login do sistema aó que ao minimizar ou passar alogo por cima some a imagem e fica o fundo Branco.
Onde foi que eu errei?
Enviado: 18 Dez 2007 13:33
por angeiras
Olá,
Com a GTWVW voce sempre tem que salvar os objetos graficos desenhados para um redesenho, caso minimize ou alguma janela sobrescreva ( tem o wvwtest9.prg como exemplo ).
Já com a wvwtools nao sei se é automático ou tem que fazer o redesenho manualmente.
[]s
Manoel Angeiras
Enviado: 18 Dez 2007 16:54
por Luciano Bonfim
Amigo,
coloca esse código no seu programa principal...
Código: Selecionar todos
function wvw_Paint( nWinNum )
if nWinNum==0
keyboard(chr(K_CTRL_F1)) // para forcar o desenho da imagem do drawimage, vai saber pq!!!!
endif
return(0)