Source position: zbarcodescannerview.pas line 31
type TOnScannerResult = procedure(
Sender: TObject;
codedata: string;
codeformat: TBarcodeFormat
) of object;