FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour SAY CAMPO MEMO
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
SAY CAMPO MEMO
Posted: Thu Feb 05, 2015 06:01 PM
Amigos

Quiero mostrar un campo MEMO con Say y que sea multilineas para poder ver todo el contenido con el Scroll

Con el GET se puede, pero me muestra el contenido movido

Hago asi:
Code (fw): Select all Collapse
DEFINE FONT oFont NAME "Lucida Console" SIZE 0, -11.1

@1,306 GET oCop VAR cCOPIA MEMO OF oDlg PIXEL SIZE 125,220 FONT oFont READONLY  //Funciona pero no satisfactorio

@1,306 SAY oCop VAR cCOPIA OF oDlg PIXEL SIZE 125,220 FONT oFont  //Muestra bien pero no todo, puse el parámetro MEMO pero da error


Aquí los resultados


Gracias por la ayuda

Saludos

Adhemar
Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Thu Feb 05, 2015 06:32 PM
Adhemar, la imagen no se está bién.

Intenta con el comando PROMPT cText.

http://wiki.fivetechsoft.com/doku.php?id=fivewin_tutorial_es

saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: SAY CAMPO MEMO
Posted: Thu Feb 05, 2015 06:57 PM

Gracias Joao

Con el PROMT no cambia nada.

Saludos,

Adhemar

Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Thu Feb 05, 2015 07:15 PM

Intenta con el comando BORDER

Muestre la imagen.

Saludos

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: SAY CAMPO MEMO
Posted: Thu Feb 05, 2015 08:11 PM

BORDER??

Cómo?

Saludos,

Adhemar

Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 11:13 AM
Code (fw): Select all Collapse
 @  19, 03  SAY "   Memo No PICT                     256" OF oDlg COLORS CLR_BLACK ,RGB(224,102,255) BORDER SIZE 195,10


http://wiki.fivetechsoft.com/doku.php?id=fivewin_tutorial_es
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 12:56 PM
Gracias Joao

Con BORDER no cambia nada

Porque así acepta el MEMO y activa el Scroll cuando el texto pasa el tamaño
Code (fw): Select all Collapse
 REDEFINE SAY oCop VAR cCOPIA MEMO ID 108 OF oDlg


y Con @fila,columna SAY no, habrá forma de ésta manera?

Si no, tendré que PREDEFINIR el dialogo.

Saludos,

Adhemar
Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 01:13 PM

Porque necesitas poner cCOPIA en un SAY y no en un GET con MEMO?

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 01:19 PM
Porque en el GET muestra el texto movido, no respeta los CRLF. (Como muestra la imagen)

He leído el texto y en cada línea le he puesto CRLF y luego lo he grabado, igual el resultado es el mismo.

https://200.58.169.10/acr/getsay.jpg



Saludos,

Adhemar
Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 01:51 PM
No és posible ver la imagen

Algo asi?

Code (fw): Select all Collapse
#include "fivewin.ch"

#Define COLOR_BTNFACE    15

static oWnd

Function Teste()

   LOCAL oDlg, oGet, oFont
   LOCAL cSay := "TESTE DE SAY" +CRLF+ ;
                 "CONTINUA SAY" +CRLF+ ;
                 "CONTINUA SAY" +CRLF+ ;
                 "TESTE DE SAY" +CRLF+ ;
                 "CONTINUA SAY" +CRLF+ ;
                 "TESTE DE SAY" +CRLF+ ;
                 "CONTINUA SAY"

   DEFINE FONT oFont Name "Arial" SIZE 0, -12 BOLD

   DEFINE DIALOG oDlg FROM 1, 1 TO 600, 800 ;
          TITLE "Hello Says!"               ;
          STYLE  nOr(WS_POPUP,              ;
                     WS_VISIBLE,            ;
                     WS_CAPTION,            ;
                     WS_THICKFRAME,         ;
                     WS_SYSMENU,            ;
                     WS_MINIMIZEBOX,        ;
                     WS_MAXIMIZEBOX)        ;
          PIXEL OF oWnd                            && Defined by Pixels

   @  15, 10 SAY oGet VAR cSay OF oDlg       ;
      SIZE 200, 70    PIXEL FONT oFont       ;  // incrimentar aqui
      COLOR NIL, GetSysColor( COLOR_BTNFACE )


   ACTIVATE DIALOG oDlg

Return nil
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 01:54 PM
Adhemar use este dispositivo para poner tus imagenes, mui bueno:

http://imgur.com

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 02:07 PM
Otro ejemplo:

Code (fw): Select all Collapse
#include "fivewin.ch"

#Define COLOR_BTNFACE    15

static oWnd

Function Teste()

   LOCAL oDlg, oGet, oFont, nWidth, nHeight
   LOCAL cSay := "TESTE DE SAY" +CRLF+ ;
                 "CONTINUA SAY" +CRLF+ ;
                 "CONTINUA SAY" +CRLF+ ;
                 "TESTE DE SAY" +CRLF+ ;
                 "CONTINUA SAY" +CRLF+ ;
                 "TESTE DE SAY" +CRLF+ ;
                 "CONTINUA SAY"

   nHeight := LEN( cSay )

   nWidth  := nHeight * 2

   // ? nHeight, nWidth  // 96, 192

   DEFINE FONT oFont Name "Arial" SIZE 0, -12 BOLD

   DEFINE DIALOG oDlg FROM 1, 1 TO 600, 800 ;
          TITLE "Hello Says!"               ;
          STYLE  nOr(WS_POPUP,              ;
                     WS_VISIBLE,            ;
                     WS_CAPTION,            ;
                     WS_THICKFRAME,         ;
                     WS_SYSMENU,            ;
                     WS_MINIMIZEBOX,        ;
                     WS_MAXIMIZEBOX)        ;
          PIXEL OF oWnd                            && Defined by Pixels

   @  15, 10 SAY oGet VAR cSay OF oDlg       ;
      SIZE nWidth, nHeight   PIXEL FONT oFont       ;  // incrimentar aqui
      COLOR NIL, GetSysColor( COLOR_BTNFACE )


   ACTIVATE DIALOG oDlg

Return
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 02:16 PM

Joao, también puse el link para ver la imagen

Creo que si no está predefinido el EDIT MULTILINE no funciona.

Saludos,

Adhemar

Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 02:22 PM

Adhemar, haga un pequeño ejemplo, porfa.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: SAY CAMPO MEMO
Posted: Fri Feb 06, 2015 04:36 PM
Hola, lo hago asi:
en el recurso, el control es un EDIT Multiline con el Vert Scrool activado..
Code (fw): Select all Collapse
    REDEFINE GET oObse ;
             VAR cObse MEMO ;
             COLOR CLR_BLUE, CLR_WHITE;
             FONT oFont9 ;
             READONLY ;
             ID 119 OF oDlg
Static archive · New replies & topics via GitHub Discussions