Изменить размер текста в Richview

Pessimus

Здравствуйте!
В бд хранится текст RTF типа

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
\viewkind4\uc1\pard\lang1033\f0\fs20 6565
\par }

Вывожу его в RichView. Все отображается нормально, но шрифт используется всегда тот с каким хранится в базе. То есть в данном случае Arial 10. Как средставми фастрепорта его можно изменить? задавать в RichView fond.size не помогает

Vittorio

Попробуйте так:

procedure Rich1OnBeforePrint(Sender: TfrxComponent);
begin
Rich1.RichEdit.Font.Size := 14;
Rich1.RichEdit.Font.Name := 'Times New Roman';
end;

Pessimus

Vittorio, не помогает

Vittorio

Попробуйте изменять размер в событии OnAfterData.

Если не поможет, то можно извратиться следующим образом:

procedure Rich1OnBeforePrint(Sender: TfrxComponent);
var
s: string;
begin
s := Rich1.RichEdit.Lines.Text;
Rich1.RichEdit.Lines.Clear;
Rich1.RichEdit.Font.Size := 14;
Rich1.RichEdit.Lines.Text := s;
end;

Pessimus

Vittorio, огромное спасибо. Менять шрифт в OnAfterData помогло, но попутно возник еще 1 вопрос. При экспорте в excel через OLE текст из richview экспортируется как картинка. Если экспортировать через XML, то все нормально, но в XML нельзя экспортировать картинки.

Vittorio

С экспортом ничем помочь не могу. Как вариант: попробуйте экспортировать в ворд, а оттуда импортировать в эксель.