Imagem no Fundo de Tela

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

[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

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