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

Solves compilation with fpc 2.4.2 (Igor Z)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2125 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2011-11-11 13:01:15 +00:00
parent 1661041d6a
commit 23bd17e00a
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/lazbarcodes/src/zint.pp
View File

@ -39,18 +39,20 @@ interface
{ Pointer to next line } { Pointer to next line }
type type
PointerTo_zint_render_line=^zint_render_line;
PointerTo_PointerTo_zint_render_line=^PointerTo_zint_render_line;
zint_render_line = record zint_render_line = record
x : single; x : single;
y : single; y : single;
length : single; length : single;
width : single; width : single;
next : ^zint_render_line; next : PointerTo_zint_render_line; // ^zint_render_line;
end; end;
PointerTo_zint_render_line=^zint_render_line;
PointerTo_PointerTo_zint_render_line=^PointerTo_zint_render_line;
{ Suggested string width, may be 0 if none recommended } { Suggested string width, may be 0 if none recommended }
{ Pointer to next character } { Pointer to next character }
PointerTo_zint_render_string=^zint_render_string;
PointerTo_PointerTo_zint_render_string=^PointerTo_zint_render_string;
zint_render_string = record zint_render_string = record
x : single; x : single;
y : single; y : single;
@ -58,35 +60,34 @@ interface
width : single; width : single;
length : longint; length : longint;
text : ^byte; text : ^byte;
next : ^zint_render_string; next : PointerTo_zint_render_string; // ^zint_render_string;
end; end;
PointerTo_zint_render_string=^zint_render_string;
PointerTo_PointerTo_zint_render_string=^PointerTo_zint_render_string;
{ Pointer to next ring } { Pointer to next ring }
PointerTo_zint_render_ring=^zint_render_ring;
PointerTo_PointerTo_zint_render_ring=^PointerTo_zint_render_ring;
zint_render_ring = record zint_render_ring = record
x : single; x : single;
y : single; y : single;
radius : single; radius : single;
line_width : single; line_width : single;
next : ^zint_render_ring; next : PointerTo_zint_render_ring; // ^zint_render_ring;
end; end;
PointerTo_zint_render_ring=^zint_render_ring;
PointerTo_PointerTo_zint_render_ring=^PointerTo_zint_render_ring;
{ Pointer to next hexagon } { Pointer to next hexagon }
PointerTo_zint_render_hexagon=^zint_render_hexagon;
PointerTo_PointerTo_zint_render_hexagon=^PointerTo_zint_render_hexagon;
zint_render_hexagon = record zint_render_hexagon = record
x : single; x : single;
y : single; y : single;
next : ^zint_render_hexagon; next : PointerTo_zint_render_hexagon; // ^zint_render_hexagon;
end; end;
PointerTo_zint_render_hexagon=^zint_render_hexagon;
PointerTo_PointerTo_zint_render_hexagon=^PointerTo_zint_render_hexagon;
{ Pointer to first line } { Pointer to first line }
{ Pointer to first string } { Pointer to first string }
{ Pointer to first ring } { Pointer to first ring }
{ Pointer to first hexagon } { Pointer to first hexagon }
PointerTo_zint_render=^zint_render;
zint_render = record zint_render = record
width : single; width : single;
height : single; height : single;
@ -95,7 +96,6 @@ interface
rings : ^zint_render_ring; rings : ^zint_render_ring;
hexagons : ^zint_render_hexagon; hexagons : ^zint_render_hexagon;
end; end;
PointerTo_zint_render=^zint_render;
{ Largest symbol is 177x177 QR Code } { Largest symbol is 177x177 QR Code }
zint_symbol = record zint_symbol = record