FormattedText: String;
FormattedText: string;
Свойство FormattedText определяет текст заголовка, предназначенный для представления в формате RTF.
Информация о работе с RTF-редактором представлена в статье «Использование форматированного текста».
Для выполнения примера в репозитории необходимо наличие экспресс-отчета с идентификатором «EXPRESS_TITLETEXT», который содержит таблицу.
Добавьте ссылки на системные сборки: Drawing, Express, Metabase.
Sub UserProc;
Var
MB: IMetabase;
Express: IEaxAnalyzer;
Title: IGxTitle;
HtmlTitle, FormattedTitle: String;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим экспресс-отчет
Express := MB.ItemById("EXPRESS_TITLETEXT").Edit As IEaxAnalyzer;
// Получим панель заголовка
Title := Express.TitleBar;
// Зададим формат значения заголовка
Title.CustomFormat := "# ##0,00";
// Выведем в окно консоли текст заголовка на языке разметки HTML
HtmlTitle := Title.HtmlTitle;
Debug.WriteLine("Текст заголовка отчета на языке разметки HTML - " + HtmlTitle);
// Произведем изменения
Title.Text := "<span style=""font - size: 12pt; color: #000000; text - align: right; font - family: Arial; "" /></ span > ";
// Выведем в окно консоли текст заголовка, предназначенный для представления в формате RTF
FormattedTitle := Title.FormattedTitle;
Debug.WriteLine
("Текст заголовка отчета, предназначенный для представления в формате RTF - " + FormattedTitle);
// Произведем изменения
Title.FormattedText := "{\rtf1{\*\DCF FF Bius, TC 0, BC 16777215, FN Tahoma, FS 240}{\*\WORDWRAP 1}{\*\VERTICALALIGNMENT 1}{\*\HORIZONTAL_ALIGNMENT_V2 ,LEFT}{\*\GENERALALIGNMENT 0}\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}";
// Сделаем видимым заголовок отчета
Title.Visible := True;
// Сохраним изменения
(Express As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера:
выведется текст заголовка отчета на языке разметки HTML;
изменится текст заголовка отчета;
выведется форматированный текст заголовка отчета в формате RTF;
изменится форматированный текст заголовка.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Express: IEaxAnalyzer;
Title: IGxTitle;
HtmlTitle, FormattedTitle: String;
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим экспресс-отчет
Express := MB.ItemById["EXPRESS_TITLETEXT"].Edit() As IEaxAnalyzer;
// Получим панель заголовка
Title := Express.TitleBar;
// Зададим формат значения заголовка
Title.CustomFormat := "# ##0,00";
// Выведем в окно консоли текст заголовка на языке разметки HTML
HtmlTitle := Title.HtmlTitle;
System.Diagnostics.Debug.WriteLine
("Текст заголовка отчета на языке разметки HTML - " + HtmlTitle);
// Произведем изменения
Title.Text := "<span style=""font - size: 12pt; color: #000000; text - align: right; font - family: Arial; "" /></ span > ";
// Выведем в окно консоли текст заголовка, предназначенный для представления в формате RTF
FormattedTitle := Title.FormattedTitle;
System.Diagnostics.Debug.WriteLine
("Текст заголовка отчета, предназначенный для представления в формате RTF - " + FormattedTitle);
// Произведем изменения
Title.FormattedText := "{\rtf1{\*\DCF FF Bius, TC 0, BC 16777215, FN Tahoma, FS 240}{\*\WORDWRAP 1}{\*\VERTICALALIGNMENT 1}{\*\HORIZONTAL_ALIGNMENT_V2 ,LEFT}{\*\GENERALALIGNMENT 0}\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}";
// Сделаем видимым заголовок отчета
Title.Visible := True;
// Сохраним изменения
(Express As IMetabaseObject).Save();
End Sub;
См. также: