FiveTech Software tech support forums

Posted: **Fri May 10, 2024 4:17 am**

Amigos:

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

Saludos :oops:

Posted: **Fri May 10, 2024 5:37 am**

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

Posted: **Fri May 10, 2024 10:57 pm**

José:

Muchas gracias.

Un abrazo

Posted: **Sun May 12, 2024 3:49 pm**

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

Posted: **Mon May 13, 2024 1:50 pm**

José Camilo wrote: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.

Posted: **Tue May 14, 2024 9:17 pm**

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.

Posted: **Thu May 16, 2024 2:41 pm**

MUCHAS GRACIAS JOSE!!!! MUY AMABLE.

FiveTech Software tech support forums

Una pregunta de párvulo

Una pregunta de párvulo

Re: Una pregunta de párvulo

Re: Una pregunta de párvulo

Re: Una pregunta de párvulo

Re: Una pregunta de párvulo

Re: Una pregunta de párvulo

Re: Una pregunta de párvulo