Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Бази";
Поточний архів: 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];

наверх









Пам'ять: 0.56 MB
Час: 0.024 c
14-22363
дрімучий
2001-11-02 18:16
2002.01.08
Ну і ...?


1-22087
Serg5
2001-12-19 15:14
2002.01.08
Люди, зовсім легкий питання! Посилання на процедуру, одним словом.


1-22181
Харчування
2001-12-21 11:12
2002.01.08
Як заборонити переміщення форми мишю?


3-21953
VariK
2001-12-05 15:14
2002.01.08
про Записи


14-22404
MJH
2001-11-05 14:58
2002.01.08
Вартість інету (годину)





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська