www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Hola Camilo, saludos.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
Code: Select all | Expand
**************************************************************************************************
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())