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.