Delphi'de Trichedit'e Renkli Satır Eklemek..

Konu: Delphi'de Trichedit'e Renkli Satır Eklemek.. Salı Ara. 08, 2009 5:05 pm

İ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.selattributes.name:= fn;
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');

» Pardus'a Katkı(Contrib) Deposu Eklemek
» Renkli Krom Yazı Efekti
» Kahve ve açık kahve renkli pamuk