как заставить выставить с 1 раза альбомный развот?

отредактировано 00:34 Раздел: FastReport 2.xx VCL
Помогите плз!
Как в рантайме выставить альбомную страницу?
Сейчас пробовал на 5 делфи, на нулевом 5 билдере-полная фигня ;)
Создаю страницу и только со второго запуска PrepareReport( или ShowReport) получаю альбомный вариант. переход с альбомного на портретный происходит с 1го раза.
void __fastcall TForm1::Button2Click(TObject *Sender)
{

 TfrPages *frPage;

 frReport1->Pages->Clear();
 frReport1->Pages->Add();

 frPage = &frReport1->Pages[0];

if (CheckBox1->Checked)
   frPage->Pages[0]->Prop["Orientation"]=1;
   else
   frPage->Pages[0]->Prop["Orientation"]=0;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
frReport1->ShowReport();
}

Отчеты большие и пользователю 2 раза построение отчета видеть не хочется.

Что тут неправильно? Может разработчики помогут?
PS: freport 2.51

Комментарии

  • MichaelMichael планета Земля
    отредактировано 00:34
    чтобы 2 раза не смотреть построение отчёта можно в первый раз делать не showreport, а PrepareReport.
    Хотя это тоже не правильно. Изменять должно с первого раза.
  • отредактировано 00:34
    TfrPage *frPage;

    frReport1->Pages->Clear();
    frReport1->Pages->Add();

    frPage = &frReport1->Pages[0];

    frPage->ChangePaper(frPage->pgSize, frPage->pgWidth, frPage->pgHeight, frPage->pgBin, poLandscape)

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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.