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

Duvida Mudar cor das linhas do Browse

Discussão em 'Progress 4GL' iniciado por Yasser Rachid, Março 6, 2014.

Página 1 de 3
  1. Yasser Rachid

    Yasser Rachid Sem Pontuação

    Bom dia, preciso mudar as cores das linhas de um browse, onde a linha selecionada ficará em verde e além da linha selecionada, precisarei validar o conteúdo de outras linhas, e se estas linhas não passarem na validação, precisam ficar em vermelho. Eu já consegui mudar a cor de uma coluna inteira do Browse através dos atributos first-column e bgcolor, porém, preciso mudar a cor das linhas, e não das colunas. Encontrei o atributo Focused-row, que retorna um inteiro, e gostaria de saber se é possível transfomar esse inteiro em um handle para que eu possa manipular a linha selecionada individualmente.

    Desde já, agradeço a atenção.
    Yasser Rachid, Março 6, 2014
    #1
  2. tcoutinho

    tcoutinho Moderador Moderador Equipe de Suporte

    de uma olhada no exemplo em anexo.
    No exemplo para pintar a linha utilizo este evento do browse e se no caso estiver selecionado troco a cor. Espero que te ajude.

    Código:
    ON ROW-DISPLAY OF br-reserva IN FRAME F-Main
DO:
    IF tt-reserva.sel = "*" THEN DO:
        ASSIGN tt-reserva.sel:BGCOLOR IN BROWSE br-reserva = 10
              tt-reserva.reservas:BGCOLOR IN BROWSE br-reserva = 10
              tt-reserva.item:BGCOLOR IN BROWSE br-reserva = 10   
              tt-reserva.data:BGCOLOR IN BROWSE br-reserva = 10
              tt-reserva.un:BGCOLOR IN BROWSE br-reserva = 10   
              tt-reserva.qtde:BGCOLOR IN BROWSE br-reserva = 10
              tt-reserva.preco:BGCOLOR IN BROWSE br-reserva = 10.
   
    END.
    ELSE DO:
        ASSIGN tt-reserva.sel:BGCOLOR IN BROWSE br-reserva = 15
              tt-reserva.reservas:BGCOLOR IN BROWSE br-reserva = 15
              tt-reserva.item:BGCOLOR IN BROWSE br-reserva = 15   
              tt-reserva.data:BGCOLOR IN BROWSE br-reserva = 15
              tt-reserva.un:BGCOLOR IN BROWSE br-reserva = 15   
              tt-reserva.qtde:BGCOLOR IN BROWSE br-reserva = 15
              tt-reserva.preco:BGCOLOR IN BROWSE br-reserva = 15.
    END.
END.
    Se não conseguir ou tiver dúvida, envie seu programa.

    Arquivos Anexados:

    tcoutinho, Março 6, 2014
    #2
    Yasser Rachid curtiu isso.
  3. Yasser Rachid

    Yasser Rachid Sem Pontuação

    Olá tcoutinho, mais uma vez, obrigado pela grande ajuda. Se possível, você saberia me dizer se há como mudar a cor da linha selecionada no browse? Obrigado pela atenção.
    Yasser Rachid, Março 6, 2014
    #3
  4. Yasser Rachid

    Yasser Rachid Sem Pontuação

    Eu tentei pelo Row-entry, mas a seleção do windows fica em cima da linha, então não há como ver a cor alterada, existe algum jeito de conseguir deixar a linha colorida? Agradeço desde já.
    Yasser Rachid, Março 6, 2014
    #4
  5. tcoutinho

    tcoutinho Moderador Moderador Equipe de Suporte

    A seleção por padrão vem AZUL, você tem que colocar mais de um registro no browse, ou conforme exemplo um campo que marque com "*" por exemplo.
    tcoutinho, Março 6, 2014
    #5
    Yasser Rachid curtiu isso.
  6. edu_felix

    edu_felix Sem Pontuação

    Crie uma include e coloque o codigo abaixo:

    ON 'entry':U OF coloque aqui um campo da temporaria que esteja com update IN BROWSE br-reserva

    DO:


    IF tt-reserva.sel = "*" THEN DO:
    ASSIGN tt-reserva.sel:BGCOLOR IN BROWSE br-reserva = 10
    tt-reserva.reservas:BGCOLOR IN BROWSE br-reserva = 10
    tt-reserva.item:BGCOLOR IN BROWSE br-reserva = 10
    tt-reserva.data:BGCOLOR IN BROWSE br-reserva = 10
    tt-reserva.un:BGCOLOR IN BROWSE br-reserva = 10
    tt-reserva.qtde:BGCOLOR IN BROWSE br-reserva = 10
    tt-reserva.preco:BGCOLOR IN BROWSE br-reserva = 10.

    END.
    ELSE DO:
    ASSIGN tt-reserva.sel:BGCOLOR IN BROWSE br-reserva = 15
    tt-reserva.reservas:BGCOLOR IN BROWSE br-reserva = 15
    tt-reserva.item:BGCOLOR IN BROWSE br-reserva = 15
    tt-reserva.data:BGCOLOR IN BROWSE br-reserva = 15
    tt-reserva.un:BGCOLOR IN BROWSE br-reserva = 15
    tt-reserva.qtde:BGCOLOR IN BROWSE br-reserva = 15
    tt-reserva.preco:BGCOLOR IN BROWSE br-reserva = 15.
    END.

    end.

    espero ter ajudado
    edu_felix, Março 6, 2014
    #6
    Yasser Rachid curtiu isso.
Página 1 de 3

Compartilhe esta Página