TGET MULTILINE

[MGA]

cMsg := " linha1 "+CRLF+;
" linha2 "+CRLF+;
" linha3 "

redefine get oGet var cMsg id 4001 of oDlg font oFont_re color CLR_HBLUE,CLR_WHITE readonly

Sr. Antonio, nas versões anteriores do FIVEWIN o código acima funcionava em um GET. Com FWH 13.08 não esta respeitando o CRLF.

[Antonio Linares]

Are you using ES_MULTILINE style in the resources for the GET multiline ?

[MGA]

Sim, com PELLES.

[Antonio Linares]

Este ejemplo funciona bien aqui:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local cText := "Hello" + CRLF + "world" + CRLF + "FiveWin"
   local oDlg

   DEFINE DIALOG oDlg RESOURCE "test"

   REDEFINE GET cText ID 100 OF oDlg MULTILINE

   ACTIVATE DIALOG oDlg CENTERED

return nil

Code: Select all  Expand view

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 7.00".

#include <windows.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

test DIALOGEX DISCARDABLE 6, 18, 274, 130
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "Tahoma"
{
  CONTROL "Edit", 100, "Edit", ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 4, 216, 124
  CONTROL "OK", IDOK, "Button", WS_TABSTOP, 224, 4, 45, 15
  CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 224, 20, 45, 15
}
 

[goosfancito]

como se iniciaria en este caso cText, para grabarlo como memo en mysql?
cText:=...