pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazbarcodes: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8233 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-26 16:56:30 +00:00
parent c266571f54
commit 1b34b03404
3 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazbarcodes/src/lbc_maxicode.pas
View File

@ -210,7 +210,7 @@ var
current_set: Integer; current_set: Integer;
value: Integer; value: Integer;
P: PByte; P: PByte;
substring: string[10]; substring: string[10] = '';
begin begin
if ALength > 138 then if ALength > 138 then
begin begin

7
components/lazbarcodes/src/ubarcodes.pas
View File

@ -108,7 +108,7 @@ type
procedure Generate; virtual; abstract; procedure Generate; virtual; abstract;
procedure PaintOnCanvas(const aTargetCanvas: TCanvas; const aRect: TRect); virtual; procedure PaintOnCanvas(const aTargetCanvas: TCanvas; const aRect: TRect); virtual;
procedure SaveToEpsFile(const AFileName: String); 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; procedure SaveToFile(const AFileName: String; AImageClass: TFPImageBitmapClass = nil;
AWidth: Integer = -1; AHeight: Integer = -1); AWidth: Integer = -1; AHeight: Integer = -1);
procedure SaveToStream(const AStream: TStream; AImageClass: TFPImageBitmapClass = nil; procedure SaveToStream(const AStream: TStream; AImageClass: TFPImageBitmapClass = nil;
@ -218,7 +218,7 @@ type
procedure Render(AWidth, AHeight: Integer); virtual; procedure Render(AWidth, AHeight: Integer); virtual;
procedure RenderBearerBars(AWidth, AHeight, ABorder: Integer; var ALastLine: PZintRenderline); procedure RenderBearerBars(AWidth, AHeight, ABorder: Integer; var ALastLine: PZintRenderline);
procedure RenderBox(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; procedure RenderText(ASymbolWidth, ASymbolStart, ATextPos: Integer); virtual;
property AddCheckSum: Boolean read FAddCheckSum write SetAddCheckSum default true; property AddCheckSum: Boolean read FAddCheckSum write SetAddCheckSum default true;
property DisplayCheckSum: Boolean read FDisplayCheckSum write SetDisplayCheckSum default false; property DisplayCheckSum: Boolean read FDisplayCheckSum write SetDisplayCheckSum default false;
@ -625,7 +625,7 @@ type
procedure CalcSize(AFactor: Integer; procedure CalcSize(AFactor: Integer;
out ATotalWidth, ATotalHeight, ASymbolWidth, ASymbolHeight, out ATotalWidth, ATotalHeight, ASymbolWidth, ASymbolHeight,
ATextWidth, ATextHeight, ABorderWidth, AWhitespaceWidth: Integer); override; 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; procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: Integer;
WithThemeSpace: Boolean); override; WithThemeSpace: Boolean); override;
procedure DrawBarcode(ADrawer: TBasicBarcodeDrawer; AFactor: Double); override; procedure DrawBarcode(ADrawer: TBasicBarcodeDrawer; AFactor: Double); override;
@ -1541,7 +1541,6 @@ procedure TSimpleBarcode.Paint;
var var
bmp: TBitmap; bmp: TBitmap;
w, h: Integer; w, h: Integer;
R: TRect;
ts: TTextstyle; ts: TTextstyle;
begin begin
if Color = clDefault then if Color = clDefault then

4
components/lazbarcodes/src/udrawers.pas
View File

@ -319,8 +319,6 @@ begin
end; end;
procedure TSvgBarcodeDrawer.DrawRing(x, y, rOuter, rInner: Double); procedure TSvgBarcodeDrawer.DrawRing(x, y, rOuter, rInner: Double);
var
r: Double;
begin begin
FList.Add(Format( FList.Add(Format(
' <circle cx="%.3fmm" cy="%.3fmm" r="%.3fmm" stroke-width="%.3fmm" stroke="%s" fill="none" />', [ ' <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); procedure TEpsBarcodeDrawer.DrawHexagon(x, y, wx: Double);
var var
P: array[0..5] of TDblPoint; P: array[0..5] of TDblPoint;
s: String;
i: Integer; i: Integer;
cR, cG, cB: Double; cR, cG, cB: Double;
begin begin
@ -452,7 +449,6 @@ end;
procedure TEpsBarcodeDrawer.DrawRing(x, y, rOuter, rInner: Double); procedure TEpsBarcodeDrawer.DrawRing(x, y, rOuter, rInner: Double);
var var
r: Double;
cR, cG, cB: Double; cR, cG, cB: Double;
begin begin
if FStoredColor <> FBarColor then if FStoredColor <> FBarColor then