From acb3b896606f46a310d880c19b869a075b017dcd Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 21 Sep 2006 20:36:06 +0000
Subject: [PATCH] identifier completion: reverts color invert until we get a
 better algorithm

git-svn-id: trunk@9960 -
---
 ide/sourceeditprocs.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ide/sourceeditprocs.pas b/ide/sourceeditprocs.pas
index e3f7a6a456..165f229b3f 100644
--- a/ide/sourceeditprocs.pas
+++ b/ide/sourceeditprocs.pas
@@ -100,7 +100,7 @@ var
 
   procedure SetFontColor(NewColor: TColor);
   
-    procedure IncreaseDiff(var Value: integer; BaseValue: integer);
+    {procedure IncreaseDiff(var Value: integer; BaseValue: integer);
     begin
       if Value<BaseValue then begin
         dec(Value,$80);
@@ -113,7 +113,7 @@ var
         else
           Value:=0;
       end;
-    end;
+    end;}
   
   var
     FGRed: Integer;
@@ -131,10 +131,11 @@ var
     BlueDiff:=Abs(FGBlue-BGBlue);
     if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<70000 then
     begin
-      IncreaseDiff(FGRed,BGRed);
+      NewColor:=InvertColor(NewColor);
+      {IncreaseDiff(FGRed,BGRed);
       IncreaseDiff(FGGreen,BGGreen);
       IncreaseDiff(FGBlue,BGBlue);
-      NewColor:=(FGBlue shl 16) or (FGGreen shl 8) or FGRed;
+      NewColor:=(FGRed shl 16) or (FGGreen shl 8) or FGBlue;}
     end;
     ACanvas.Font.Color:=NewColor;
   end;