Quebra de linha no EditBox

Esta já foi uma dúvida minha, muitas vezes procurei e passou desapercebido de mim, acho que o motivo foi ter usado outras linguagens de programação, onde esta opção normalmente é tratada como quebra de linha automática, mas aqui simplesmente basta definir que o componente não terá rolagem horizontal para ter a quebra de linha e o inverso para não ter a quebra de linha. É bem lógico, mas pode passar desapercebido se não prestarmos atenção.

A imagem ao lado mostra uma forma de utilizar o componente, ai no caso faz parte de um leitor simplificado de “ebooks”, imagine ter que ficar rolando a tela na horizontal como seria ruim, não seria também nada estético.

Por exemplo para digitar um texto de literatura você precisa da quebra de linha automática, mas para o código-fonte de um programa não. Então a propriedade HSCROLLBAR resolve este nosso problema.

Este componente pode ser utilizado para editar campos do tipo MEMO e também arquivos padrão ASCII (TXT) por exemplo.

    DEFINE EDITBOX Edit_1
        ROW    30
        COL    40
        WIDTH  170
        HEIGHT 280
        VALUE ""
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        HSCROLLBAR .F.
        VSCROLLBAR .T.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        BACKCOLOR Nil
        FONTCOLOR Nil
    END EDITBOX

HSCROLLBAR definido como falso (.f.) impede o rolamento do componente no sentido horizontal, então o texto terá a quebra de linha automática.

HSCROLLBAR definido como verdadeiro (.t.) libera o rolamento do componente  no sentido vertical, então o texto não terá a quebra de linha automática.

Dica simples que espero seja útil para vocês.

Ate+