Yazının belli kısımlarını biçimlendirme ve çıktısını almak?

[muskut]

Aşağıdaki metin biçimi gibi

" M.Ö 12.07.800 yılında yapılan seçim ile iktidara gelen TAŞ PARTİ yönetimi Taştanbul'un TEKERLEK problemine çözüm bulacağını dile getirdi."

Bold, italik, underline, BÜYÜK, küçük harf gibi özelliklerini metinin tamamında değilde, belli katar parçalarına uygulayabileceğim bir bileşen var mı? Yada bunu nasıl yapabilirim? Asıl kullanım alanı QuickReport, yani çıktı alırkende bu özellikleri kullanabilmeliyim, bir fikriniz veya öneriniz varmdır?

Saygılarımla

[ishak27]

s.a kardeş bence burdan yapman gereken şey richedit kullanmak

Şöylee

bi delphi formun üzerine resimdeki gibi nesneleri yerleştir

Orda Gösterilen Buttunların hepsi speedbutton dur (Sadece Üst Butonlar)

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items:=Screen.Fonts;
end;

Kod: Tümünü seç

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Down then
 RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsbold]
 else
 RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsbold];
 end;

Kod: Tümünü seç

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if SpeedButton2.Down then
 RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsitalic]
 else
 RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsitalic];
end;

Kod: Tümünü seç

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if SpeedButton3.Down then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsunderline]
else
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsunderline];
end;

Kod: Tümünü seç

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
SpeedButton1.Click;
SpeedButton2.Click;
SpeedButton3.Click;
end;

Kod: Tümünü seç

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
RichEdit1.Font.Name:=ComboBox1.Items[ComboBox1.itemindex];
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
if RichEdit1.Paragraph.Numbering=nsBullet then
 RichEdit1.Paragraph.Numbering:=nsNone
else
 RichEdit1.Paragraph.Numbering:=nsBullet;
end;

Kod: Tümünü seç

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if SpeedButton4.Down then
RichEdit1.Paragraph.Alignment:=taRightJustify;
end;

Kod: Tümünü seç

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if SpeedButton5.Down then
 RichEdit1.Paragraph.Alignment:=taLeftJustify;
end;

Kod: Tümünü seç

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
if SpeedButton6.Down then
RichEdit1.Paragraph.Alignment:=taCenter;
end;

Kardeşim Kodları Olduğu gibi Copy/Paste Yaparsanda Çözüme Ulaşırsın Sen Kendine Göre Ayarla

Muhabbetle.

[Ali Erdoğan]

http://www.trichview.com/

[aslangeri]

s.a.
qrrichtext
veya
qrdbrichtext
işini görecektir.
ama sendeki sürümünde yüklümüdür onu bilemem.