Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

FastReport. frBand.Visible   Найти похожие ветки 

 
asafr ©   (2001-12-04 18:11) [0]

Есть отчет Detail-Detail в FastReport. Каждый DetailBend (DetailBend1, DetailBend2) связан с различными DataSet (DataSet1, DataSet2). Также имеются два HeaderDetail (HeaderDetail1, HeaderDetail2 - соответственно)Необходимо, чтобы при CheckBox.Checked:=True/False на форме Delphi в отчете печаталась/не печаталась вторая часть отчета (DataSet2). Ничего не могу поделать - на мой взгляд все правильно, но код не работает: Bands всегда при печати Visible=True. Что не так? Что не учитываю?

procedure Tfm_Form1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
var
DetHeader, DetData :TfrBandView;
begin

DetHeader :=TfrBandView(frElectroGroup.FindObjec("DetHeader1"));
DetData :=TfrBandView(frElectroGroup.FindObject("DetData1"));

if CheckBox.Checked=True then begin

if DetHeader<> nil then
DetHeader.Visible:=True;

if DetData<> nil then
DetData.Visible :=True;

end else begin

if DetHeader<> nil then
DetHeader.Visible:=False;

if DetData<> nil then
DetData.Visible :=False;
end;
end;


 
Girl   (2001-12-05 01:11) [1]

Вешай на событие OnGetValue обработчик. Только не Visible, а ShowBand


 
Girl   (2001-12-05 01:13) [2]

т.е. сорри, сначала надо было полностью прочитать. :)
Не надо ничего вешать на OnGetValue. Просто вместо Visible используй ShowBand.


 
asafr ©   (2001-12-05 12:14) [3]

Girl, спасибо. Но у меня Undeclared identifier "ShowBand". А менять что-либо в исходниках мне не хочется. В FR_Class.pas procedure ShowBand прописана, как private. Как ты поступаешь в этом случае?



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-22403
Burmistroff
2001-11-11 20:13
2002.01.08
Супер справочник по Delphi -2. Ваше мнение, please.


6-22294
s
2001-10-10 13:50
2002.01.08
SOAP examples


1-22147
vinni2000
2001-12-20 12:59
2002.01.08
Нужен совет по RichEdit!!!!!!!!


1-22239
Gayrus
2001-12-17 03:52
2002.01.08
TStatusBar


1-22127
Delphimun
2001-12-15 13:43
2002.01.08
Как курсор загруженный из ресурса в переменную сохранить в файле(cur)?