QRRichText

← →
Xmen (2005-08-16 14:40) [0]

Привет мастера.
В панели QReport есть компонент QRRichText кто нибуд в него может писать разными шрифтами или разными формами шрифта(жирный, италик). Только нужно в одну компоненту а не в отдельные компоненты нужно писать разными шрифтами.

← →
Xmen (2005-08-16 16:59) [1]

Или я не то написал или никто незнаеть ответ или нехочет ответить

← →
Alexander Panov © (2005-08-16 17:12) [2]

А разве в QRRichText нет поля ParentRichEdit?

← →
Плохиш © (2005-08-16 17:15) [3]

А разве в Д6 нет справки по quickreport?

← →
Xmen (2005-08-17 10:04) [4]

2Alexander Panov © (16.08.05 17:12) [2]

>>А разве в QRRichText нет поля ParentRichEdit?

Есть нашел. Его чем едять? Если можно пример. Helpе написано чтото но этот чтота на англиском а я ещё слабоват в в этом.

← →
Xmen (2005-08-17 15:20) [5]

Я пробовал иползовать его но все равно в репорте шрифт получается одинаковые. если делаю размер 16 то весь текст отабражается в этом размере.
QRForm3.QRRichText1.ParentRichEdit.Font.Size:=16;
Как можно сделать Часть текста жирным, осталной часть обычным.

← →
Плохиш © (2005-08-17 15:32) [6]

> Xmen (17.08.05 10:04) [4]
> Helpе написано чтото

В хелпе написано не "чтото", а то, что ParentRichEdit указывает на компонент TRichEdit, который содержит форматированный тект, Этот текст и будет распечатан в QRRichText.

PS. А англо-русский словарь тебе всё равно придётся купить.

← →
Виталий Панасенко (2005-08-17 15:35) [7]

Вообще-то, в помощи не так написано.. Если определен родитель(Parent), то данные берутся отттуда.. А в родителе можно так:
with RichEdit1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
RichEdit1.Lines.Add("This line of text will be red.");

← →
Виталий Панасенко (2005-08-17 15:37) [8]

:-) Это
> Виталий Панасенко (17.08.05 15:35) [7]
относилось к Xmenу

← →
Xmen (2005-08-18 09:00) [9]

2>Виталий Панасенко (17.08.05 15:35) [7]
Спасибо коечто понятно становится и еще один вопрос как можно в одном строке писат разными стилями шрифта, то есть жирным и обичным.
Например:
Ф.И.О.: Иванов Иван Иванович

← →
Виталий Панасенко (2005-08-18 11:27) [10]

Может, еще жевать за тебя ?:-))

← →
Xmen (2005-08-18 14:52) [11]

2>>Виталий Панасенко (18.08.05 11:27) [10]
>>Может, еще жевать за тебя ?:-))
Ненадо!
Я кое как нашел выход и написал такой код.

function TextPos(st1,st2:string):string ;
var SelPos:integer;
begin
with ProbaForm.RichEdit1.SelAttributes do
begin
Name := "Times New Roman";
Size := 12;
Style := [fsbold];
end;
ProbaForm.RichEdit1.SelText:=st1;
SelPos:=ProbaForm.RichEdit1.SelLength+ ProbaForm.RichEdit1.SelStart;
with ProbaForm.RichEdit1.SelAttributes do
begin
Color := clBlack;
Name := "Arial";
Size := 11;
Style := [fsItalic];
end;
ProbaForm.RichEdit1.SelStart:=SelPos+10;
ProbaForm.RichEdit1.SelText:=st2;
ProbaForm.RichEdit1.Lines.Add("");
end;

Все работает прикрасно, но между первым и вторыми значениями не выходить управление пробелей
ProbaForm.RichEdit1.SelStart:=SelPos+10;
не работаетю Здесь я хотел оставить 10 пробелей. Но не получилось.

QRRichText Найти похожие ветки