Gönderen Konu: Richeditte satırları renkli renkli eklemek (Okunma sayısı 866 defa)

barutali · « : 02 Temmuz 2009 10:11:02 »

Bana zamanında lazım olmuştu osıralar bi çözüm bulamamıştım ama sonradan bulduğumda artık lazım değildi

Belki sizin işinize yarar..

Fonksiyon :

Kod: Delphi

 
function RErenkle( re:TRichEdit; s:string; f:TColor; fs:TFontStyles; fn:TFontName): string;
begin
 Re.SelAttributes.Color := f;
 Re.SelAttributes.Style := fs;
 re.SelAttributes.Name  := fn;
 re.Lines.Add(s);
end;
 
 

Kullanımı :

Kod: Delphi

 
 Rerenkle(Richeditin adı, ' Eklenecek Mesaj ' , yazı rengi, [yazı sitili], 'Yazı tipi adı '); 
 
{ Tek sitil }
 RErenkle(richedit1,'Ali',clBlack,[fsBold],'Ms Shell Dlg 2');
 
{Çİft Sitil }
 
 RErenkle(richedit1,'Ali',clBlack,[fsBold,fsitalic],'Ms Shell Dlg 2');

Kodbank İndir

Gönderen Konu: Richeditte satırları renkli renkli eklemek (Okunma sayısı 866 defa)

barutali

Richeditte satırları renkli renkli eklemek