Re: testo colorato

[Giovanni Gualeni <ggualeni at tiscali dot it>]

Il giorno 01/feb/08, alle ore 14:12, Giovanni Gualeni ha scritto:

> Il giorno 01/feb/08, alle ore 12:30, Giulio Mastrosanti ha scritto:
>
> > il comando textcolor imposta il colore di tutto il testo  
> > dell'editfield,
> > se vuoi in colori diversi solo determinate righe o parti del testo,
> Mi sa che avete un ragione entrambi:
E siccome mi piace semplificare:

  Dim i, pos, l As Integer
  Dim Num As Double
  Dim r As New Random

  For i=0 To 100
    num=r.InRange(1,1000)
    pos=Len(EditField1.text)
    l=Len(Str(Num))

    EditField1.AppendText Str(num)+EndOfLine

    If Num>500 Then          //solo nel caso che...
      EditField1.StyledText.TextColor(pos,l) = &cFF0000

    End If

  Next