Re: testo colorato

[Giovanni Gualeni <ggualeni at tiscali dot it>]

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:

  Dim i, pos, l As Integer
  Dim Num As Double

  EditField1.text=""

  for i=0 to 100
    Num=Rnd()*1000
    EditField1.appendtext format(Num, "####.##0")+chr(13)

    l=Len(format(Num, "####.##0"))

    pos=Len(EditField1.text)-l-1

    EditField1.selstart = pos
    EditField1.SelLength = 10

    If Num>500 then
      EditField1.StyledText.TextColor(pos,100) = &cFF0000
      'EditField1.SelTextColor=&cFF0000
    else
      'EditField1.StyledText.TextColor(pos,100) = &c000000
      EditField1.SelTextColor=&c000000
    end if
  next

Giovanni