TFPReportQRCode

type TFPReportQRCode = class(TFPReportElement)

protected

  procedure BeforePrint; override;

  procedure RecalcLayout; override;

  procedure DoWriteLocalProperties(); override;

public

  class function ElementType; override;

  procedure Assign(); override;

  function QRCodeValue;

  function QRPixelSize();

  procedure ReadElement(); override;

published

  property PixelSize: Integer; [rw]

  property Value: string; [rw]

  property Expression: string; [rw]

  property Mask: TQRMask; [rw]

  property ErrorCorrectionLevel: TQRErrorLevelCorrection; [rw]

  property Center: Boolean; [rw]

end;

TFPReportQRCode

TFPReportElement

TFPReportComponent

TObject