Not Defteri

[cihat_yildiz]

İyi günler arkadaşlar. ben toolbar kullanarak bir kısım butonlar ekledim ve butonlara kesme yapıştırma ve kaydetme gibi komutları verdim.Fakat richedit a yazacağım yazı için da yazı tipini, boyutunu ve rengini belirten butonlar koymak istiyorum.bu konu hakkında yardımcı olursanız çok sevinirim.

[Commandx]

Form üzerine 3 adet button koy 1 adet rich edit 1adet fontdialog 1 adet colordialog nesnesini koy
sonra bu kodları butonlara tayin et

Kod: Tümünü seç

// sade rich edit renkelndirmax istirsen bunu dene
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IF ColorDialog1.Execute THEN
BEGIN
RichEdit1.Color:= ColorDialog1.Color;
END;

end;

// yox eger font dialogu çagırıp fontunu tayin edmek istirsen bu
// burdan hem renk hemde fontunu tayin edilebilinir
// bu daha kullanışlıdır
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
IF FONTDialog1.Execute THEN
BEGIN
RichEdit1.Font:= FONTDialog1.Font;
END;

end;


// yox eger texti reng dialogundan cagirıp ordan renk vermek istirsen bu
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
IF ColorDialog1.Execute THEN
BEGIN
RichEdit1.Font.Color:= ColorDialog1.Color;
END;

end;

Örneği bir incele load save işlemide yapar

[cihat_yildiz]

Allah Razı olsun kardeş çok sağolasın

[neu84]

Merhabalar,
Yeni konu açmak istemedim, Veritabanına RichEditten veri kaydediyorum, bu 3 botun dışındakilere ihtiyacım var, Word'un temel yazı araçlarına, Font, Renk, Listelemeler, 1,2,3, a,b,c, gibi, sağa sola yanaştırma, ortalama, richedit içindeki sadece istenilen bir yazının rengini fontunu ayarlayabilme gibi.. Bunun için bilgidin bir bileşen varmıdır?

[SimaWB]

Delphi'nin Richedit örneğine bakın. Hepsi zaten orada var.