From 1b34b034046f7d95a46493cf77821c3769c6e227 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 26 Mar 2022 16:56:30 +0000
Subject: [PATCH] lazbarcodes: Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8233 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/lazbarcodes/src/lbc_maxicode.pas | 2 +-
 components/lazbarcodes/src/ubarcodes.pas    | 7 +++----
 components/lazbarcodes/src/udrawers.pas     | 4 ----
 3 files changed, 4 insertions(+), 9 deletions(-)

diff --git a/components/lazbarcodes/src/lbc_maxicode.pas b/components/lazbarcodes/src/lbc_maxicode.pas
index a6a98e1c1..39355970a 100644
--- a/components/lazbarcodes/src/lbc_maxicode.pas
+++ b/components/lazbarcodes/src/lbc_maxicode.pas
@@ -210,7 +210,7 @@ var
   current_set: Integer;
   value: Integer;
   P: PByte;
-  substring: string[10];
+  substring: string[10] = '';
 begin
   if ALength > 138 then
   begin
diff --git a/components/lazbarcodes/src/ubarcodes.pas b/components/lazbarcodes/src/ubarcodes.pas
index 57ac635b1..d5f56fdf3 100644
--- a/components/lazbarcodes/src/ubarcodes.pas
+++ b/components/lazbarcodes/src/ubarcodes.pas
@@ -108,7 +108,7 @@ type
     procedure Generate; virtual; abstract;
     procedure PaintOnCanvas(const aTargetCanvas: TCanvas; const aRect: TRect); virtual;
     procedure SaveToEpsFile(const AFileName: String);
-    procedure SaveToEpsStream(const AStream: TStream); virtual;
+    procedure SaveToEpsStream(const {%H-}AStream: TStream); virtual;
     procedure SaveToFile(const AFileName: String; AImageClass: TFPImageBitmapClass = nil;
       AWidth: Integer = -1; AHeight: Integer = -1); 
     procedure SaveToStream(const AStream: TStream; AImageClass: TFPImageBitmapClass = nil;
@@ -218,7 +218,7 @@ type
     procedure Render(AWidth, AHeight: Integer); virtual;
     procedure RenderBearerBars(AWidth, AHeight, ABorder: Integer; var ALastLine: PZintRenderline);
     procedure RenderBox(AWidth, AHeight, ABorder: Integer; var ALastLine: PZintRenderLine);
-    procedure RenderSymbol(xLeft, yTop, ASymbolWidth, ASymbolHeight, {%H-}ATextHeight, AFactor: Integer); virtual; 
+    procedure RenderSymbol(xLeft, yTop, {%H-}ASymbolWidth, ASymbolHeight, {%H-}ATextHeight, AFactor: Integer); virtual; 
     procedure RenderText(ASymbolWidth, ASymbolStart, ATextPos: Integer); virtual;
     property AddCheckSum: Boolean read FAddCheckSum write SetAddCheckSum default true;
     property DisplayCheckSum: Boolean read FDisplayCheckSum write SetDisplayCheckSum default false;
@@ -625,7 +625,7 @@ type
     procedure CalcSize(AFactor: Integer;
       out ATotalWidth, ATotalHeight, ASymbolWidth, ASymbolHeight, 
       ATextWidth, ATextHeight, ABorderWidth, AWhitespaceWidth: Integer); override;
-    function CalcSymbolStart(ABorderWidth, AWhiteSpaceWidth: Integer): Integer; override;
+    function CalcSymbolStart(ABorderWidth, {%H-}AWhiteSpaceWidth: Integer): Integer; override;
     procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: Integer;
       WithThemeSpace: Boolean); override;
     procedure DrawBarcode(ADrawer: TBasicBarcodeDrawer; AFactor: Double); override;
@@ -1541,7 +1541,6 @@ procedure TSimpleBarcode.Paint;
 var
   bmp: TBitmap;
   w, h: Integer;
-  R: TRect;
   ts: TTextstyle;
 begin
   if Color = clDefault then
diff --git a/components/lazbarcodes/src/udrawers.pas b/components/lazbarcodes/src/udrawers.pas
index f96494c49..02c1043df 100644
--- a/components/lazbarcodes/src/udrawers.pas
+++ b/components/lazbarcodes/src/udrawers.pas
@@ -319,8 +319,6 @@ begin
 end;
 
 procedure TSvgBarcodeDrawer.DrawRing(x, y, rOuter, rInner: Double); 
-var
-  r: Double;
 begin
   FList.Add(Format(
     '    <circle cx="%.3fmm" cy="%.3fmm" r="%.3fmm" stroke-width="%.3fmm" stroke="%s" fill="none" />', [
@@ -417,7 +415,6 @@ end;
 procedure TEpsBarcodeDrawer.DrawHexagon(x, y, wx: Double);
 var
   P: array[0..5] of TDblPoint;
-  s: String;
   i: Integer;
   cR, cG, cB: Double;
 begin
@@ -452,7 +449,6 @@ end;
 
 procedure TEpsBarcodeDrawer.DrawRing(x, y, rOuter, rInner: Double); 
 var
-  r: Double;
   cR, cG, cB: Double;
 begin
   if FStoredColor <> FBarColor then