anchor.diff:        begin
           C.Font.Color:= _ContrastColor(NColor);
           C.Brush.Color:= NColor;
  -        C.TextOut(X1, AY, Copy(AStr, i, NLen+1));
  +        CanvasTextOutSimplest(C, X1, AY, Copy(AStr, i, NLen+1));
         end
         else
         begin
  
positive.code: 
  function _ContrastColor(AColor: TColor): TColor;
  const
    cValue: array[boolean] of TColor = ($E0E0E0, $101010);
  var
    bLight: boolean;
  begin
  
negative.code:             begin
                C.Font.Color:= _ContrastColor(NColor);
                C.Brush.Color:= NColor;
                CanvasTextOutSimplest(C, X1, AY, Copy(AStr, i, NLen));
              end
              else
              begin
  