Control Editbox

Julio:

podés usar un EditBox con .ReadOnly = .T., y a medida que
vas agregando lineas al mismo hacer .SelStart = LEN(.Value)



WITH CREATEOBJECT("frmStatus")
.Show()
ENDWITH

RETURN


DEFINE CLASS frmStatus as Form
WindowType = 1
ADD OBJECT edtStat as EditBox WITH ReadOnly = .T., Top = 10, Left = 10,;
Height = ThisForm.Height - 20, Width = ThisForm.Width - 20


PROCEDURE Activate

WITH ThisForm
FOR nLine = 1 TO 30
.ShowStatus("Estado línea " + TRANSFORM(nLine))
nKey = INKEY(.5)
IF nKey='
EXIT
ENDIF
NEXT
ENDWITH

ENDPROC


PROCEDURE ShowStatus (sStr)

LOCAL sLine, nPos1, nPos2

WITH This.edtStat
.Value = .Value + CHR(13) + sStr
.SelStart = LEN(.Value)
ENDWITH
ENDDEFINE

RETURN


HTH,
Mario


On Fri, 23 Apr 2010 19:45:46 -0300, Julio Rossi wrote:

¿Como puedo hacer para ir poniendo en un editbox, los resultados de
algunos comando y que siempre se vaya viendo el ultimo (y algunos
anteriores).

Quiero ir enviando a ese Editbox el resultado de algunos procesos, pero
cuando hago mieditbox.value = mieditbox.value + lc_texto + chr(13), me
queda siempre al comienzo.

¿Alguna sugerencia? ¿Otro control para usar?

Aclaro que los comandos son bastantes, y uso el editbox porque después
el usuario puede subir y bajar para ver el resto de lo que se envió.

Un saludo al grupo!

Mario, mil gracias.
Funciona perfecto de esa manera. Habia estado probando dándole
combinaciones de teclas (CTRL+END, etc) pero no se me ocurrió esta.


Julio Rossi
VFP9 - SP2
WINDOWS 7 ULTIMATE

Mario López escribió:

Julio:

podés usar un EditBox con .ReadOnly = .T., y a medida que
vas agregando lineas al mismo hacer .SelStart = LEN(.Value)

Para asegurarse que este al último de la última palabra sin espacios:

THIS.SELSTART=LEN(ALLTRIM(THIS.VALUE))


Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________


El 24/04/2010 09:50, Mario López escribió:

Julio:

podés usar un EditBox con .ReadOnly = .T., y a medida que
vas agregando lineas al mismo hacer .SelStart = LEN(.Value)



WITH CREATEOBJECT("frmStatus")
.Show()
ENDWITH

RETURN


DEFINE CLASS frmStatus as Form
WindowType = 1
ADD OBJECT edtStat as EditBox WITH ReadOnly = .T., Top = 10, Left = 10,;
Height = ThisForm.Height - 20, Width = ThisForm.Width - 20


PROCEDURE Activate

WITH ThisForm
FOR nLine = 1 TO 30
.ShowStatus("Estado línea " + TRANSFORM(nLine))
nKey = INKEY(.5)
IF nKey='
EXIT
ENDIF
NEXT
ENDWITH

ENDPROC


PROCEDURE ShowStatus (sStr)

LOCAL sLine, nPos1, nPos2

WITH This.edtStat
.Value = .Value + CHR(13) + sStr
.SelStart = LEN(.Value)
ENDWITH
ENDDEFINE

RETURN


HTH,
Mario


On Fri, 23 Apr 2010 19:45:46 -0300, Julio Rossi wrote:

¿Como puedo hacer para ir poniendo en un editbox, los resultados de
algunos comando y que siempre se vaya viendo el ultimo (y algunos
anteriores).

Quiero ir enviando a ese Editbox el resultado de algunos procesos, pero
cuando hago mieditbox.value = mieditbox.value + lc_texto + chr(13), me
queda siempre al comienzo.

¿Alguna sugerencia? ¿Otro control para usar?

Aclaro que los comandos son bastantes, y uso el editbox porque después
el usuario puede subir y bajar para ver el resto de lo que se envió.

Un saludo al grupo!

Si Luis, eso es lo que hice.
Gracias!

Un saludo cordial.

Julio Rossi
VFP9 - SP2
WINDOWS 7 ULTIMATE

Luis Maria Guayan escribió:

Para asegurarse que este al último de la última palabra sin espacios:

THIS.SELSTART=LEN(ALLTRIM(THIS.VALUE))


Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro

Y ya que estamos con el EditBox ¿alguien sabe por qué no acepta un "!" en el
Format?

Le puse un "!" para que todos los caracteres que introduzca el usuario estén
en mayúsculas, pero no lo respeta, es como si no hubiera puesto nada.

Saludos.

Walter.