EDITBOX, como fazer?

[pena]

Bom dia pessoal, no clipper eu usava da seguinte forma pra tratar campos como observacoes e historicos, tinha um arquivo onde tinha os seguintes campos

CODIGO
DESCRICAO
LINHA

eu usava o memoedit para manipular os dados, e ia lendo linha a linha e gravava no arquivo, ex:

CODIGO DESCRIÇÃO LINHA
1 PRODUTO PARA TESTE 1
1 PLACA : 2
1 KM : 3

e para ter informacao eu usava assim
SELE OBS
SEEK M->COD
DO WHILE !EOF() .AND. M->COD==CODIGO
MEMO_MEMO+=OBS
SKIP
ENDDO
MEMO_MEMO:=ALLTRIM(MEMO_MEMO)

agora fui usar + ou - assim, porém, no EDITBOX, ele nao quebra a linha, como apresentar estas informações na tela, e depois pega-la para gravar?

@ 040,060 EDITBOX T_Obs Of Frm_Itens ;
VALUE cObs ;
WIDTH 310 ;
HEIGHT 80 ;
FONT 'Arial' SIZE 09 ;
FONTCOLOR BLACK BOLD

[asimoes]

Pena,

Eu uso assim:

Código: Selecionar todos

   DEFINE EDITBOX oCadMemo
      ROW 360
      COL 020
      ID 1
      WIDTH 650
      HEIGHT 080
      FIELD CADASTRO->CadMemo
      READONLY lRead
      FONTNAME "Courier New"
      FONTSIZE 12
      FONTCOLOR BLUE
      BACKCOLOR _BLUE3
   END EDITBOX

Para gravar:

CADASTRO->CadMemo := fCadastro.oCadMemo.Value

No seu caso use no final de cada linha: Chr(13)+Chr(10) ou HB_OsNewLine()

Código: Selecionar todos

DO WHILE !EOF() .AND. M->COD==CODIGO
   MEMO_MEMO+=OBS+HB_OsNewLine()
   SKIP
ENDDO