Изменить размер текста в Richview
Здравствуйте!
В бд хранится текст RTF типа
В бд хранится текст RTF типа
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
\viewkind4\uc1\pard\lang1033\f0\fs20 6565
\par }
Комментарии
procedure Rich1OnBeforePrint(Sender: TfrxComponent);
begin
Rich1.RichEdit.Font.Size := 14;
Rich1.RichEdit.Font.Name := 'Times New Roman';
end;
Если не поможет, то можно извратиться следующим образом:
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;