From 34b589646d428646c84988fea722380fb52da8ff Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Mon, 6 Oct 2008 10:16:50 +0000
Subject: [PATCH] *** empty log message ***

---
 2.10/Source/Render.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/2.10/Source/Render.pas b/2.10/Source/Render.pas
index b9fa265..8243c42 100644
--- a/2.10/Source/Render.pas
+++ b/2.10/Source/Render.pas
@@ -121,7 +121,7 @@ type
     procedure ShowSmallStats;
 
     property OnProgress: TOnProgress
-        read FOnProgress
+//      read FOnProgress
        write FOnProgress;
     property MaxMem : integer
         read FMaxMem
@@ -341,7 +341,7 @@ function TBaseRenderer.GetImage: TBitmap;
 begin
   if FStop > 0 then begin
     assert(false);
-    FImageMaker.OnProgress := OnProgress;
+    FImageMaker.OnProgress := FOnProgress;
     FImageMaker.CreateImage;
   end;
   Result := FImageMaker.GetImage;
@@ -373,7 +373,7 @@ begin
   FImageMaker.SetCP(FCP);
   FImageMaker.Init;
 
-  FImageMaker.OnProgress := OnProgress;
+  FImageMaker.OnProgress := FOnProgress;
   FImageMaker.CreateImage;
 end;
 
@@ -382,7 +382,7 @@ procedure TBaseRenderer.SaveImage(const FileName: String);
 begin
   if FStop > 0 then begin
     TimeTrace(Format('Creating image with quality = %f', [fcp.actual_density]));
-    FImageMaker.OnProgress := OnProgress;
+    FImageMaker.OnProgress := FOnProgress;
     FImageMaker.CreateImage;
   end;
   TimeTrace('Saving image');
@@ -578,7 +578,7 @@ begin
     else
       TimeTrace(Format('Creating image with quality = %f', [fcp.actual_density]));
 
-    FImageMaker.OnProgress := OnProgress;
+    FImageMaker.OnProgress := FOnProgress;
     FImageMaker.CreateImage;
   end;
 end;
@@ -661,7 +661,7 @@ begin
 
     if FStop = 0 then begin
       TimeTrace('Creating image');
-      FImageMaker.OnProgress := OnProgress;
+      FImageMaker.OnProgress := FOnProgress;
       FImageMaker.CreateImage(Slice * fcp.height);
     end;
   end;