edite renkli metin

[egedenizi]

merhabalar
arkadaşlar ben edite farklı renkte metin girmek istedim ama başaramadım.
böyle bir kod yazdım.

Kod: Tümünü seç

var
n:integer;
begin
for n:=1 to 2 do
begin
if n=1 then
             begin
             edit1.Font.Color:=clgreen;
             edit1.Text:='a';
             end
             else
             begin
             edit1.Font.Color:=clyellow;
             edit1.Text:=edit1.Text+'b';
             end;

end;
end;

ama edit son değerdeki renke uyum gösteriyor.Yani hepsi sarı oluyor.
Teşekkürler

[naile]

for döngüsü kurmusşunuz, n önce 1 sonra 2 değerini alıyor. 1 alınca yeşil, 2 alınca sarı olduğu için önce yeşil sonra sarı oluyor ama son olarak sarı olduğu için siz sarıyı görüyorsunuz. Nezaman sarı nezaman yeşil olmasını istiyorsunuz siz?


Not: Kodlarınızı [ code] [ /code] tagı içine alırsanız okunurluğu yüksek olur.

[zyildiz]

Aslında program calısıyor donguye girdigi için siz son halini goruyorsunuz. bunu programı F7 ile adım adım calıştırarak gorebilirsiniz.

[hdayi]

sanırım arkadaş a'nın yeşil b'nin sarı olmasını istiyor. edit'de bu olmaz. memo'yu dene. Memo'nun boyutlarını edit'inki ile aynı yaparsan edit gibi görünür ve text'i istediğin gibi renklendirebilrisin (Tavisye edilen renkler sarı laciver'tir )

Not: memo'yu edit gibi gösterme fikrinin patenti @mrmcop'a aittir. Küçük bir hokus pokus

[egedenizi]

Öncelikle Fenerbahçenin şampiyonluğunu kutlarım.Memoyu edit gibi gösterme fikri çok hoş.Aşağıda memoya kodu yazdım ama F sarı B lacivert(mavi) olmadı.Hepsi mavi oldu.Yardımlarınız için Teşekkür ederim.

n:integer;
begin
for n:=1 to 2 do
begin
if n=1 then
begin
memo1.font.Color:=clyellow;
memo1.Lines[0]:='F';
end
else
begin
memo1.font.Color:=clblue;
memo1.Lines[0]:=memo1.lines[0]+'B';
end;
end;

[hdayi]

Memo'da ben de bulmadım bu özelliği. Win32 tab'ında RichEdit diye bi component var.

Kod: Tümünü seç

RichEdit1.SelAttributes.Color:=clYellow;

ile seçilmiş olan kısmı renklendirebilirsin ancak seçmek şart. Önceden Renk şu olsun demek yok.
Biraz kodla o da hallolour tabii..

Kolay Gelsin...