| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
FastReport. ;frBand.Visible
asafr © (2001-12-04 18:11:00)Есть отчет 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;
asafr (2001-12-05 12:14:00) [1]Girl, спасибо. Но у меня Undeclared identifier "ShowBand". А менять что-либо в исходниках мне не хочется. В FR_Class.pasprocedure ShowBand прописана, как private. Как ты поступаешь в этом случае?
Girl (2001-12-05 01:13:00) [2]т.е. сорри, сначала надо было полностью прочитать. :)
Не надо ничего вешать на OnGetValue. Просто вместо Visible используй ShowBand.
Girl (2001-12-05 01:11:00) [3]Вешай на событие OnGetValue обработчик. Только не Visible, а ShowBand
| |
