İlk olarak aşağıdaki Fonksiyonu (Function) kodlarımıza ekleyelim
Fonksiyon : -
-
function RErenkle( re:TRichEdit; s:string; f:TColor; fs:TFontStyles; fn:TFontName): string;
begin
Re.SelAttributes.Color := f;
Re.SelAttributes.Style := fs;
re.Lines.Add(s);
end;
---
Kullanımı :-
-
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');---
Fonksiyon : -
-
function RErenkle( re:TRichEdit; s:string; f:TColor; fs:TFontStyles; fn:TFontName): string;
begin
Re.SelAttributes.Color := f;
Re.SelAttributes.Style := fs;
re.Lines.Add(s);
end;
---
Kullanımı :-
-
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');---