"OnAfterData" Dogodek

"OnAfterData" Dogodek

To dogodek se sprožigepo tem, ko je objekt poročila napolnjen s podatki iz vira, s katerim je povezan. Uporabite to dogodek za dostop do vrednosti polja v bazi podatkov ali izraza, ki je vsebovan v objektu. Ta vrednost je postavljena v sistemsko spremenljivko "Value", ki je na voljo le v tem dogodku. Torej, če dva objekta "Text" vsebujeta izraze [Table1."Field1"] in [<Table2."Field1"> + 10], se lahko vrednosti teh izrazov uporabijo z referenco na spremenljivko "Value" za objekte:

če Value > 3000 potem

  Memo1.Color := clRed

kar je enostavneje kot pisanje nečesa takega:

če <Table1."Field1"> > 3000 potem

  Memo1.Color := clRed

Uporaba "Value" namesto izraza omogoča, da napišete en večnamenski obravnavalec za dogodek "OnAfterData", ki ga je mogoče povezati z več objekti.

Upoštevajte še nekaj drugega - če objekt vsebuje več izrazov (na primer '[expr1] [expr2]'), se prenese vrednost zadnjega izraza v spremenljivko "Value".

Dogodek "OnAfterData" je idealen za izračun višine in širine objektov, kot je "Text". To pomeni, da, če je v skriptu potrebna natančna višina raztegnjenega objekta "Text", ki vsebuje izraz, lahko uporabite to kodo v dogodku "OnAfterData":

var

  MemoHeight: Extended;                                                        

začetek

  MemoHeight := TfrxMemoView(Sender).CalcHeight;                                    

konec;

Če bi se ta koda uporabila v dogodku "OnBeforePrint", bi bil rezultat višina objekta, ki vsebuje izraz, preden se izraz oceni, in ne njegova dejanska vrednost pri tiskanju.