FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TGET MULTILINE
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
TGET MULTILINE
Posted: Wed Nov 13, 2013 05:15 PM

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.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: TGET MULTILINE
Posted: Thu Nov 14, 2013 08:35 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: TGET MULTILINE
Posted: Fri Nov 15, 2013 12:50 PM

Sim, com PELLES.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: TGET MULTILINE
Posted: Fri Nov 15, 2013 01:01 PM
Este ejemplo funciona bien aqui:

Code (fw): Select all Collapse
#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 (fw): Select all Collapse
// 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
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: TGET MULTILINE
Posted: Sun May 02, 2021 07:33 PM

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

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion