Разработка баз данных в Delphi. 11 Уроков



         

Глава 14 Компонент TQRBand - часть 2


События

property AfterPrint: TQRAfterPrintEvent;

и

property BeforePrint: TQRBeforePrintEvent;

наступают соответственно до и после печати полосы. Метод

function AddPrintable(PrintableClass: TQRNewComponentClass): TQRPrintable;

используется для вставки в полосу отображающего компонента в процессе прогона программы. Он автоматически устанавливает между полосами отношение собственности. Два следующих фрагмента выполняют одинаковую работу:

with DetailBand1.AddPrintable(TQRLabel) do

begin

  Size.Left := 20;

  Size.Top := 5;

  Caption := ‘Новая полоса’;

end;

var

  aLabel : TQRLabel;

begin

  aLabel := TQRLabel.Create(ReportForm);

  aLabel.Parent := DetailBand1;

  with aLabel do

  begin

    Size.Left := 20;

    Size.Top := 5;

    Caption := ‘Новая полоса’;

  end;

end;




Содержание  Назад  Вперед