как заставить выставить с 1 раза альбомный развот?
Помогите плз!
Как в рантайме выставить альбомную страницу?
Сейчас пробовал на 5 делфи, на нулевом 5 билдере-полная фигня
Создаю страницу и только со второго запуска PrepareReport( или ShowReport) получаю альбомный вариант. переход с альбомного на портретный происходит с 1го раза.
Отчеты большие и пользователю 2 раза построение отчета видеть не хочется.
Что тут неправильно? Может разработчики помогут?
PS: freport 2.51
Как в рантайме выставить альбомную страницу?
Сейчас пробовал на 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
Комментарии
Хотя это тоже не правильно. Изменять должно с первого раза.
frReport1->Pages->Clear();
frReport1->Pages->Add();
frPage = &frReport1->Pages[0];
frPage->ChangePaper(frPage->pgSize, frPage->pgWidth, frPage->pgHeight, frPage->pgBin, poLandscape)