CUEBANNER is disappear when ::SetFocus() ?

[dutch]

I've a question about CUEBANNER.

When I use CUEBANNER on GET (Character), it will cuebanner text will disappear when ::gotfocus even I do not enter anything (still empty) but for PASSWORD not disappear if GET is empty.
I try this sample, it doesn't show anything.

Code: Select all  Expand view

#include 'fivewin.ch'

function main
local oDlg, oGet[2], oFnt
local cUser, cPass

cUser := space(10)
cPass := space(10)
DEFINE FONT oFnt NAME "Tahoma" SIZE 0, -20
DEFINE DIALOG oDlg FROM 0, 0 TO 400, 400 PIXEL FONT oFnt

  @ 30, 30 GET oGet[1] VAR cUser OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE COLOR CLR_BLUE, CLR_WHITE FONT oFnt  CUEBANNER "User Id"

  @ 60, 30 GET oGet[2] VAR cPass OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE PASSWORD COLOR CLR_BLUE, CLR_WHITE FONT oFnt CUEBANNER "Password"

ACTIVATE DIALOG oDlg CENTER
return nil

Thanks in advance for any suggestion.

[dutch]

This is my login program that I need but the CUEBANNER is disappear when Get[1]:GotFocus().
If I oGet[1]:setfocus(), CUEBANNER "User Id" will never show. For PASSWORD Clause is working well.
For this sample, I setfocus to Exit button.

[Antonio Linares]

We are reviewing it

[dutch]

Thank you so much.

We are reviewing it

[nageswaragunupudi]

Please wait for FWH 17.08
I know you use FW_SetUnicode( .t. ). Please use it.
Then you add " CHRGROUP CHR_WIDE" to the first Get.

This is the revised code:

Code: Select all  Expand view

#include 'fivewin.ch'

function main
local oDlg, oGet[2], oFnt
local cUser, cPass

FW_SetUnicode( .T. )

cUser := space(10)
cPass := space(10)
DEFINE FONT oFnt NAME "Tahoma" SIZE 0, -20
DEFINE DIALOG oDlg FROM 0, 0 TO 400, 400 PIXEL FONT oFnt

  @ 30, 30 GET oGet[1] VAR cUser OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE COLOR CLR_BLUE, CLR_WHITE FONT oFnt  CUEBANNER "User Id" CHRGROUP CHR_WIDE

  @ 60, 30 GET oGet[2] VAR cPass OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE PASSWORD COLOR CLR_BLUE, CLR_WHITE FONT oFnt CUEBANNER "Password"

ACTIVATE DIALOG oDlg CENTER
return nil

[dutch]

Dear Mr.Rao,

CHR_WIDE, It works with 17.07 too.
Thanks a lot.

A little more, Can I make another TSAY:Hide() when cUser is empty. Then TSAY:Show() when cUser is not empty.
I try ::bKeyDown(), ::bGotFocus() but it doesn't work.

Please wait for FWH 17.08
I know you use FW_SetUnicode( .t. ). Please use it.
Then you add " CHRGROUP CHR_WIDE" to the first Get.

This is the revised code:

Code: Select all  Expand view

#include 'fivewin.ch'

function main
local oDlg, oGet[2], oFnt
local cUser, cPass

FW_SetUnicode( .T. )

cUser := space(10)
cPass := space(10)
DEFINE FONT oFnt NAME "Tahoma" SIZE 0, -20
DEFINE DIALOG oDlg FROM 0, 0 TO 400, 400 PIXEL FONT oFnt

  @ 30, 30 GET oGet[1] VAR cUser OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE COLOR CLR_BLUE, CLR_WHITE FONT oFnt  CUEBANNER "User Id" CHRGROUP CHR_WIDE

  @ 60, 30 GET oGet[2] VAR cPass OF oDlg SIZE 100, 12 PIXEL NOBORDER UPDATE PASSWORD COLOR CLR_BLUE, CLR_WHITE FONT oFnt CUEBANNER "Password"

ACTIVATE DIALOG oDlg CENTER
return nil