Password protected field with 'eye'button

[skiman]

Hi,

To create a password protected field with an 'eye' button to show the content, I thought to use the following:

Code: Select all

POPUP {|a,b| b:password:=!b:password,DC_GetRefresh(GetList),b:get:buffer } POPCAPTION "N" POPFONT "14.Webdings"

It is working, except that with the mouseover the 'eye' changes to the letter 'N'.

Any suggestions?

[Tom]

No character shown at mouseover:

Code: Select all

cPassWord := Space(20)
@ 0,0 DCGET cPassWord PASSWORD POPUP {|c|MsgBox(c)} POPSTYLE DCGUI_POPUPSTYLE_IMBEDDED POPCAPTION Chr(78) POPFONT "20.Webdings" 
DCREAD GUI FIT ADDBUTTONS

[rdonnay]

This sample works fine for me:

Code: Select all

#INCLUDE "dcdialog.CH"

LOCAL GetList[0], cPassword, oConfig

oConfig := DC_XbpPushButtonXPConfig():new()

DC_PopupButtonStyle( oConfig )

cPassWord := Space(20)

@ 0,0 DCGET cPassWord PASSWORD ;
   POPUP {|a,b| b:password:=!b:password,DC_GetRefresh(GetList),b:get:buffer } POPCAPTION "N" POPFONT "14.Webdings"

DCREAD GUI FIT ADDBUTTONS

RETURN nil

PROC appsys ; return

[skiman]

Hi Tom, Roger,

Seems as I have to check the mouseover in my modified buttonclass.