1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
  3. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br
Cookies A2 Solutions Anuncie Aqui

Prompt(cursor de texto) no final do campo em UPDATE

Discussão em 'Progress 4GL' iniciado por ClaudineyToledo, Abril 17, 2013.

Página 2 de 3
  1. eugenio.marietti

    eugenio.marietti Consultor Progress Moderador Equipe de Suporte

    Putz... aí lascou hein?!

    Mas qual versão do Progress vc tá usando?
    eugenio.marietti, Abril 19, 2013
    #7
  2. ClaudineyToledo

    ClaudineyToledo Sem Pontuação

    OpenEdge Release 10.2A
    ClaudineyToledo, Abril 19, 2013
    #8
  3. eugenio.marietti

    eugenio.marietti Consultor Progress Moderador Equipe de Suporte

    Putz... faz tanto tempo q não mexo com o Progress Character...

    O que não funciona é o disable-auto-zap ?
    eugenio.marietti, Abril 19, 2013
    #9
  4. ClaudineyToledo

    ClaudineyToledo Sem Pontuação

    O Disable-auto-zap funciona certinho, coloco esse atributo na minha frame e dá certo, na hora que entra no campo ele não seleciona todo o conteúdo, só não sei jogar o cursor no final do conteúdo...será que é com "Cursor-offset" mesmo?
    ClaudineyToledo, Abril 19, 2013
    #10
  5. ClaudineyToledo

    ClaudineyToledo Sem Pontuação

    Quase consegui com o que você me indicou, só alterei algumas coisinhas, o único problema é que logo quando entro no update ele não joga o prompt para o final do campo, apenas quando eu começo a digitar..

    Código:
    DEF VAR a AS CHAR.
DEF VAR b AS CHAR.

FORM a DISABLE-AUTO-ZAP FORMAT "x(25)"
     b DISABLE-AUTO-ZAP FORMAT "x(25)"
     WITH FRAME tela.

ASSIGN b = "123132".

REPEAT WITH FRAME tela:
    UPDATE a 
           b EDITING:
    READKEY.
    IF FRAME-FIELD = "b"
    THEN DO:
           ASSIGN b.
           /*IF LENGTH(b) > 0 AND
              INPUT b:CURSOR-OFFSET < LENGTH(INPUT b) + 1 
           THEN*/ ASSIGN b:CURSOR-OFFSET = LENGTH(b) + 1.
         END.
    APPLY LASTKEY.
    END.
END.
    ClaudineyToledo, Abril 19, 2013
    #11
  6. eugenio.marietti

    eugenio.marietti Consultor Progress Moderador Equipe de Suporte

    Cara, se o cursor-offset não funciona... poderia tentar alguma coisa assim...

    Código:
    Def Var i       As Int  No-undo.
Def Var c-teste As Char No-undo Init "Teste" View-as Fill-in.
Def Var l-zap   As Log  No-undo Init Yes.

Def Frame f-teste
    c-teste.

Assign c-teste:Disable-auto-zap = Yes.

Update c-teste With Frame f-teste
    Editing:
        If l-zap Then Do:
            Assign l-zap = No.
            Do i = 1 To Length(c-teste):
                Apply Keycode("Cursor-right").
            End.
        End.
        Readkey.
        Apply Lastkey.
    End.
    eugenio.marietti, Abril 22, 2013
    #12
Página 2 de 3

Compartilhe esta Página