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