anchor.diff:  
   
   procedure TKMListBox.Paint;
  -var i,PaintWidth: Integer;
  -begin
  -  inherited;
  +var
  +  I, PaintWidth: Integer;
  +begin
  +  inherited;
  +
     if fScrollBar.Visible then
       PaintWidth := Width - fScrollBar.Width //Leave space for scrollbar
     else
  
positive.code:   if (fItemIndex <> -1) and InRange(fItemIndex - TopIndex, 0, (fHeight div fItemHeight)-1) then
      TKMRenderUI.WriteShape(AbsLeft, AbsTop+fItemHeight*(fItemIndex - TopIndex), PaintWidth, fItemHeight, $88888888, $FFFFFFFF);
  
    for i:=0 to Math.min(fItems.Count-1, (fHeight div fItemHeight)-1) do
      TKMRenderUI.WriteText(AbsLeft+4, AbsTop+i*fItemHeight+3, PaintWidth-8, fItems.Strings[TopIndex+i] , fFont, taLeft);
  end;
  
  
  
negative.code:   for I := 0 to Math.min(fRowCount - 1, MaxItem) do
      TKMRenderUI.WriteShape(AbsLeft+1, Y + I * fItemHeight - 1, PaintWidth - 2, 1, $FFBBBBBB);
  
    TKMRenderUI.SetupClipY(AbsTop, AbsTop + Height - 1);
  
    //Selection highlight
    if not HideSelection
  