From d28e5e93184a8f7ff9945ebc1d51d4df93b9ed33 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Mon, 19 Dec 2005 08:21:59 +0000
Subject: [PATCH]   * Remove += operators

git-svn-id: trunk@1990 -
---
 packages/extra/ptc/dos/cga/cga.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/extra/ptc/dos/cga/cga.pp b/packages/extra/ptc/dos/cga/cga.pp
index 95279b5815..bc6f089d81 100644
--- a/packages/extra/ptc/dos/cga/cga.pp
+++ b/packages/extra/ptc/dos/cga/cga.pp
@@ -197,7 +197,7 @@ Begin
     End;
   End;
 
-  error += Round(Sqrt(mindist) * 290);
+  error:=error+round(Sqrt(mindist) * 290);
   Case dither Of
     0 : best2 := best1;
     1 : Begin
@@ -226,7 +226,7 @@ Begin
       b := s[0];
       g := s[1];
       r := s[2];
-      CGACalcError += precalcerror[back, pal]^[b Shr 4, g Shr 4, r Shr 4];
+      inc(CGACalcError,precalcerror[back, pal]^[b Shr 4, g Shr 4, r Shr 4]);
       Inc(s, 4{ + 4 + 4 + 4});
     End;
 //    Inc(s, 320*4*3);