Primeri brisanja objektov

Primer skrivanja objektov na izpisu, ki imajo v ozadju programsko kodo (1)

Oglejmo si primer skrivanja objektov na izpisu, ki imajo v ozadju programsko kodo. Delali bomo na našem novem izpisu, ki ga najprej odpremo v oblikovalniku izpisov.  Označimo črto pod nazivom dokumenta. Ime objekta, ki ga bomo izbrisali, je mTitle2, kar si lahko ogledamo tudi v oknu Object Inspector (kot prikazuje slika).

To je tudi ime, na katerega je vezana programska koda. Pred izbrisom si jo lahko tudi na zavihku Code ogledate oziroma poiščete preko kombinacije tipk Ctrl+F.

 

Ko smo si ogledali kodo, ki se sklicuje na naš objekt, se vrnemo na zavihek Page ter črto označimo ter izbrišemo s tipko Delete. Izpis shranimo in ga ponovno zaženemo kar iz urejevalnika. To naredimo tako, da v glavnem meniju izberemo File|Preview. Program nas postavi na zavihek Code in javi napako na sliki, da bi jo popravili.



 

Sporočilo nam pove, da FastReport v kodi ne najde objekta z imenom mTitle2. Seveda ga ne more najti, ker smo ga izbrisali in ga ni več. V kodi izbrišemo naslednjo vrstico.

    mTitle2.Width := mTitle1.CalcWidth + fKljuc.CalcWidth - 8;

Vrnemo se na zavihek Page1 in shranimo spremembe ter si ogledamo izpis v predogledu.
 
Odpiranje izpisa iz urejevalnika izpisov se uporablja samo za pregled oblike izpisa, ker ne zagotavlja, da so podatki vedno pravilni.

Če mislimo, da bomo kodo morda še kdaj potrebovali, jo lahko samo »zakomentiramo«. To pomeni, da so je koda še vedno zapisana, le program je ne vidi. To naredimo tako, da na začetek vrstice dodamo dve poševnici. Zgornja vrstica se zdaj zapiše takole

//    mTitle2.Width := mTitle1.CalcWidth + fKljuc.CalcWidth - 8;

 

Primer skrivanja objektov na izpisu, ki imajo v ozadju programsko kodo (2)

 



Objekta s podatki o podjetju, na vašem izpisu Moj_Račun z imenoma mDokumentA in  mDokumentB poskusimo izbrisati. Pred izbrisom se prepričajmo ali imata objekta v ozadju programsko kodo. Ugotovimo lahko naslednje:

Če izbrišemo objekt mDokumentB, moramo pobrisati naslednjo kodo:

  mDokumentB.Text := <tbParameter."ACCOMPANYPRTTEXTB">;                                          
  mDokumentA.Width := dlValueInRange(mDokumentA.CalcWidth, mDokumentA.Width, 11 * fr1cm);

Če izbrišemo še objekt mDokumentA, moramo pobrisati še naslednjo kodo:

  mDokumentA.Text := <tbParameter."ACCOMPANYPRTTEXTA">;                                          
  mDokumentA.Width := dlValueInRange(mDokumentA.CalcWidth, mDokumentA.Width, 11 * fr1cm);

 

Primer skrivanja objektov na izpisu, ki imajo v ozadju programsko kodo (3)

Poglejmo si, kako izbrišemo pas DetailFooter2, na katerem je zapisana opomba na dokumentu. Pred začetkom si zapomnimo, kateri pas je bil pred njim in kateri za njim. V našem primeru je prejšnji pas DetailFooter, naslednji pa bIzjavaTekst. Najbolj enostavno je, da izpis shranimo in bomo potem zaporedje pasov gledali na kopiji. Pas izbrišemo in shranimo izpis.

Če pasu ne izbrišemo, ampak izbrišemo samo kodo za vidnost, bo tam, kjer bi morala biti opomba na izpisu, prazen prostor.

Izpis zaženemo iz urejevalnika. Program nas postavi na zavihek Code in javi podobno napako kot v prejšnjem primeru. Ko izbrišemo vrstico

    DetailFooter2.visible := VarToStr(<qReportIzpisD."acNote">) <> '';

se bo izpis sicer odprl, vendar se podatki v nadaljevanju izpisa ne bodo prikazovali. Da se bodo ti podatki ponovno prikazovali, kliknemo na pas bNacinPlacI in odpremo okno Object Inspector. Lastnosti Child priredimo ime pasu, ki je bilo prej za pasom, ki smo ga pravkar izbrisali. V našem primeru je to pas bIzjavaTekst. Potem bo program spet prikazoval podatke na koncu izpisa tako kot je potrebno.