Spelt / ZXing.Delphi

ZXing Barcode Scanning object Pascal Library for Delphi VCL and Delphi Firemonkey
Apache License 2.0
471 stars 206 forks source link

Error in function TRGBLuminanceSource.CreateLuminanceSource #171

Open JedrzejczykRobert opened 2 months ago

JedrzejczykRobert commented 2 months ago

current:

function TRGBLuminanceSource.CreateLuminanceSource(
  const newLuminances: TArray<Byte>;
  const width, height: Integer): TLuminanceSource;
begin
  Result := TRGBLuminanceSource.Create(width, height);
  luminances := newLuminances;
end;

should be:

function TRGBLuminanceSource.CreateLuminanceSource(
  const newLuminances: TArray<Byte>;
  const width, height: Integer): TLuminanceSource;
begin
  Result := TRGBLuminanceSource.Create(newLuminances, width, height, TBitmapFormat.Gray8);
end;