Как управлять шириной заголовка отчета?

vlad-mal · December 2009

Строится кросс (TfrxCrossView), для странички задана бумага "бесконечной" ширины.
Реальная ширина, естественно, получается всякий раз разная.

Надо бы, чтобы надпись в заголовке выравнивалась по серединке.

Как вычислить реальную ширину кросс-отчета, чтобы, например, в скрипте задать нужный отступ?

Спасибо.

OlegK · December 2009

написал:

Надо бы, чтобы надпись в заголовке выравнивалась по серединке.

Если предположить, что в отчете есть заголовок отчета ReportTitle1, на заголовке отчета есть мемо Memo1, то в Delphi это можно сделать так:

(frxReport1.FindObject('ReportTitle1') as TfrxReportTitle).Stretched := true; // растягивание заголовка по ширине страницы
(frxReport1.FindObject('Memo1') as TfrxMemoView).HAlign := haCenter;     // выравнивание текста по центру мемо
(frxReport1.FindObject('Memo1') as TfrxMemoView).Align := baCenter;       // выравнивание мемо по центру заголовка

В дизайнере еще проще. Нужно выставить для ReportTitle1 свойство Stretched равным true. Для Memo1 свойство HAlign равным haCenter, и свойство Align равным baCenter.

vlad-mal · December 2009

Спасибо.

На самом деле, вопрос сложнее.

Например, нужно растягивать некоторые поля в заголовке в соответствии с реальной шириной бумаги.
Слева на заголовке - картинка-логотип (не растягиваемый), правее от него - название отчета ("мемка", которую нужно разместить в рамке).

Левая граница рамки фиксирована и должна находиться сразу за логотипом, а правая граница рамки должна быть выровнена по актуальной правой границе кросс-отчета.
Т.е., нужно рассчитать и установить ширину этого поля.

<span style="font-family:Courier New">
[Логотип][<--- Название отчета (растянуть до правой границы кросса)--->]

[<------------------- Кросс (переменной ширины)----------------------->]

</span>

Хорошо бы (в т.ч.) иметь возможность задавать Ancors, как в дизайнере форм Delphi.

Вопрос: как вычислить ширину кросс - отчета при формировании заголовка отчета?

-=Den=- · December 2009

У объекта текст, который должен растягиваться установите Align=baWidth, HAlign=haCenter.
Пример отчета из mainDemo приложен.

vlad-mal · December 2009

1. Спасибо.

2. Вопрос: как узнать ширину кросс - отчета?

-=Den=- · December 2009

До построения - никак.

Кросс сначала заполняется данными, потом вычисляются высота и ширина объектов, потом кросс выводится.

Можно вычислить в скрипте

Var
 Wd: extended = 0;

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
  if RowIndex = 0 then
     Wd := Wd + Memo.Width;                    
end;

Но для хидера такой вариант будет работать только в 2-х проходном отчете, если на первом проходе сохранить ширину кросса.
Только в Вашем случае смысла в этом не вижу, проще и быстрее сделать через Align(вместо двойного построения отчета).

vlad-mal · December 2009

написал: »
До построения - никак.

Кросс сначала заполняется данными, потом вычисляются высота и ширина объектов, потом кросс выводится.

Можно вычислить в скрипте
Var
 Wd: extended = 0;

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
  if RowIndex = 0 then
     Wd := Wd + Memo.Width;                    
end;
Но для хидера такой вариант будет работать только в 2-х проходном отчете, если на первом проходе сохранить ширину кросса.
Только в Вашем случае смысла в этом не вижу, проще и быстрее сделать через Align(вместо двойного построения отчета).

1. Ну, я так и делаю. Жалко, конечно, что сам TfrxCrossView "не знает" свою итоговую ширину (после построения, конечно).

2. Через Align's никак. Отчет реально сложнее, чем упомянутые мной два примера.

3. Спа-си-бо!

Как управлять шириной заголовка отчета?

Комментарии

Оставить комментарий