anchor.diff:    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);
  +  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;
   
   
  
positive.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);
  
    //Selection highlight
    if not HideSelection
  
negative.code: 
  
  procedure TKMListBox.Paint;
  var
    I, PaintWidth: Integer;
  begin
    inherited;
  
    if fScrollBar.Visible then
      PaintWidth := Width - fScrollBar.Width //Leave space for scrollbar
    else
  