Форум: "Базы";
Поиск по всему сайту: 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.024 c
6-22304           sedoy                 2001-10-11 14:09  2002.01.08  
клиент-сервер в Интернет через прокси


1-22142           Начинающий            2001-12-20 10:42  2002.01.08  
ReplaceDialog


3-21936           vvs                   2001-12-05 06:42  2002.01.08  
Delphi5+SQL Server7 нормально, а Delphi5+SQL 2000 бред


1-22105           Gonza                 2001-12-19 16:35  2002.01.08  
MDI Приложение ???


4-22501           Art                   2001-11-02 08:30  2002.01.08  
А можно ли запретить использование определенных Api другим приложениям?