Как менять высоту заголовка страницы?

madmech · December 2010

Задача такова: требуется либо сделать невидимым, либо полностью сжать по высоте заголовок страницы (PageHeader) на всех страницах, кроме 1-й. Но так, чтобы все бэнды, находящиеся под этим заголовком, сдвигались вверх на высоту этого заголовка. Это требуется для более экономного расхода пространства бумаги (пользователю придется работать с большими таблицами, каждая из которых будет располагаться на нескольких страницах, и для него какждый сантиметр страницы важен, если не сказать что критичен). Когда я пытаюсь это сделать в скрипте, результата никакого нет:

procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin              // Корректировка заголовка страницы в зависимости от номера страницы                                                                                                                                                                                         
  if <Page#> <> 1 then
    PageHeader1.Visible := False                                                                                         
   // Или же так:  PageHeader1.Height := 0;     
end;

Второй вариант не проходит, по-видимому, потому что нельзя сжать заголовок до состояния "линии" с размещающимися на нем объектами.
Какие у кого есть мысли, дамы и господа?

gpi · December 2010

Попробуйте

procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin                                                                                                                                                                              
    PageHeader1.Visible := <Page> = 1;                                                                                        
end;

madmech · December 2010

gpi написал: »

Попробуйте

procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin                                                                                                                                                                              
    PageHeader1.Visible := <Page> = 1;                                                                                        
end;

Не помогло, да и приведенный Вами код, по сути, совпадает с моим.

gpi · December 2010

В аттаче модифицированный отчёт для FRDemo. Мой код работает

madmech · December 2010

gpi написал: »

В аттаче модифицированный отчёт для FRDemo. Мой код работает

Оказалось, что все в порядке. Прошу прощения, что ввел в заблуждение - просто у меня происходил перенос непомещающейся части кросстаба на др. страницу, являющуюся, по сути, продолжением первой страницы, на которой заголовок должен присутствовать. При построении отчета с кросстабом "длинным" по вертикали, все смещается, как надо.
Вопрос решился сам собой.

Как менять высоту заголовка страницы?

Комментарии

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