Переключение на альбомную страницу
Привет.
Почему-то при создании в рантайме отчета переключение на альбомную страницу происходит только на второй раз, т.е. надо написать 2 раза
frReport1.ShowReport; и только на второй раз страница будет альбомная, а не портретная.
текст:
form14.frReport1.Pages.Clear;
form14.frReport1.Pages.Add;
frPage := form14.frReport1.Pages[0];
frPage.Prop:=29;
frPage.Prop:=29;
frPage.Prop:=29;
frPage.Prop:=29;
if checkbox1.Checked then begin
frPage.Prop:=poLandscape;
end
else
frPage.Prop:=poPortrait;
Переход с альбомной на портретную выполняется с первого раза.
Если после создания запустить дизайнер, то в свойствах страницы радиобаттон показывает на альбомную, а на самом деле- портретная. если нажать на Ок -страница принимает нужный вид. Может есть ф-я обновления страницы?
PS:
Делфи 5, все апдейты, w2k sp3. принтер brother 1240 (последние рекомендуемые дрова) не печатает модифицированный текст (сужение и пр.), а выводит его как нормальный. В 98 винде все ок. Может кто знает лечение такой бяки?
Почему-то при создании в рантайме отчета переключение на альбомную страницу происходит только на второй раз, т.е. надо написать 2 раза
frReport1.ShowReport; и только на второй раз страница будет альбомная, а не портретная.
текст:
form14.frReport1.Pages.Clear;
form14.frReport1.Pages.Add;
frPage := form14.frReport1.Pages[0];
frPage.Prop:=29;
frPage.Prop:=29;
frPage.Prop:=29;
frPage.Prop:=29;
if checkbox1.Checked then begin
frPage.Prop:=poLandscape;
end
else
frPage.Prop:=poPortrait;
Переход с альбомной на портретную выполняется с первого раза.
Если после создания запустить дизайнер, то в свойствах страницы радиобаттон показывает на альбомную, а на самом деле- портретная. если нажать на Ок -страница принимает нужный вид. Может есть ф-я обновления страницы?
PS:
Делфи 5, все апдейты, w2k sp3. принтер brother 1240 (последние рекомендуемые дрова) не печатает модифицированный текст (сужение и пр.), а выводит его как нормальный. В 98 винде все ок. Может кто знает лечение такой бяки?
Комментарии
ChangePaper(pgSize, pgWidth, pgHeight, pgBin, poLandscape)