Cláusula WHEN no EditBox

por **Poka** » 23 Nov 2021 16:55

Olá á todos.

Nos campos GetBox uso when para quando entrar no campo, mostrar um texto embaixo explicando o campo.
No EditBox não tem esta cláusula WHEN. Não vi um jeito de mostrar uma obs embaixo quando entra on EditBox.

Tem como fazer?

Grato
Poka

por **alxsts** » 23 Nov 2021 17:56

Olá!

Estranho isto... poderia postar um exemplo do teu código?

Nunca usei GetBox... nem sei se existe isto na HwGUI.

Poka escreveu:uso when para quando entrar no campo,... mostrar um texto embaixo explicando o campo.

Para esta finalidade, utiliza-se a propriedade Tooltip do controle. Faz com que apareça um balão informativo quando o mouse está sobre o controle.

por **Poka** » 25 Nov 2021 08:01

Bom dia.

Obrigado Alexandre por responder.

Para esta finalidade, utiliza-se a propriedade Tooltip do controle. Faz com que apareça um balão informativo quando o mouse está sobre o controle

Antigamente era Tooltip pra todo lado, ninguém vê, Tirei tudo, mais atrapalha do que ajuda.

para campos uso GETBOX, a cláusula WHEN faz com que ao entrar no campo, executa uma funcão, para texto uso EditBOX, que não tem essa função, O EDITBOX tem ON CHANGE que executa uma função quando vc digita alguma coisa. Mas pelo jeito não tem essa clausula WHEN.

Com WHEN sempre que entra no campo mostro no rodapé umas observações sobre o campo posicionado.

DEFINE GETBOX <ControlName>

[ ID <nId> ]
[ PARENT <ParentWindowName> ]
COL <nCol>
ROW <nRow>
[ HEIGHT <nHeight> ]
[ WIDTH <nWidth> ]
[ FIELD <FieldName> ]
[ VALUE <nValue> ]
[ ACTION <ActionProcedureName> | <bBlock>
[ ACTION2 <Action2ProcedureName> | <bBlock>
[ IMAGE <cBitmapName> | <acBitmapName>]
[ BUTTONWIDTH <nButtonWidth> ]
[ PICTURE <cPicture> ]
[ VALID <valid> ]
[ VALIDMESSAGE <cValidMessage> ]
[ MESSAGE <cMessage> ]
[ WHEN <when> ]
[ READONLY < .T. | .F.> ]
[ FONTNAME <cFontName> ]
[ FONTSIZE <nFontSize> ]
[ FONTBOLD < .T. | .F.> ]
[ FONTITALIC < .T. | .F.> ]
[ FONTUNDERLINE < .T. | .F.> ]
[ FONTSTRIKEOUT < .T. | .F.> ]
[ PASSWORD < .T. | .F.> ]
[ TOOLTIP <cToolTipText>|<acToolTipText> ]
[ BACKCOLOR <aBackColor> ]
[ FONTCOLOR <aFontColor> ]
[ ONCHANGE <uChange> ] ;
[ ONGOTFOCUS <OnGotFocusProcedure> | <bBlock> ]
[ ONLOSTFOCUS <OnLostFocusProcedure> | <bBlock> ]
[ RIGHTALIGN < .T. | .F.> ]
[ INVISIBLE < .T. | .F.> ]
[ NOTABSTOP < .T. | .F.> ]
[ NOBORDER ]
[ NOMINUS < .T. | .F.> ]
[ HELPID <nHelpId> ]

END GETBOX

WHEN clause is checked when control become focus . If defined here function or codeblock
used as WHEN param return false, control status is changed to readonly (noneditable).

DEFINE EDITBOX <ControlName>

[ ID <nId> ]
[ PARENT <ParentWindowName> ]
COL <nCol>
ROW <nRow>
[ WIDTH <nWidth> ]
[ HEIGHT <nHeight>]
[ FIELD <FieldName> ]
[ VALUE <cValue> ]
[ READONLY < .T. | .F.> ]
[ FONTNAME <cFontName> ]
[ FONTSIZE <nFontSize> ]
[ FONTBOLD < .T. | .F.> ]
[ FONTITALIC < .T. | .F.> ]
[ FONTUNDERLINE < .T. | .F.> ]
[ FONTSTRIKEOUT < .T. | .F.> ]
[ TOOLTIP <cToolTipText> ]
[ BACKCOLOR <aBackColor> ] // * or <aBackColor,aReadOnlyBackColor>
[ FONTCOLOR <aFontColor> ] // * or <aFontColor,aReadOnlyFontColor>
[ MAXLENGTH <nInputLength> ]
[ ONGOTFOCUS <OnGotFocusProcedure> | <bBlock> ]
[ ONCHANGE <OnChangeProcedure> | <bBlock> ]
[ ONLOSTFOCUS <OnLostFocusProcedure> | <bBlock> ]
[ HELPID <nHelpId> ]
[ INVISIBLE < .T. | .F.> ]
[ NOTABSTOP < .T. | .F.> ]
[ NOVSCROLLBAR < .T. | .F.> ]
[ NOHSCROLLBAR < .T. | .F.> ]

END EDITBOX

@ Wlin,xcol GETBOX t_nome;
width len(vnome)*Wsize ;
HEIGHT waltget ;
value vnome ;
picture"@x" ;
when fobs("t_nome") ;
valid f_show("t_nome") ;
font wfonte;
size Wsize ;
backcolor wbackcolorCampoGet
fontcolor wFontColorCampoGet

Poka

por **JoséQuintas** » 25 Nov 2021 09:14

Acho que equivalente ao WHEN é esse GOTFOCUS, que é quando o controle recebe o foco.

por **Poka** » 25 Nov 2021 21:17

Quintas, funciona equivalente sim.

Obrigado

Poka