From 1b6b1251b1da400aaf12c908501ff761d21c7d0c Mon Sep 17 00:00:00 2001
From: Uwe Raabe <uwe@uweraabe.de>
Date: Mon, 12 Mar 2018 17:09:13 +0100
Subject: [PATCH] Removed TRGPLine and PRGBLine as they are already declared in
 PngImage. Moved TRGBALine and PRGBALine local to ConvertToPNG as the only
 place where they are used.

---
 Source/PngFunctions.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Source/PngFunctions.pas b/Source/PngFunctions.pas
index 62ad04c..fc2fe87 100644
--- a/Source/PngFunctions.pas
+++ b/Source/PngFunctions.pas
@@ -16,10 +16,6 @@ interface
 type
   TPngOption = (pngBlendOnDisabled, pngGrayscaleOnDisabled);
   TPngOptions = set of TPngOption;
-  TRGBLine = array[Word] of TRGBTriple;
-  PRGBLine = ^TRGBLine;
-  TRGBALine = array[Word] of TRGBQuad;
-  PRGBALine = ^TRGBALine;
 
 procedure MakeImageBlended(Image: TPngImage; Amount: Byte = 127);
 procedure MakeImageGrayscale(Image: TPngImage; Amount: Byte = 255);
@@ -189,6 +185,9 @@ procedure DrawPNG(Png: TPngImage; Canvas: TCanvas; const ARect: TRect; const Opt
 end;
 
 procedure ConvertToPNG(Source: TGraphic; Dest: TPngImage);
+type
+  TRGBALine = array[Word] of TRGBQuad;
+  PRGBALine = ^TRGBALine;
 var
   MaskLines: array of pngimage.PByteArray;