Una pregunta de párvulo

Una pregunta de párvulo

Postby Armando » 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:
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3199
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Una pregunta de párvulo

Postby JoseAlvarez » Fri May 10, 2024 5:37 am

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 789
Joined: Sun Nov 09, 2014 5:01 pm

Re: Una pregunta de párvulo

Postby Armando » Fri May 10, 2024 10:57 pm

José:

Muchas gracias.

Un abrazo
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3199
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Una pregunta de párvulo

Postby José Camilo » 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
José Camilo
 
Posts: 210
Joined: Wed Apr 07, 2021 3:56 pm

Re: Una pregunta de párvulo

Postby JoseAlvarez » 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.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 789
Joined: Sun Nov 09, 2014 5:01 pm

Re: Una pregunta de párvulo

Postby JoseAlvarez » 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:

Image

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

Image

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.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 789
Joined: Sun Nov 09, 2014 5:01 pm

Re: Una pregunta de párvulo

Postby José Camilo » Thu May 16, 2024 2:41 pm

MUCHAS GRACIAS JOSE!!!! MUY AMABLE.
José Camilo
 
Posts: 210
Joined: Wed Apr 07, 2021 3:56 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 44 guests