Последняя строка на странице (FR 3.18)

Mickle Gusew · November 2005

Вот такой код:

procedure MasterData_OnBeforePrint(Sender: TfrxComponent);
begin
if Engine.FreeSpace < MasterData.Height then
mePolis.Frame.Typ:=ftBottom;
end;

но подчеркивание идет не только на последней строке, а на всех строках
MastreData данного отчета

Stranger · November 2005

Добавь убирать границу в противном случае

Mickle Gusew · November 2005

mePolis.Frame.Typ установлен в ftBottom

Так не работает:
if Engine.FreeSpace > pgMasterData.Height then begin
mePolis.Frame.Typ:=0;
...
end;

Вот так сработало:
if Engine.FreeSpace > pgMasterData.Height then begin
mePolis.Frame.Typ:=0;
...
end
else begin
mePolis.Frame.Typ:=ftBottom;
...
end;

Почему ? Интересно !

Lex · November 2005

Не вижу ни чего странного.
На первой же записи в наборе данных
ты устанавливаешь Frame.Typ:=0 и все.

Mickle Gusew · November 2005

Хочется, чтобы последняя строка на странице (MasterData) подчеркивалась "Фреймом"

Lex · November 2005

так у тебя ж отработало

написал:

if Engine.FreeSpace > pgMasterData.Height then begin
mePolis.Frame.Typ:=0;
...
end
else begin
mePolis.Frame.Typ:=ftBottom;
...
end;

Mickle Gusew · November 2005

Почему обратно не работает т.е.
if Engine.FreeSpace < MasterData.Height then ....

Lex · November 2005

if Engine.FreeSpace < pgMasterData.Height then begin
mePolis.Frame.Typ:=ftBottom;
...
end
else begin
mePolis.Frame.Typ:=0;
...
end;

Stranger · November 2005

Потому что с каждой новой записью свойства не сбрасываются.

Последняя строка на странице (FR 3.18)

Комментарии

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