Вставка нижней границы при достижении конца листа

Комментарии

• Stranger

  September 2005 отредактировано 18:08

  EvgeniyI написал:

  В детальном бенде границы только вертикальные. В нижнем групповом бенде элемент "линия" как бы является нижней границей детального бенда(по сути закрывает таблицу).

  А что мешает туда же и горизонтальные добавить?
  И вообще, лучше выровнять все мемки и границы выставить у них, все 4.
• EvgeniyI

  September 2005 отредактировано 18:08

  написал:

  А что мешает туда же и горизонтальные добавить?

  
  В детальном бенде границы только вертикальные. В нижнем групповом бенде элемент "линия" как бы является нижней границей детального бенда(по сути закрывает таблицу). Это разве не понятно? Объясню по-другому. В таблице линиями разделяются только колонки, а также линии по границе всей таблицы. Если добавить горизонтальную линию в детальный бенд, то получится просто таблица в которой каждая ячейка со всеми границами, что есть не правильно исходя из задуманного вида.
  

  написал:

  И вообще, лучше выровнять все мемки и границы выставить у них, все 4.

  Не понятно к чему это?
• Andrew_Sh г.Минск

  September 2005 отредактировано September 2005

  EvgeniyI написал:

  Как организовать вставку нижней границы при достижении конца листа.
  
  Есть групповой бенд и детальный. В детальном бенде границы только вертикальные. В нижнем групповом бенде элемент "линия" как бы является нижней границей детального бенда(по сути закрывает таблицу). Но проблема в том, что при переносе детального бенда между страницами, на предидущей странице таблица как бы оторвана. Нет завершающей горизонтальной линии. Как ее сделать?

  Попробуйте так. На Detail поместите линию. В OnBeforePrint для этой линии напишите так:
  

    Line1.Visible := Engine.FreeSpace < MIN_SPACE; 
  

  
  где MIN_SPACE - это минимально допустимое число пикселей от текущей позиции до конца страницы, при котором линия печататься не будет. Замените MIN_SPACE на нужное значение. Как правило значение для MIN_SPACE должно быть примерно равным высоте вашего Detail, а если на странице есть PageFooter, то MIN_SPACE увеличивается на его высоту.
  

    Line1.Visible := Engine.FreeSpace < Detail1.Height; 
  

  
  или
  

    Line1.Visible := Engine.FreeSpace < (Detail1.Height+PageFooter1.Height); 
  
• Stranger

  September 2005 отредактировано 18:08

  EvgeniyI написал:

  EvgeniyI написал:

  И вообще, лучше выровнять все мемки и границы выставить у них, все 4.

  Не понятно к чему это?

  Это к тому, что рисовать таблицу линиями утомительно, гораздо легче и правильнее делать ее границами мэмок. А дальше использовать код Andrew_Sh, но уже для границ мэмок.
• waik Иваново

  September 2005 отредактировано 18:08

  Stranger написал:

  Stranger написал:

  Stranger написал:

  И вообще, лучше выровнять все мемки и границы выставить у них, все 4.

  Не понятно к чему это?

  Это к тому, что рисовать таблицу линиями утомительно, гораздо легче и правильнее делать ее границами мэмок. А дальше использовать код Andrew_Sh, но уже для границ мэмок.

  Человек не хочет горизонтальных линий (я тоже иногда предпочитаю без них - если мелкий шрифт в детальке то получается слишком много полос)
  
  С линией хороший вариант, но бывает что немного слетает в вертикале. Я делал с помощью ещё одной мемки-подложки, с одной нижней чертой, которая показывается при последней строке на странице.