FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour GET con tamaño indefinido
quique
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM

GET con tamaño indefinido

Posted: Tue Apr 23, 2013 02:55 AM

¿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.

Saludos

Quique
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: GET con tamaño indefinido

Posted: Tue Apr 23, 2013 04:38 AM

Quique,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM

Re: GET con tamaño indefinido

Posted: Tue Apr 23, 2013 01:52 PM

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 :D

quique
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM

Re: GET con tamaño indefinido

Posted: Tue Apr 23, 2013 03:21 PM

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.

Saludos

Quique
quique
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM

Re: GET con tamaño indefinido

Posted: Tue Apr 23, 2013 03:42 PM

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.

Saludos

Quique
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM

Re: GET con tamaño indefinido

Posted: Tue Apr 23, 2013 07:44 PM
Antonio Linares wrote:...Revisa FWH/samples/TestEdit.prg

Esta clase TEdit ¿ "colorea" ? :-)
¿ Es decir se pueden poner letras de colores ?
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: GET con tamaño indefinido

Posted: Wed Apr 24, 2013 06:16 AM

JM,

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

Revisa samples/TestRich.prg y TestRtf.prg

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: GET con tamaño indefinido

Posted: Wed Apr 24, 2013 08:27 AM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: GET con tamaño indefinido

Posted: Wed Apr 24, 2013 08:35 AM

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 ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: GET con tamaño indefinido

Posted: Wed Apr 24, 2013 10:17 AM
Gracias Antonio
Y en un get de edicion de una columna de XBrowse?

Asi me da error de ejecucion:
Code (fw): Select all Collapse
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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: GET con tamaño indefinido

Posted: Wed Apr 24, 2013 11:47 AM

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 ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: GET con tamaño indefinido

Posted: Wed Apr 24, 2013 12:39 PM
Antonio
Entonces la DATA que aparece, no se usa?
Según la clase XBrowse que aparece en SOURCE

Code (fw): Select all Collapse
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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: GET con tamaño indefinido

Posted: Wed Apr 24, 2013 07:44 PM

Cristobal,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions