richedit sorunu

[sr1111]

s.a
richedit de sadece arial fontu ile yazilmis olan yazilari stringreplace ile ahmet leri veli yapmak istiyorum.
asagidaki gibi bir sey yaptim fakat olmadi. yardimci olurmusunuz yapamadim.


with richedit1 do
begin
SelStart := 0;
SelLength := 0;
SelAttributes.Name := 'arial';
memo1.text:=stringreplace(memo1.text, 'ahmet', 'veli');

[sr1111]

soyle bir sey yaptim ama elma kelimelerini arial fontuna cevirdi.

arial olan elma kelimlerini bulmam lazimdi.

yardim edecek biri yok mu bu konuda.


var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with editor do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
SelAttributes.Name:='Arial';
ToEnd := Length(Text) - StartPos;
FoundAt := FindText('elma', StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length('elma');
SelAttributes.Color:=clBlue;
end;

[conari]

Codelarınızı Code tagı içinde yazın. /forum kuralları.

Konu hakkında fikri olan birisi olursa zaten yazar.

[Lanista]

aşağıda thread içerisinde örneğe cevabı yazdım bakabilirsin.
viewtopic.php?f=2&t=25624#p144446