Re: testo colorato

[Lucio Liberi <lucioing at tin dot it>]

Si, Giulio.. infatti... Ma si ostina a non funzionare...

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

  EditField1.text=""

  EditField1.TextColor=RGB(0,0,0)

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

    l=Len(format(Num, "####.##0"))       <-------   guardo quanto è  
lungo il numero formattato...
    pos=Len(EditField1.text)-l     <----------   ne individuo la  
posizione del cursore...
										Immagino che la posizione sia data dalla lunghezza di tutta  
la stringa meno la
                                                                                
lunghezza dell'ultimo numero

    If Num>500 then
      EditField1.StyledText.TextColor(pos,l)=RGB(255, 0, 0)   <----  
cambio colore a partire dal pos-iesimo carattere per "l" caratteri
    else
      EditField1.StyledText.TextColor(pos,l)=RGB(0,0,0)
    end if
  next

  -----------------
Allora, bastardo... che altro vuoi? Perchè non funzioni? Non mi  
esprimo sul mestiere delle tue sorelle....