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

Mickle Gusew

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

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

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

Stranger

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

Mickle Gusew

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

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

Mickle Gusew

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

Lex

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

написал:

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

Mickle Gusew

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

Lex

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

Stranger

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