[Tipy a Triky] Definované upozornění při tisku formulářem

[jan.havranek]

Při tisku formulářem se může hodit zobrazení dialogu, který ale nemá být součástí vytištěného formuláře. Může sloužit pouze jako upozornění pro obsluhu.

V ReportBuilderu na záložce Calc je třeba pro událost Report.BeforePrint definovat funkci ShowMessage, např. takto:

Kód: Vybrat vše

procedure ReportBeforePrint;
begin
  ShowMessage('Vlastní text upozornění!');
end;

Tato definice před vlastním náhledem nejprve zobrazí zadaný text ve vlastním dialogovém okně, po jeho zavření se teprve vytvoří náhled. Samozřejmě je možné obsah textu podmínkovat, je možné ho i napojit na datové zdroje a údaje do něj dotahovat z databáze atd.

Příklad dotažení poznámky dokladu do dialogu:

Kód: Vybrat vše

procedure ReportBeforePrint;
begin
  ShowMessage(TabDokladyZbozi['Poznamka_255']);
end;