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.

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

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