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!