Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

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. Как ты поступаешь в этом случае?




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.036 c
14-22337          Alexandr              2001-11-05 13:20  2002.01.08  
Print Server DP-101(D-Link) и печать из-под DOS


1-22230           Man In Red            2001-12-15 23:01  2002.01.08  
Как в labele отобразить порядковый номер в RichEdite выделенного символа!


1-22097           Сержик                2001-12-19 15:45  2002.01.08  
К чему две кнопки привязать, чтобы они были внизу по центру?


1-22008           Alligator             2001-12-17 11:46  2002.01.08  
HELP!!!


14-22342          Дремучий              2001-11-05 18:52  2002.01.08  
Конкурс! Обои для игры (сайта) Sea Fight!