Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

QRRichText [D6, IB6.x]

Xmen © (2005-08-16 14:40:00)
Привет мастера.
В панели QReport есть компонент QRRichText кто нибуд в него может писать разными шрифтами или разными формами шрифта(жирный, италик). Только нужно в одну компоненту а не в отдельные компоненты нужно писать разными шрифтами.

Xmen (2005-08-18 14:52:00) [1]
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 пробелей. Но не получилось.

Виталий Панасенко (2005-08-18 11:27:00) [2]
Может, еще жевать за тебя ?:-))

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

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

Виталий Панасенко (2005-08-17 15:35:00) [5]
Вообще-то, в помощи не так написано.. Если определен родитель(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:32:00) [6]

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

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

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

Xmen (2005-08-17 15:20:00) [7]
Я пробовал иползовать его но все равно в репорте шрифт получается одинаковые. если делаю размер 16 то весь текст отабражается в этом размере.
QRForm3.QRRichText1.ParentRichEdit.Font.Size:=16;
Как можно сделать Часть текста жирным, осталной часть обычным.

Xmen (2005-08-17 10:04:00) [8]
2Alexander Panov © (16.08.05 17:12) [2]

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

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

Плохиш (2005-08-16 17:15:00) [9]
А разве в Д6 нет справки по quickreport?

Alexander Panov (2005-08-16 17:12:00) [10]
А разве в QRRichText нет поля ParentRichEdit?

Xmen (2005-08-16 16:59:00) [11]
Или я не то написал или никто незнаеть ответ или нехочет ответить

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »