anchor.diff:  procedure TfmGotoList.ListDrawItem(Sender: TObject; C: TCanvas; AIndex: integer;
     const ARect: TRect);
   var
  -  NColorBack, NColorFont: TColor;
     pnt: TPoint;
     str0, str1, str2: string;
  +  NColorFont, NColorBack: TColor;
   begin
     str0:= Items[AIndex];
     str1:= SGetItem(str0, #9);
  
positive.code: 
    List.DoubleBuffered:= UiOps.DoubleBuffered;
  
    self.Color:= GetAppColor('ListBg');
    List.Color:= self.Color;
  
    List.Font.Name:= UiOps.VarFontName;
    List.Font.Size:= AppScaleFont(UiOps.VarFontSize);
  
    plCaption.Height:= AppScale(26);
    plCaption.Font.Name:= UiOps.VarFontName;
  
negative.code:   pnt:= Point(ARect.Left+4, ARect.Top+1);
    c.TextOut(pnt.x, pnt.y, str1);
  
    c.Font.Color:= FColorFontAlt;
    c.TextOut(ARect.Right-c.TextWidth(str2)-4, pnt.y, str2);
  end;
  
  