[DELPHI] RichEdit i tęcza

jezeli w TEdit wpisze jkais tekst np. "Hello' i pobiore kolor z panela (gradient) to jak otrzymac takie cos:
&lt#00CC33&gtH&lt#009966&gte&lt#006699&gtl&lt#0033CC&gtl&lt#0000FF&gto
lub
&ltfont color=#00CC33&gtH&lt/font&gt&ltfont color=#009966&gte&lt/font&gt&ltfont color=#006699&gtl&lt/font&gt&ltfont color=#0033CC&gtl&lt/font&gt&ltfont color=#0000FF&gto&lt/font&gt
w HTMLu

chodz mi tu o robienie teczowego kolorku, który chce wstawić do RichEdit

--
[email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))

RichEdit1.SelAttributes.Color := $00CC33;
RichEdit1.Text := RichEdit1.Text + 'H';
RichEdit1.SelAttributes.Color := $009966;
RichEdit1.Text := RichEdit1.Text + 'e';
RichEdit1.SelAttributes.Color := $006699;
RichEdit1.Text := RichEdit1.Text + 'l';
RichEdit1.SelAttributes.Color := $0033CC;
RichEdit1.Text := RichEdit1.Text + 'l';
RichEdit1.SelAttributes.Color := $0000FF;
RichEdit1.Text := RichEdit1.Text + 'o';

Piszę z pamięci, więc nie gwarantuję, że zadziała.--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

ok ,dziękówa

--
[email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))