Скрыть Memo в подвале отчета

Faraday

В подвале отчета выводится информация в виде этикетки (две колонки Memo):
Поле1: ЗначениеПоля1
Поле2: ЗначениеПоля2
Поле3: ЗначениеПоля3
Поле4: ЗначениеПоля4
Поле5: ЗначениеПоля5

Если значение какого-либо поля равно 0, то это поле и заголовок поля слева надо скрыть. При этом нужно, чтобы нижележащие поля поднялись вверх.
Например, ЗначениеПоля2=0 и ЗначениеПоля4=0, тогда отчет должен выглядеть так:

Поле1: ЗначениеПоля1
Поле3: ЗначениеПоля3
Поле5: ЗначениеПоля5

В скрипте в событии ReportSummary1OnBeforePrint я прописал код для сокрытия Мемо (свойство HideZeros скрывает только Мемо со значением, а надо скрыть еще и заголовок слева поля):
if <Таблица1."ЗначениеПоля2">=0 then begin
Memo3.Visible:=false;
Memo4.Visible:=false;
end;
if <Таблица1."ЗначениеПоля4">=0 then begin
Memo7.Visible:=false;
Memo8.Visible:=false;
end;

Поля скрываются, но остаются пустые строки:
Поле1: ЗначениеПоля1

Поле3: ЗначениеПоля3

Поле5: ЗначениеПоля5

Пробовал банд сделать растягиваемым и цеплять Child на каждое поле, но все равно промежутки. Child и вообще band работают только на "растягивание" вниз? Т.е. увеличиваться по высоте могут, а уменьшаться нет?
Вопрос: как можно сделать без пустых строк без лишнего кода?

Faraday

Получилось сделать только воткнув на каждое поле по Child и скрывать Child, а не Memo (у каждого Child нужно поставить PrintChildifInvisible в True) :

if <Таблица1."ЗначениеПоля2">=0 then
Child2.Visible:=false;

if <Таблица1."ЗначениеПоля4">=0 then
Child4.Visible:=false;

---

Проще то уже никак не сделать? Без Child, а то у меня шаблоны отчетов редактируются юзерами и устанешь их обучать так делать.

gpi

написал:

Проще то уже никак не сделать? Без Child, а то у меня шаблоны отчетов редактируются юзерами и устанешь их обучать так делать.

Проще не получится. Можно только упростить код:

Child2.Visible := <Таблица1."ЗначениеПоля2"> <> 0;

Faraday

Жалко, что нельзя. Ранее работал с PReport, там связи между текстовыми полями гибче реализовывались. И многовариантность отображения была шире. Правда там свои минусы были, так что будем привыкать к fastreport.

Faraday

Нашел такой косячок: если много detalband с headerband и они в режиме дизайнера не влазят на страницу, то логично попытаться создать второю страницу и перенести некоторые detalband туда, однако при выполнении отчета будет ошибка, типа неправильно расположен detalband.
Приходится в дизайнере делать высоту страницу больше, чтобы разместить все detalband на одной странице, а потом возвращать нормальную высоту страницы.

gpi

написал:

Нашел такой косячок: если много detalband с headerband и они в режиме дизайнера не влазят на страницу, то логично попытаться создать второю страницу и перенести некоторые detalband туда, однако при выполнении отчета будет ошибка, типа неправильно расположен detalband.
Приходится в дизайнере делать высоту страницу больше, чтобы разместить все detalband на одной странице, а потом возвращать нормальную высоту страницы.

Установите TfrxReportPage.LargeDesignHeight в True

написал:

Жалко, что нельзя. Ранее работал с PReport, там связи между текстовыми полями гибче реализовывались. И многовариантность отображения была шире. Правда там свои минусы были, так что будем привыкать к fastreport.

Если можно выводить данные в одном мемо, то можно написать свою функцию

написал:

El 9/20/2010 12:22 PM, Mike Long escribio:
I'm using FastReport 4.8 and I've forgotten how to suppress a blank line when printing an address.
For example, I have fields: FirstName, LastName, Company, Street1, Street2, City, State, Country, Zip

Company& Street2 may be blank and I don't want them to occupy a blank line in the address part of the report. What is the easiest way to suppress the blank line(s)?

add these funtion to fastreportscripting:

Function HLTrim(const Data : string; const IfDataAddReturn : Boolean) :
string;
begin
result := '';
If Trim(Data) <> '' Then begin
result := Data;
If IfDataAddReturn Then result := result + Chr(13);
End;
End;

class for add the function :

THLMyFunctions = class(TfsRTTIModule)
private
function CallMethod(Instance: TObject; ClassType: TClass; const
MethodName: String; params: TfsMethodHelper): Variant;
public
constructor Create(AScript: TfsScript); override;
end;

implementation :

constructor THLMyFunctions.Create(AScript: TfsScript);
begin

inherited Create(AScript);
with AScript do begin
AddMethod('Function HLTrim(Data : String; IfDataAddReturn :
Boolean) : String',CallMethod, '');
end;
end;

function THLMyFunctions.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; params: TfsMethodHelper): Variant;
begin
if methodname = 'HLTRIM' then result := HLTrim(params[0], params[1]);
end;

now, inside the memo yo can write

<hltrim(<you address line1>,true)><hltrim(<address line
2>,true)><hltrim(<city>,false)> <hltrim(<zip>,false)>

the second parameter put a new line (true) when the data field is not
null. if the parameter is false the new line is not inserted this is why
i put the space between city and zip

Note : the job is one time (creating the unit) and add the unit for each
new proyect.

Please refer to the fastreport documentation to check how create new
script functions and can complete my example.

also excuse my poor english

regards

Faraday

gpi написал: »

Установите TfrxReportPage.LargeDesignHeight в True

Спасибо, не знал. В принципе вполне автоматизирует ручное изменение высоты страницы "туда-сюда" .
Кстати, и в документации не встречал такого параметра, хотя может невнимательно читал.

gpi написал: »

Если можно выводить данные в одном мемо, то можно написать свою функцию

Посмотрел этот пример, он без надписей полей, простое идет перечисление значений полей. С надписями код немного усложнится, хотя это и непринципиально конечно. В целом код функции может пригодится в случае, если невозможно воткнуть childband, например если слева объект какой-нибудь, хотя тут поможет суботчет. Так что возьмем идею на заметку, спасибо.

На будущее раработчикам fastreport стоило бы предусмотреть скрывать неспользуемые строки и как-то улучшить работу смещения мемо без использования child и скриптов.