GET con tamaño indefinido

[quique]

¿Es posible tener un GET para una cadena de caracteres pero que no se tenga que indicar el tamaño para la captura?

Por ejemplo, ahorita si tengo

c := "Hola"

@ 0,0 GET c .......

no es posible cambiar el contenido del GET por "Adios", ya que tiene un caracter más, a menos que antes del get le agregue espacios al final.

La idea es poder escribir lo que sea en el valor, inclusive poder indicar c := "", c="Hola", o cualquier otro varlor y poder escribir en el GET.

Realmente el problema principal es poder saber si el usuario escribió espacios al final del texto, esto si no es posible dejar el GET de tamaño indefinido.

[Antonio Linares]

Quique,

Prueba a usar un control EDIT en vez de un GET. Revisa FWH/samples/TestEdit.prg

[rolando]

Quique,

Yo uso los get asignadole un cGet:=space(30) por ejemplo.

Luego antes de usar el contenido del cGet para una búsqueda, hago cGet:=alltrim(cGet) y eso le saca todos los espacios en blanco antes del primer caracter y después del último de la cadena del cGet.

Saludos

Rolando

[quique]

Gracias, pero no es lo que necesito

Siempre borra el contenido cuando entras y presionas una tecla
No permite desplazarse con las teclas de control
No permite colocarse en alguna posición dentro del texto con el ratón

Otros detalles no tan importantes, pero que tampoco me gustan, que bueno, podría vivir con ellos si no hay alternativa
No muestra el marco que muestran los GETs
La ubicación no la maneja con pixeles como los demas controles
No toma la letra de la ventana automáticamente

El lugar más importante donde necesito este GET es en un combobox, de echo esa iba a ser la siguiente pregunta ¿hay manera de que el combobox funcione de manera similar? pero bueno, ahorita tengo que dejar este tema a un lado y lo sigo revisando mas tarde, aunque no creo que esta clase me sirva por los puntos mencionados al principio.

[quique]

rolando,

gracias, yo hago algo similar, pero en este caso, los GETs están activos todo el tiempo, no es un diálogo que se abra y se cierre, lo que tendré que hacer, si no hay solución, es tener que dar un alltrim cada vez que utilice el valor del GET, pero eso me implicará cambios en varias partes, porque lo manejaba en un diálogo, pero me pidieron que cambiara el diseño, y ahora, los GETs están activos en una sección de la ventana principal.

Ademas, como mencioné en el primer mensaje, tengo un GET en el que necesito identificar los espacios tecleados al final por el usuario, realmente este GET es un combobox.

[JmGarcia]

...Revisa FWH/samples/TestEdit.prg

Esta clase TEdit ¿ "colorea" ?
¿ Es decir se pueden poner letras de colores ?

[Antonio Linares]

JM,

La clase estandard de Windows que permite colorear el texto es RichEdit

Revisa samples/TestRich.prg y TestRtf.prg

[cnavarro]

No se puede configurar para que el texto no quede seleccionado al coger el foco del get?
Alquien sabe como hacerlo?
Gracias

[Antonio Linares]

Cristobal,

Ese es el comportamiento por defecto de un Edit de Windows.

Para cambiarlo tendrias que usar bGotFocus y que desde ahí no se seleccione nada:

oEdit:bGotFocus = { || oEdit:SetSel( 0, 0 ) }

[cnavarro]

Gracias Antonio
Y en un get de edicion de una columna de XBrowse?

Asi me da error de ejecucion:

Code: Select all  Expand view

WITH OBJECT oBrw


   ... / ...

   :Descripcion:oEditGet:bGotFocus  := { | o , hC | oBrw:Descripcion:oEditGet:SetSel( 0, 0 ) }

  ... / ...

END
 

Error description: Error BASE/1005 Message not found: NIL:_BGOTFOCUS
Args:
[ 1] = U

Gracias

[Antonio Linares]

Cristobal,

El edit del browse pertenece al browse, y no a las columnas. Se usa uno solo para todas.

Luego solo tienes que quitar el comienzo:

oBrw:oEditGet:bGotFocus := { | o , hC | oBrw:Descripcion:oEditGet:SetSel( 0, 0 ) }

[cnavarro]

Antonio
Entonces la DATA que aparece, no se usa?
Según la clase XBrowse que aparece en SOURCE

Code: Select all  Expand view

CLASS TXBrwColumn

   DATA oBrw,;          // Browse conteiner
        oDataFont,;     // Data font object, by default oBrw:oDataFont. It also supports a codeblock to return the font to use
        oHeaderFont,;   // Header font object, by default oBrw:oHeaderFont
        oDataFontBold,; //------------------------------------ Silvio
        oGrpFont,;      // Group Header font
        oFooterFont,;   // Footer font object, by default oBrw:oFooterFont
        oDragWnd,;      // Temporal window used for swaping columns
        oBtnList,;      // Button for edit with listbox
        oBtnElip,;      // Button for edit with user code-block



        oEditGet,;      // Get object for editing




        oEditLbx,;      // Listbox object for editing
        oEditFont,;     // Edit Font
        bPopUp,;        // PopupMenu on Right Click
        oBrush

   DATA aBitmaps        // Two dimension arrays that holds all the bitmaps added
                        // aBitmaps[n, 1] -> handle
                        // aBitmaps[n, 2] -> palette
                        // aBitmaps[n, 3] -> width
                        // aBitmaps[n, 4] -> heigth

    .../...
 

Gracias de nuevo
Un saludo

[Antonio Linares]

Cristobal,

Discúlpame, tienes razón, me confundí. habrá que comprobar entonces porque es nil