TGET MULTILINE
Posted:
Wed Nov 13, 2013 5:15 pm
by 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.
Re: TGET MULTILINE
Posted:
Thu Nov 14, 2013 8:35 am
by Antonio Linares
Are you using ES_MULTILINE style in the resources for the GET multiline ?
Re: TGET MULTILINE
Posted:
Fri Nov 15, 2013 1:01 pm
by 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
}
Re: TGET MULTILINE
Posted:
Sun May 02, 2021 7:33 pm
by goosfancito
como se iniciaria en este caso cText, para grabarlo como memo en mysql?
cText:=...