Konu: Richeditte satırları renkli renkli eklemek (Okunma sayısı 415 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) [Seç]


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) [Seç]


 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');

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

barutali

Richeditte satırları renkli renkli eklemek