From 70d576a6896af878cdfb4de27ed1fe1f9e1964d9 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 16 May 2007 11:03:24 +0000
Subject: [PATCH] LCL: use progressevent for image loading / saving  from
 fpimage

git-svn-id: trunk@11151 -
---
 lcl/graphics.pp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index a9b8e812c1..4c7f51dad5 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -194,10 +194,8 @@ type
         contain trailing periods, and should be used only for
         display purposes.  (do not: if Msg = 'Loading' then...)
   }
-  TProgressStage = (psStarting, psRunning, psEnding);
-  TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage;
-                          PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
-                          const Msg: string; var DoContinue: Boolean) of object;
+  TProgressStage = TFPImgProgressStage;
+  TProgressEvent = TFPImgProgressEvent;
 
   { For Delphi compatibility }
   TPixelFormat = (