paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:10:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fix (sysutils to interface)

Browse Source
This commit is contained in:
marco 2003-08-25 11:15:44 +00:00
parent fa80f1110b
commit 1f9f8c4a3d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/image/fpreadpng.pp
View File

@ -19,7 +19,7 @@ unit FPReadPNG;
interface interface
uses uses
Classes, FPImage, FPImgCmn, PNGComn, ZStream; SysUtils,Classes, FPImage, FPImgCmn, PNGComn, ZStream;
Type Type
@ -86,7 +86,7 @@ Type
implementation implementation
uses sysutils;
const StartPoints : array[0..7, 0..1] of word = const StartPoints : array[0..7, 0..1] of word =
((0,0),(0,0),(4,0),(0,4),(2,0),(0,2),(1,0),(0,1)); ((0,0),(0,0),(4,0),(0,4),(2,0),(0,2),(1,0),(0,1));