Como hago para que se actualice la foto

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Como hago para que se actualice la foto
Posted: Tue Feb 27, 2007 12:57 PM

Lo dicho muestro una foto dependiendo del usuario, me la muestra bien puesto que coge eluser que tiene definido windows como usuario pero si cambio de usuario (en el objeto GET oUser VAR x_user) no me actualiza la imagen. Alguana idea?

Code: Select all Collapse

function lGetPassword()

   local oDlg, oUser, oPass
   local nTries    := 0 //Nº de intentos que quiero permitir
   local lGo       := .f.
   local oImg

   x_user = UPPER(GETENV("USERNAME"))+ space(4)
   x_pass = space(10)

   DEFINE DIALOG oDlg ;
          FROM 5, 5 TO 20, 50 ;
          TITLE "Por favor identifiquese..."

   @ 1,   1 BITMAP oBmp FILENAME ".\..\Bmp\Pass.Bmp" OF oDlg NOBORDER
   @ 1,   8 SAY "GESTION OPERATIVA" OF oDlg
   @ 4,   1 SAY "Nombre:" OF oDlg
   @ 5.3, 1 SAY "P. de Acceso:" OF oDlg
   @ 4,   8 GET oUser VAR x_user picture "@!" OF oDlg SIZE 50 , 10 UPDATE
   @ 5.3, 8 GET oPass VAR x_pass picture "@!" OF oDlg PASSWORD  SIZE 50 , 10
   @ 2,  14 IMAGE oImg FILE "..\COMU\FOTOS\"+alltrim(x_user)+".jpg" SIZE 50, 60 ADJUST UPDATE


   @ 5, 4 BUTTON "&Continuar" OF oDlg ;
           ACTION ( nTries++,;
                   lGo := ComprueboAcceso( x_user, x_pass ) ,;
                   If( nTries > 3 .or. lGo, oDlg:End(),;
                   ( MsgAlert( "Datos Incorrectos..."+ Chr(13) +"Intenta otra vez" ), oUser:SetFocus(), oPass:SetFocus() ) ) )

   oBmp:lTransparent = .t.  // Hago el bmp transparente

   ACTIVATE DIALOG oDlg CENTERED ON PAINT (  oPass:SetFocus()   )


   return lGo

Saludos

Andrés González desde Mallorca

PoloMesh

Posts: 5

Joined: Sat Dec 09, 2006 01:27 PM

Como hago para que se actualice la foto
Posted: Tue Feb 27, 2007 03:49 PM

Hola Andrés, no deberías refrescar o volver a pintar el objeto oImg en el momento que la función de validación ComprueboAcceso te de un resultado favorable. Ya lo has probado?

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como hago para que se actualice la foto
Posted: Tue Feb 27, 2007 05:37 PM

Andrés,

@ 5.3, 8 GET oPass VAR x_pass picture "@!" OF oDlg PASSWORD SIZE 50 , 10 VALID ( oImg:LoadImage( , "..\COMU\FOTOS\"+alltrim(x_user)+".jpg" ), oImg:Refresh(), .T. )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Como hago para que se actualice la foto
Posted: Wed Feb 28, 2007 06:27 AM

Nuevamente Gracias Antonio.

Saludos

Andrés González desde Mallorca

FiveTech Support Forums

Continue the discussion