SAY CAMPO MEMO

[acuellar]

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: Select all  Expand view

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

[karinha]

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.

[acuellar]

Gracias Joao

Con el PROMT no cambia nada.

Saludos,

Adhemar

[karinha]

Intenta con el comando BORDER

Muestre la imagen.

Saludos

[acuellar]

BORDER??

Cómo?

Saludos,

Adhemar

[karinha]

Code: Select all  Expand view

 @  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

[acuellar]

Gracias Joao

Con BORDER no cambia nada

Porque así acepta el MEMO y activa el Scroll cuando el texto pasa el tamaño

Code: Select all  Expand view

 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

[karinha]

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

[acuellar]

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

[karinha]

No és posible ver la imagen

Algo asi?

Code: Select all  Expand view

#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
 

[karinha]

Adhemar use este dispositivo para poner tus imagenes, mui bueno:

http://imgur.com

Saludos.

[karinha]

Otro ejemplo:

Code: Select all  Expand view

#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
 

[acuellar]

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

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

Saludos,

Adhemar

[karinha]

Adhemar, haga un pequeño ejemplo, porfa.

[Willi Quintana]

Hola, lo hago asi:
en el recurso, el control es un EDIT Multiline con el Vert Scrool activado..

Code: Select all  Expand view

    REDEFINE GET oObse ;
             VAR cObse MEMO ;
             COLOR CLR_BLUE, CLR_WHITE;
             FONT oFont9 ;
             READONLY ;
             ID 119 OF oDlg