Una pregunta de párvulo

[Armando]

Amigos:

Cual es el código para que en un GET se muestre un texto antes de que el usuario teclee su valor?

Saludos

[JoseAlvarez]

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43765&p=264185&hilit=Placeholder&sid=eeb1ce1b5b531217a991efb44b4be806&sid=eeb1ce1b5b531217a991efb44b4be806#p264185

[Armando]

José:

Muchas gracias.

Un abrazo

[José Camilo]

Hola José. Buenos dias.
Por favor. me puedes indicar como logras el formato de esos GET en la pantalla donde pides el usuario y clave? que version de FW se necesita como asi tambien para usar la CLAUSULA PLACEHOLDER.?
Muchas Gracias

[JoseAlvarez]

Hola José. Buenos dias.
Por favor. me puedes indicar como logras el formato de esos GET en la pantalla donde pides el usuario y clave? que version de FW se necesita como asi tambien para usar la CLAUSULA PLACEHOLDER.?
Muchas Gracias

Hola Camilo, saludos.

Con gusto, en el transcurso del día te paso la información, déjame prepararlo.

[JoseAlvarez]

Hola Camilo,

disculpa la tardanza en responder. Estaba de viaje.

Lo primero que debes hacer es crear una imagen que te va a servir de BRUSH para el dialogo de entrada, como este que hice:



es solo una imagen, un PNG o JPG normalito, sin ningún tipo de controles.

Luego hacer el dialogo con tu editor de recursos preferido, yo uso PELLES C



cuando crees el dialogo, solo aplicas la imagen como brush, eso es todo. Por supuesto hay un trabajo que debes hacer "a pie" que es ir ubicando los gets para que encuadren dentro de la imagen que hagas.

Y el código del PRG es este:

Code: Select all  Expand view

**************************************************************************************************
Define Brush oBrush resource "Acceso" stretch //'\'+_cHost+'\Neuro32\Fondos\acceso7.jpg' stretch
define font  oFontPass  name 'Comic Sans MS' size 0, -18 bold


define font oFontUser name 'tahoma' size 0, -15  bold


Define Dialog oDlgPass of _oWnd resource "oDlg_Acceso" title 'Seguridad Informatica' Brush oBrush

    oDlgPass:lHelpIcon:=.f.

        Redefine get oGetUserNick  Var cUsuarioActivoNick   Id 106  of  oDlgPass PLACEHOLDER  'Usuario' on Change (cUsuarioActivoNick:=oGetUserNick:GetText(), oBPassSi:ForWhen())
        oGetUserNick:SetFont(oFontUser)

        Redefine get oGetPass      Var  cUsuarioActivoPass  Id 102  of  oDlgPass PLACEHOLDER  'Clave'   on Change (cUsuarioActivoPass:=oGetPass:GetText(), oBPassSi:ForWhen())
        oGetPass:SetFont(oFontUser)

        Redefine BTNBMP oBPassSi Prompt '' Center Resource 'Btn_Entrar' noborder adjust Id 4001  of oDlgPass Action (iif(fVerifyPassword(),(lSalida:=.t.,lSalida2:=.f.),(lSalida:=.f.)), oDlgPass:end())
        oBPassSi:SetColor( (255), )

        Redefine BTNBMP oBPassExit Prompt '' noborder Center Resource 'Btn_ExitApp'    Id 111  of oDlgPass Action (lSalida:=.t.,lSalida2:=.t.,oDlgPass:end())
      oBPassExit:SetColor( (255), )

Activate dialog oDlgPass center  valid lSalida on init  (oBPassSi:SetFocus())

 

Espero te sirva para que lo hagas.

Si deseas que te envie la imagen y las medidas del dialogo y los controles, déjame tu email y te los hago llegar.

[José Camilo]

MUCHAS GRACIAS JOSE!!!! MUY AMABLE.