Главная страница

Форум: "Базы";
Текущий архив: 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. Как ты поступаешь в этом случае?




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

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

Наверх

Top.Mail.Ru     Яндекс.Метрика













Память: 0.77 MB
Время: 0.031 c
7-22427
KLM
2001-09-20 06:34
2002.01.08
Защита программы от копирования


14-22348
Иван Шихалев
2001-11-06 22:04
2002.01.08
О Рихтере


1-22176
Serg5
2001-12-20 14:57
2002.01.08
Опять проблема с текстом: вывожу на экран Image1.Canvas.TextOut, но под самим текстом белый беграунд. Можно ли если не убрать(просто наложить буквы), то хотя бы беграунд сделать чёрным.


1-22016
Leviathan
2001-12-13 23:05
2002.01.08
Появление формы


3-21907
RDA
2001-12-01 12:48
2002.01.08
Delphi и MySql





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский